From 2c84bda317eaadcc8417322fadc876f16a484976 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 23 May 2023 09:02:07 -0400 Subject: [PATCH 01/18] Use attributes to encode modular syntax for expressions --- ocaml/.depend | 7 +- ocaml/boot/menhir/parser.ml | 15094 ++++++++-------- ocaml/parsing/ast_invariants.ml | 2 +- ocaml/parsing/ast_iterator.ml | 6 +- ocaml/parsing/ast_mapper.ml | 17 +- ocaml/parsing/depend.ml | 2 +- ocaml/parsing/jane_syntax.ml | 254 +- ocaml/parsing/jane_syntax.mli | 24 +- ocaml/parsing/jane_syntax_parsing.ml | 455 +- ocaml/parsing/jane_syntax_parsing.mli | 196 +- ocaml/parsing/parser.mly | 147 +- ocaml/parsing/pprintast.ml | 14 +- .../user_error1.compilers.reference | 8 +- .../tests/jane-modular-syntax/user_error1.ml | 4 +- .../user_error3.compilers.reference | 8 +- .../tests/jane-modular-syntax/user_error3.ml | 4 +- .../user_error4.compilers.reference | 6 +- .../tests/jane-modular-syntax/user_error4.ml | 4 +- .../user_error5.compilers.reference | 8 +- .../tests/jane-modular-syntax/user_error5.ml | 4 +- .../user_error6.compilers.reference | 8 +- .../tests/jane-modular-syntax/user_error6.ml | 4 +- .../tests/jane-modular-syntax/user_error7.ml | 31 +- ocaml/typing/typecore.ml | 12 +- ocaml/typing/untypeast.ml | 16 +- 25 files changed, 8217 insertions(+), 8118 deletions(-) diff --git a/ocaml/.depend b/ocaml/.depend index 88764b684f5..c3f9f393a64 100644 --- a/ocaml/.depend +++ b/ocaml/.depend @@ -450,19 +450,20 @@ parsing/jane_syntax.cmi : \ parsing/parsetree.cmi \ parsing/longident.cmi \ parsing/location.cmi \ + parsing/jane_syntax_parsing.cmi \ parsing/asttypes.cmi parsing/jane_syntax_parsing.cmo : \ parsing/parsetree.cmi \ + utils/misc.cmi \ parsing/location.cmi \ utils/language_extension.cmi \ - parsing/asttypes.cmi \ parsing/ast_helper.cmi \ parsing/jane_syntax_parsing.cmi parsing/jane_syntax_parsing.cmx : \ parsing/parsetree.cmi \ + utils/misc.cmx \ parsing/location.cmx \ utils/language_extension.cmx \ - parsing/asttypes.cmi \ parsing/ast_helper.cmx \ parsing/jane_syntax_parsing.cmi parsing/jane_syntax_parsing.cmi : \ @@ -2079,6 +2080,7 @@ typing/untypeast.cmo : \ parsing/parsetree.cmi \ parsing/longident.cmi \ parsing/location.cmi \ + parsing/jane_syntax_parsing.cmi \ parsing/jane_syntax.cmi \ typing/ident.cmi \ typing/env.cmi \ @@ -2091,6 +2093,7 @@ typing/untypeast.cmx : \ parsing/parsetree.cmi \ parsing/longident.cmx \ parsing/location.cmx \ + parsing/jane_syntax_parsing.cmx \ parsing/jane_syntax.cmx \ typing/ident.cmx \ typing/env.cmx \ diff --git a/ocaml/boot/menhir/parser.ml b/ocaml/boot/menhir/parser.ml index 3360c15dcf0..dc5a1c5cfd8 100644 --- a/ocaml/boot/menhir/parser.ml +++ b/ocaml/boot/menhir/parser.ml @@ -16,7 +16,7 @@ module MenhirBasics = struct | VAL | UNDERSCORE | UIDENT of ( -# 891 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) # 22 "parsing/parser.ml" ) @@ -28,7 +28,7 @@ module MenhirBasics = struct | THEN | STRUCT | STRING of ( -# 878 "parsing/parser.mly" +# 900 "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 ( -# 882 "parsing/parser.mly" +# 904 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 47 "parsing/parser.ml" ) | QUOTED_STRING_EXPR of ( -# 880 "parsing/parser.mly" +# 902 "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 ( -# 864 "parsing/parser.mly" +# 886 "parsing/parser.mly" (string) # 60 "parsing/parser.ml" ) @@ -64,7 +64,7 @@ module MenhirBasics = struct | PERCENT | OR | OPTLABEL of ( -# 857 "parsing/parser.mly" +# 879 "parsing/parser.mly" (string) # 70 "parsing/parser.ml" ) @@ -84,12 +84,12 @@ module MenhirBasics = struct | LPAREN | LOCAL | LIDENT of ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) # 90 "parsing/parser.ml" ) | LETOP of ( -# 819 "parsing/parser.mly" +# 841 "parsing/parser.mly" (string) # 95 "parsing/parser.ml" ) @@ -110,39 +110,39 @@ module MenhirBasics = struct | LBRACE | LAZY | LABEL of ( -# 824 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) # 116 "parsing/parser.ml" ) | INT of ( -# 823 "parsing/parser.mly" +# 845 "parsing/parser.mly" (string * char option) # 121 "parsing/parser.ml" ) | INITIALIZER | INHERIT | INFIXOP4 of ( -# 817 "parsing/parser.mly" +# 839 "parsing/parser.mly" (string) # 128 "parsing/parser.ml" ) | INFIXOP3 of ( -# 816 "parsing/parser.mly" +# 838 "parsing/parser.mly" (string) # 133 "parsing/parser.ml" ) | INFIXOP2 of ( -# 815 "parsing/parser.mly" +# 837 "parsing/parser.mly" (string) # 138 "parsing/parser.ml" ) | INFIXOP1 of ( -# 814 "parsing/parser.mly" +# 836 "parsing/parser.mly" (string) # 143 "parsing/parser.ml" ) | INFIXOP0 of ( -# 813 "parsing/parser.mly" +# 835 "parsing/parser.mly" (string) # 148 "parsing/parser.ml" ) @@ -150,7 +150,7 @@ module MenhirBasics = struct | IN | IF | HASHOP of ( -# 875 "parsing/parser.mly" +# 897 "parsing/parser.mly" (string) # 156 "parsing/parser.ml" ) @@ -164,7 +164,7 @@ module MenhirBasics = struct | FUN | FOR | FLOAT of ( -# 801 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string * char option) # 170 "parsing/parser.ml" ) @@ -178,7 +178,7 @@ module MenhirBasics = struct | ELSE | DOWNTO | DOTOP of ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) # 184 "parsing/parser.ml" ) @@ -186,14 +186,14 @@ module MenhirBasics = struct | DOT | DONE | DOCSTRING of ( -# 899 "parsing/parser.mly" +# 921 "parsing/parser.mly" (Docstrings.docstring) # 192 "parsing/parser.ml" ) | DO | CONSTRAINT | COMMENT of ( -# 898 "parsing/parser.mly" +# 920 "parsing/parser.mly" (string * Location.t) # 199 "parsing/parser.ml" ) @@ -205,7 +205,7 @@ module MenhirBasics = struct | COLON | CLASS | CHAR of ( -# 780 "parsing/parser.mly" +# 802 "parsing/parser.mly" (char) # 211 "parsing/parser.ml" ) @@ -218,7 +218,7 @@ module MenhirBasics = struct | ASSERT | AS | ANDOP of ( -# 820 "parsing/parser.mly" +# 842 "parsing/parser.mly" (string) # 224 "parsing/parser.ml" ) @@ -519,35 +519,51 @@ let unclosed opening_name opening_loc closing_name closing_loc = module Generic_array = struct (** The three possible ways to parse an array (writing [[? ... ?]] for either [[| ... |]] or [[: ... :]]): *) - type (_, _) t = - | Literal : 'ast list -> ('ast, 'ast_desc) t - (** A plain array literal/pattern, [[? x; y; z ?]] *) - | Opened_literal : open_declaration * - Lexing.position * - Lexing.position * - expression list - -> (expression, expression_desc) t - (** An array literal with a local open, [Module.[? x; y; z ?]] (only valid in - expressions) *) - | Unclosed : (Lexing.position * Lexing.position) * - (Lexing.position * Lexing.position) - -> (_, _) t - (** Parse error: an unclosed array literal, [\[? x; y; z] with no closing - [?\]]. *) - let to_ast (type ast ast_desc) - (open_ : string) (close : string) - (array : ast list -> ast_desc) - : (ast, ast_desc) t -> ast_desc = function - | Literal elts -> - array elts - | Opened_literal(od, startpos, endpos, elts) -> - (Pexp_open(od, mkexp ~loc:(startpos, endpos) (array elts)) : ast_desc) - | Unclosed(startpos, endpos) -> - unclosed open_ startpos close endpos + module Simple = struct + type 'a t = + | Literal of 'a list + (** A plain array literal/pattern, [[? x; y; z ?]] *) + | Unclosed of (Lexing.position * Lexing.position) * + (Lexing.position * Lexing.position) + (** Parse error: an unclosed array literal, [\[? x; y; z] with no closing + [?\]]. *) + + let to_ast (open_ : string) (close : string) array t = + match t with + | Literal pats -> array pats + | Unclosed (startpos, endpos) -> unclosed open_ startpos close endpos + end + + + module Expression = struct + type t = + | Simple of expression Simple.t + | Opened_literal of open_declaration * + Lexing.position * + Lexing.position * + expression list + (** An array literal with a local open, [Module.[? x; y; z ?]] (only valid + in expressions) *) + + let to_expression_desc (open_ : string) (close : string) array t = + match t with + | Simple x -> Simple.to_ast open_ close array x + | Opened_literal (od, startpos, endpos, elts) -> + Pexp_open (od, mkexp ~loc:(startpos, endpos) (array elts)) + + let to_expression (open_ : string) (close : string) array ~loc t = + match t with + | Simple x -> Simple.to_ast open_ close (array ~loc) x + | Opened_literal (od, startpos, endpos, elts) -> + mkexp ~loc (Pexp_open (od, array ~loc:(startpos, endpos) elts)) + end - let expression : _ -> _ -> _ -> (expression, expression_desc) t -> _ = to_ast - let pattern : _ -> _ -> _ -> (pattern, pattern_desc) t -> _ = to_ast + module Pattern = struct + type t = pattern Simple.t + let to_pattern_desc open_ close array (t : t) : pattern_desc = + Simple.to_ast open_ close array t + end end let ppat_iarray loc elts = @@ -965,8 +981,14 @@ let check_layout loc id = let loc = make_loc loc in Attr.mk ~loc (mkloc id loc) (PStr []) +let mkexp_jane_syntax + ~loc + { Jane_syntax_parsing.With_attributes.jane_syntax_attributes; desc } + = + mkexp_attrs ~loc desc (None, jane_syntax_attributes) -# 970 "parsing/parser.ml" + +# 992 "parsing/parser.ml" module Tables = struct @@ -1496,7 +1518,7 @@ module Tables = struct Obj.repr () and default_reduction = - (16, "\000\000\000\000\000\000\003D\003C\003B\003A\003@\003\017\003?\003>\003=\003<\003;\003:\0039\0038\0037\0036\0035\0034\0033\0032\003$\0031\0030\003/\003.\003-\003,\003\016\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\003\024\003\023\003\022\003\021\003\020\003\019\003\018\000\000\000\000\000,\000\198\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\173\001\210\001\189\001\207\001\206\001\205\001\211\001\215\000\000\003\174\001\209\001\208\001\190\001\213\001\204\001\203\001\202\001\201\001\200\001\198\001\214\001\212\000\000\000\000\000\000\000\234\000\000\000\000\001\193\000\000\000\000\000\000\001\195\000\000\000\000\000\000\001\197\001\219\001\216\001\199\001\191\001\217\001\218\000\000\003\172\003\171\003\175\000\000\000\000\000\026\001g\000\200\000\000\000\228\000\229\000\000\000\000\000\000\001\241\001\240\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\168\000\000\003\163\000\000\000\000\003\165\000\000\003\167\000\000\003\164\003\166\000\000\003\158\000\000\003\157\000\000\000\000\001\254\001\r\003\153\000\000\0012\001\253\000\000\003\156\000\000\002f\002e\000\000\000\000\000\000\000\000\000\000\000\000\000s\000\000\000\025\000\000\000\000\000q\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\195\001s\000\000\000\000\000\000\000\000\000\000\000\000\002L\000\000\000\000\000\000\000\000\000\000\000\000\000n\000\000\000\000\000\000\000\000\000\000\002\254\000\000\002\159\002\160\000\000\002\157\002\158\000\000\000\000\000\000\000\000\000\000\001\138\001\137\000\000\002\252\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\237\000\017\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001q\000\000\000\000\001t\001r\001z\000D\002\195\003\129\003\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\000p\000\000\000\246\000\000\002\162\002\161\000\000\000\000\000\000\001\223\000\000\000\000\000'\000\000\000\000\000\000\001e\000\000\000\000\001y\000\000\001x\000\000\001h\001w\000\000\001f\000e\000 \000\000\000\000\001\166\000\027\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\152\000*\000\000\000\000\000!\000\028\000\000\000\000\000\000\000\000\003U\000\000\000\000\000\213\000\000\000\000\000\000\000\"\000\029\000\000\000\018\000\000\000\134\000\000\000\000\000\000\000\019\000\000\000\000\002W\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003J\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\003L\000\000\000\000\000\000\000\000\000\000\003M\000\000\000\000\000\000\000\000\000\000\003K\000\000\003S\002u\002a\000\000\000$\000\000\002b\000\000\000\000\001\220\000\000\000\000\000\000\000\000\003\130\000\000\003\131\000\000\000\000\000#\000\000\000\000\000\000\000%\000\000\000&\000\000\000(\000\000\000\000\000)\002U\002T\000\000\000\000\000\000\000\000\000\000\000\000\000l\000\000\003\003\000o\000r\000m\002\248\003\176\002\249\002\030\002\251\000\000\000\000\003\000\002\156\003\002\000\000\000\000\000\000\003\t\003\006\000\000\000\000\000\000\002\026\002\012\000\000\000\000\000\000\000\000\002\016\000\000\002\011\000\000\002\029\003\015\000\000\000\000\000\000\000\000\001\168\000\000\000\000\002\028\003\001\000z\000\000\000\000\000y\000\000\003\n\002\250\000\000\002\022\000\000\000\000\003\r\000\000\003\012\003\011\000\000\002\018\000\000\000\000\002\014\002\r\002\027\002\019\000\000\000x\000\000\003\b\003\007\000\000\003\005\000\000\002\164\002\163\000\000\000\000\002\127\003\004\000\000\000\000\000\000\000\000\001\225\001M\001N\002\167\000\000\002\166\002\165\002\170\000\000\002\169\002\168\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\004\000\000\001\003\001\005\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\214\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\148\000\000\000\000\000\000\000\000\000\000\000\000\003\199\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\155\000\000\000\000\000\000\000\000\000\000\001\147\000\000\000\000\000\000\001p\001\154\001o\001\151\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\002`\002Q\002P\000\000\001\146\001\145\000\000\000\215\000\000\000\000\001\131\000\000\000\000\001\135\000\000\001\245\001\244\000\000\000\000\001\243\001\242\001\134\001\132\000\000\001\136\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\201\001u\002\206\002\204\000\000\000\000\000\000\002\217\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\247\000\000\002\246\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\001\000\000\000\000\001\000\002(\001\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\149\000\000\000\000\003\148\000\000\000\000\000\000\000\000\000\250\000\249\000\000\000\251\000\000\000\000\000\000\002\214\000\000\000\000\000\000\002\183\002\174\000\000\000\000\000\000\000\000\003\177\002\216\002\203\002\202\000\000\000\000\000\180\000\000\000\000\000\000\000\000\000\000\000\194\000\000\000\000\000\000\000\179\000\000\000\000\000\000\002\134\002\133\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\007\000\000\000\000\002V\000\000\000\000\000\000\001\011\000\000\000\000\000\000\000\000\000\000\001\n\001\006\000\000\001Q\000\000\000\000\001P\001\b\001O\001S\000\000\001R\000\000\000\000\001\t\000\000\000\000\000\000\000\000\000\000\001\012\000\000\000\000\000\000\000\000\000\000\001\020\000\000\000\000\001\018\001\024\000\000\000\000\000\000\000\000\000\000\000\000\003G\000\000\000\000\000\207\000\206\000\000\003H\003I\000\000\000\000\000\000\000\000\000\000\000\000\001\021\000\000\000\000\000\000\000\000\001\019\000\000\000\000\001\017\001\016\000\000\000\000\000\000\000\000\001\023\000\000\000\000\001\022\000\000\002\025\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\014\000\000\000\000\0018\000\020\001\026\000\000\000\000\000\000\002\185\002\176\000\000\000\000\002\184\002\175\000\000\000\000\000\000\000\000\002\187\002\178\000\000\000\000\002y\000\000\000\000\002\191\002\182\000\000\000\000\002\189\002\180\002\210\000\000\000\000\000\000\000\000\000\000\002\186\000\000\000\000\000\000\000\000\000\000\002\190\000\000\000\000\000\000\000\000\000\000\002\188\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002S\002R\000\178\000\000\002\177\000\000\000\000\002\181\000\000\000\000\002\179\000\000\000\135\000\136\000\000\000\000\000\000\000\000\000\151\000\208\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\209\000\000\000\210\000\211\000\144\000\000\000\143\000\000\000\000\001U\000\000\001V\001T\002Y\000\000\000\000\002Z\002X\000\000\000\000\000\000\000\000\000\000\001#\000\000\000\000\001$\000\000\000\000\000\181\000\000\001&\001%\000\000\000\000\002\218\002\211\000\000\002\233\000\000\002\234\002\232\000\000\000\000\000\000\000\000\000\000\000\000\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^\002]\000\000\002\242\002O\002N\000\000\002\227\000\000\002\228\002\226\000\000\000\000\002\241\000\000\002\244\000\000\002\245\002\243\000\000\000\000\002\240\000\000\000\000\002\213\002\212\000\000\000\000\000\000\002?\000\000\001\239\000\000\000\000\000\000\002\130\002>\000\000\002\222\002\221\000\000\000\000\000\000\001v\000\000\002\193\000\000\002\194\002\192\000\000\002\220\002\219\000\000\000\000\000\000\002|\002\209\000\000\002\208\002\207\000\000\002\236\002\235\000\000\000\000\002\237\002\225\000\000\002\224\002\223\000\000\000\000\002\238\000\141\000\000\000\000\000\000\000\000\000\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\138\000\000\001}\000\000\000\000\000\000\000t\000\000\000\000\000u\000\000\000\000\000\000\000\000\000\000\000\000\001\160\001\158\001\159\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\239\000\000\000\000\000\130\000\000\000\242\000\240\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\217\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\139\000v\000\000\000\000\002=\000\000\000\000\001\025\001\237\000\000\000\254\000\000\000\000\000\253\000\255\001!\000\000\000\196\002\231\000\000\002\230\002\229\000\000\000\000\002\239\002\205\000\000\000\000\000\000\000\000\002\196\000\000\002\198\000\000\002\197\000\000\002\172\002\171\000\000\002\173\000\000\000\000\000\000\000\000\001\252\001\246\000\000\001\251\000\000\001\249\000\000\001\250\000\000\001\247\000\000\000\000\001\248\000\000\001\186\000\000\000\000\000\000\001\185\000\000\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\000\000\000\000\000\000\000\000\000\000\001.\003z\000\000\000\000\003y\000\000\000\000\000\000\000\000\000\000\002.\000\000\000\000\000\000\000\232\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\170\000\000\0024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003F\000\000\000\000\002\135\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\188\000\000\000\000\000\000\001\187\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\153\000\000\000\000\000\000\000\000\001\140\000\000\001\139\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0010\002\149\000\000\000\000\000\000\002\147\000\000\000\000\000\000\002\146\000\000\001\127\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\185\000\000\000\000\002g\000\000\000\205\000\000\002h\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000H\000\000\000\000\000\000\000\000\001\165\000\000\001\164\000\000\000\000\000\000\000\000\000K\000\000\000\000\000\000\002;\000\000\002:\000\000\000\000\000\000\000\000\000L\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000Q\000\000\000\000\000\000\000R\000P\000\000\000U\000\000\000\000\000\000\000\000\000\000\000J\000\000\000\000\000\000\000\000\000\000\000\000\000M\000\000\000T\000S\000\000\000N\000O\000\000\001A\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001,\000d\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000a\000\000\000c\000b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001*\002\154\002\139\000\000\002\145\002\140\002\152\002\151\002\150\002\148\001;\000\000\002\137\000\000\000\000\000\000\000\000\002\153\000\000\000\000\000\000\000\000\000\000\002L\000\000\000\000\0014\002\141\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\181\001\177\000\000\000\000\000\000\000\222\000\000\000\000\002B\002L\000\000\000\000\0016\002@\002A\000\000\000\000\000\000\000\000\000\000\001\184\001\180\001\176\000\000\000\000\000\223\000\000\000\000\001\183\001\179\001\175\001\173\002\142\002\138\002\155\001:\002+\002\136\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\156\000\000\000\000\000\000\003\180\000\000\000\000\003\182\000\000\0009\000\000\000\000\003\188\000\000\003\187\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\179\000\000\000\000\003\181\000\000\000\000\000\000\0026\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001d\000\000\000\000\001b\001`\000\000\000:\000\000\000\000\003\191\000\000\003\190\000\000\000\000\000\000\001^\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001c\000\000\000\000\001a\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\001\028\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000[\000\000\000\000\000\000\000\000\000\000\000\000\0006\000\000\000\000\000Z\000\000\0004\001\029\000\000\000C\0000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\027\000\000\000Y\000X\000\000\000\000\000^\000]\000\000\000\000\001\227\000\000\0008\000\000\000\000\000\000\0007\000\000\000\000\000\000\000;\000\000\000\\\000_\000\000\000=\000>\000\000\001C\000\000\000\000\000\000\000\000\000\000\000\000\000A\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001(\003}\003t\000\000\000\000\003x\003E\003s\003|\003{\001?\000\000\000\000\003q\000\000\000\000\000\000\000\000\003\127\000\000\003u\003r\003~\002*\000\000\000\000\003o\000-\003n\000\000\000\000\000\203\000\000\000\236\000\000\000\000\001>\001=\000\000\001\129\001\128\000\000\000\000\003\014\002\253\000\000\000E\000\000\000\000\000F\000\000\000\000\002\200\002\199\000\000\000\000\000\147\000\000\000\000\0023\000\227\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\201\000\000\003w\002G\002H\002C\002E\002D\002F\000\000\000\000\000\000\000\202\000\000\000\000\002L\000\000\000\226\000\000\000\000\000\000\000\000\003v\000\000\000\199\000\000\000\000\000\000\000\000\000\000\000\000\001]\001W\000\000\000\000\001X\000\031\000\000\000\030\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003N\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003P\000\000\000\000\000\000\000\000\000\000\003Q\000\000\000\000\000\000\000\000\000\000\003O\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\003R\000\000\000\000\001\182\001\178\000\000\001\174\003\151\000\000\002L\000\000\000\225\000\000\000\000\000\000\000\000\002\144\002K\002I\002J\000\000\000\000\000\000\002L\000\000\000\224\000\000\000\000\000\000\000\000\002\143\000\000\001\142\001\141\000\000\000\024\000\000\003\183\000\000\000.\000\000\000\000\000\000\000\000\000\150\000\000\000\230\000\001\000\000\000\000\000\235\000\002\000\000\000\000\000\000\001j\001k\000\003\000\000\000\000\000\000\000\000\001m\001n\001l\000\021\001i\000\022\000\000\001\255\000\000\000\004\000\000\002\000\000\000\000\005\000\000\002\001\000\000\000\000\002\002\000\006\000\000\000\007\000\000\002\003\000\000\000\b\000\000\002\004\000\000\000\t\000\000\002\005\000\000\000\n\000\000\002\006\000\000\000\011\000\000\002\007\000\000\000\000\002\b\000\012\000\000\000\000\002\t\000\r\000\000\000\000\000\000\000\000\000\000\003\138\003\133\003\134\003\137\003\135\000\000\003\142\000\014\000\000\003\141\000\000\001E\000\000\000\000\003\139\000\000\003\140\000\000\000\000\000\000\000\000\001I\001J\000\000\000\000\001H\001G\000\015\000\000\000\000\000\000\003\170\000\000\003\169") + (16, "\000\000\000\000\000\000\003D\003C\003B\003A\003@\003\017\003?\003>\003=\003<\003;\003:\0039\0038\0037\0036\0035\0034\0033\0032\003$\0031\0030\003/\003.\003-\003,\003\016\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\003\024\003\023\003\022\003\021\003\020\003\019\003\018\000\000\000\000\000,\000\198\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\173\001\210\001\189\001\207\001\206\001\205\001\211\001\215\000\000\003\174\001\209\001\208\001\190\001\213\001\204\001\203\001\202\001\201\001\200\001\198\001\214\001\212\000\000\000\000\000\000\000\234\000\000\000\000\001\193\000\000\000\000\000\000\001\195\000\000\000\000\000\000\001\197\001\219\001\216\001\199\001\191\001\217\001\218\000\000\003\172\003\171\003\175\000\000\000\000\000\026\001g\000\200\000\000\000\228\000\229\000\000\000\000\000\000\001\241\001\240\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\168\000\000\003\163\000\000\000\000\003\165\000\000\003\167\000\000\003\164\003\166\000\000\003\158\000\000\003\157\000\000\000\000\001\254\001\r\003\153\000\000\0012\001\253\000\000\003\156\000\000\002f\002e\000\000\000\000\000\000\000\000\000\000\000\000\000s\000\000\000\025\000\000\000\000\000q\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\195\001s\000\000\000\000\000\000\000\000\000\000\000\000\002L\000\000\000\000\000\000\000\000\000\000\000\000\000n\000\000\000\000\000\000\000\000\000\000\002\254\000\000\002\159\002\160\000\000\002\157\002\158\000\000\000\000\000\000\000\000\000\000\001\138\001\137\000\000\002\252\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\237\000\017\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001q\000\000\000\000\001t\001r\001z\000D\002\195\003\129\003\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\000p\000\000\000\246\000\000\002\162\002\161\000\000\000\000\000\000\001\223\000\000\000\000\000'\000\000\000\000\000\000\001e\000\000\000\000\001y\000\000\001x\000\000\001h\001w\000\000\001f\000e\000 \000\000\000\000\001\166\000\027\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\152\000*\000\000\000\000\000!\000\028\000\000\000\000\000\000\000\000\003U\000\000\000\000\000\213\000\000\000\000\000\000\000\"\000\029\000\000\000\018\000\000\000\134\000\000\000\000\000\000\000\019\000\000\000\000\002W\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003J\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\003L\000\000\000\000\000\000\000\000\000\000\003M\000\000\000\000\000\000\000\000\000\000\003K\000\000\003S\002u\002a\000\000\000$\000\000\002b\000\000\000\000\001\220\000\000\000\000\000\000\000\000\003\130\000\000\003\131\000\000\000\000\000#\000\000\000\000\000\000\000%\000\000\000&\000\000\000(\000\000\000\000\000)\002U\002T\000\000\000\000\000\000\000\000\000\000\000\000\000l\000\000\003\003\000o\000r\000m\002\248\003\176\002\249\002\030\002\251\000\000\000\000\003\000\002\156\003\002\000\000\000\000\000\000\003\t\003\006\000\000\000\000\000\000\002\026\002\012\000\000\000\000\000\000\000\000\002\016\000\000\002\011\000\000\002\029\003\015\000\000\000\000\000\000\000\000\001\168\000\000\000\000\002\028\003\001\000z\000\000\000\000\000y\000\000\003\n\002\250\000\000\002\022\000\000\000\000\003\r\000\000\003\012\003\011\000\000\002\018\000\000\000\000\002\014\002\r\002\027\002\019\000\000\000x\000\000\003\b\003\007\000\000\003\005\000\000\002\164\002\163\000\000\000\000\002\127\003\004\000\000\000\000\000\000\000\000\001\225\001M\001N\002\167\000\000\002\166\002\165\002\170\000\000\002\169\002\168\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\004\000\000\001\003\001\005\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\214\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\148\000\000\000\000\000\000\000\000\000\000\000\000\003\199\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\155\000\000\000\000\000\000\000\000\000\000\001\147\000\000\000\000\000\000\001p\001\154\001o\001\151\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\002`\002Q\002P\000\000\001\146\001\145\000\000\000\215\000\000\000\000\001\131\000\000\000\000\001\135\000\000\001\245\001\244\000\000\000\000\001\243\001\242\001\134\001\132\000\000\001\136\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\201\001u\002\206\002\204\000\000\000\000\000\000\002\217\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\238\000\000\002\237\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\001\000\000\000\000\001\000\002(\001\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\149\000\000\000\000\003\148\000\000\000\000\000\000\000\000\000\250\000\249\000\000\000\251\000\000\000\000\000\000\002\214\000\000\000\000\000\000\002\183\002\174\000\000\000\000\000\000\000\000\003\177\002\216\002\203\002\202\000\000\000\000\000\180\000\000\000\000\000\000\000\000\000\000\000\194\000\000\000\000\000\000\000\179\000\000\000\000\000\000\002\134\002\133\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\007\000\000\000\000\002V\000\000\000\000\000\000\001\011\000\000\000\000\000\000\000\000\000\000\001\n\001\006\000\000\001Q\000\000\000\000\001P\001\b\001O\001S\000\000\001R\000\000\000\000\001\t\000\000\000\000\000\000\000\000\000\000\001\012\000\000\000\000\000\000\000\000\000\000\001\020\000\000\000\000\001\018\001\024\000\000\000\000\000\000\000\000\000\000\000\000\003G\000\000\000\000\000\207\000\206\000\000\003H\003I\000\000\000\000\000\000\000\000\000\000\000\000\001\021\000\000\000\000\000\000\000\000\001\019\000\000\000\000\001\017\001\016\000\000\000\000\000\000\000\000\001\023\000\000\000\000\001\022\000\000\002\025\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\014\000\000\000\000\0018\000\020\001\026\000\000\000\000\000\000\002\185\002\176\000\000\000\000\002\184\002\175\000\000\000\000\000\000\000\000\002\187\002\178\000\000\000\000\002y\000\000\000\000\002\191\002\182\000\000\000\000\002\189\002\180\002\210\000\000\000\000\000\000\000\000\000\000\002\186\000\000\000\000\000\000\000\000\000\000\002\190\000\000\000\000\000\000\000\000\000\000\002\188\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002S\002R\000\178\000\000\002\177\000\000\000\000\002\181\000\000\000\000\002\179\000\000\000\135\000\136\000\000\000\000\000\000\000\000\000\151\000\208\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\209\000\000\000\210\000\211\000\144\000\000\000\143\000\000\000\000\001U\000\000\001V\001T\002Y\000\000\000\000\002Z\002X\000\000\000\000\000\000\000\000\000\000\001#\000\000\000\000\001$\000\000\000\000\000\181\000\000\001&\001%\000\000\000\000\002\218\002\211\000\000\002\243\000\000\002\244\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\000h\002^\002]\000\000\002\233\002O\002N\000\000\002\227\000\000\002\228\002\226\000\000\000\000\002\232\000\000\002\235\000\000\002\236\002\234\000\000\000\000\002\231\000\000\000\000\002\213\002\212\000\000\000\000\000\000\002?\000\000\001\239\000\000\000\000\000\000\002\130\002>\000\000\002\222\002\221\000\000\000\000\000\000\001v\000\000\002\193\000\000\002\194\002\192\000\000\002\220\002\219\000\000\000\000\000\000\002|\002\209\000\000\002\208\002\207\000\000\002\230\002\229\000\000\000\000\002\245\002\225\000\000\002\224\002\223\000\000\000\000\002\246\000\141\000\000\000\000\000\000\000\000\000\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\138\000\000\001}\000\000\000\000\000\000\000t\000\000\000\000\000u\000\000\000\000\000\000\000\000\000\000\000\000\001\160\001\158\001\159\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\239\000\000\000\000\000\130\000\000\000\242\000\240\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\217\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\139\000v\000\000\000\000\002=\000\000\000\000\001\025\001\237\000\000\000\254\000\000\000\000\000\253\000\255\001!\000\000\000\196\002\241\000\000\002\240\002\239\000\000\000\000\002\247\002\205\000\000\000\000\000\000\000\000\002\196\000\000\002\198\000\000\002\197\000\000\002\172\002\171\000\000\002\173\000\000\000\000\000\000\000\000\001\252\001\246\000\000\001\251\000\000\001\249\000\000\001\250\000\000\001\247\000\000\000\000\001\248\000\000\001\186\000\000\000\000\000\000\001\185\000\000\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\000\000\000\000\000\000\000\000\000\000\001.\003z\000\000\000\000\003y\000\000\000\000\000\000\000\000\000\000\002.\000\000\000\000\000\000\000\232\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\170\000\000\0024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003F\000\000\000\000\002\135\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\188\000\000\000\000\000\000\001\187\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\153\000\000\000\000\000\000\000\000\001\140\000\000\001\139\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0010\002\149\000\000\000\000\000\000\002\147\000\000\000\000\000\000\002\146\000\000\001\127\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\185\000\000\000\000\002g\000\000\000\205\000\000\002h\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000H\000\000\000\000\000\000\000\000\001\165\000\000\001\164\000\000\000\000\000\000\000\000\000K\000\000\000\000\000\000\002;\000\000\002:\000\000\000\000\000\000\000\000\000L\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000Q\000\000\000\000\000\000\000R\000P\000\000\000U\000\000\000\000\000\000\000\000\000\000\000J\000\000\000\000\000\000\000\000\000\000\000\000\000M\000\000\000T\000S\000\000\000N\000O\000\000\001A\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001,\000d\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000a\000\000\000c\000b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001*\002\154\002\139\000\000\002\145\002\140\002\152\002\151\002\150\002\148\001;\000\000\002\137\000\000\000\000\000\000\000\000\002\153\000\000\000\000\000\000\000\000\000\000\002L\000\000\000\000\0014\002\141\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\181\001\177\000\000\000\000\000\000\000\222\000\000\000\000\002B\002L\000\000\000\000\0016\002@\002A\000\000\000\000\000\000\000\000\000\000\001\184\001\180\001\176\000\000\000\000\000\223\000\000\000\000\001\183\001\179\001\175\001\173\002\142\002\138\002\155\001:\002+\002\136\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\156\000\000\000\000\000\000\003\180\000\000\000\000\003\182\000\000\0009\000\000\000\000\003\188\000\000\003\187\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\179\000\000\000\000\003\181\000\000\000\000\000\000\0026\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001d\000\000\000\000\001b\001`\000\000\000:\000\000\000\000\003\191\000\000\003\190\000\000\000\000\000\000\001^\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001c\000\000\000\000\001a\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\001\028\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000[\000\000\000\000\000\000\000\000\000\000\000\000\0006\000\000\000\000\000Z\000\000\0004\001\029\000\000\000C\0000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\027\000\000\000Y\000X\000\000\000\000\000^\000]\000\000\000\000\001\227\000\000\0008\000\000\000\000\000\000\0007\000\000\000\000\000\000\000;\000\000\000\\\000_\000\000\000=\000>\000\000\001C\000\000\000\000\000\000\000\000\000\000\000\000\000A\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001(\003}\003t\000\000\000\000\003x\003E\003s\003|\003{\001?\000\000\000\000\003q\000\000\000\000\000\000\000\000\003\127\000\000\003u\003r\003~\002*\000\000\000\000\003o\000-\003n\000\000\000\000\000\203\000\000\000\236\000\000\000\000\001>\001=\000\000\001\129\001\128\000\000\000\000\003\014\002\253\000\000\000E\000\000\000\000\000F\000\000\000\000\002\200\002\199\000\000\000\000\000\147\000\000\000\000\0023\000\227\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\201\000\000\003w\002G\002H\002C\002E\002D\002F\000\000\000\000\000\000\000\202\000\000\000\000\002L\000\000\000\226\000\000\000\000\000\000\000\000\003v\000\000\000\199\000\000\000\000\000\000\000\000\000\000\000\000\001]\001W\000\000\000\000\001X\000\031\000\000\000\030\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003N\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003P\000\000\000\000\000\000\000\000\000\000\003Q\000\000\000\000\000\000\000\000\000\000\003O\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\003R\000\000\000\000\001\182\001\178\000\000\001\174\003\151\000\000\002L\000\000\000\225\000\000\000\000\000\000\000\000\002\144\002K\002I\002J\000\000\000\000\000\000\002L\000\000\000\224\000\000\000\000\000\000\000\000\002\143\000\000\001\142\001\141\000\000\000\024\000\000\003\183\000\000\000.\000\000\000\000\000\000\000\000\000\150\000\000\000\230\000\001\000\000\000\000\000\235\000\002\000\000\000\000\000\000\001j\001k\000\003\000\000\000\000\000\000\000\000\001m\001n\001l\000\021\001i\000\022\000\000\001\255\000\000\000\004\000\000\002\000\000\000\000\005\000\000\002\001\000\000\000\000\002\002\000\006\000\000\000\007\000\000\002\003\000\000\000\b\000\000\002\004\000\000\000\t\000\000\002\005\000\000\000\n\000\000\002\006\000\000\000\011\000\000\002\007\000\000\000\000\002\b\000\012\000\000\000\000\002\t\000\r\000\000\000\000\000\000\000\000\000\000\003\138\003\133\003\134\003\137\003\135\000\000\003\142\000\014\000\000\003\141\000\000\001E\000\000\000\000\003\139\000\000\003\140\000\000\000\000\000\000\000\000\001I\001J\000\000\000\000\001H\001G\000\015\000\000\000\000\000\000\003\170\000\000\003\169") and error = (129, "'\225 \197\138V\252\206z\002\128\254@\000\028p\017\176\128\"\225#~&}\000@|\000\000\0068\031}\145\002\011\252m\000\002`\224{\142,\005\006\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\175\235f\245\155W\252\206\255\146\161\254!\016<\240>\251\"\004\023\248\218\000\004\193\192\247\028X\n\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0026\016\004X$o\196\207\160\b\015\128\000\000\199\003\239\178 A\127\141\160\000L\028\015q\197\128\160\208\159\132\139V)[\2439\232\n\003\248\000\000\241\192\000\000\000\000\128\000\160\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000P\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000(\000\000\000\000\000\000\000\000\000 \000 \001\248\005\130@\000\031\017\000A\000 Q`\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\002\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\018\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\002\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\001\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000 \000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\b\000\000`\000\014\002\000\014.\b\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\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!`.\232\002\006E \224`\201\001\216ED\"\128\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\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\006\000\000\224 \226\224\128\000@\000\000\000\000\000\001\000@@@\016P@\128\000\001\000\000\000\000\000\000\128 \000\b( @\000\000\128\000\000\000\000\000@\016\016\000\004\020\016\000\000\000@\000\000\000\000\024\144\005P\001\003\b\144p\000D\000\236 2\000HH\002\b\000\129\000\b(\000 \000b\000\001\000\004$\001\004\000@\128\004\016\000\016\0001\000\000\128\000\012\000\000\147\004\t@\002\000@\000\000\000\000\001\000\006\000\000I\002\004\160\001\000 \000\000\000\000\000\128\003\000\000$\129\002P\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\128\000\b\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\0000\000\002H\000%\000\000\001\000\000\000\000\000\004\000\016\000\001\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\004\000\000I\000\004\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\001\000\000\016@\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\b\000\000\000\000\000\128\000\000\000\000\004 \000\000\128\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\005\127[\255\236\223\191\239\255\252\157?\243\016\160\231\144\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\t \000\128\000\000\004\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\016\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\b\000\000\000@\002\000\000\000\000\000\016\000\000\002\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\132\128\"\130\b\016\000\131\000\002\000\007`\016\144\002\001\144\000<\b\0008\184(\000\016\004\001\000\000@! \b\160\003\004\017 \224\000\136\001\152D\012 \128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\128\001\192@\001\197\193@\000\128 \b\000\002\000\006\000\016\224 \226\224\128\000@\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\128\0000\000\000(\184 \000\016\000\000\000\000\000\000\192\000\028\004\004\028\\\016\000\b\000\000\000\000\000\024\176\023p\001\003\"\144p0D\128\236\002\166\017`0\000\006\000\000\007\023\004\000\002\000\000\000\000\000\000\024\000\003\128\128\131\139\130\000\001\000\000\000\000\000\000\012\000\001\128\000\001E\193\000\000\144\000\b\000\000\000\006\000\000\224 \226\224\128\000@\000\000\000\000\000}\246D\b/\241\180\000\t\131\129\2388\176\020\026\019\240\145j\197+~g=\001@\127\000\000\0308\000\000\000\000\000\000\000\000\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\016%\000\b\001\000\000\000\000\000\004\000\024\000\001$\b\018\128\004\000\128\000\000\000\000\002\000\012\000\000\146\004\t@\000\000@\000\000\000\000\001\000\006\000\000I\000\004\160\000\000 \000\000\000\000\000\128\001\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000B@\017A\004\b\002A\128\001\016\003\176\b\b\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\144\004P\001\002\000\144`\000D\000\204\002\002\000G\223d@\130\255\027@\000\1528\030\227\139\001A\161?\t\022\172R\183\230s\208\020\007\240\000\001\227\128\141\132\001\023\t\027\2413\232\002\003\224\000\0001\192F\194\000\139\004\141\248\153\244\001\001\240\000\000\024\224#a\000E\130F\252Lz\000\128\248\000\000\012p\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000H@\017\000\144\020\019\028\128\000\006\000\000\003\024\016\128\000\016\b\000(\016P0\000\000\004\002\000\000\b@\000\b\000\000\020\b(\024\000\000\002\001\000\000\004 \000\004\000\000\n\004\016\012\000\000\001\000\128\000\000\012\132\001\002\000\tA1h\000\128h\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\002\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\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\012\134!\031\128Ye1i\241\144l\016\003%\151\000\000\016\000\000\000\000\000\004\000\000 \000\000\000\000\131\000\000\000@\000\000\000\128\000\000\000\000\000\000\000\001\128\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\192\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\002\000\128\128\000 \160\128\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\016\000\000\016\016 \000\000@\000\000\000\000\000 @\b\000\000\b\b\000\000\000 \000\000\000\000\n~\018\012X\165o\204\239\160(\015\226\000\001\199\005?\t\006,R\183\230s\208\020\007\241\000\000\227\130\159\132\139\022)[\2439\232\n\003\249\128\000q\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@\128\016\016\000\016\016 \000\000@\000\000\000\016\000 @\b\b\000\b\b\016\000\000 \000\000\000\000\000\016 \004\000\000\004\004\b\000\000\016\000\000\000\000\000\b\016\002\000\000\002\002\000\000\000\b\000\000\000\000\000\020\b\001\000\000\001\001\000\000\000\004\000\000\000\000\000F\194\000\139\004\141\248\153\244\001\001\240\000\000\024\224#a\000E\130F\252Lz\000\128\248\000\000\012p\000\128\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\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\004\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\141\132\001\023\t\027\2413\232\002\003\224\000\0001\192F\194\000\139\004\141\248\153\244\001\001\240\000\000\024\224#a\000E\130F\252Lz\000\128\248\000\000\012pQ\176\196#\241+~\166=>b|\130\000f\186\224HB\017\000\144\020\019\028\128\000\006\000\000\003\024\004l \b\176H\223\137\143@\016\031\000\000A\142\0026\016\004X$o\196\199\160\b\015\128\000\000\199\006\173\237\222\191\210\250\190\127\191\251a\251\237\191\255<\141\132\001\022\t\027\2411\232\002\003\224\000\0001\192\006B\000\129\000\004\160\152\180\000@0\000\000\016@\003!\000@\128\002PLZ\000 \026\000\002\b \001\144\128 @\001(&-\000\016\r\000\000\005\016\000\200@\144 \000\148\019\022\128\b\006\128\000\002\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\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\b\128\000\000\000\000\000\000\000\000\128\000\016\000\000\192\000\028\004\000\028\\\016\000\b\000\000\000\000\000\000`\000\014\002\000\014.\b\000\004\000\000\000\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\024\000\003\128\128\003\139\130\000\001\000\000\000\000\001\000\012\000\t\192@\001\197\193\000\000\128\000\000\000\002\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000qp@\000 \000\000\000\000 \001\128\0008\b\0008\184 \000\016\000\000\000\000P\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\004\000\000\000\000\000\000\016\000\000\004\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\016\000\000\000\128\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\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\003\000\000p\016\000qp@\000 \000\000\000\000 \000\128\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012H\003\184\000\129\144H8\024\"@v\001Q\b\176\024\000\003\128\128\003\139\130\000\001\000\000\000\000\000\000\012\000\001\128\000\001E\193\000\000\128\000\000\000\000\001\137\000w\000\0162\t\007\003\004H\014\192*!\022\003\000\000p\016\000qp@\000 \000\000\000\000\000\001\128\0000\000\000(\184 \000\016\000\000\000\000\0001 \014\224\002\006A \224`\137\001\216\005D\"\216\144\023p\001\003 \144p0D\128\236\002\162\017`0\000\006\000\000\005\023\004\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\001\139\001w\000\0162)\007\003\004H\014\192*!\022\001\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\024\176\023p\001\003\"\144p0D\128\236\002\162\017`0\000\006\000\000\005\023\004\000\002\000\000\000\000\000\006,\005\220\000@\200\164\028\012\017 ;\000\168\132[\018\000\238\000 d\018\014\006\b\144\029\128TB,\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000`\000\000qp@\000 \000\000\000\000\000\001\128\0008\b\b8\184 \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\001\000\000\000\000\000\000\000\000\000\000\000\128\000\000\016\000\000\000\000\001\000\000\000\002\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000qp@\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\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012H\003\184\000\129\144H8\024\"@v\001Q\b\160\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\001\000\000\000\000\128\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000`\000\014\002\000\014.\b\000\004\000\000\000\000\000\000\000\000\128\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\012\000\001\192@\001\197\193\000\000\128\000\000\000\000\000\006\000\000\192\000\000\162\224\128\000@\000\000\000\000\000\196\128;\128\b\025\004\131\129\130$\007`\021\016\139b@\029\192\004\012\130A\192\193\018\003\176\n\136E\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\016\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\024\000\003\128\128\003\139\130\000\001\000\000\000\000\000\000\000\000 \000\000\000\000\002\000\000\000\000\000\016\000\000\006\000\000\192\000\000\162\224\128\000@\000\000\000\000\000\003\000\000p\016\016qp@\000 \000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\128\000\000\000\192\000\028\004\000\028\\\016\000\b\000\000\000\000\000\000\000\001\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\024\000\003\128\128\003\139\130\000\001\000\000\000\000\000\000\012\000\001\128\000\001E\193\000\000\128\000\000\000\000\001\137\000w\000\0162\t\007\003\004H\014\192*!\022\196\128;\128\b\025\004\131\129\130$\007`\021\016\139\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\014\002\000\014.\b\000\004\000\000\000\000\000\0000\000\006\000\000\005\023\004\000\002\000\000\000\000\000\006$\001\220\000@\200$\028\012\017 ;\000\168\132[\018\000\238\000 d\018\014\006\b\144\029\128TB,\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\001\128\0008\b\0008\184 \000\016\000\000\000\000\000\000\192\000\024\000\000\020\\\016\000\b\000\000\000\000\000\024\144\007p\001\003 \144p0D\128\236\002\162\017lH\003\184\000\129\144H8\024\"@v\001Q\b\176\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\018\000\238\000 d\018\014\006\b\144\029\128TB,\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\0000\000\007\001\000\007\023\004\000\002\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\016\000\000\002\000\000\016\000\000\000\002\000\006\000\000\224 \000\226\224\128\000@\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\128\0008\b\0008\184 \000\016\000\000\000\000\000\000\000\000\128\000\000\000\000 \000\001\000\000\000\000 @`\000\014\002\000\014.\b\000\004\000\000\000\000\000\000\000\000 \000\000\000\000\b\000\000@\000\000\000\b\144\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\002\000\000\016\000\000\000\002$\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\128\000\004\000\000\000\000\128\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\016\0000\000\007\001\000\007\023\004\000\002\000\000\000\000\002\000\000\000\016\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\004\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\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\004\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\017\000\000\000\000\000\128\000\000\001\000\000\000\000@\000\b\128\000\000\000\000\000\000\000\000\128\000\000\000\000\200@\016 \000\148\019\022\128\b\006\128\000\002\b\000d \b\024\000J\t\154@\004\003\000\000\001\004\0002\016\004\b\000%\004\205 \002\001\128\000\000\130\000\025\b\002\004\000\018\130b\144\001\000\192\000\000A\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000I\148\141\168H\005(&k\000\144\012\161\003\181T\000\000@\000 \000\128\000\000\128\000\004\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002L\164mB@)A3x\004\128m\004\029\170\160\002\000\000\000\000\000\128\024\160\000\000\000\000\000\000\000\131!\b@\128\002PLZ\000 \026\000\000H \000\000\000\000\000\000\000\000\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 \b\024\000J\t\155@\004\003@\000\001\004\0002\016\004\b\000%\004\205\160\002\001\160\000\000\130\000\025\b\002\004\000\018\130b\208\001\000\208\000\000A\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\b\000\000\128\001\000\001@\006b\136\001\144\128 @\001(&-\000\016\r\000\000\004\016$\000\006\192\000\002\000\000 \000@\000P\001\152\162\016d \b\016\000J\t\139@\004\003@\000\001\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\128\000\216\000\000@\000\004\000\b\000\n\0003\020@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001&B6\129\000\020\160\153\180\002@6\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$\200F\208 \002\148\0196\128H\006\208\001\154\170\016t1\b\252\002\203)\139O\140\131`\128\025,\176\000\000\000\000\000\001\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\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\002PLR\000 \024\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\b\000\000\128\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\001\000\000\016\000\000\000\000\001\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 \200@\016 \000\148\019\022\128\b\006\128\000\002\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\t\000\001\176\000\000\128\000\b\000\016\000\020\000f(\132\024\000\003\128\128\003\139\130\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\016\000\000\000\000\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 \200@\016 \000\148\019\022\128\b\006\128\000\002\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\t\000\001\176\000\000\128\000\b\000\016\000\020\000f(\132\000\000\000\000\000\002\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\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\b\000\000\128\000\000\000\000\b\000\000\000\000\000D\b\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\006B\004\129\000\004\160\152\180\000@4\000\000\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\001 \000\000\000\000\b\000\000\000\000\000d(\132\025\b\018\004\000\018\130b\208\001\000\208\000\016Q\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\017\000\000\000\000\000\128\000\000\000\000\004@\136@\000\b\128\000\000\000\000\000\000\000\000\000\000\000\000 \192\000@\000\000\004\000\000\000\000\000\000\000\000\000\016\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\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\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\006R\000\161 \004\160\153\172\002@2\000\b\209X\000\000\000\000\000\000P\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\004\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000 \000\004\000\0000\000\007\001\000\007\023\004\000\002\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\b\000\000\000\012\000\001\192@\001\197\193\000\000\128\000\000\000\000\000\000\000\016\000\000\000\000\001\000\000\000\002\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\001\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\016\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\128\000\000\000\b\216@\017`\145\191\019\030\128 >\000\000\003\028\000d \136\025\002N\t\155@\004\003@\000\001\004\000\016 \004\004\000\004\004\b\000\000\016\000\000\000\004\000\b\016\002\002\000\002\002\004\000\000\b\000\000\000\000\000\004\b\001\000\000\001\001\002\000\000\004\000\000\000\000\000\002\004\000\128\000\000\128\128\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\000\000\000\000\000\000\000\192\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\002\000\000\b\002\002\000\000\130\130\000\000\000\b\000\000\000\000\000\004\001\001\000\000AA\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@\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@\016\016\000\004\020\016\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012H\002\168\000\129\128H8\000\"\000v\000\017\000 \004\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\012\000\000\146\000\t@\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\000\000\000\001\000\000\128\000\001\128\000<\b\0008\184 \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\014\002\000\014.\b\000\004\000\000\000\000\000\012H\002\168\000\129\128H8\000\"\000v\000\017\000\160\024\000\003\128\128\003\139\130\000\001\000\000\000\000\000\003\018\000\170\000 `\018\014\000\b\128\029\128D@)\137\000U\000\0160\t\007\000\004@\014\192\" \004\003\000\000p\016\000qp@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\128\000\000\000\000\192\000\028\004\000\028\\\016\000\b\000\000\000\000\000\024\144\005P\001\003\000\144p\000D\000\236\002\"\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\002\000\001\000\000\001\000@@\000\016P@\000\000\001\000\000\000\000\000b@\021@\004\012\002A\192\001\016\003\176\000\136\001\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\016\000\000\000\000\001\000\000\000\000\000\000\000\000\000\006$\001T\000@\194$\028\000\017\000;\b\012\128\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@\016\016\000\004\020\016\000\000\000@\000\000\000\000\024\144\005P\001\003\000\144p\000D\000\236\000\"\000@\016\004\004\000\001\005\004\000\000\000\016\000\000\000\000\006$\001T\000@\192$\028\000\017\000;\000\b\128\016\000\000\000\000\000\000\000\000\000\000\000\004\004\002\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b\024D\131\128\002 \007a\001\016\002\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\024\144\005P\001\003\b\144p\000D\000\236 \"\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006$\001T\000@\192$\028\000\017\000;\000\b\128\016\002\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\002\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\002\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\016\128\000\000\000\000\000\000\000\000\000\001\002\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\0001 \n\160\002\006\017 \224\000\200\001\216\000L\000\128\160A\b\000\000\b\b\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\002\000\004\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000@@\000\016P@\000\000\001\000\000\000\000\000`\000\004\000\000\004\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\018\000\170\000 a\018\014\000\012\128\029\132\004\192\b\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\000\000\017\176\128\"\193#~&=\000@|\000\000\0068\b\216@\017`\145\191\019\030\128 >\000\000\003\156\004l H\176H\223\137\143@\016\031\000\000\001\142\000\000\000\000\000\000\001\000\000\000\000\128\000\000\000\000\004\000\000\128\000\000\000\000\000\000\000@\b\000\000\000\000\141\132\001\022\t\027\2411\232\002\003\224\000\0001\192\002B\000\136\004\128\160\152\228\000\0000\000\000\024\192\192\000\017\000\000\000\000\000\000\000`\001\005\001 \000\017\176\128\"\225#~&}\000@|\016\000\0068\b\216@\017`\145\191\019>\128 >\b\000\003\028\004l \b\176H\223\137\143@\016\031\004\000\001\142\000\018\016\004D$\005\004\207 \000\001\128\000\000\198\000\t\b\002 \018\002\130g\144\000\000\192\000\000c\000\004\132\001\016\t\001A1\200\000\000`\000\0001\128\002B\000\136\004\128\160\152\228\000\0000\000\000\024\192\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\r[\219\189\127\165\245\\\255\127\246\195\247\219\127\254\248\b\000\000\000\000\002\128c\128\000\000\000\000\000\000\002\141\134!\031\137[\2451\233\243\019\228\016\0035\214\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\163a\bE\130F\252Lz\000\128\248\000\000\012pQ\176\132\"\193#~&=\000@|\000\000\0068 @\128\016\016\000\016\016 \000\000@\000\000\000\000\000 @\b\000\000\b\b\016\000\000 \000\000\000\000\000\016 \004\000\000\004\004\000\000\000\016\000\000\000\000\000\000\000\000\000\000\002\000\004\000\000\000\000\000\001\000\002\004\001\001\000\000AA\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\b\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(\216B\017`\145\191\019\030\128 >\000\000\003\028\020l!\b\176H\223\137\143@\016\031\000\000\001\142\b2\016\132\b\000%\004\197\160\002\001\128\000\000\130\000\000\000\000\000\000\000\000\004\000\000\000\b\000#\004@\012\000\001\192@\001\197\193\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\002\000\000\000\000#a\000E\130F\252Lz\000\128\248\000\000\012p\017\176\128\"\225#~&}\000@|\000\000\0068\b\216@\017`\145\191\019>\128 >\000\000\003\028\004l \b\176H\223\137\143@\016\031\000\000\001\142\0002\016\004\012\000%\004\205\160\002\001\160\000\000\138\000\025\b\002\004\000\018\130f\208\001\000\208\000\000E\000\012\132\001\002\000\tA1h\000\128h\000\000\"\128\006B\000\129\000\004\160\152\180\000@4\000\000\016@\016\000\000\000\000\b\000\000\128\000\000\000\000\004@\136\017\176\128\"\193#~&=\000@|\000\000\0068\000\202@\0204\000\148\0195\128\b\006\000\000\002\b\000e \n\018\000J\t\154\192\004\003\000\000\001\004\0002\144\005\t\000%\004\197`\002\001\128\000\000\130\000\016\000\000\000\000\002\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\006B\000\129\000\004\224\152\180\000@4\000\000\016@\003!\000@\128\002PLZ\000 \026\000\000\b \000\000\004\000\000\000\000\000@\000\000\000\128\0020D\000\192\000\028\004\000\028\\\016\000\b\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000 \000\000\0000\000\007\001\000\007\023\004\000\002\000\000\000\000\000\000\000\000@\000\000\000\000\004\000\000\000\b\000\000\000\000\000\000 \000\000\000\000\002\000\000\000\004\000\000\000\000\000\000\016\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\002\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\007C\016\143\192,\242\152\180\248\2006\b\001\146\203\000\000\000\000\000\000\016\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\202@\020$\002\148\019\021\128\b\006\000\000\n\b\004l \b\176H\223\137\143@\016\031\000\000\001\142\0002\016\004\012\000%\004\205\160\002\001\160\000\000\130\000\025\b\002\004\000\018\130f\208\001\000\208\000\000A\000\012\132\001\002\000\tA1h\000\128h\000\000 \128\000\000\000\000\000\000\000\001\000\000\000\002\000\b\129\016#a\000E\130F\252Lz\000\128\248\000\000\012p\000\144\128\"! (&y\000\000\012\000\000\0060\000H@\017\000\144\020\019<\128\000\006\000\000\003\024\000$ \b\128H\n\t\142@\000\003\000\000\001\140\rIK\184>\129\240X8\031\246\194w\219\1278x\t\b\002 \018\002\130c\144\000\000\192\000\000c\003V\246\239_\233}W?\223\253\176\253\246\223\255\190\000\000\000\000\000\000\128\000\160\000\000\000\000\000\000\000#a\000E\130F\252Lz\000\128\248\000\000\012p\017\176\128\"\193#~&=\000@|\000\000\00685on\245\254\151\213s\253\255\219\015\223m\255\249\224\000\000\000\000\000\n\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\t\000\002\012\000\001\192@\001\197\193\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\025\000\000\000\000\000\128\000\000\001\000\000\000\000A\128\0008\b\0008\184 \000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\003 \000\000\000\000\016\000\000\000 \000 \000\0000\000\007\001\000\007\023\004\000\002\000\000\000\000\000\004\000\000\200\000\000\000\000\004\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\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000$ \b\128H\n\t\142@\000\003\000\000\001\140\r[\219\189\127\165\245\\\255\127\246\195\247\219\127\254\248\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\002\000\000\000\000\000\160\000\160\000\000\000\000\000\000\000#a\000E\130F\252Lz\000\128\248\000\000\012p@\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\rIK\184>\129\240X8\031\242\194w\139\1278y\027\b\002,\0187\226c\208\004\007\192\000\000c\131V\246\239_\233}W?\223\253\176\253\246\223\255\159\169)w\007\208>\011\007\003\254\216N\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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!\027\b\002,\0187\226c\208\004\007\192\000\000c\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\169)w\007\208>\011\007\003\254XN\241o\231\015#a\000E\130F\252Lz\000\128\248\000\000\012pjJ]\193\244\015\130\193\192\255\150\019\188[\249\195\200\216@\017`\145\191\019\030\128 >\000\000\003\028\026\146\151p}\003\224\176p?\229\132\239\022\254p\240\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\173\237\222\191\210\250\174\127\191\251a\251\237\191\255?RR\238\015\160|\022\014\007\253\176\157\246\223\206\030F\194\000\139\004\141\248\152\244\001\001\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000{\250\221\227\245/\254\231\253\255\214\127\188[\255\251\223}\145\002\011\252m\000\002`\224{\142,\005\006\132l \b\176H\223\137\143@\016\031\000\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\141\132\001\022\t\027\2411\232\002\003\224\000\0001\193\169)w\007\208>\011\007\003\254XN\241o\231\015#a\000E\130F\252Lz\000\128\248\000\000\012pjJ]\193\244\015\130\193\192\255\150\019\188[\249\195\200\216@\017`\145\191\019\030\128 >\000\000\003\028\026\146\151p}\003\224\176p?\229\132\239\022\254p\2426\016\004X$o\196\199\160\b\015\128\000\000\199\006\164\165\220\031@\248,\028\015\249a;\197\191\156<\141\132\001\022\t\027\2411\232\002\003\224\000\0001\193\169)w\007\208>\011\007\003\254XN\241o\231\015#a\000E\130F\252Lz\000\128\248\000\000\012pjJ]\193\244\015\130\193\192\255\150\019\188[\249\195\200\216@\017`\145\191\019\030\128 >\000\000\003\028\026\146\151p}\003\224\176p?\229\132\239\022\254p\2426\016\004X$o\196\199\160\b\015\128\000\000\199\006\164\165\220\031@\248,\028\015\249a;\197\191\156<\141\132\001\022\t\027\2411\232\002\003\224\000\0001\193\169)w\007\208>\011\007\003\254XN\241o\231\015#a\000E\130F\252Lz\000\128\248\000\000\012pjJ]\193\244\015\130\193\192\255\150\019\188[\249\195\200\216@\017`\145\191\019\030\128 >\000\000\003\028\026\146\151p}\003\224\176p?\229\132\239\022\254p\2426\016\004X$o\196\199\160\b\015\128\000\000\199\006\164\165\220\031@\248,\028\015\249a;\197\191\156<\141\132\001\022\t\027\2411\232\002\003\224\000\0001\193\169)w\007\208>\011\007\003\254XN\241o\231\015#a\000E\130F\252Lz\000\128\248\000\000\012pjJ]\193\244\015\130\193\192\255\150\019\188[\249\195\200\216@\017`\145\191\019\030\128 >\000\000\003\028\026\146\151p}\003\224\176p?\229\132\239\022\254p\2426\016\004X$o\196\199\160\b\015\128\000\000\199\006\164\165\220\031@\248,\028\015\249a;\197\191\156<\141\132\001\022\t\027\2411\232\002\003\224\000\0001\193\169)w\007\208>\011\007\003\254XN\241o\231\015#a\000E\130F\252Lz\000\128\248\000\000\012pjJ]\193\244\015\130\193\192\255\150\019\188[\249\195\200\216@\017`\145\191\019\030\128 >\000\000\003\028\026\146\151p}\003\224\176p?\229\132\239\022\254p\2426\016\004X$o\196\199\160\b\015\128\000\000\199\006\164\165\220\031@\248,\028\015\249a;\197\191\156<\012\132\001\002\000\t\1933h\000\128`\000\000 \128\006B\000\129\000\004\224\152\180\000@0\000\000\016@\000\000\000\000\000\000P\000\000\000\000\000\000\000\000\000\001\148\128(H\001(&+\000\016\012\128\000\148\016 \232b\017\248\005\158S\022\159\025\006\193\0002Y`\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\025H\002\132\128\018\130b\176\001\000\200\000\tA\000\012\132\001\002\000\tA1H\000\128`\000\000 \129\006C\016\143\192,\242\152\180\248\2006\b\001\146\203\003!\000@\128\002PLZ\000 \026\000\000\b \000\000\004\000\000\000\000\000@\000\000\000\000\0020D\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\016\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\004\000\000\000\006\000\000\224 \000\226\224\128\000@\000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\002\000\000\000\000\000 \000\000\000\000\001\024\"\016`\000\014\002\000\014.\b\000\004\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\016\000\000\000\024\000\003\128\128\003\139\130\000\001\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\017\176\128\"\193#~&=\000@|\000\000\0068\000\000\000\000\000\000\000\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$o\196\199\160\b\015\128\000\000\199\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\148\128(H\001(&+\000\016\012\128\000\148\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000d \b\016\000J\t\139@\004\003@\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\002\000\000 \000\000\000\000\002\000\000\000\000\000\017\130!\006\000\000\224 \000\226\224\128\000@\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\001\000\000\000\001\128\0008\b\0008\184 \000\016\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\b0\000\007\001\000\007\023\004\000\002\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\b\000\000\000\012\000\001\192@\001\197\193\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\002\000\000\000\000#a\000E\130F\252Lz\000\128\248\000\000\012p\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\004l \b\176H\223\137\143@\016\031\000\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\002\030\164\139B`IS?X\012\128}\128\021\226\169\007C\016\143\192,\242\152\180\248\2006\b\001\146\203\000\000\000\000\000\000\016\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\202@\020$\000\148\019\021\128\b\006@\000J\b\004l \b\176H\223\137\143@\016\031\000\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\b\000\000\000\000\141\132\001\022\t\027\2411\232\002\003\224\000\0001\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\001\148\128(H\001(&+\000\016\012\128\000\148\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\b8\000\007\001\000\007\023\004\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\000\000\000\000\000\004\000\000\000\006\000\000\224 \000\226\224\128\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\001\000\000\000\000\017\176\128\"\193#~&=\000@|\000\000\0068\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\0000\000\007\001\000\007\023\004\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\b\000\000\000\000\141\132\001\022\t\027\2411\232\002\003\224\000\0001\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\001\000\000\000\000\017\176\128\"\193#~&=\000@|\000\000\0068\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\016\000F\b\128\024\000\003\128\128\003\139\130\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\004\000\000\000\000F\194\000\139\004\141\248\152\244\001\001\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\128\002 D\b\216@\017`\145\191\019\030\128 >\000\000\003\028\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b2\016\004\b\000%\004\197\160\002\001\160\000\000\130\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\004\000\017\002!\006B\000\129\000\004\160\152\180\000@4\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\128\002 D \200@\016 \000\148\019\022\128\b\006\128\000\002\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\016\000D\b\132\000\000\000\000\000\002\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@\001\016\"\000d \b\016\000J\t\139@\004\003@\000\001\004\000\000\000\000\000\000\000\000\b\000\000\000\016\000D\b\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\018\000\138\000 @\018\012\000\012\128\025\128\000@\t\t\000E\000\016\"\t\006\003\006@\012\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\026\146\151p}\003\224\176p?\229\132\239\022\254p\2426\016\004X$o\196\199\160\b\015\128\000\000\199\004\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#a\000E\130F\252Lz\000\128\248\000\000\012p@\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\000P\000\000\000\000\000\000\000\000\002\000\002\128\000\000\000\000\000\000\000\141\132\001\022\t\027\2411\232\002\003\224\000\0001\193\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&\192\248\001\128@ \031\001\000@\001\176\192tl!h\176H\223\137\143@\016\031\000\000A\206\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\027\b\002,\0187\226c\208\004\007\192\000\000c\130\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\017\176\128\"\193#~&=\000@|\000\000\0068 \000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\132\001\016\t\001A1\200\000\000`\000\0001\129\171{w\175\244\190\171\159\239\254\216~\251o\255\223\000\000\000\000\000\000@\000P\000\000\000\000\000\000\000\017\176\128\"\193#~&=\000@|\000\000\0068 \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\r[\219\189\127\165\245|\255\127\246\195\247\219\127\254y\027\b\002,\0187\226c\208\004\007\192\000\000c\131RR\238\015\160|\022\014\007\252\176\157\226\223\206\030F\194\000\139\004\141\248\152\244\001\001\240\000\000\024\224\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0005on\245\254\151\213\243\253\255\219\015\223m\255\249\228l \b\176H\223\137\143@\016\031\000\000\001\142\rIK\184>\129\240X8\031\242\194w\139\1278y\027\b\002,\0187\226c\208\004\007\192\000\000c\130\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\213\189\187\215\250_W\207\247\255l?}\183\255\231\145\176\128\"\193#~&=\000@|\000\000\00685%.\224\250\007\193`\224\127\203\t\222-\252\225\224 \000\000\000\000\n\000\n\000\000\000\000\000\000\000\0026\016\004X$o\196\199\160\b\015\128\000\000\199\004\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\003V\246\239_\233}_?\223\253\176\253\246\223\255\158F\194\000\139\004\141\248\152\244\001\001\240\000\000\024\224\212\148\187\131\232\031\005\131\129\255,'x\183\243\135\145\176\128\"\193#~&=\000@|\000\000\0068 \000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\026\183\183z\255K\234\249\254\255\237\135\239\182\255\252\2426\016\004X$o\196\199\160\b\015\128\000\000\199\006\164\165\220\031@\248,\028\015\249a;\197\191\156<\141\132\001\022\t\027\2411\232\002\003\224\000\0001\193\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\213\189\187\215\250_W\207\247\255l?}\183\255\231\145\176\128\"\193#~&=\000@|\000\000\00685%.\224\250\007\193`\224\127\203\t\222-\252\225\224\000\000\000\000\000\000\000\000\000\000\000\000\160\000\000\000\000\000\000\000\000\004\000\005\000\000\000\000\000\000\000\001\027\b\002,\0187\226c\208\004\007\192\000\000c\130\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\001\171{w\175\244\190\175\159\239\254\216~\251o\255\207#a\000E\130F\252Lz\000\128\248\000\000\012pjJ]\193\244\015\130\193\192\255\150\019\188[\249\195\200\216@\017`\145\191\019\030\128 >\000\000\003\028\016\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\r[\219\189\127\165\245|\255\127\246\195\247\219\127\254y\027\b\002,\0187\226c\208\004\007\192\000\000c\131RR\238\015\160|\022\014\007\252\176\157\226\223\206\030F\194\000\139\004\141\248\152\244\001\001\240\000\000\024\224\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000j\222\221\235\253/\171\231\251\255\182\031\190\219\255\243\200\216@\017`\145\191\019\030\128 >\000\000\003\028\026\146\151p}\003\224\176p?\229\132\239\022\254p\253[\219\189\127\165\245|\255\127\246\195\247\219\127\254y\027\b\002,\0187\226c\208\004\007\192\000\000c\131RR\238\015\160|\022\014\007\252\176\157\226\223\206\031\171{w\175\244\190\171\159\239\254\216~\251o\255\223\213\189\187\215\250_U\207\247\255,?x\183\255\231\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\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\141\132\001\022\t\027\2411\232\002\003\224\000\0001\193\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\017\176\128\"\193#~&=\000@|\000\000\0068 \000\000@\000\000\000\000\000\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000F\194\000\139\004\141\248\152\244\001\001\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\017\176\128\"\193#~&=\000@|\000\000\0068\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\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\029\012B?\000\179\202b\211\227 \216 \006K,\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\003)\000P\144\nPLV\000 \024\000\000( \001\128\0000\000\000(\184 \000\016\000\000\000\000\000\000@\000\000\000\002\004\000\000\000\b\000\000\000\000\000\004l \b\176H\223\137\143@\016\031\000\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\025H\002\132\128R\130b\176\001\000\192\000\001A\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\148\128(H\005(&+\000\016\012\000\000\020\016\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\0026\016\004X$o\196\199\160\b\015\128\000\000\199\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\141\132\001\022\t\027\2411\232\002\003\224\004\0001\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\0005%.\224\250\007\193`\224\127\203\t\222-\252\225\224d \b\016\000J\t\139@\004\003@\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\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000F\194\000\139\004\141\248\152\244\001\001\240\000\000\024\224\212\148\187\131\232\031\005\131\129\255,'x\183\243\135\145\176\128\"\193#~&=\000@|\000\000\00685%.\224\250\007\193`\224\127\203\t\222-\252\225\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\016\000D\b\129\027\b\002,\0187\226c\208\004\007\192\000\000c\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\002\000\000\000\000\000\b#a\000E\130F\252Lz\000\128\248\000\000\012p\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\200@\016 \000\148\019\022\128\b\006\000\000\002\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\t\bB \018\002\130c\144\000\000\192\000\000c\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\017\176\128\"\193#~&=\000@|\000\001\0068\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002@\002@\015\128\024\004\002\001\240\016\132\000\027\004\006F\194\000\139\004\141\248\152\244\001\001\240\000\000\024\224\016\000\130\003\224\006\001\000\128|\004!\000\006\195\001\129\144\128 @\0018&m\000\016\r\000\000\004\016\004\000\000\128\000\000\000\000\000\000\000\b\000\000\128\128\128d \b\016\000N\t\155@\004\003@\000\001\004\0002\016\004\b\000'\004\197\160\002\001\160\000\000\130\000\025\b\002\004\000\018\130b\208\001\000\208\000\000A\000\000\000\000\000\000\000\000\002\000\004\000\000\000\017\002 F\194\000\139\004\141\248\152\244\001\001\240\000\000\024\224\016\000\130\003\224\006\001\000\128|\004!\000\006\195\003\128\000\000\000\000\000\000\000@\000\128\000\128\002 D\b\216@\017`\145\191\019\030\128 >\000\000\003\028\002\000\016@|\000\192 \016\015\128\132 \000\216`r6\016\004X$o\196\199\160\b\015\128\000\000\199\000\000\132\000\031\0000\b\004\003\224 \b@&\b\012\141\132\001\022\t\027\2411\232\002\003\224\000\0001\192 \001\004\007\192\012\002\001\000\248\bB\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\002\000\000\000\000\000\000\000\000\000\000\004\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000F\194\000\139\004\141\248\152\244\001\001\240\000\000\028\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\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\t\000\t\000>\000`\016\b\007\192B\016\000L0\024\128\000\000\000\000\000\000\000\000\000\001\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000F\194\004\139\004\141\248\152\244\001\001\240\000\000\024\224\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\t\000\t >\000`\016\b\007\192B\016\000L\016\024\128\000\016\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\128\000\000\000\000\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$ \b\128H\n\t\142@\000\003\000\000\001\140\004\000\000\000\000\000\000\000\000\000\006\000\000P\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\"\000\000\000\000\000\000\000\000\002\000\002@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\b\128\000\000\000\000\000\000\000\000\128\000\000\000 \000\004@\000\000\000\000\000\000\000\000\000\000\000\000\016 \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\002\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\0000\000\002\128\000\000\000@\000\000\000\000\020\003\028\000\000\000\000\000\000\000\024\000\002 \000\000\000\000\000\000\012\000 \160$\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\164\165\220\031@\248,\028\015\251a;\237\191\156<\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\004\136\031\0000\b\004\003\224`\b\000&\b\014\000\000@\000\000\000\000\000\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\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\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\144\000\146\003\224\006\001\000\128|\004!\000\004\193\001\136\000\001\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\001 \001 \007\192\012\002\001\000\248\bB\000\t\134\003\016\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 @\b\000\000\b\b\016\000\000 \000\000\000\000\000\016 \004\000\000\004\004\000\000\000\016\000\000\000\000\000\000\000\000\000\000\002\000\004\000\b\000\000\000\000\000\000\141\132\001\022\t\027\2411\232\002\003\224\000\0001\192\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000\000@\000\000\000\128\000\000\000\000\000\000\000\001\128\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\192\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000 \000\004\000\000\016 \004\000\000\004\004\000\000\000\016\000\000\000\000\004$\001\020\000@\130$\028\000\025\0003\000\000\128\016\004\001\001\000\000AA\000\000\000\004\000\000\000\000\000\128\000\000\000\000\016\000\001\000\000\000\002\000\000\000\000\001\002\000@\000\000@@\000\000\001\000\000\000\000\000B@\017@\004\b\"A\192\001\144\0030\000\b\001\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\004l \b\176H\223\137\143@\016\031\000\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\002\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\002@\000\000\128\000\128\001\128\000\000\016\000\000\000\000\001 \000\000\000\000@\000\192\000\000\b\000\000\000\000\000\144\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\001\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\001\000\002\000\000\000\000@\000\003\000\000`\000\128QpP\000\"\000\000\000\000\000\001\128\0000\000\000(\184 \000\016\000\000\000\000\000!`(\160\002\006\005 \224\000\200\001\152\004\004 \128\000\000\000\000\020\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\001\128\0008\b\0008\184 \000\016\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000@\000\000\000`\000\014\002\000\014.\b\000\004\000\000\000\000\000\000\000\001\016\000\000\000\000\b\000\000@\000\000\000\000\128\000\000\136\000\000\000\000\004\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\002\000\001@ \001\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\128\000\000\000\000@\000\002\000\000\000\000\004\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\n\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\006\000\000\192\000\000\162\224\128\000@\000\000\000\000\000\133\128\162\128\b\024\020\131\128\003 \006`\016\016\130\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\192\000\024\000 \020\\\016\000\b\128\000\000\000\000\000`\000\012\000\000\n.\b\000\004\000\000\000\000\000\bX\n(\000\129\129H8\0002\000f\001\001\b \024\000\003\000\000\002\139\130\000\001\000\000\000\000\000\002\022\002\138\000 `R\014\000\012\128\025\128@B\t\011\001E\000\0160)\007\000\006@\012\192 !\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000B\192Q@\004\b\nA\192\001\144\0030\b\bA\000\192\000\024\000 \020\\\020\000\b\128\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000 \000\000\0000\000\006\000\b\005\023\005\000\002 \000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\012\000\001\128\000\001E\193\000\000\128\000\000\000\000\001\011\000E\000\016 )\007\000\006@\012\192 !\004\133\128\162\128\b\024\020\131\128\003 \006`\016\016\130\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\192\000\024\000\000\020\\\016\000\b\000\000\000\000\000\016\176\004P\001\002\002\144p\000d\000\204\002\002\016HX\n(\000\129\129H8\0002\000f\001\001\b \000\000\000\000\000\000\000\004\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000F\194\000\139\004\141\248\152\244\001\001\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\200A\016 \000\156\0196\128\b\006\000\000\002\b\000d \136\016\000N\t\139@\004\003\000\000\001\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\025\b\002\004\000\019\130b\208\001\000\192\000\000A\002\018\000\138\000 @\018\012\000\012\128\025\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\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\001\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\212\148\187\131\232\031\005\131\129\255,'x\183\243\135\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\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\002@\002@\015\128\024\004\002\001\240\016\132\000\027\004\006 \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 @\128\016\016\000\016\016 \000\000@\000\000\000\000\000 @\b\000\000\b\b\016\000\000 \000\000\000\000\000\016 \004\000\000\004\004\000\000\000\016\000\000\000\000\000\000\000@\000\000\002\000\004\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002\000\128\128\000 \160\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\004\000\000\004\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\001\000\000\000\000\000\000\000\000\000\000\000$\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\144\128 @\001(&-\000\016\r\000\000\004P5%.\224\250\007\193`\224\127\203\t\222-\252\225\240\000\017\000|\000\192 \016\015\128\128 \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\002\004\001\001\000\000AA\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\b\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 @\016\016\000\004\020\016\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\000\128\000\b\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\001\001\000\000AA\000\000\000\004\000\000\000\000\000\128\000\016\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\000B@\017@\004\b\"A\192\001\016\0030\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 @\b\000\000\b\b\016\000\000 \000\000\000\000\000\016 \004\000\000\004\004\000\000\000\016\000\000\000\000\004$\001\020\000@\130$\028\000\017\0003\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\000\b\000\128\000\000\001\000\000\000\000\000\000\000\000\001\000\000\000@\000\016\000\128\000\000\000\000\000\000\000\000\128\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\016\144\004P\001\002\000\144`\000D\000\236\000\002\000\000\016\004\004\000\001\005\004\000\000\000\016\000\000\000\000\006$\001\020\000@\192$\028\000\017\0003\000\000\128\002\018\000\138\000 @\018\012\000\b\128\025\128\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\004\000\000\000\000\000\128\000\000\000\000\000\000\000\001\128\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\192\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000 \000\004\000\bH\002(\000\129\000H0\000\"\000f\000\001\000$$\001\020\000@\128$\016\000\017\0003\000\000\128\016\012\000\000\000\000\000\000\002\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\001\000\000 \000B@\017@\004\b\002A\128\001\016\0030\000\b\001! \b\160\002\004\001 \128\000\136\001\152\000\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\002\000\000\000\000\000\b\000\001\000\002\018\000\138\000 @\018\012\000\b\128\025\128\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000}\246D\b/\241\180\000\t\131\129\2388\176\020\026\019\240\145j\197+~g=\001@\127\000\000\0308\000\200@\016 \000\148\019\022\128\b\006\128\000\002\b\002\000\000@\000\000\000\000\016\000\000\000\000\000\136\017\0026\016\004X$o\196\199\160\b\015\128\000\000\199\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\247\217\016 \191\198\208\000&\014\007\184\226\192PhO\194E\171\020\173\249\156\244\005\001\252\000\000x\224\001\002@@@\016P@\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\016\000\020\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\005\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\012\000\001\192@\001\197\193\000\000\128\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\002\000\000\000\003\000\000p\016\000qp@\000 \000\000\000\000\000B@\017@\004\b\130A\192\193\016\003\176\b\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\bH\018(\000\129\000H0\000\"\000f\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\018\000\138\000 @\018\012\000\b\128\025\128\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b\017\004\131\129\130 \007`\016\016\000\000\144\000\000 \000 \000`\000\000\004\000\000\000\000\000H\000\000\000\000\016\0000\000\000\002\000\000\000\000\000$\000\000\000\000\b\000\b\000\000\001\000\000\000\000\bH\002(\000\193\000H8\000\"\000v\000\003\000\000\t\000\000\000\000\002\000\002\000\000\000@\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\001\000\001\t\000E\000\016 \t\007\000\004@\012\194\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! \b\160\002\004\001 \224\000\136\001\152\000\004\000\016\144\004P\001\002\000\144`\000D\000\204\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004$\001\020\000@\128$\028\000\017\0003\000\000\128\002\018\000\138\000 @\018\012\000\b\128\025\128\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\128\"\240\024\016q\242@\002 \006\000\000\016\000B@\017@\004\b\000A\000\001\000\0030\000\b\000\000@\000\000\016\000\000\000 \000\000\000\000\000\000\016\000 \000\000\b\000\000\000\016\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\018\000\138\000 A\002\012\000\b\000\025\132\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000! \b\160\002\004\016 \192\000\128\001\152@\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0008\000@\004\000\000\000\b\000\000\000\000\000\000\000\000\b\000\000\002\000\000\128\004\000\000\000\000\000\000\000\000\004\000\000\000\000\000@\002\000\000\000\000\000\000\000\000\002\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\132\128\"\128\b\016\000\131\000\002\000\007`\000\144\000\000\128 \000\b( \000\000\000\128\000\000\000\0001 \b\160\002\006\000 \224\000\128\001\152\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000@\000\000\000\000\b\000\000\000\000\000\000\000\000\024\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\004\000\002\128\001\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000B@\017@\004\b A\128\001\000\0030\128\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\002\000\000\b\002\002\000\000\130\130\000\000\000\b\000\000\000\000\003\018\000\138\000 `\002\014\000\b\000\025\128\000@\t\t\000E\000\016 \001\004\000\004\000\012\192\000 \004\003\000\000\000\000\000\000\000\128\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\b\000\000 \b\b\000\002\n\b\000\000\000 \000\000\000\000\012H\002(\000\129\128\b8\000 \000f\000\001\000$$\001\020\000@\128\004\016\000\016\0003\000\000\128\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\001\000\000 \000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000! \b\160\002\004\000 \192\000\128\001\152@\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\004\004\000\001\005\004\000\000\000\016\000\000\000\000\006$\001\020\000@\192\004\028\000\016\0003\000\000\128\002\018\000\138\000 @\002\012\000\b\000\025\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\000H\000\000\016\000\016\0000\000\000\002\000\000\000\000\000$\000\000\000\000\b\000\024\000\000\001\000\000\000\000\000\018\000\000\000\000\004\000\004\000\000\000\128\000\000\000\004$\001\020\000`\128\004\028\000\016\0003\000\001\128\000\"\000\000\001\000\000@\003\000\000\000\000\000\000\000\000\016\000\000\000\128\000 \001\128\000\000\000\000\000\000\000\b\000\000\000\000\000\016\000\192\000\000\000\000\000\000\000\004\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\002\000\b\000\000\000\000\000\000\000\000 \000\002H\000 \000\000\001\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\b\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000$\128\002\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\016\000\004\000 \001D\004\000\000\000\000\000\000\000\004 \000\004\000\000\n\004\020\004\000\000\001\000\128\000\002\016\000\002\000\000\005\002\b\002\000\000\000\128@\000\000\006\000\000\224 \000\226\224\128\000@\000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000!\000\000 \000\000@ \128 \000\000\b\004\000\000\001\000\000\000\000\004\002\000\016\000\000\000\000\000\000\000\000\128\000\000\000\002\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\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\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\b\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\014\002\000\014.\b\000\004\000\000\000\000\000\b@\000\b\000\000\016\b8\b\000\000\002\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000 \000\000@\002\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\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\002\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\001\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\012\000\001\192@\001\197\193\000\000\128\000\000\000\000\001\b\000\001\000\000\002\001\006\001\000\000\000@ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000 \001\000\n `\000\000\000\000\000\000\000\000@\000\016\000\128\005\016\016\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\b\000\000\000\000\000\000\004\000\b\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\002\000\000\000\001\000\000@\002\000\020@@\000\000\000\000\000\000\000\001\128\0008\b\0008\184 \000\016\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\001\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\024\000\003\128\128\003\139\130\000\001\000\000\000\000\000\000\000\000\b\000\000\000\000\002\000\000\000\000\000\016\000\000\000\000\004\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000! \n\160\002\004A \224 \136\001\216\004\004\000\128\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\b\000\000\b\000\000\000\004\000\001\000\b\000Q\001\000\000\000\000\000\000\000\001\t\000U\000\016\"\t\007\001\004@\014\192 \004\132\000\000\128\000\001\000\131\128\128\000\000 \016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\192\000\028\004\000\028\\0\000\b\000\000\000\000\000\000`\000\014\002\000\014.\b\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\016\000\000\000\000\024\000\003\128\128\003\139\130\000\001\000\000\000\000\000\002\016\000\002\000\000\004\002\014\006\000\000\000\128@\000\001\b\000\001\000\000\002\001\006\001\000\000\000@ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b@\000\b\000\000\016\b0\b\000\000\002\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\b\000\001\000\000\002\001\004\001\000\000\000@ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000B@\017@\004\b\002A\192\001\016\0030\000\b\001! \b\160\002\004\001 \128\000\136\001\152\000\004\000\129\000\000\000\000\000\002\000\024\000\000\000\000\000\000\000\000\128\000\000\000\000\001\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\001\000\000@\002\000\020@@\000\000\000\000\000\000\000B@\017@\004\b\002A\192\001\016\0030\000\b\001! \b\160\002\004\001 \128\000\136\001\152\000\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\128\006\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\128\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\192\000\028\004\128\021\\\016\000\b\000\000\000\000\000\016\176\021P\001\003\002\016p\000D\000\236\000\006\000@0\000\006\000\000\005\023\004\000\002\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\012\000\001\192H\001U\193\000\000\128\000\000\000\000\000\006\000\000\224 \000\226\224\128\000@\000\000\000\001@\000\000\002\000\000\000\000\000\128\000\000\000\000\004\000\128\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\192\000\028\004\128\021\\\016\000\b\000\000\000\000\000\000`\000\012\000\000\n.\b\000\004\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\024\000\003\128\144\002\171\130\000\001\000\000\000\000\000\002\022\002\170\000 `B\014\000\b\128\029\128\000@\t\011\001U\000\0160!\007\000\004@\014\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000B@\021@\004\b\000A\192\001\000\003\176\000\b\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(\000\129\000\b0\000 \000f\000\001\000$$\001\020\000@\128\004\016\000\016\0003\000\000\128\016 \000\000\000\000\000@\003\000\000\000\000\000\000\000\000\016\000\000\000\000\000 \000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\016\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\b\000\000`\000\014\002@\n\174\b\000\004\000\000\000\000\000\bH\002(\000\129\000\b0\000 \000f\000\001\000$$\001\020\000@\128\004\016\000\016\0003\000\000\128\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\000B@\017@\004\b\000A\000\001\000\0030\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000B@\017@\004\b\000A\128\001\000\0030\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \b\b\b\002\n\b\016\000\000 \000\000\000\000\000\016\004\004\000\001\005\004\b\000\000\016\000\000\000\000\000\b\002\002\000\000\130\130\000\000\000\b\000\000\000\000\003\018\000\138\000 `\002\014\000\b\000\025\128\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b\016\000\130\000\002\000\006`\000\016\002\001\000\000\018@\001(\000@\b\000\000\000\000\000 \000\128\000\t \000\148\000\000\004\000\000\000\000\000\016\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\bH\002(\000\129\000H0\000\"\000v\001\001\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\018\000\138\000 @\018\012\000\b\128\025\128@@\t\t\000E\000\016 \t\004\000\004@\012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000! \b\160\002\004\000 \128\000\128\001\152\000\004\000\128@\000\004\144\000J\000\016\002\000\000\000\000\000\b\000 \000\002H\000%\000\000\001\000\000\000\000\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\002\000\000\006@\000\240 \000\226\224\160\000@\016\004\000\001\000\003\000\002p\016\000qp@\000 \000\000\000\000\160\000\000\000\000\000P\b\000\000\000\001\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004-\001\020\000@\130$\026\000\017\000s\000\128\128\018\018\000\138\0000@\018\014\000\b\128\025\128@\194\t\t\000E\000\016 \t\007\000\004@\012\192 !\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000B@\017@\004\b\002A\128\001\016\0030\b\bA\000H\000\000\000\000\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\004$\001\020\000@\128\004\024\000\016\0003\000\128\128\018\018\000\138\000 @\002\b\000\b\000\025\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! \b\160\002\004\001 \224\000\136\001\216\004\004\000\128$\000\001\000\000\b\000\n\000\000\001\000@\000\016\000\018\000\000\000\000\004\000\005\000\000\000\128 \000\b\000\000\000\000\000\005\000\128\000\000\000\016\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000! \b\160\003\004\001 \224\000\136\001\152\004\012 \144\144\004P\001\002\000\144p\000D\000\204\002\002\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\000\128\000\000\000\016\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\002 \000\000\016\000\004\0000\000\000\000\000\000\000\000\001\000\000\000\000\000\002\000\024\000\000\000\000\000\000\000\000\128\000\000\000\000\001\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\006R\000\161 \004\160\152\172\000@2\000\000P@\131!\136G\224\022yLZ|d\027\004\000\201e\128\128\000 \001\000* \000\000 \000\000\000\000!\000\000 \000\000P \160`\000\000\b\004\000\000\016\128\000\016\000\000(\016@0\000\000\004\002\000\000\b@\000\b\000\000\016\b \024\000\000\002\001\000\000\000@\000\000\000\001\000\128\004\000\000\000\000\000\000\002\000\000\000\000\000\000\128@\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\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000H\000\004l \b\176H\223\137\143@\016\031\000\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\b\000\000\000\000\141\132\001\022\t\027\2411\232\002\003\224\000\0001\192\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\001\000\131\001\128\000\000 \016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\b\004\000\000\000\000\000\000\000\000\000\000\000\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\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\001\128\0008\b\0008\184 \000\016\000\000\000\000\000!\000\000 \000\000@ \224`\000\000\b\004\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\016\000\018\000\001\027\b\002,\0187\226c\208\004\007\192\000\000c\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#a\000E\130F\252Lz\000\128\248\000\000\012p\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\002\000\000\004\000 \000\000\000\000\000\000\016\000\000\000\001\000\000\002\000\016\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\006R\000\161 \004\160\152\172\000@2\000\000P@\003\128\000p\016\000qp@\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\014\002\000\014.\b\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\016\000\000\000\001\027\b\002,\0187\226c\208\004\007\192\000\000c\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#a\000E\130F\252Lz\000\128\248\000\000\012p\000\000\000\000\000\000\000\000\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\128\000\016\000\000 \016`0\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\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\b\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\0000\000\007\001\000\007\023\004\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\006R\000\161 \004\160\152\172\000@2\000\000P@\003\128\000p\016\000qp@\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\014\002\000\014.\b\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\016\000\000\000\001\027\b\002,\0187\226c\208\004\007\192\000\000c\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#a\000E\130F\252Lz\000\128\248\000\000\012p\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004l \b\176H\223\137\159@\016\031\000\000\001\142\0026\016\004X$o\196\199\160\b\015\128\000\000\199\004 \000\004\000\000\b\004\024\012\000\000\001\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\128\004\000\168\129\128\000\000\128\000\000\000\128\001\000\000@\002\000T@\192\000\000@\000\000\000\000\000\128\000 \001\000* \000\000 \000\000\000\000\000@\000\016\000\128\021\016\016\000\000\016\000\000\000\000\000d \136\025\000N\t\155@\004\003\000\000\001\004\007\223d@\130\255\027@\000\1528\030\227\139\001A\160\025\b\"\004\000\019\130f\208\001\000\192\000\000A\000\012\132\017\002\000\t\1931h\000\128`\000\000 \128\006B\000\129\000\004\224\152\180\000@0\000\000\016@\000\000\000\000\000\000\000\001\000\001\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\016\000 \000\000\000\000\000\000\016\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\b\000\000\b\000\000\000\004\000\001\000\b\001Q\001\000\000\001\000\000\000\000\000\006\000\000\224 \000\226\224\128\000@\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\004\000\000\000\128\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000e \n\018\000J\t\154\192\004\003\000\000\001\004\0002\144\005\t\000%\004\197`\002\001\128\000\000\130\000\025H\002\132\128R\130b\176\001\000\192\000\000A\000\004\000\001\000\b\001Q\001\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\004\001\000\000@\002\000T@@\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000!jJ\181\006\148U3\253\224\136\007\152\004\015\026\144\181%Z\131J*\153\254\240D\003\204\002\007\141@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004$\001T\000@\136$\028\012\017\0003\000\129\128P\000\000\000\000\000\000\000\000\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\017\004\131\129\130 \006`\0160\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\016\144\005P\001\002 \144p0D\000\204\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\b\000\000\b\000\000\000\004\000\001\000\b\001Q\001\000\000\001\000\000\000\000\001\t\000U\000\016\"\t\007\003\004@\012\192 `\020\003!\004@\128\002pLZ\000 \024\000\000\b \001\144\128 @\0018&-\000\016\012\000\000\004\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\000\b\000\000\128\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\006\000\000\224$\000\170\224\128\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\016\128\000\016\000\000 \016p0\000\000\004\002\000\001\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\002\016\000\002\000\000\004\002\012\006\000\000\000\128@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000@\002\000T@@\000\000@\000\000\000\000B\000\000@\000\000\128A\192\192\000\000\016\b\000\004!\000\000 \000\000@ \192`\000\000\b\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\007\001\000\007\023\012\000\002\000\000\000\000\000\000\024\000\003\128\128\003\139\130\000\001\000\000\000\000\000\002\016\000\002\000\000\004\002\012\006\000\000\000\128@\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\016\128\000\016\000\000 \016`0\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\002\016\000\002\000\000\004\002\b\006\000\000\000\128@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b\016\004\131\128\002 \006`\000\016\002\001\128\0008\t\000*\184 \000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000 \000\b\000@\n\136\b\000\000\b\000\000\000\000\bH\002(\000\129\000H8\000\"\000f\000\001\000 \025H\002\132\128\018\130b\176\001\000\200\000\001A\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\t\000E\000\016 \t\006\000\004@\012\192\000 \004\132\128\"\128\b\016\004\130\000\002 \006`\000\016\002\004\000\000\000\000\000\b\000`\000\000\000\000\000\000\000\002\000\000\000\000\000\004\000\016\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\001\000\000\000\000\000\000\000\000\000\000\025H\002\132\128\018\130b\176\001\000\200\000\001A\002\018\000\138\000 @\018\012\000\b\128\025\128\000@\t\t\000E\000\016 \t\004\000\004@\012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\144\004P\001\002\000\144@\000@\000\204\000\002\000\0002\016D\012\000'\004\205\160\002\001\128\000\000\130\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\144\004P\001\002\000\144@\000D\000\204\000\002\000HH\002(\000\129\000H0\000\"\000f\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\b\001\001\000\001\001\002\000\000\004\000\000\000\000\000\002\004\000\128\000\000\128\129\000\000\002\000\000\000\000\000\001\002\000@\000\000@@\000\000\001\000\000\000\000\000B@\017@\004\b\"A\192\001\016\0030\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\144\004P\001\002\000\144@\000D\000\204\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\132\128\"\128\b\016\004\131\000\002\000\006`\000\016\000B@\017@\004\b\002A\000\001\000\0030\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\004$\001\020\000@\128$\016\000\025\0003\000\000\128\016\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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! \b\160\002\004\001 \192\000\128\001\152\000\004\000\016\144\004P\001\002\000\144@\000@\000\204\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\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000b@\021@\004\012\"A\192\001\016\003\176\000\136\0010\000\002\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\004\000\000\000\000\000#\004@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\000\000\224 \000\226\224\128\000@\000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000!\000\000 \000\000@ \128`\000\000\b\004\000\000\016\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\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\006B\000\129\000\004\160\152\180\000@4\000\000\017@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000jJ]\193\244\015\130\193\192\255\150\019\188[\249\195\192\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\016\000\000\000\000\000\000\000\000\000\000\000\000\004\128\000 \000\001\000\001\000\000\000 \000\000\002\000\002@\000\000\000\000\128\000\128\000\000\016\000\000\001\000\001 \000\000\000\000@\000@\000\000\b\000\000\000\000B@\017@\006\b\002A\192\001\016\003\176\000\024@\000H\000\000\000\000\016\000\016\000\000\002\000\000\000\000\016\144\004P\001\002\000\144p\000D\000\204\000\002\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004$\001\020\000@\128$\024\000\017\0003\000\000\132\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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$\001\020\000`\128$\028\000\017\000;\000\001\132\000\004\128\000\000\000\001\000\001\000\000\000 \000\000\000\001\t\000E\000\016 \t\007\000\004@\012\192\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\b\000\000\000\000\000\000\000\000\000! \b\160\130\004\001 \192\000\136\001\216\004\004\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\129\000H0\000\"\000f\001\001\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\002@\000\016\000\000\128\000\128\000\000\016\000\000\001\000\001 \000\000\000\000@\000@\000\000\b\000\000\000\128B@\017@\004\b\002A\128\001\016\0030\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\b\000\128\000\000\000\128\000\000\001 \000\000\001\000\000\012\000\001\192@\001\197\193\000\000\128\000\000\000\000\000\000\000 \000\000\000\000\001\000\000\b\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\004\000\000\000\000\000\001\128\0000\000\000(\184`\000\018\000\001\000\000\000\000\192\000\024\000\000\020\\\016\000\t\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\b\000\128\000\000\000\128\000\000\001 \000\000\000\000\000\012\000\001\128\000\001E\193\000\000\144\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\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\000\000\000\000\000\000\000\000 \000\000\0000\000\007\001\000\007\023\004\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\006\000\000\224 \000\226\224\128\000@\000\000\000\000\000\003\000\000`\000\000Qp@\000 \000\000\000\000\000b@\029\192\004\012\130A\192\193\018\003\176\n\136E\177 \014\224\002\006A \224`\137\001\216\005D\"\192\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\006\000\000\005\023\004\000\002\000\000\000\000\000\000\024\000\003\128\128\131\139\130\000\001\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\004\000\000\000\006\000\000\224 \000\226\224\128\000@\000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\192\000\028\004\000\028\\\016\000\b\000\000\000\000\000\000`\000\012\000\000\n.\b\000\004\000\000\000\000\000\012H\003\184\000\129\144H8\024\"@v\001Q\b\182$\001\220\000@\200$\028\012\017 ;\000\168\132X\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000qp@\000 \000\000\000\000\000\001\128\0000\000\000(\184 \000\016\000\000\000\000\0001 \014\224\002\006A \224`\137\001\216\005D\"\216\144\007p\001\003 \144p0D\128\236\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\012\000\001\192@\001\197\193\000\000\128\000\000\000\000\000\006\000\000\192\000\000\162\224\128\000@\000\000\000\000\000\196\128;\128\b\025\004\131\129\130$\007`\021\016\139b@\029\192\004\012\130A\192\193\018\003\176\n\136E\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000 \000\000\0000\000\007\001\000\007\023\004\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\006\000\000\224 \000\226\224\128\000@\000\000\000\000\000\003\000\000`\000\000Qp@\000 \000\000\000\000\000b@\029\192\004\012\130A\192\193\018\003\176\n\136E\177 \014\224\002\006A \224`\137\001\216\005D\"\192\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\001\000\000\000\000\000\000\000\000\000\b\000\000\000\012\000\001\192@\001\197\193\000\000\128\000\000\000\000\000\000\000\016\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\001\128\0008\b\0008\184 \000\016\000\000\000\000\000\000\192\000\024\000\000\020\\\016\000\b\000\000\000\000\000\024\144\007p\001\003 \144p0D\128\236\002\162\017lH\003\184\000\129\144H8\024\"@v\001Q\b\176\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\128@\000\000\000\b\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! \b\160\002\004\001 \224\000\136\001\152\004\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\025\000\003\192\128\003\139\130\128\001\000@\016\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\t\000E\000\016 \001\006\000\004\000\012\192 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000H\000\002\000\000\016\000\016\000\000\002\000\000\000 \000$\000\000\000\000\b\000\b\000\000\001\000\000\000\016\bH\002(\000\129\000\b0\000 \000f\000\001\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\128\000\000\000\000\b\000\000\000\000\000\000\000\000\000! \b\160\130\004\000 \192\000\128\001\216\004$\000\128d\000\015\002\000\014.\n\000\004\001\000@\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004$\001\020\000@\128\004\024\000\016\0003\000\128\128\016\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\001 \000\b\000\000@\000@\000\000\b\000\000\000\128\000\144\000\000\000\000 \000 \000\000\004\000\000\000@! \b\160\002\004\000 \192\000\128\001\152\000\004 \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\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\128\000\016\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\000B@\017@\004\b\002A\128\001\016\0030\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\001\027\b\002,\0187\226c\208\004\007\192\000\000c\128\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000F\194\000\139\004\141\248\152\244\001\001\240\000\000\024\224\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\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$\001\004\000@\128\004\016\000\016\0002\000\000\128\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\144\000\000\000\000(\000 \000\000\004\000\000\000\000 \000\"\001\248\005\130@\000\031\017\000A\0000Q`\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\002\000\000\000\001\000\000\000\000\000P\000\000\000\000\000\000\000\000\000@\000@\003\240\011\004\128\000>\"\000\130\000`\162\192\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\b\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\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\000\000\224 \000\226\224\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\004l \b\176H\223\137\143@\016\031\000\000\001\142\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\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\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\004\000\128\000\000\128\128\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000@\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \b\b\000\002\n\b\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\004\000\000\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\000\000\000\000\000\000\000\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 \b\016\000J\t\139@\004\003@\000\001\004\000\000\000\000\000\000\000\000\b\000\000\000\004\000D\b\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\002\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\016\000\000\000\000\005\000\000\000\000\000\000\000\000\000\001?\t\006,R\183\230s\208\021\007\242\000\000\227\128\004\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\011BA\000\016 \169\004\004\004@\028\128\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000$\001\004\000@\128$\016\000\017\0002\b\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\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 \002\004\001 \128\000\128\001\128\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\019\240\144b\197+~g=\001P\127 \000\0148\t\248H1b\149\1913\158\128\168?\144\000\007\028\000\144\004\016\001\002\000\144@\000D\000\200\000\002\000\000H\002\b\000\129\000H \000\"\000d\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\t\000A\000\016 \t\006\000\004@\012\128\000 \000\004\128 \128\b\016\004\130\000\002 \006@\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\000H\002\b\000\129\000H0\000\"\000d\000\001\000\000$\001\004\000@\128$\016\000\017\0002\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000") @@ -1529,9 +1551,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4136 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( "+" ) -# 1535 "parsing/parser.ml" +# 1557 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1554,9 +1576,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4137 "parsing/parser.mly" +# 4172 "parsing/parser.mly" ( "+." ) -# 1560 "parsing/parser.ml" +# 1582 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1579,9 +1601,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 3643 "parsing/parser.mly" +# 3678 "parsing/parser.mly" ( _1 ) -# 1585 "parsing/parser.ml" +# 1607 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1626,24 +1648,24 @@ module Tables = struct let _endpos = _endpos_tyvar_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3646 "parsing/parser.mly" +# 3681 "parsing/parser.mly" ( Ptyp_alias(ty, tyvar) ) -# 1632 "parsing/parser.ml" +# 1654 "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 -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1641 "parsing/parser.ml" +# 1663 "parsing/parser.ml" in -# 3648 "parsing/parser.mly" +# 3683 "parsing/parser.mly" ( _1 ) -# 1647 "parsing/parser.ml" +# 1669 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1689,30 +1711,30 @@ module Tables = struct let _v : (let_binding) = let attrs2 = let _1 = _1_inlined2 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 1695 "parsing/parser.ml" +# 1717 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 1704 "parsing/parser.ml" +# 1726 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2848 "parsing/parser.mly" +# 2881 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklb ~loc:_sloc false body attrs ) -# 1716 "parsing/parser.ml" +# 1738 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1735,9 +1757,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4009 "parsing/parser.mly" +# 4044 "parsing/parser.mly" ( _1 ) -# 1741 "parsing/parser.ml" +# 1763 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1760,9 +1782,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4010 "parsing/parser.mly" +# 4045 "parsing/parser.mly" ( Lident _1 ) -# 1766 "parsing/parser.ml" +# 1788 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1799,9 +1821,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = -# 3739 "parsing/parser.mly" +# 3774 "parsing/parser.mly" ( _2 ) -# 1805 "parsing/parser.ml" +# 1827 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1864,11 +1886,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3799 "parsing/parser.mly" +# 3834 "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 ) -# 1872 "parsing/parser.ml" +# 1894 "parsing/parser.ml" in let _3 = @@ -1876,24 +1898,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 1882 "parsing/parser.ml" +# 1904 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 1888 "parsing/parser.ml" +# 1910 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3741 "parsing/parser.mly" +# 3776 "parsing/parser.mly" ( wrap_typ_attrs ~loc:_sloc (reloc_typ ~loc:_sloc _4) _3 ) -# 1897 "parsing/parser.ml" +# 1919 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1924,24 +1946,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3744 "parsing/parser.mly" +# 3779 "parsing/parser.mly" ( Ptyp_var _2 ) -# 1930 "parsing/parser.ml" +# 1952 "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 -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1939 "parsing/parser.ml" +# 1961 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 1945 "parsing/parser.ml" +# 1967 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1965,23 +1987,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3746 "parsing/parser.mly" +# 3781 "parsing/parser.mly" ( Ptyp_any ) -# 1971 "parsing/parser.ml" +# 1993 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1979 "parsing/parser.ml" +# 2001 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 1985 "parsing/parser.ml" +# 2007 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2010,35 +2032,35 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2016 "parsing/parser.ml" +# 2038 "parsing/parser.ml" in let tys = -# 3791 "parsing/parser.mly" +# 3826 "parsing/parser.mly" ( [] ) -# 2022 "parsing/parser.ml" +# 2044 "parsing/parser.ml" in -# 3749 "parsing/parser.mly" +# 3784 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2027 "parsing/parser.ml" +# 2049 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2036 "parsing/parser.ml" +# 2058 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2042 "parsing/parser.ml" +# 2064 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2074,20 +2096,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2080 "parsing/parser.ml" +# 2102 "parsing/parser.ml" in let tys = -# 3793 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( [ty] ) -# 2086 "parsing/parser.ml" +# 2108 "parsing/parser.ml" in -# 3749 "parsing/parser.mly" +# 3784 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2091 "parsing/parser.ml" +# 2113 "parsing/parser.ml" in let _startpos__1_ = _startpos_ty_ in @@ -2095,15 +2117,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2101 "parsing/parser.ml" +# 2123 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2107 "parsing/parser.ml" +# 2129 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2154,9 +2176,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2160 "parsing/parser.ml" +# 2182 "parsing/parser.ml" in let tys = @@ -2164,24 +2186,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2168 "parsing/parser.ml" +# 2190 "parsing/parser.ml" in -# 1186 "parsing/parser.mly" +# 1208 "parsing/parser.mly" ( xs ) -# 2173 "parsing/parser.ml" +# 2195 "parsing/parser.ml" in -# 3795 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( tys ) -# 2179 "parsing/parser.ml" +# 2201 "parsing/parser.ml" in -# 3749 "parsing/parser.mly" +# 3784 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2185 "parsing/parser.ml" +# 2207 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -2189,15 +2211,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2195 "parsing/parser.ml" +# 2217 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2201 "parsing/parser.ml" +# 2223 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2235,24 +2257,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3751 "parsing/parser.mly" +# 3786 "parsing/parser.mly" ( let (f, c) = _2 in Ptyp_object (f, c) ) -# 2241 "parsing/parser.ml" +# 2263 "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 -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2250 "parsing/parser.ml" +# 2272 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2256 "parsing/parser.ml" +# 2278 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2283,24 +2305,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3753 "parsing/parser.mly" +# 3788 "parsing/parser.mly" ( Ptyp_object ([], Closed) ) -# 2289 "parsing/parser.ml" +# 2311 "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 -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2298 "parsing/parser.ml" +# 2320 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2304 "parsing/parser.ml" +# 2326 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2336,20 +2358,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2342 "parsing/parser.ml" +# 2364 "parsing/parser.ml" in let tys = -# 3791 "parsing/parser.mly" +# 3826 "parsing/parser.mly" ( [] ) -# 2348 "parsing/parser.ml" +# 2370 "parsing/parser.ml" in -# 3757 "parsing/parser.mly" +# 3792 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2353 "parsing/parser.ml" +# 2375 "parsing/parser.ml" in let _startpos__1_ = _startpos__2_ in @@ -2357,15 +2379,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2363 "parsing/parser.ml" +# 2385 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2369 "parsing/parser.ml" +# 2391 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2408,20 +2430,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2414 "parsing/parser.ml" +# 2436 "parsing/parser.ml" in let tys = -# 3793 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( [ty] ) -# 2420 "parsing/parser.ml" +# 2442 "parsing/parser.ml" in -# 3757 "parsing/parser.mly" +# 3792 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2425 "parsing/parser.ml" +# 2447 "parsing/parser.ml" in let _startpos__1_ = _startpos_ty_ in @@ -2429,15 +2451,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2435 "parsing/parser.ml" +# 2457 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2441 "parsing/parser.ml" +# 2463 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2495,9 +2517,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2501 "parsing/parser.ml" +# 2523 "parsing/parser.ml" in let tys = @@ -2505,24 +2527,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2509 "parsing/parser.ml" +# 2531 "parsing/parser.ml" in -# 1186 "parsing/parser.mly" +# 1208 "parsing/parser.mly" ( xs ) -# 2514 "parsing/parser.ml" +# 2536 "parsing/parser.ml" in -# 3795 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( tys ) -# 2520 "parsing/parser.ml" +# 2542 "parsing/parser.ml" in -# 3757 "parsing/parser.mly" +# 3792 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2526 "parsing/parser.ml" +# 2548 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -2530,15 +2552,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2536 "parsing/parser.ml" +# 2558 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2542 "parsing/parser.ml" +# 2564 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2576,24 +2598,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3760 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( Ptyp_variant([_2], Closed, None) ) -# 2582 "parsing/parser.ml" +# 2604 "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 -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2591 "parsing/parser.ml" +# 2613 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2597 "parsing/parser.ml" +# 2619 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2643,24 +2665,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2647 "parsing/parser.ml" +# 2669 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 2652 "parsing/parser.ml" +# 2674 "parsing/parser.ml" in -# 3805 "parsing/parser.mly" +# 3840 "parsing/parser.mly" ( _1 ) -# 2658 "parsing/parser.ml" +# 2680 "parsing/parser.ml" in -# 3762 "parsing/parser.mly" +# 3797 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, None) ) -# 2664 "parsing/parser.ml" +# 2686 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -2668,15 +2690,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2674 "parsing/parser.ml" +# 2696 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2680 "parsing/parser.ml" +# 2702 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2733,24 +2755,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2737 "parsing/parser.ml" +# 2759 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 2742 "parsing/parser.ml" +# 2764 "parsing/parser.ml" in -# 3805 "parsing/parser.mly" +# 3840 "parsing/parser.mly" ( _1 ) -# 2748 "parsing/parser.ml" +# 2770 "parsing/parser.ml" in -# 3764 "parsing/parser.mly" +# 3799 "parsing/parser.mly" ( Ptyp_variant(_2 :: _4, Closed, None) ) -# 2754 "parsing/parser.ml" +# 2776 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -2758,15 +2780,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2764 "parsing/parser.ml" +# 2786 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2770 "parsing/parser.ml" +# 2792 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2816,24 +2838,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2820 "parsing/parser.ml" +# 2842 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 2825 "parsing/parser.ml" +# 2847 "parsing/parser.ml" in -# 3805 "parsing/parser.mly" +# 3840 "parsing/parser.mly" ( _1 ) -# 2831 "parsing/parser.ml" +# 2853 "parsing/parser.ml" in -# 3766 "parsing/parser.mly" +# 3801 "parsing/parser.mly" ( Ptyp_variant(_3, Open, None) ) -# 2837 "parsing/parser.ml" +# 2859 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -2841,15 +2863,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2847 "parsing/parser.ml" +# 2869 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2853 "parsing/parser.ml" +# 2875 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2880,24 +2902,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3768 "parsing/parser.mly" +# 3803 "parsing/parser.mly" ( Ptyp_variant([], Open, None) ) -# 2886 "parsing/parser.ml" +# 2908 "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 -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2895 "parsing/parser.ml" +# 2917 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2901 "parsing/parser.ml" +# 2923 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2947,24 +2969,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2951 "parsing/parser.ml" +# 2973 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 2956 "parsing/parser.ml" +# 2978 "parsing/parser.ml" in -# 3805 "parsing/parser.mly" +# 3840 "parsing/parser.mly" ( _1 ) -# 2962 "parsing/parser.ml" +# 2984 "parsing/parser.ml" in -# 3770 "parsing/parser.mly" +# 3805 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some []) ) -# 2968 "parsing/parser.ml" +# 2990 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -2972,15 +2994,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2978 "parsing/parser.ml" +# 3000 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 2984 "parsing/parser.ml" +# 3006 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3045,18 +3067,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3049 "parsing/parser.ml" +# 3071 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 3054 "parsing/parser.ml" +# 3076 "parsing/parser.ml" in -# 3833 "parsing/parser.mly" +# 3868 "parsing/parser.mly" ( _1 ) -# 3060 "parsing/parser.ml" +# 3082 "parsing/parser.ml" in let _3 = @@ -3064,24 +3086,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3068 "parsing/parser.ml" +# 3090 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 3073 "parsing/parser.ml" +# 3095 "parsing/parser.ml" in -# 3805 "parsing/parser.mly" +# 3840 "parsing/parser.mly" ( _1 ) -# 3079 "parsing/parser.ml" +# 3101 "parsing/parser.ml" in -# 3772 "parsing/parser.mly" +# 3807 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some _5) ) -# 3085 "parsing/parser.ml" +# 3107 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -3089,15 +3111,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3095 "parsing/parser.ml" +# 3117 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 3101 "parsing/parser.ml" +# 3123 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3121,23 +3143,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3774 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( Ptyp_extension _1 ) -# 3127 "parsing/parser.ml" +# 3149 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3135 "parsing/parser.ml" +# 3157 "parsing/parser.ml" in -# 3776 "parsing/parser.mly" +# 3811 "parsing/parser.mly" ( _1 ) -# 3141 "parsing/parser.ml" +# 3163 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3161,23 +3183,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string Asttypes.loc) = let _1 = let _1 = -# 4205 "parsing/parser.mly" +# 4240 "parsing/parser.mly" ( _1 ) -# 3167 "parsing/parser.ml" +# 3189 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1054 "parsing/parser.mly" +# 1076 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) -# 3175 "parsing/parser.ml" +# 3197 "parsing/parser.ml" in -# 4207 "parsing/parser.mly" +# 4242 "parsing/parser.mly" ( _1 ) -# 3181 "parsing/parser.ml" +# 3203 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3215,24 +3237,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (string Asttypes.loc) = let _1 = let _1 = -# 4206 "parsing/parser.mly" +# 4241 "parsing/parser.mly" ( _1 ^ "." ^ _3.txt ) -# 3221 "parsing/parser.ml" +# 3243 "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 -# 1054 "parsing/parser.mly" +# 1076 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) -# 3230 "parsing/parser.ml" +# 3252 "parsing/parser.ml" in -# 4207 "parsing/parser.mly" +# 4242 "parsing/parser.mly" ( _1 ) -# 3236 "parsing/parser.ml" +# 3258 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3255,11 +3277,11 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = -# 4262 "parsing/parser.mly" +# 4297 "parsing/parser.mly" ( Builtin_attributes.mark_payload_attrs_used _1; _1 ) -# 3263 "parsing/parser.ml" +# 3285 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3306,9 +3328,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4211 "parsing/parser.mly" +# 4246 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 3312 "parsing/parser.ml" +# 3334 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3331,9 +3353,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_expr) = -# 2027 "parsing/parser.mly" +# 2049 "parsing/parser.mly" ( _1 ) -# 3337 "parsing/parser.ml" +# 3359 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3372,18 +3394,18 @@ module Tables = struct let _v : (Parsetree.class_expr) = let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 3378 "parsing/parser.ml" +# 3400 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2029 "parsing/parser.mly" +# 2051 "parsing/parser.mly" ( wrap_class_attrs ~loc:_sloc _3 _2 ) -# 3387 "parsing/parser.ml" +# 3409 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3423,9 +3445,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2031 "parsing/parser.mly" +# 2053 "parsing/parser.mly" ( class_of_let_bindings ~loc:_sloc _1 _3 ) -# 3429 "parsing/parser.ml" +# 3451 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3488,34 +3510,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 3494 "parsing/parser.ml" +# 3516 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 3503 "parsing/parser.ml" +# 3525 "parsing/parser.ml" in let _3 = -# 4128 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Fresh ) -# 3509 "parsing/parser.ml" +# 3531 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2033 "parsing/parser.mly" +# 2055 "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)) ) -# 3519 "parsing/parser.ml" +# 3541 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3585,34 +3607,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 3591 "parsing/parser.ml" +# 3613 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 3600 "parsing/parser.ml" +# 3622 "parsing/parser.ml" in let _3 = -# 4129 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Override ) -# 3606 "parsing/parser.ml" +# 3628 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2033 "parsing/parser.mly" +# 2055 "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)) ) -# 3616 "parsing/parser.ml" +# 3638 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3642,9 +3664,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = -# 2037 "parsing/parser.mly" +# 2059 "parsing/parser.mly" ( Cl.attr _1 _2 ) -# 3648 "parsing/parser.ml" +# 3670 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3679,18 +3701,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3683 "parsing/parser.ml" +# 3705 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 3688 "parsing/parser.ml" +# 3710 "parsing/parser.ml" in -# 2040 "parsing/parser.mly" +# 2062 "parsing/parser.mly" ( Pcl_apply(_1, _2) ) -# 3694 "parsing/parser.ml" +# 3716 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -3698,15 +3720,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1077 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 3704 "parsing/parser.ml" +# 3726 "parsing/parser.ml" in -# 2043 "parsing/parser.mly" +# 2065 "parsing/parser.mly" ( _1 ) -# 3710 "parsing/parser.ml" +# 3732 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3730,23 +3752,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2042 "parsing/parser.mly" +# 2064 "parsing/parser.mly" ( Pcl_extension _1 ) -# 3736 "parsing/parser.ml" +# 3758 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1077 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 3744 "parsing/parser.ml" +# 3766 "parsing/parser.ml" in -# 2043 "parsing/parser.mly" +# 2065 "parsing/parser.mly" ( _1 ) -# 3750 "parsing/parser.ml" +# 3772 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3799,33 +3821,33 @@ module Tables = struct let _v : (Parsetree.class_field) = let _6 = let _1 = _1_inlined2 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 3805 "parsing/parser.ml" +# 3827 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 3814 "parsing/parser.ml" +# 3836 "parsing/parser.ml" in let _2 = -# 4128 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Fresh ) -# 3820 "parsing/parser.ml" +# 3842 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2092 "parsing/parser.mly" +# 2114 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 3829 "parsing/parser.ml" +# 3851 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3885,33 +3907,33 @@ module Tables = struct let _v : (Parsetree.class_field) = let _6 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 3891 "parsing/parser.ml" +# 3913 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _3 = let _1 = _1_inlined2 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 3900 "parsing/parser.ml" +# 3922 "parsing/parser.ml" in let _2 = -# 4129 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Override ) -# 3906 "parsing/parser.ml" +# 3928 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2092 "parsing/parser.mly" +# 2114 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 3915 "parsing/parser.ml" +# 3937 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3952,9 +3974,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 3958 "parsing/parser.ml" +# 3980 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -3962,11 +3984,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2095 "parsing/parser.mly" +# 2117 "parsing/parser.mly" ( let v, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_val v) ~attrs:(attrs@_3) ~docs ) -# 3970 "parsing/parser.ml" +# 3992 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4007,9 +4029,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 4013 "parsing/parser.ml" +# 4035 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -4017,11 +4039,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2099 "parsing/parser.mly" +# 2121 "parsing/parser.mly" ( let meth, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_method meth) ~attrs:(attrs@_3) ~docs ) -# 4025 "parsing/parser.ml" +# 4047 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4067,28 +4089,28 @@ module Tables = struct let _v : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 4073 "parsing/parser.ml" +# 4095 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 4082 "parsing/parser.ml" +# 4104 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2103 "parsing/parser.mly" +# 2125 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 4092 "parsing/parser.ml" +# 4114 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4134,28 +4156,28 @@ module Tables = struct let _v : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 4140 "parsing/parser.ml" +# 4162 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 4149 "parsing/parser.ml" +# 4171 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2106 "parsing/parser.mly" +# 2128 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_initializer _3) ~attrs:(_2@_4) ~docs ) -# 4159 "parsing/parser.ml" +# 4181 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4187,9 +4209,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _2 = let _1 = _1_inlined1 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 4193 "parsing/parser.ml" +# 4215 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -4197,10 +4219,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2109 "parsing/parser.mly" +# 2131 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_extension _1) ~attrs:_2 ~docs ) -# 4204 "parsing/parser.ml" +# 4226 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4224,23 +4246,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_field) = let _1 = let _1 = -# 2112 "parsing/parser.mly" +# 2134 "parsing/parser.mly" ( Pcf_attribute _1 ) -# 4230 "parsing/parser.ml" +# 4252 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1075 "parsing/parser.mly" +# 1097 "parsing/parser.mly" ( mkcf ~loc:_sloc _1 ) -# 4238 "parsing/parser.ml" +# 4260 "parsing/parser.ml" in -# 2113 "parsing/parser.mly" +# 2135 "parsing/parser.mly" ( _1 ) -# 4244 "parsing/parser.ml" +# 4266 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4270,9 +4292,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = -# 2007 "parsing/parser.mly" +# 2029 "parsing/parser.mly" ( _2 ) -# 4276 "parsing/parser.ml" +# 4298 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4317,24 +4339,24 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2010 "parsing/parser.mly" +# 2032 "parsing/parser.mly" ( Pcl_constraint(_4, _2) ) -# 4323 "parsing/parser.ml" +# 4345 "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 -# 1077 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4332 "parsing/parser.ml" +# 4354 "parsing/parser.ml" in -# 2013 "parsing/parser.mly" +# 2035 "parsing/parser.mly" ( _1 ) -# 4338 "parsing/parser.ml" +# 4360 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4365,24 +4387,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2012 "parsing/parser.mly" +# 2034 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, _2) ) -# 4371 "parsing/parser.ml" +# 4393 "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 -# 1077 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4380 "parsing/parser.ml" +# 4402 "parsing/parser.ml" in -# 2013 "parsing/parser.mly" +# 2035 "parsing/parser.mly" ( _1 ) -# 4386 "parsing/parser.ml" +# 4408 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4420,24 +4442,24 @@ module Tables = struct let _endpos = _endpos_e_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2068 "parsing/parser.mly" +# 2090 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 4426 "parsing/parser.ml" +# 4448 "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 -# 1077 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4435 "parsing/parser.ml" +# 4457 "parsing/parser.ml" in -# 2069 "parsing/parser.mly" +# 2091 "parsing/parser.mly" ( _1 ) -# 4441 "parsing/parser.ml" +# 4463 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4468,24 +4490,24 @@ module Tables = struct let _endpos = _endpos_e_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2068 "parsing/parser.mly" +# 2090 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 4474 "parsing/parser.ml" +# 4496 "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 -# 1077 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4483 "parsing/parser.ml" +# 4505 "parsing/parser.ml" in -# 2069 "parsing/parser.mly" +# 2091 "parsing/parser.mly" ( _1 ) -# 4489 "parsing/parser.ml" +# 4511 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4508,9 +4530,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3999 "parsing/parser.mly" +# 4034 "parsing/parser.mly" ( _1 ) -# 4514 "parsing/parser.ml" +# 4536 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4550,9 +4572,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2077 "parsing/parser.mly" +# 2099 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) -# 4556 "parsing/parser.ml" +# 4578 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4604,24 +4626,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2079 "parsing/parser.mly" +# 2101 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) -# 4610 "parsing/parser.ml" +# 4632 "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 -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 4619 "parsing/parser.ml" +# 4641 "parsing/parser.ml" in -# 2080 "parsing/parser.mly" +# 2102 "parsing/parser.mly" ( _1 ) -# 4625 "parsing/parser.ml" +# 4647 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4640,9 +4662,9 @@ module Tables = struct let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in -# 2082 "parsing/parser.mly" +# 2104 "parsing/parser.mly" ( ghpat ~loc:_sloc Ppat_any ) -# 4646 "parsing/parser.ml" +# 4668 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4679,9 +4701,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = -# 2207 "parsing/parser.mly" +# 2229 "parsing/parser.mly" ( _2 ) -# 4685 "parsing/parser.ml" +# 4707 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4698,24 +4720,24 @@ module Tables = struct let _endpos = _startpos in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 2208 "parsing/parser.mly" +# 2230 "parsing/parser.mly" ( Ptyp_any ) -# 4704 "parsing/parser.ml" +# 4726 "parsing/parser.ml" in let _endpos__1_ = _endpos__0_ in let _endpos = _endpos__1_ in let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 4713 "parsing/parser.ml" +# 4735 "parsing/parser.ml" in -# 2209 "parsing/parser.mly" +# 2231 "parsing/parser.mly" ( _1 ) -# 4719 "parsing/parser.ml" +# 4741 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4761,28 +4783,28 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 4767 "parsing/parser.ml" +# 4789 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 4776 "parsing/parser.ml" +# 4798 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2217 "parsing/parser.mly" +# 2239 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_inherit _3) ~attrs:(_2@_4) ~docs ) -# 4786 "parsing/parser.ml" +# 4808 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4840,9 +4862,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _3 : unit = Obj.magic _3 in let _1_inlined2 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 4846 "parsing/parser.ml" +# 4868 "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 @@ -4853,9 +4875,9 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 4859 "parsing/parser.ml" +# 4881 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined3_ in @@ -4863,44 +4885,44 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let label = let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 4869 "parsing/parser.ml" +# 4891 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 4877 "parsing/parser.ml" +# 4899 "parsing/parser.ml" in -# 2242 "parsing/parser.mly" +# 2264 "parsing/parser.mly" ( let mut, virt = flags in label, mut, virt, ty ) -# 4886 "parsing/parser.ml" +# 4908 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 4894 "parsing/parser.ml" +# 4916 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2220 "parsing/parser.mly" +# 2242 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_val _3) ~attrs:(_2@_4) ~docs ) -# 4904 "parsing/parser.ml" +# 4926 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4958,9 +4980,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 4964 "parsing/parser.ml" +# 4986 "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 @@ -4971,53 +4993,53 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _7 = let _1 = _1_inlined4 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 4977 "parsing/parser.ml" +# 4999 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _6 = let _1 = _1_inlined3 in -# 3609 "parsing/parser.mly" +# 3644 "parsing/parser.mly" ( _1 ) -# 4986 "parsing/parser.ml" +# 5008 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 4994 "parsing/parser.ml" +# 5016 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5002 "parsing/parser.ml" +# 5024 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 5010 "parsing/parser.ml" +# 5032 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2224 "parsing/parser.mly" +# 2246 "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 ) -# 5021 "parsing/parser.ml" +# 5043 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5063,28 +5085,28 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 5069 "parsing/parser.ml" +# 5091 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 5078 "parsing/parser.ml" +# 5100 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2228 "parsing/parser.mly" +# 2250 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 5088 "parsing/parser.ml" +# 5110 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5116,9 +5138,9 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _2 = let _1 = _1_inlined1 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 5122 "parsing/parser.ml" +# 5144 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -5126,10 +5148,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2231 "parsing/parser.mly" +# 2253 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_extension _1) ~attrs:_2 ~docs ) -# 5133 "parsing/parser.ml" +# 5155 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5153,23 +5175,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_type_field) = let _1 = let _1 = -# 2234 "parsing/parser.mly" +# 2256 "parsing/parser.mly" ( Pctf_attribute _1 ) -# 5159 "parsing/parser.ml" +# 5181 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1095 "parsing/parser.mly" ( mkctf ~loc:_sloc _1 ) -# 5167 "parsing/parser.ml" +# 5189 "parsing/parser.ml" in -# 2235 "parsing/parser.mly" +# 2257 "parsing/parser.mly" ( _1 ) -# 5173 "parsing/parser.ml" +# 5195 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5198,42 +5220,42 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5204 "parsing/parser.ml" +# 5226 "parsing/parser.ml" in let tys = let tys = -# 2193 "parsing/parser.mly" +# 2215 "parsing/parser.mly" ( [] ) -# 5211 "parsing/parser.ml" +# 5233 "parsing/parser.ml" in -# 2199 "parsing/parser.mly" +# 2221 "parsing/parser.mly" ( tys ) -# 5216 "parsing/parser.ml" +# 5238 "parsing/parser.ml" in -# 2176 "parsing/parser.mly" +# 2198 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) -# 5222 "parsing/parser.ml" +# 5244 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1071 "parsing/parser.mly" +# 1093 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5231 "parsing/parser.ml" +# 5253 "parsing/parser.ml" in -# 2179 "parsing/parser.mly" +# 2201 "parsing/parser.mly" ( _1 ) -# 5237 "parsing/parser.ml" +# 5259 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5284,9 +5306,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5290 "parsing/parser.ml" +# 5312 "parsing/parser.ml" in let tys = @@ -5295,30 +5317,30 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 5299 "parsing/parser.ml" +# 5321 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 5304 "parsing/parser.ml" +# 5326 "parsing/parser.ml" in -# 2195 "parsing/parser.mly" +# 2217 "parsing/parser.mly" ( params ) -# 5310 "parsing/parser.ml" +# 5332 "parsing/parser.ml" in -# 2199 "parsing/parser.mly" +# 2221 "parsing/parser.mly" ( tys ) -# 5316 "parsing/parser.ml" +# 5338 "parsing/parser.ml" in -# 2176 "parsing/parser.mly" +# 2198 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) -# 5322 "parsing/parser.ml" +# 5344 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -5326,15 +5348,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1071 "parsing/parser.mly" +# 1093 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5332 "parsing/parser.ml" +# 5354 "parsing/parser.ml" in -# 2179 "parsing/parser.mly" +# 2201 "parsing/parser.mly" ( _1 ) -# 5338 "parsing/parser.ml" +# 5360 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5358,23 +5380,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_type) = let _1 = let _1 = -# 2178 "parsing/parser.mly" +# 2200 "parsing/parser.mly" ( Pcty_extension _1 ) -# 5364 "parsing/parser.ml" +# 5386 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1071 "parsing/parser.mly" +# 1093 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5372 "parsing/parser.ml" +# 5394 "parsing/parser.ml" in -# 2179 "parsing/parser.mly" +# 2201 "parsing/parser.mly" ( _1 ) -# 5378 "parsing/parser.ml" +# 5400 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5431,44 +5453,44 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 5435 "parsing/parser.ml" +# 5457 "parsing/parser.ml" in -# 2213 "parsing/parser.mly" +# 2235 "parsing/parser.mly" ( _1 ) -# 5440 "parsing/parser.ml" +# 5462 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1019 "parsing/parser.mly" +# 1041 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) -# 5449 "parsing/parser.ml" +# 5471 "parsing/parser.ml" in -# 2203 "parsing/parser.mly" +# 2225 "parsing/parser.mly" ( Csig.mk _1 _2 ) -# 5455 "parsing/parser.ml" +# 5477 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 5463 "parsing/parser.ml" +# 5485 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2181 "parsing/parser.mly" +# 2203 "parsing/parser.mly" ( mkcty ~loc:_sloc ~attrs:_2 (Pcty_signature _3) ) -# 5472 "parsing/parser.ml" +# 5494 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5525,43 +5547,43 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 5529 "parsing/parser.ml" +# 5551 "parsing/parser.ml" in -# 2213 "parsing/parser.mly" +# 2235 "parsing/parser.mly" ( _1 ) -# 5534 "parsing/parser.ml" +# 5556 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1019 "parsing/parser.mly" +# 1041 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) -# 5543 "parsing/parser.ml" +# 5565 "parsing/parser.ml" in -# 2203 "parsing/parser.mly" +# 2225 "parsing/parser.mly" ( Csig.mk _1 _2 ) -# 5549 "parsing/parser.ml" +# 5571 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 5557 "parsing/parser.ml" +# 5579 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2183 "parsing/parser.mly" +# 2205 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 5565 "parsing/parser.ml" +# 5587 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5591,9 +5613,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_type) = -# 2185 "parsing/parser.mly" +# 2207 "parsing/parser.mly" ( Cty.attr _1 _2 ) -# 5597 "parsing/parser.ml" +# 5619 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5656,34 +5678,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5662 "parsing/parser.ml" +# 5684 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 5671 "parsing/parser.ml" +# 5693 "parsing/parser.ml" in let _3 = -# 4128 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Fresh ) -# 5677 "parsing/parser.ml" +# 5699 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2187 "parsing/parser.mly" +# 2209 "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)) ) -# 5687 "parsing/parser.ml" +# 5709 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5753,34 +5775,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5759 "parsing/parser.ml" +# 5781 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 5768 "parsing/parser.ml" +# 5790 "parsing/parser.ml" in let _3 = -# 4129 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Override ) -# 5774 "parsing/parser.ml" +# 5796 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2187 "parsing/parser.mly" +# 2209 "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)) ) -# 5784 "parsing/parser.ml" +# 5806 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5817,9 +5839,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.class_expr) = -# 2047 "parsing/parser.mly" +# 2069 "parsing/parser.mly" ( _2 ) -# 5823 "parsing/parser.ml" +# 5845 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5858,9 +5880,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 -# 2049 "parsing/parser.mly" +# 2071 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 5864 "parsing/parser.ml" +# 5886 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5889,42 +5911,42 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5895 "parsing/parser.ml" +# 5917 "parsing/parser.ml" in let tys = let tys = -# 2193 "parsing/parser.mly" +# 2215 "parsing/parser.mly" ( [] ) -# 5902 "parsing/parser.ml" +# 5924 "parsing/parser.ml" in -# 2199 "parsing/parser.mly" +# 2221 "parsing/parser.mly" ( tys ) -# 5907 "parsing/parser.ml" +# 5929 "parsing/parser.ml" in -# 2052 "parsing/parser.mly" +# 2074 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) -# 5913 "parsing/parser.ml" +# 5935 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1077 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 5922 "parsing/parser.ml" +# 5944 "parsing/parser.ml" in -# 2059 "parsing/parser.mly" +# 2081 "parsing/parser.mly" ( _1 ) -# 5928 "parsing/parser.ml" +# 5950 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5975,9 +5997,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5981 "parsing/parser.ml" +# 6003 "parsing/parser.ml" in let tys = @@ -5986,30 +6008,30 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 5990 "parsing/parser.ml" +# 6012 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 5995 "parsing/parser.ml" +# 6017 "parsing/parser.ml" in -# 2195 "parsing/parser.mly" +# 2217 "parsing/parser.mly" ( params ) -# 6001 "parsing/parser.ml" +# 6023 "parsing/parser.ml" in -# 2199 "parsing/parser.mly" +# 2221 "parsing/parser.mly" ( tys ) -# 6007 "parsing/parser.ml" +# 6029 "parsing/parser.ml" in -# 2052 "parsing/parser.mly" +# 2074 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) -# 6013 "parsing/parser.ml" +# 6035 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -6017,15 +6039,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1077 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6023 "parsing/parser.ml" +# 6045 "parsing/parser.ml" in -# 2059 "parsing/parser.mly" +# 2081 "parsing/parser.mly" ( _1 ) -# 6029 "parsing/parser.ml" +# 6051 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6084,43 +6106,43 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 6088 "parsing/parser.ml" +# 6110 "parsing/parser.ml" in -# 2086 "parsing/parser.mly" +# 2108 "parsing/parser.mly" ( _1 ) -# 6093 "parsing/parser.ml" +# 6115 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1018 "parsing/parser.mly" +# 1040 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 6102 "parsing/parser.ml" +# 6124 "parsing/parser.ml" in -# 2073 "parsing/parser.mly" +# 2095 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 6108 "parsing/parser.ml" +# 6130 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 6116 "parsing/parser.ml" +# 6138 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2054 "parsing/parser.mly" +# 2076 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 6124 "parsing/parser.ml" +# 6146 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -6128,15 +6150,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1077 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6134 "parsing/parser.ml" +# 6156 "parsing/parser.ml" in -# 2059 "parsing/parser.mly" +# 2081 "parsing/parser.mly" ( _1 ) -# 6140 "parsing/parser.ml" +# 6162 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6188,24 +6210,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2056 "parsing/parser.mly" +# 2078 "parsing/parser.mly" ( Pcl_constraint(_2, _4) ) -# 6194 "parsing/parser.ml" +# 6216 "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 -# 1077 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6203 "parsing/parser.ml" +# 6225 "parsing/parser.ml" in -# 2059 "parsing/parser.mly" +# 2081 "parsing/parser.mly" ( _1 ) -# 6209 "parsing/parser.ml" +# 6231 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6260,9 +6282,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2058 "parsing/parser.mly" +# 2080 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 6266 "parsing/parser.ml" +# 6288 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -6270,15 +6292,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1077 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6276 "parsing/parser.ml" +# 6298 "parsing/parser.ml" in -# 2059 "parsing/parser.mly" +# 2081 "parsing/parser.mly" ( _1 ) -# 6282 "parsing/parser.ml" +# 6304 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6335,44 +6357,44 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 6339 "parsing/parser.ml" +# 6361 "parsing/parser.ml" in -# 2086 "parsing/parser.mly" +# 2108 "parsing/parser.mly" ( _1 ) -# 6344 "parsing/parser.ml" +# 6366 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1018 "parsing/parser.mly" +# 1040 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 6353 "parsing/parser.ml" +# 6375 "parsing/parser.ml" in -# 2073 "parsing/parser.mly" +# 2095 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 6359 "parsing/parser.ml" +# 6381 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 6367 "parsing/parser.ml" +# 6389 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2061 "parsing/parser.mly" +# 2083 "parsing/parser.mly" ( mkclass ~loc:_sloc ~attrs:_2 (Pcl_structure _3) ) -# 6376 "parsing/parser.ml" +# 6398 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6395,9 +6417,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_type) = -# 2164 "parsing/parser.mly" +# 2186 "parsing/parser.mly" ( _1 ) -# 6401 "parsing/parser.ml" +# 6423 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6443,14 +6465,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 6449 "parsing/parser.ml" +# 6471 "parsing/parser.ml" in -# 2170 "parsing/parser.mly" +# 2192 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 6454 "parsing/parser.ml" +# 6476 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -6458,15 +6480,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1071 "parsing/parser.mly" +# 1093 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 6464 "parsing/parser.ml" +# 6486 "parsing/parser.ml" in -# 2171 "parsing/parser.mly" +# 2193 "parsing/parser.mly" ( _1 ) -# 6470 "parsing/parser.ml" +# 6492 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6513,9 +6535,9 @@ module Tables = struct let domain : (Parsetree.core_type) = Obj.magic domain in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 6519 "parsing/parser.ml" +# 6541 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -6523,14 +6545,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 6529 "parsing/parser.ml" +# 6551 "parsing/parser.ml" in -# 2170 "parsing/parser.mly" +# 2192 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 6534 "parsing/parser.ml" +# 6556 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -6538,15 +6560,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1071 "parsing/parser.mly" +# 1093 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 6544 "parsing/parser.ml" +# 6566 "parsing/parser.ml" in -# 2171 "parsing/parser.mly" +# 2193 "parsing/parser.mly" ( _1 ) -# 6550 "parsing/parser.ml" +# 6572 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6585,14 +6607,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 6591 "parsing/parser.ml" +# 6613 "parsing/parser.ml" in -# 2170 "parsing/parser.mly" +# 2192 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 6596 "parsing/parser.ml" +# 6618 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_domain_) in @@ -6600,15 +6622,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1071 "parsing/parser.mly" +# 1093 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 6606 "parsing/parser.ml" +# 6628 "parsing/parser.ml" in -# 2171 "parsing/parser.mly" +# 2193 "parsing/parser.mly" ( _1 ) -# 6612 "parsing/parser.ml" +# 6634 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6691,9 +6713,9 @@ module Tables = struct let csig : (Parsetree.class_type) = Obj.magic csig in let _8 : unit = Obj.magic _8 in let _1_inlined2 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 6697 "parsing/parser.ml" +# 6719 "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 @@ -6709,9 +6731,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 6715 "parsing/parser.ml" +# 6737 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -6721,24 +6743,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 6727 "parsing/parser.ml" +# 6749 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 6735 "parsing/parser.ml" +# 6757 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2309 "parsing/parser.mly" +# 2331 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -6746,19 +6768,19 @@ module Tables = struct ext, Ci.mk id csig ~virt ~params ~attrs ~loc ~docs ) -# 6750 "parsing/parser.ml" +# 6772 "parsing/parser.ml" in -# 1255 "parsing/parser.mly" +# 1277 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 6756 "parsing/parser.ml" +# 6778 "parsing/parser.ml" in -# 2297 "parsing/parser.mly" +# 2319 "parsing/parser.mly" ( _1 ) -# 6762 "parsing/parser.ml" +# 6784 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6781,9 +6803,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3996 "parsing/parser.mly" +# 4031 "parsing/parser.mly" ( _1 ) -# 6787 "parsing/parser.ml" +# 6809 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6816,18 +6838,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 6820 "parsing/parser.ml" +# 6842 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 6825 "parsing/parser.ml" +# 6847 "parsing/parser.ml" in -# 2601 "parsing/parser.mly" +# 2638 "parsing/parser.mly" ( Jane_syntax.Comprehensions.For _2 ) -# 6831 "parsing/parser.ml" +# 6853 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6857,9 +6879,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Jane_syntax.Comprehensions.clause) = -# 2603 "parsing/parser.mly" +# 2640 "parsing/parser.mly" ( Jane_syntax.Comprehensions.When _2 ) -# 6863 "parsing/parser.ml" +# 6885 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6896,14 +6918,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Jane_syntax.Comprehensions.clause_binding) = let _1 = -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 6902 "parsing/parser.ml" +# 6924 "parsing/parser.ml" in -# 2584 "parsing/parser.mly" +# 2621 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ pattern = _2 ; iterator = _3 ; attributes = _1 } ) -# 6907 "parsing/parser.ml" +# 6929 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6954,9 +6976,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Jane_syntax.Comprehensions.clause_binding) = let _1 = -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 6960 "parsing/parser.ml" +# 6982 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -6966,14 +6988,14 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 2591 "parsing/parser.mly" +# 2628 "parsing/parser.mly" ( Jane_syntax.Comprehensions. { pattern = _3 ; iterator = In (mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__2_) _5) ; attributes = _1 } ) -# 6977 "parsing/parser.ml" +# 6999 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7017,9 +7039,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Jane_syntax.Comprehensions.iterator) = -# 2577 "parsing/parser.mly" +# 2614 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Range { start = _2 ; stop = _4 ; direction = _3 } ) -# 7023 "parsing/parser.ml" +# 7045 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7049,9 +7071,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Jane_syntax.Comprehensions.iterator) = -# 2579 "parsing/parser.mly" +# 2616 "parsing/parser.mly" ( Jane_syntax.Comprehensions.In _2 ) -# 7055 "parsing/parser.ml" +# 7077 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7070,17 +7092,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 823 "parsing/parser.mly" +# 845 "parsing/parser.mly" (string * char option) -# 7076 "parsing/parser.ml" +# 7098 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3879 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( let (n, m) = _1 in Pconst_integer (n, m) ) -# 7084 "parsing/parser.ml" +# 7106 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7099,17 +7121,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 780 "parsing/parser.mly" +# 802 "parsing/parser.mly" (char) -# 7105 "parsing/parser.ml" +# 7127 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3880 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( Pconst_char _1 ) -# 7113 "parsing/parser.ml" +# 7135 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7128,17 +7150,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 878 "parsing/parser.mly" +# 900 "parsing/parser.mly" (string * Location.t * string option) -# 7134 "parsing/parser.ml" +# 7156 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3881 "parsing/parser.mly" +# 3916 "parsing/parser.mly" ( let (s, strloc, d) = _1 in Pconst_string (s, strloc, d) ) -# 7142 "parsing/parser.ml" +# 7164 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7157,17 +7179,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 801 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string * char option) -# 7163 "parsing/parser.ml" +# 7185 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3882 "parsing/parser.mly" +# 3917 "parsing/parser.mly" ( let (f, m) = _1 in Pconst_float (f, m) ) -# 7171 "parsing/parser.ml" +# 7193 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7197,9 +7219,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 3953 "parsing/parser.mly" +# 3988 "parsing/parser.mly" ( "[]" ) -# 7203 "parsing/parser.ml" +# 7225 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7229,9 +7251,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 3954 "parsing/parser.mly" +# 3989 "parsing/parser.mly" ( "()" ) -# 7235 "parsing/parser.ml" +# 7257 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7254,9 +7276,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3955 "parsing/parser.mly" +# 3990 "parsing/parser.mly" ( "false" ) -# 7260 "parsing/parser.ml" +# 7282 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7279,9 +7301,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3956 "parsing/parser.mly" +# 3991 "parsing/parser.mly" ( "true" ) -# 7285 "parsing/parser.ml" +# 7307 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7300,17 +7322,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 891 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 7306 "parsing/parser.ml" +# 7328 "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) = -# 3959 "parsing/parser.mly" +# 3994 "parsing/parser.mly" ( _1 ) -# 7314 "parsing/parser.ml" +# 7336 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7347,14 +7369,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = let _1 = -# 3950 "parsing/parser.mly" +# 3985 "parsing/parser.mly" ( "::" ) -# 7353 "parsing/parser.ml" +# 7375 "parsing/parser.ml" in -# 3960 "parsing/parser.mly" +# 3995 "parsing/parser.mly" ( _1 ) -# 7358 "parsing/parser.ml" +# 7380 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7377,9 +7399,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3961 "parsing/parser.mly" +# 3996 "parsing/parser.mly" ( _1 ) -# 7383 "parsing/parser.ml" +# 7405 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7402,9 +7424,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3964 "parsing/parser.mly" +# 3999 "parsing/parser.mly" ( _1 ) -# 7408 "parsing/parser.ml" +# 7430 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7455,14 +7477,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = let _3 = -# 3950 "parsing/parser.mly" +# 3985 "parsing/parser.mly" ( "::" ) -# 7461 "parsing/parser.ml" +# 7483 "parsing/parser.ml" in -# 3965 "parsing/parser.mly" +# 4000 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 7466 "parsing/parser.ml" +# 7488 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7499,14 +7521,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = let _1 = -# 3950 "parsing/parser.mly" +# 3985 "parsing/parser.mly" ( "::" ) -# 7505 "parsing/parser.ml" +# 7527 "parsing/parser.ml" in -# 3966 "parsing/parser.mly" +# 4001 "parsing/parser.mly" ( Lident _1 ) -# 7510 "parsing/parser.ml" +# 7532 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7529,9 +7551,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3967 "parsing/parser.mly" +# 4002 "parsing/parser.mly" ( Lident _1 ) -# 7535 "parsing/parser.ml" +# 7557 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7568,9 +7590,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type * Parsetree.core_type) = -# 2253 "parsing/parser.mly" +# 2275 "parsing/parser.mly" ( _1, _3 ) -# 7574 "parsing/parser.ml" +# 7596 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7597,42 +7619,42 @@ module Tables = struct let xs = let x = let gbl = -# 4084 "parsing/parser.mly" +# 4119 "parsing/parser.mly" ( Nothing ) -# 7603 "parsing/parser.ml" +# 7625 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7612 "parsing/parser.ml" +# 7634 "parsing/parser.ml" in -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 7618 "parsing/parser.ml" +# 7640 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7624 "parsing/parser.ml" +# 7646 "parsing/parser.ml" in -# 1162 "parsing/parser.mly" +# 1184 "parsing/parser.mly" ( xs ) -# 7630 "parsing/parser.ml" +# 7652 "parsing/parser.ml" in -# 3468 "parsing/parser.mly" +# 3503 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7636 "parsing/parser.ml" +# 7658 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7666,42 +7688,42 @@ module Tables = struct let xs = let x = let gbl = -# 4085 "parsing/parser.mly" +# 4120 "parsing/parser.mly" ( Global ) -# 7672 "parsing/parser.ml" +# 7694 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7681 "parsing/parser.ml" +# 7703 "parsing/parser.ml" in -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 7687 "parsing/parser.ml" +# 7709 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7693 "parsing/parser.ml" +# 7715 "parsing/parser.ml" in -# 1162 "parsing/parser.mly" +# 1184 "parsing/parser.mly" ( xs ) -# 7699 "parsing/parser.ml" +# 7721 "parsing/parser.ml" in -# 3468 "parsing/parser.mly" +# 3503 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7705 "parsing/parser.ml" +# 7727 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7735,42 +7757,42 @@ module Tables = struct let xs = let x = let gbl = -# 4086 "parsing/parser.mly" +# 4121 "parsing/parser.mly" ( Nonlocal ) -# 7741 "parsing/parser.ml" +# 7763 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7750 "parsing/parser.ml" +# 7772 "parsing/parser.ml" in -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 7756 "parsing/parser.ml" +# 7778 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7762 "parsing/parser.ml" +# 7784 "parsing/parser.ml" in -# 1162 "parsing/parser.mly" +# 1184 "parsing/parser.mly" ( xs ) -# 7768 "parsing/parser.ml" +# 7790 "parsing/parser.ml" in -# 3468 "parsing/parser.mly" +# 3503 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7774 "parsing/parser.ml" +# 7796 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7812,42 +7834,42 @@ module Tables = struct let x = let _endpos__0_ = _endpos__2_ in let gbl = -# 4084 "parsing/parser.mly" +# 4119 "parsing/parser.mly" ( Nothing ) -# 7818 "parsing/parser.ml" +# 7840 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7827 "parsing/parser.ml" +# 7849 "parsing/parser.ml" in -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 7833 "parsing/parser.ml" +# 7855 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7839 "parsing/parser.ml" +# 7861 "parsing/parser.ml" in -# 1162 "parsing/parser.mly" +# 1184 "parsing/parser.mly" ( xs ) -# 7845 "parsing/parser.ml" +# 7867 "parsing/parser.ml" in -# 3468 "parsing/parser.mly" +# 3503 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7851 "parsing/parser.ml" +# 7873 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7895,42 +7917,42 @@ module Tables = struct let xs = let x = let gbl = -# 4085 "parsing/parser.mly" +# 4120 "parsing/parser.mly" ( Global ) -# 7901 "parsing/parser.ml" +# 7923 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7910 "parsing/parser.ml" +# 7932 "parsing/parser.ml" in -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 7916 "parsing/parser.ml" +# 7938 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7922 "parsing/parser.ml" +# 7944 "parsing/parser.ml" in -# 1162 "parsing/parser.mly" +# 1184 "parsing/parser.mly" ( xs ) -# 7928 "parsing/parser.ml" +# 7950 "parsing/parser.ml" in -# 3468 "parsing/parser.mly" +# 3503 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7934 "parsing/parser.ml" +# 7956 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7978,42 +8000,42 @@ module Tables = struct let xs = let x = let gbl = -# 4086 "parsing/parser.mly" +# 4121 "parsing/parser.mly" ( Nonlocal ) -# 7984 "parsing/parser.ml" +# 8006 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7993 "parsing/parser.ml" +# 8015 "parsing/parser.ml" in -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 7999 "parsing/parser.ml" +# 8021 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 8005 "parsing/parser.ml" +# 8027 "parsing/parser.ml" in -# 1162 "parsing/parser.mly" +# 1184 "parsing/parser.mly" ( xs ) -# 8011 "parsing/parser.ml" +# 8033 "parsing/parser.ml" in -# 3468 "parsing/parser.mly" +# 3503 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 8017 "parsing/parser.ml" +# 8039 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8050,9 +8072,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.constructor_arguments) = -# 3470 "parsing/parser.mly" +# 3505 "parsing/parser.mly" ( Pcstr_record _2 ) -# 8056 "parsing/parser.ml" +# 8078 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8075,9 +8097,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constructor_declaration list) = -# 3378 "parsing/parser.mly" +# 3413 "parsing/parser.mly" ( [] ) -# 8081 "parsing/parser.ml" +# 8103 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8100,14 +8122,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.constructor_declaration list) = let cs = -# 1247 "parsing/parser.mly" +# 1269 "parsing/parser.mly" ( List.rev xs ) -# 8106 "parsing/parser.ml" +# 8128 "parsing/parser.ml" in -# 3380 "parsing/parser.mly" +# 3415 "parsing/parser.mly" ( cs ) -# 8111 "parsing/parser.ml" +# 8133 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8130,14 +8152,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = -# 3634 "parsing/parser.mly" +# 3669 "parsing/parser.mly" ( _1 ) -# 8136 "parsing/parser.ml" +# 8158 "parsing/parser.ml" in -# 3624 "parsing/parser.mly" +# 3659 "parsing/parser.mly" ( _1 ) -# 8141 "parsing/parser.ml" +# 8163 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8167,9 +8189,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = -# 3626 "parsing/parser.mly" +# 3661 "parsing/parser.mly" ( Typ.attr _1 _2 ) -# 8173 "parsing/parser.ml" +# 8195 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8192,9 +8214,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 4062 "parsing/parser.mly" +# 4097 "parsing/parser.mly" ( Upto ) -# 8198 "parsing/parser.ml" +# 8220 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8217,9 +8239,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 4063 "parsing/parser.mly" +# 4098 "parsing/parser.mly" ( Downto ) -# 8223 "parsing/parser.ml" +# 8245 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8242,9 +8264,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2447 "parsing/parser.mly" +# 2469 "parsing/parser.mly" ( _1 ) -# 8248 "parsing/parser.ml" +# 8270 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8322,9 +8344,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 8328 "parsing/parser.ml" +# 8350 "parsing/parser.ml" in let _3 = @@ -8332,21 +8354,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 8338 "parsing/parser.ml" +# 8360 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 8344 "parsing/parser.ml" +# 8366 "parsing/parser.ml" in -# 2482 "parsing/parser.mly" +# 2504 "parsing/parser.mly" ( Pexp_letmodule(_4, _5, _7), _3 ) -# 8350 "parsing/parser.ml" +# 8372 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8354,10 +8376,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8361 "parsing/parser.ml" +# 8383 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8442,9 +8464,9 @@ module Tables = struct let _3 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 8448 "parsing/parser.ml" +# 8470 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -8453,19 +8475,19 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 8459 "parsing/parser.ml" +# 8481 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3442 "parsing/parser.mly" +# 3477 "parsing/parser.mly" ( let vars, args, res = _2 in Te.decl _1 ~vars ~args ?res ~attrs:_3 ~loc:(make_loc _sloc) ) -# 8469 "parsing/parser.ml" +# 8491 "parsing/parser.ml" in let _3 = @@ -8473,21 +8495,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 8479 "parsing/parser.ml" +# 8501 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 8485 "parsing/parser.ml" +# 8507 "parsing/parser.ml" in -# 2484 "parsing/parser.mly" +# 2506 "parsing/parser.mly" ( Pexp_letexception(_4, _6), _3 ) -# 8491 "parsing/parser.ml" +# 8513 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -8495,10 +8517,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8502 "parsing/parser.ml" +# 8524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8568,28 +8590,28 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 8574 "parsing/parser.ml" +# 8596 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 8580 "parsing/parser.ml" +# 8602 "parsing/parser.ml" in let _3 = -# 4128 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Fresh ) -# 8586 "parsing/parser.ml" +# 8608 "parsing/parser.ml" in -# 2486 "parsing/parser.mly" +# 2508 "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 ) -# 8593 "parsing/parser.ml" +# 8615 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8597,10 +8619,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8604 "parsing/parser.ml" +# 8626 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8677,28 +8699,28 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 8683 "parsing/parser.ml" +# 8705 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 8689 "parsing/parser.ml" +# 8711 "parsing/parser.ml" in let _3 = -# 4129 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Override ) -# 8695 "parsing/parser.ml" +# 8717 "parsing/parser.ml" in -# 2486 "parsing/parser.mly" +# 2508 "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 ) -# 8702 "parsing/parser.ml" +# 8724 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8706,10 +8728,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8713 "parsing/parser.ml" +# 8735 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8758,18 +8780,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 8762 "parsing/parser.ml" +# 8784 "parsing/parser.ml" in -# 1219 "parsing/parser.mly" +# 1241 "parsing/parser.mly" ( xs ) -# 8767 "parsing/parser.ml" +# 8789 "parsing/parser.ml" in -# 2906 "parsing/parser.mly" +# 2939 "parsing/parser.mly" ( xs ) -# 8773 "parsing/parser.ml" +# 8795 "parsing/parser.ml" in let _2 = @@ -8777,21 +8799,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 8783 "parsing/parser.ml" +# 8805 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 8789 "parsing/parser.ml" +# 8811 "parsing/parser.ml" in -# 2490 "parsing/parser.mly" +# 2512 "parsing/parser.mly" ( Pexp_function _3, _2 ) -# 8795 "parsing/parser.ml" +# 8817 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -8799,10 +8821,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8806 "parsing/parser.ml" +# 8828 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8858,22 +8880,22 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 8864 "parsing/parser.ml" +# 8886 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 8870 "parsing/parser.ml" +# 8892 "parsing/parser.ml" in -# 2492 "parsing/parser.mly" +# 2514 "parsing/parser.mly" ( let (l,o,p) = _3 in Pexp_fun(l, o, p, _4), _2 ) -# 8877 "parsing/parser.ml" +# 8899 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -8881,10 +8903,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8888 "parsing/parser.ml" +# 8910 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8957,33 +8979,33 @@ module Tables = struct let _endpos = _endpos__7_ in let _v : (Parsetree.expression) = let _1 = let _5 = -# 2760 "parsing/parser.mly" +# 2793 "parsing/parser.mly" ( xs ) -# 8963 "parsing/parser.ml" +# 8985 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 8972 "parsing/parser.ml" +# 8994 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 8978 "parsing/parser.ml" +# 9000 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2495 "parsing/parser.mly" +# 2517 "parsing/parser.mly" ( (mk_newtypes ~loc:_sloc _5 _7).pexp_desc, _2 ) -# 8987 "parsing/parser.ml" +# 9009 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8991,10 +9013,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8998 "parsing/parser.ml" +# 9020 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9057,18 +9079,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9061 "parsing/parser.ml" +# 9083 "parsing/parser.ml" in -# 1219 "parsing/parser.mly" +# 1241 "parsing/parser.mly" ( xs ) -# 9066 "parsing/parser.ml" +# 9088 "parsing/parser.ml" in -# 2906 "parsing/parser.mly" +# 2939 "parsing/parser.mly" ( xs ) -# 9072 "parsing/parser.ml" +# 9094 "parsing/parser.ml" in let _2 = @@ -9076,21 +9098,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 9082 "parsing/parser.ml" +# 9104 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 9088 "parsing/parser.ml" +# 9110 "parsing/parser.ml" in -# 2497 "parsing/parser.mly" +# 2519 "parsing/parser.mly" ( Pexp_match(_3, _5), _2 ) -# 9094 "parsing/parser.ml" +# 9116 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9098,10 +9120,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9105 "parsing/parser.ml" +# 9127 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9164,18 +9186,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9168 "parsing/parser.ml" +# 9190 "parsing/parser.ml" in -# 1219 "parsing/parser.mly" +# 1241 "parsing/parser.mly" ( xs ) -# 9173 "parsing/parser.ml" +# 9195 "parsing/parser.ml" in -# 2906 "parsing/parser.mly" +# 2939 "parsing/parser.mly" ( xs ) -# 9179 "parsing/parser.ml" +# 9201 "parsing/parser.ml" in let _2 = @@ -9183,21 +9205,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 9189 "parsing/parser.ml" +# 9211 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 9195 "parsing/parser.ml" +# 9217 "parsing/parser.ml" in -# 2499 "parsing/parser.mly" +# 2521 "parsing/parser.mly" ( Pexp_try(_3, _5), _2 ) -# 9201 "parsing/parser.ml" +# 9223 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9205,10 +9227,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9212 "parsing/parser.ml" +# 9234 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9271,21 +9293,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 9277 "parsing/parser.ml" +# 9299 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 9283 "parsing/parser.ml" +# 9305 "parsing/parser.ml" in -# 2501 "parsing/parser.mly" +# 2523 "parsing/parser.mly" ( syntax_error() ) -# 9289 "parsing/parser.ml" +# 9311 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -9293,10 +9315,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9300 "parsing/parser.ml" +# 9322 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9373,21 +9395,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 9379 "parsing/parser.ml" +# 9401 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 9385 "parsing/parser.ml" +# 9407 "parsing/parser.ml" in -# 2503 "parsing/parser.mly" +# 2525 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, Some _7), _2 ) -# 9391 "parsing/parser.ml" +# 9413 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -9395,10 +9417,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9402 "parsing/parser.ml" +# 9424 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9461,21 +9483,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 9467 "parsing/parser.ml" +# 9489 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 9473 "parsing/parser.ml" +# 9495 "parsing/parser.ml" in -# 2505 "parsing/parser.mly" +# 2527 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, None), _2 ) -# 9479 "parsing/parser.ml" +# 9501 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -9483,10 +9505,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9490 "parsing/parser.ml" +# 9512 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9556,21 +9578,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 9562 "parsing/parser.ml" +# 9584 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 9568 "parsing/parser.ml" +# 9590 "parsing/parser.ml" in -# 2507 "parsing/parser.mly" +# 2529 "parsing/parser.mly" ( Pexp_while(_3, _5), _2 ) -# 9574 "parsing/parser.ml" +# 9596 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -9578,10 +9600,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9585 "parsing/parser.ml" +# 9607 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9679,21 +9701,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 9685 "parsing/parser.ml" +# 9707 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 9691 "parsing/parser.ml" +# 9713 "parsing/parser.ml" in -# 2510 "parsing/parser.mly" +# 2532 "parsing/parser.mly" ( Pexp_for(_3, _5, _7, _6, _9), _2 ) -# 9697 "parsing/parser.ml" +# 9719 "parsing/parser.ml" in let _endpos__1_ = _endpos__10_ in @@ -9701,10 +9723,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9708 "parsing/parser.ml" +# 9730 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9753,21 +9775,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 9759 "parsing/parser.ml" +# 9781 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 9765 "parsing/parser.ml" +# 9787 "parsing/parser.ml" in -# 2512 "parsing/parser.mly" +# 2534 "parsing/parser.mly" ( Pexp_assert _3, _2 ) -# 9771 "parsing/parser.ml" +# 9793 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -9775,10 +9797,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9782 "parsing/parser.ml" +# 9804 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9827,21 +9849,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 9833 "parsing/parser.ml" +# 9855 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 9839 "parsing/parser.ml" +# 9861 "parsing/parser.ml" in -# 2514 "parsing/parser.mly" +# 2536 "parsing/parser.mly" ( Pexp_lazy _3, _2 ) -# 9845 "parsing/parser.ml" +# 9867 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -9849,10 +9871,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2449 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9856 "parsing/parser.ml" +# 9878 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9887,18 +9909,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9891 "parsing/parser.ml" +# 9913 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 9896 "parsing/parser.ml" +# 9918 "parsing/parser.ml" in -# 2518 "parsing/parser.mly" +# 2540 "parsing/parser.mly" ( Pexp_apply(_1, _2) ) -# 9902 "parsing/parser.ml" +# 9924 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9906,15 +9928,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 9912 "parsing/parser.ml" +# 9934 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 9918 "parsing/parser.ml" +# 9940 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9943,24 +9965,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9947 "parsing/parser.ml" +# 9969 "parsing/parser.ml" in -# 1186 "parsing/parser.mly" +# 1208 "parsing/parser.mly" ( xs ) -# 9952 "parsing/parser.ml" +# 9974 "parsing/parser.ml" in -# 2933 "parsing/parser.mly" +# 2966 "parsing/parser.mly" ( es ) -# 9958 "parsing/parser.ml" +# 9980 "parsing/parser.ml" in -# 2520 "parsing/parser.mly" +# 2542 "parsing/parser.mly" ( Pexp_tuple(_1) ) -# 9964 "parsing/parser.ml" +# 9986 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in @@ -9968,15 +9990,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 9974 "parsing/parser.ml" +# 9996 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 9980 "parsing/parser.ml" +# 10002 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10012,15 +10034,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 10018 "parsing/parser.ml" +# 10040 "parsing/parser.ml" in -# 2522 "parsing/parser.mly" +# 2544 "parsing/parser.mly" ( Pexp_construct(_1, Some _2) ) -# 10024 "parsing/parser.ml" +# 10046 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -10028,15 +10050,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10034 "parsing/parser.ml" +# 10056 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10040 "parsing/parser.ml" +# 10062 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10067,24 +10089,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2524 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( Pexp_variant(_1, Some _2) ) -# 10073 "parsing/parser.ml" +# 10095 "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 -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10082 "parsing/parser.ml" +# 10104 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10088 "parsing/parser.ml" +# 10110 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10116,9 +10138,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 813 "parsing/parser.mly" +# 835 "parsing/parser.mly" (string) -# 10122 "parsing/parser.ml" +# 10144 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10128,24 +10150,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3923 "parsing/parser.mly" +# 3958 "parsing/parser.mly" ( op ) -# 10134 "parsing/parser.ml" +# 10156 "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 -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10143 "parsing/parser.ml" +# 10165 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10149 "parsing/parser.ml" +# 10171 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10153,15 +10175,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10159 "parsing/parser.ml" +# 10181 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10165 "parsing/parser.ml" +# 10187 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10193,9 +10215,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 814 "parsing/parser.mly" +# 836 "parsing/parser.mly" (string) -# 10199 "parsing/parser.ml" +# 10221 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10205,24 +10227,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3924 "parsing/parser.mly" +# 3959 "parsing/parser.mly" ( op ) -# 10211 "parsing/parser.ml" +# 10233 "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 -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10220 "parsing/parser.ml" +# 10242 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10226 "parsing/parser.ml" +# 10248 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10230,15 +10252,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10236 "parsing/parser.ml" +# 10258 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10242 "parsing/parser.ml" +# 10264 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10270,9 +10292,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 815 "parsing/parser.mly" +# 837 "parsing/parser.mly" (string) -# 10276 "parsing/parser.ml" +# 10298 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10282,24 +10304,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3925 "parsing/parser.mly" +# 3960 "parsing/parser.mly" ( op ) -# 10288 "parsing/parser.ml" +# 10310 "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 -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10297 "parsing/parser.ml" +# 10319 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10303 "parsing/parser.ml" +# 10325 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10307,15 +10329,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10313 "parsing/parser.ml" +# 10335 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10319 "parsing/parser.ml" +# 10341 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10347,9 +10369,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 816 "parsing/parser.mly" +# 838 "parsing/parser.mly" (string) -# 10353 "parsing/parser.ml" +# 10375 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10359,24 +10381,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3926 "parsing/parser.mly" +# 3961 "parsing/parser.mly" ( op ) -# 10365 "parsing/parser.ml" +# 10387 "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 -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10374 "parsing/parser.ml" +# 10396 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10380 "parsing/parser.ml" +# 10402 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10384,15 +10406,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10390 "parsing/parser.ml" +# 10412 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10396 "parsing/parser.ml" +# 10418 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10424,9 +10446,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 817 "parsing/parser.mly" +# 839 "parsing/parser.mly" (string) -# 10430 "parsing/parser.ml" +# 10452 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10436,24 +10458,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3927 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( op ) -# 10442 "parsing/parser.ml" +# 10464 "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 -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10451 "parsing/parser.ml" +# 10473 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10457 "parsing/parser.ml" +# 10479 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10461,15 +10483,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10467 "parsing/parser.ml" +# 10489 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10473 "parsing/parser.ml" +# 10495 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10509,23 +10531,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3928 "parsing/parser.mly" +# 3963 "parsing/parser.mly" ("+") -# 10515 "parsing/parser.ml" +# 10537 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10523 "parsing/parser.ml" +# 10545 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10529 "parsing/parser.ml" +# 10551 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10533,15 +10555,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10539 "parsing/parser.ml" +# 10561 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10545 "parsing/parser.ml" +# 10567 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10581,23 +10603,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3929 "parsing/parser.mly" +# 3964 "parsing/parser.mly" ("+.") -# 10587 "parsing/parser.ml" +# 10609 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10595 "parsing/parser.ml" +# 10617 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10601 "parsing/parser.ml" +# 10623 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10605,15 +10627,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10611 "parsing/parser.ml" +# 10633 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10617 "parsing/parser.ml" +# 10639 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10653,23 +10675,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3930 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ("+=") -# 10659 "parsing/parser.ml" +# 10681 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10667 "parsing/parser.ml" +# 10689 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10673 "parsing/parser.ml" +# 10695 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10677,15 +10699,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10683 "parsing/parser.ml" +# 10705 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10689 "parsing/parser.ml" +# 10711 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10725,23 +10747,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3931 "parsing/parser.mly" +# 3966 "parsing/parser.mly" ("-") -# 10731 "parsing/parser.ml" +# 10753 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10739 "parsing/parser.ml" +# 10761 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10745 "parsing/parser.ml" +# 10767 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10749,15 +10771,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10755 "parsing/parser.ml" +# 10777 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10761 "parsing/parser.ml" +# 10783 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10797,23 +10819,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3932 "parsing/parser.mly" +# 3967 "parsing/parser.mly" ("-.") -# 10803 "parsing/parser.ml" +# 10825 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10811 "parsing/parser.ml" +# 10833 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10817 "parsing/parser.ml" +# 10839 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10821,15 +10843,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10827 "parsing/parser.ml" +# 10849 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10833 "parsing/parser.ml" +# 10855 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10869,23 +10891,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3933 "parsing/parser.mly" +# 3968 "parsing/parser.mly" ("*") -# 10875 "parsing/parser.ml" +# 10897 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10883 "parsing/parser.ml" +# 10905 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10889 "parsing/parser.ml" +# 10911 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10893,15 +10915,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10899 "parsing/parser.ml" +# 10921 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10905 "parsing/parser.ml" +# 10927 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10941,23 +10963,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3934 "parsing/parser.mly" +# 3969 "parsing/parser.mly" ("%") -# 10947 "parsing/parser.ml" +# 10969 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10955 "parsing/parser.ml" +# 10977 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10961 "parsing/parser.ml" +# 10983 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10965,15 +10987,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10971 "parsing/parser.ml" +# 10993 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 10977 "parsing/parser.ml" +# 10999 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11013,23 +11035,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3935 "parsing/parser.mly" +# 3970 "parsing/parser.mly" ("=") -# 11019 "parsing/parser.ml" +# 11041 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11027 "parsing/parser.ml" +# 11049 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11033 "parsing/parser.ml" +# 11055 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11037,15 +11059,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11043 "parsing/parser.ml" +# 11065 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 11049 "parsing/parser.ml" +# 11071 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11085,23 +11107,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3936 "parsing/parser.mly" +# 3971 "parsing/parser.mly" ("<") -# 11091 "parsing/parser.ml" +# 11113 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11099 "parsing/parser.ml" +# 11121 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11105 "parsing/parser.ml" +# 11127 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11109,15 +11131,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11115 "parsing/parser.ml" +# 11137 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 11121 "parsing/parser.ml" +# 11143 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11157,23 +11179,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3937 "parsing/parser.mly" +# 3972 "parsing/parser.mly" (">") -# 11163 "parsing/parser.ml" +# 11185 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11171 "parsing/parser.ml" +# 11193 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11177 "parsing/parser.ml" +# 11199 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11181,15 +11203,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11187 "parsing/parser.ml" +# 11209 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 11193 "parsing/parser.ml" +# 11215 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11229,23 +11251,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3938 "parsing/parser.mly" +# 3973 "parsing/parser.mly" ("or") -# 11235 "parsing/parser.ml" +# 11257 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11243 "parsing/parser.ml" +# 11265 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11249 "parsing/parser.ml" +# 11271 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11253,15 +11275,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11259 "parsing/parser.ml" +# 11281 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 11265 "parsing/parser.ml" +# 11287 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11301,95 +11323,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3939 "parsing/parser.mly" +# 3974 "parsing/parser.mly" ("||") -# 11307 "parsing/parser.ml" +# 11329 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11315 "parsing/parser.ml" - - in - -# 2526 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11321 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11331 "parsing/parser.ml" - - in - -# 2452 "parsing/parser.mly" - ( _1 ) # 11337 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = e2; - MenhirLib.EngineTypes.startp = _startpos_e2_; - MenhirLib.EngineTypes.endp = _endpos_e2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = e1; - MenhirLib.EngineTypes.startp = _startpos_e1_; - MenhirLib.EngineTypes.endp = _endpos_e1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - } = _menhir_stack in - let e2 : (Parsetree.expression) = Obj.magic e2 in - let _1 : unit = Obj.magic _1 in - let e1 : (Parsetree.expression) = Obj.magic e1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos_e1_ in - let _endpos = _endpos_e2_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = - let op = - let _1 = -# 3940 "parsing/parser.mly" - ("&") -# 11379 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1051 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11387 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11393 "parsing/parser.ml" +# 11343 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11397,15 +11347,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11403 "parsing/parser.ml" +# 11353 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 11409 "parsing/parser.ml" +# 11359 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11445,23 +11395,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3941 "parsing/parser.mly" - ("&&") -# 11451 "parsing/parser.ml" +# 3975 "parsing/parser.mly" + ("&") +# 11401 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11459 "parsing/parser.ml" +# 11409 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11465 "parsing/parser.ml" +# 11415 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11469,15 +11419,87 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11475 "parsing/parser.ml" +# 11425 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) +# 11431 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = e2; + MenhirLib.EngineTypes.startp = _startpos_e2_; + MenhirLib.EngineTypes.endp = _endpos_e2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = e1; + MenhirLib.EngineTypes.startp = _startpos_e1_; + MenhirLib.EngineTypes.endp = _endpos_e1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + } = _menhir_stack in + let e2 : (Parsetree.expression) = Obj.magic e2 in + let _1 : unit = Obj.magic _1 in + let e1 : (Parsetree.expression) = Obj.magic e1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos_e1_ in + let _endpos = _endpos_e2_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let op = + let _1 = +# 3976 "parsing/parser.mly" + ("&&") +# 11473 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1073 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) # 11481 "parsing/parser.ml" + + in + +# 2548 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11487 "parsing/parser.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1079 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11497 "parsing/parser.ml" + + in + +# 2474 "parsing/parser.mly" + ( _1 ) +# 11503 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11517,23 +11539,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3942 "parsing/parser.mly" +# 3977 "parsing/parser.mly" (":=") -# 11523 "parsing/parser.ml" +# 11545 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11531 "parsing/parser.ml" +# 11553 "parsing/parser.ml" in -# 2526 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11537 "parsing/parser.ml" +# 11559 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11541,15 +11563,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11547 "parsing/parser.ml" +# 11569 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 11553 "parsing/parser.ml" +# 11575 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11582,9 +11604,9 @@ module Tables = struct let _1 = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2528 "parsing/parser.mly" +# 2550 "parsing/parser.mly" ( mkuminus ~oploc:_loc__1_ _1 _2 ) -# 11588 "parsing/parser.ml" +# 11610 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -11592,15 +11614,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11598 "parsing/parser.ml" +# 11620 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 11604 "parsing/parser.ml" +# 11626 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11633,9 +11655,9 @@ module Tables = struct let _1 = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2530 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( mkuplus ~oploc:_loc__1_ _1 _2 ) -# 11639 "parsing/parser.ml" +# 11661 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -11643,15 +11665,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11649 "parsing/parser.ml" +# 11671 "parsing/parser.ml" in -# 2452 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( _1 ) -# 11655 "parsing/parser.ml" +# 11677 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11691,9 +11713,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2454 "parsing/parser.mly" +# 2476 "parsing/parser.mly" ( expr_of_let_bindings ~loc:_sloc _1 _3 ) -# 11697 "parsing/parser.ml" +# 11719 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11733,9 +11755,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 : ( -# 819 "parsing/parser.mly" +# 841 "parsing/parser.mly" (string) -# 11739 "parsing/parser.ml" +# 11761 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -11745,9 +11767,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 11751 "parsing/parser.ml" +# 11773 "parsing/parser.ml" in let _startpos_pbop_op_ = _startpos__1_ in @@ -11755,13 +11777,13 @@ module Tables = struct let _symbolstartpos = _startpos_pbop_op_ in let _sloc = (_symbolstartpos, _endpos) in -# 2456 "parsing/parser.mly" +# 2478 "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}) ) -# 11765 "parsing/parser.ml" +# 11787 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11802,9 +11824,9 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 2462 "parsing/parser.mly" +# 2484 "parsing/parser.mly" ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[_1;_3])) ) -# 11808 "parsing/parser.ml" +# 11830 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11837,35 +11859,35 @@ module Tables = struct let _3 : (Parsetree.expression) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 11843 "parsing/parser.ml" +# 11865 "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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 11852 "parsing/parser.ml" +# 11874 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 11860 "parsing/parser.ml" +# 11882 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2464 "parsing/parser.mly" +# 2486 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) ) -# 11869 "parsing/parser.ml" +# 11891 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11921,18 +11943,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 11927 "parsing/parser.ml" +# 11949 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2466 "parsing/parser.mly" +# 2488 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) ) -# 11936 "parsing/parser.ml" +# 11958 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11998,14 +12020,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2467 "parsing/parser.mly" +# 2489 "parsing/parser.mly" (Some v) -# 12004 "parsing/parser.ml" +# 12026 "parsing/parser.ml" in -# 2427 "parsing/parser.mly" +# 2449 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12009 "parsing/parser.ml" +# 12031 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12013,9 +12035,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2468 "parsing/parser.mly" +# 2490 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12019 "parsing/parser.ml" +# 12041 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12081,14 +12103,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2467 "parsing/parser.mly" +# 2489 "parsing/parser.mly" (Some v) -# 12087 "parsing/parser.ml" +# 12109 "parsing/parser.ml" in -# 2429 "parsing/parser.mly" +# 2451 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12092 "parsing/parser.ml" +# 12114 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12096,9 +12118,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2468 "parsing/parser.mly" +# 2490 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12102 "parsing/parser.ml" +# 12124 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12164,14 +12186,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2467 "parsing/parser.mly" +# 2489 "parsing/parser.mly" (Some v) -# 12170 "parsing/parser.ml" +# 12192 "parsing/parser.ml" in -# 2431 "parsing/parser.mly" +# 2453 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 12175 "parsing/parser.ml" +# 12197 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12179,9 +12201,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2468 "parsing/parser.mly" +# 2490 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12185 "parsing/parser.ml" +# 12207 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12241,9 +12263,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 12247 "parsing/parser.ml" +# 12269 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -12251,31 +12273,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2469 "parsing/parser.mly" +# 2491 "parsing/parser.mly" (Some v) -# 12257 "parsing/parser.ml" +# 12279 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 12262 "parsing/parser.ml" +# 12284 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 12268 "parsing/parser.ml" +# 12290 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 12273 "parsing/parser.ml" +# 12295 "parsing/parser.ml" in -# 2427 "parsing/parser.mly" +# 2449 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12279 "parsing/parser.ml" +# 12301 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12283,9 +12305,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2470 "parsing/parser.mly" +# 2492 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12289 "parsing/parser.ml" +# 12311 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12357,9 +12379,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 12363 "parsing/parser.ml" +# 12385 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12369,39 +12391,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2469 "parsing/parser.mly" +# 2491 "parsing/parser.mly" (Some v) -# 12375 "parsing/parser.ml" +# 12397 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 12380 "parsing/parser.ml" +# 12402 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" (_2) -# 12388 "parsing/parser.ml" +# 12410 "parsing/parser.ml" in # 126 "" ( Some x ) -# 12393 "parsing/parser.ml" +# 12415 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 12399 "parsing/parser.ml" +# 12421 "parsing/parser.ml" in -# 2427 "parsing/parser.mly" +# 2449 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12405 "parsing/parser.ml" +# 12427 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12409,9 +12431,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2470 "parsing/parser.mly" +# 2492 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12415 "parsing/parser.ml" +# 12437 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12471,9 +12493,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 12477 "parsing/parser.ml" +# 12499 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -12481,31 +12503,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2469 "parsing/parser.mly" +# 2491 "parsing/parser.mly" (Some v) -# 12487 "parsing/parser.ml" +# 12509 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 12492 "parsing/parser.ml" +# 12514 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 12498 "parsing/parser.ml" +# 12520 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 12503 "parsing/parser.ml" +# 12525 "parsing/parser.ml" in -# 2429 "parsing/parser.mly" +# 2451 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12509 "parsing/parser.ml" +# 12531 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12513,9 +12535,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2470 "parsing/parser.mly" +# 2492 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12519 "parsing/parser.ml" +# 12541 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12587,9 +12609,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 12593 "parsing/parser.ml" +# 12615 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12599,39 +12621,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2469 "parsing/parser.mly" +# 2491 "parsing/parser.mly" (Some v) -# 12605 "parsing/parser.ml" +# 12627 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 12610 "parsing/parser.ml" +# 12632 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" (_2) -# 12618 "parsing/parser.ml" +# 12640 "parsing/parser.ml" in # 126 "" ( Some x ) -# 12623 "parsing/parser.ml" +# 12645 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 12629 "parsing/parser.ml" +# 12651 "parsing/parser.ml" in -# 2429 "parsing/parser.mly" +# 2451 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12635 "parsing/parser.ml" +# 12657 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12639,9 +12661,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2470 "parsing/parser.mly" +# 2492 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12645 "parsing/parser.ml" +# 12667 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12701,9 +12723,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 12707 "parsing/parser.ml" +# 12729 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -12711,31 +12733,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2469 "parsing/parser.mly" +# 2491 "parsing/parser.mly" (Some v) -# 12717 "parsing/parser.ml" +# 12739 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 12722 "parsing/parser.ml" +# 12744 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 12728 "parsing/parser.ml" +# 12750 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 12733 "parsing/parser.ml" +# 12755 "parsing/parser.ml" in -# 2431 "parsing/parser.mly" +# 2453 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 12739 "parsing/parser.ml" +# 12761 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12743,9 +12765,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2470 "parsing/parser.mly" +# 2492 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12749 "parsing/parser.ml" +# 12771 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12817,9 +12839,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 12823 "parsing/parser.ml" +# 12845 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12829,39 +12851,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2469 "parsing/parser.mly" +# 2491 "parsing/parser.mly" (Some v) -# 12835 "parsing/parser.ml" +# 12857 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 12840 "parsing/parser.ml" +# 12862 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" (_2) -# 12848 "parsing/parser.ml" +# 12870 "parsing/parser.ml" in # 126 "" ( Some x ) -# 12853 "parsing/parser.ml" +# 12875 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 12859 "parsing/parser.ml" +# 12881 "parsing/parser.ml" in -# 2431 "parsing/parser.mly" +# 2453 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 12865 "parsing/parser.ml" +# 12887 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12869,9 +12891,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2470 "parsing/parser.mly" +# 2492 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12875 "parsing/parser.ml" +# 12897 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12901,9 +12923,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2472 "parsing/parser.mly" +# 2494 "parsing/parser.mly" ( Exp.attr _1 _2 ) -# 12907 "parsing/parser.ml" +# 12929 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12927,9 +12949,9 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2475 "parsing/parser.mly" +# 2497 "parsing/parser.mly" ( not_expecting _loc__1_ "wildcard \"_\"" ) -# 12933 "parsing/parser.ml" +# 12955 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12963,9 +12985,9 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2478 "parsing/parser.mly" +# 2500 "parsing/parser.mly" ( mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__1_) _2 ) -# 12969 "parsing/parser.ml" +# 12991 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12981,9 +13003,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string Asttypes.loc option) = -# 4231 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( None ) -# 12987 "parsing/parser.ml" +# 13009 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13013,9 +13035,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string Asttypes.loc option) = -# 4232 "parsing/parser.mly" +# 4267 "parsing/parser.mly" ( Some _2 ) -# 13019 "parsing/parser.ml" +# 13041 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13059,9 +13081,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 4244 "parsing/parser.mly" +# 4279 "parsing/parser.mly" ( (_2, _3) ) -# 13065 "parsing/parser.ml" +# 13087 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13080,9 +13102,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 880 "parsing/parser.mly" +# 902 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 13086 "parsing/parser.ml" +# 13108 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -13091,9 +13113,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4246 "parsing/parser.mly" +# 4281 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 13097 "parsing/parser.ml" +# 13119 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13146,9 +13168,9 @@ module Tables = struct let _v : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined3 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 13152 "parsing/parser.ml" +# 13174 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined3_ in @@ -13158,9 +13180,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13164 "parsing/parser.ml" +# 13186 "parsing/parser.ml" in let cid = @@ -13169,19 +13191,19 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13175 "parsing/parser.ml" +# 13197 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3544 "parsing/parser.mly" +# 3579 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 13185 "parsing/parser.ml" +# 13207 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13227,9 +13249,9 @@ module Tables = struct let _v : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined2 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 13233 "parsing/parser.ml" +# 13255 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined2_ in @@ -13239,9 +13261,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13245 "parsing/parser.ml" +# 13267 "parsing/parser.ml" in let cid = @@ -13249,25 +13271,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13255 "parsing/parser.ml" +# 13277 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = -# 4036 "parsing/parser.mly" +# 4071 "parsing/parser.mly" ( () ) -# 13262 "parsing/parser.ml" +# 13284 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in -# 3544 "parsing/parser.mly" +# 3579 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 13271 "parsing/parser.ml" +# 13293 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13314,10 +13336,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4219 "parsing/parser.mly" +# 4254 "parsing/parser.mly" ( mark_symbol_docs _sloc; mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 13321 "parsing/parser.ml" +# 13343 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13333,14 +13355,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 = -# 2193 "parsing/parser.mly" +# 2215 "parsing/parser.mly" ( [] ) -# 13339 "parsing/parser.ml" +# 13361 "parsing/parser.ml" in -# 2018 "parsing/parser.mly" +# 2040 "parsing/parser.mly" ( params ) -# 13344 "parsing/parser.ml" +# 13366 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13381,24 +13403,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 13385 "parsing/parser.ml" +# 13407 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 13390 "parsing/parser.ml" +# 13412 "parsing/parser.ml" in -# 2195 "parsing/parser.mly" +# 2217 "parsing/parser.mly" ( params ) -# 13396 "parsing/parser.ml" +# 13418 "parsing/parser.ml" in -# 2018 "parsing/parser.mly" +# 2040 "parsing/parser.mly" ( params ) -# 13402 "parsing/parser.ml" +# 13424 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13421,9 +13443,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2878 "parsing/parser.mly" +# 2911 "parsing/parser.mly" ( _1 ) -# 13427 "parsing/parser.ml" +# 13449 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13463,9 +13485,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2880 "parsing/parser.mly" +# 2913 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _3 _1 ) -# 13469 "parsing/parser.ml" +# 13491 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13495,9 +13517,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2918 "parsing/parser.mly" +# 2951 "parsing/parser.mly" ( _2 ) -# 13501 "parsing/parser.ml" +# 13523 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13542,24 +13564,24 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2920 "parsing/parser.mly" +# 2953 "parsing/parser.mly" ( Pexp_constraint (_4, _2) ) -# 13548 "parsing/parser.ml" +# 13570 "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 -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 13557 "parsing/parser.ml" +# 13579 "parsing/parser.ml" in -# 2921 "parsing/parser.mly" +# 2954 "parsing/parser.mly" ( _1 ) -# 13563 "parsing/parser.ml" +# 13585 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13592,12 +13614,12 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2924 "parsing/parser.mly" +# 2957 "parsing/parser.mly" ( let (l,o,p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 13601 "parsing/parser.ml" +# 13623 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13648,17 +13670,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2760 "parsing/parser.mly" +# 2793 "parsing/parser.mly" ( xs ) -# 13654 "parsing/parser.ml" +# 13676 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2929 "parsing/parser.mly" +# 2962 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 13662 "parsing/parser.ml" +# 13684 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13681,9 +13703,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3660 "parsing/parser.mly" +# 3695 "parsing/parser.mly" ( ty ) -# 13687 "parsing/parser.ml" +# 13709 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13706,9 +13728,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3662 "parsing/parser.mly" +# 3697 "parsing/parser.mly" ( ty ) -# 13712 "parsing/parser.ml" +# 13734 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13739,9 +13761,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Lexing.position * Parsetree.functor_parameter) = let _startpos = _startpos__1_ in -# 1412 "parsing/parser.mly" +# 1434 "parsing/parser.mly" ( _startpos, Unit ) -# 13745 "parsing/parser.ml" +# 13767 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13797,16 +13819,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13803 "parsing/parser.ml" +# 13825 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1415 "parsing/parser.mly" +# 1437 "parsing/parser.mly" ( _startpos, Named (x, mty) ) -# 13810 "parsing/parser.ml" +# 13832 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13823,9 +13845,9 @@ module Tables = struct let _endpos = _startpos in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3446 "parsing/parser.mly" +# 3481 "parsing/parser.mly" ( ([],Pcstr_tuple [],None) ) -# 13829 "parsing/parser.ml" +# 13851 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13856,9 +13878,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3447 "parsing/parser.mly" +# 3482 "parsing/parser.mly" ( ([],_2,None) ) -# 13862 "parsing/parser.ml" +# 13884 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13903,9 +13925,9 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3449 "parsing/parser.mly" +# 3484 "parsing/parser.mly" ( ([],_2,Some _4) ) -# 13909 "parsing/parser.ml" +# 13931 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13968,24 +13990,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 13972 "parsing/parser.ml" +# 13994 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 13977 "parsing/parser.ml" +# 13999 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 13983 "parsing/parser.ml" +# 14005 "parsing/parser.ml" in -# 3452 "parsing/parser.mly" +# 3487 "parsing/parser.mly" ( (_2,_4,Some _6) ) -# 13989 "parsing/parser.ml" +# 14011 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14016,9 +14038,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3454 "parsing/parser.mly" +# 3489 "parsing/parser.mly" ( ([],Pcstr_tuple [],Some _2) ) -# 14022 "parsing/parser.ml" +# 14044 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14067,24 +14089,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14071 "parsing/parser.ml" +# 14093 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 14076 "parsing/parser.ml" +# 14098 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 14082 "parsing/parser.ml" +# 14104 "parsing/parser.ml" in -# 3456 "parsing/parser.mly" +# 3491 "parsing/parser.mly" ( (_2,Pcstr_tuple [],Some _4) ) -# 14088 "parsing/parser.ml" +# 14110 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14133,9 +14155,9 @@ module Tables = struct Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined2 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 14139 "parsing/parser.ml" +# 14161 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined2_ in @@ -14145,23 +14167,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14151 "parsing/parser.ml" +# 14173 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3394 "parsing/parser.mly" +# 3429 "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 ) -# 14165 "parsing/parser.ml" +# 14187 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14203,9 +14225,9 @@ module Tables = struct Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 14209 "parsing/parser.ml" +# 14231 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined1_ in @@ -14214,29 +14236,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14220 "parsing/parser.ml" +# 14242 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = -# 4036 "parsing/parser.mly" +# 4071 "parsing/parser.mly" ( () ) -# 14227 "parsing/parser.ml" +# 14249 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in -# 3394 "parsing/parser.mly" +# 3429 "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 ) -# 14240 "parsing/parser.ml" +# 14262 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14307,9 +14329,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 14313 "parsing/parser.ml" +# 14335 "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 @@ -14322,9 +14344,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 14328 "parsing/parser.ml" +# 14350 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -14333,24 +14355,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14337 "parsing/parser.ml" +# 14359 "parsing/parser.ml" in -# 1108 "parsing/parser.mly" +# 1130 "parsing/parser.mly" ( xs ) -# 14342 "parsing/parser.ml" +# 14364 "parsing/parser.ml" in -# 3284 "parsing/parser.mly" +# 3319 "parsing/parser.mly" ( _1 ) -# 14348 "parsing/parser.ml" +# 14370 "parsing/parser.ml" in let kind_priv_manifest = -# 3319 "parsing/parser.mly" +# 3354 "parsing/parser.mly" ( _2 ) -# 14354 "parsing/parser.ml" +# 14376 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -14358,29 +14380,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14364 "parsing/parser.ml" +# 14386 "parsing/parser.ml" in let flag = -# 4056 "parsing/parser.mly" +# 4091 "parsing/parser.mly" ( Recursive ) -# 14370 "parsing/parser.ml" +# 14392 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 14377 "parsing/parser.ml" +# 14399 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3256 "parsing/parser.mly" +# 3291 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14389,7 +14411,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14393 "parsing/parser.ml" +# 14415 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14466,9 +14488,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 14472 "parsing/parser.ml" +# 14494 "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 @@ -14482,9 +14504,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined5 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 14488 "parsing/parser.ml" +# 14510 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined5_ in @@ -14493,24 +14515,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14497 "parsing/parser.ml" +# 14519 "parsing/parser.ml" in -# 1108 "parsing/parser.mly" +# 1130 "parsing/parser.mly" ( xs ) -# 14502 "parsing/parser.ml" +# 14524 "parsing/parser.ml" in -# 3284 "parsing/parser.mly" +# 3319 "parsing/parser.mly" ( _1 ) -# 14508 "parsing/parser.ml" +# 14530 "parsing/parser.ml" in let kind_priv_manifest = -# 3319 "parsing/parser.mly" +# 3354 "parsing/parser.mly" ( _2 ) -# 14514 "parsing/parser.ml" +# 14536 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -14518,9 +14540,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14524 "parsing/parser.ml" +# 14546 "parsing/parser.ml" in let flag = @@ -14529,24 +14551,24 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4058 "parsing/parser.mly" +# 4093 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 14535 "parsing/parser.ml" +# 14557 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 14543 "parsing/parser.ml" +# 14565 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3256 "parsing/parser.mly" +# 3291 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14555,7 +14577,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14559 "parsing/parser.ml" +# 14581 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14619,9 +14641,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 14625 "parsing/parser.ml" +# 14647 "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 @@ -14634,9 +14656,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 14640 "parsing/parser.ml" +# 14662 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -14645,18 +14667,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14649 "parsing/parser.ml" +# 14671 "parsing/parser.ml" in -# 1108 "parsing/parser.mly" +# 1130 "parsing/parser.mly" ( xs ) -# 14654 "parsing/parser.ml" +# 14676 "parsing/parser.ml" in -# 3284 "parsing/parser.mly" +# 3319 "parsing/parser.mly" ( _1 ) -# 14660 "parsing/parser.ml" +# 14682 "parsing/parser.ml" in let id = @@ -14665,29 +14687,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14671 "parsing/parser.ml" +# 14693 "parsing/parser.ml" in let flag = -# 4052 "parsing/parser.mly" +# 4087 "parsing/parser.mly" ( Recursive ) -# 14677 "parsing/parser.ml" +# 14699 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 14684 "parsing/parser.ml" +# 14706 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3256 "parsing/parser.mly" +# 3291 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14696,7 +14718,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14700 "parsing/parser.ml" +# 14722 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14766,9 +14788,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 14772 "parsing/parser.ml" +# 14794 "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 @@ -14782,9 +14804,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 14788 "parsing/parser.ml" +# 14810 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -14793,18 +14815,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14797 "parsing/parser.ml" +# 14819 "parsing/parser.ml" in -# 1108 "parsing/parser.mly" +# 1130 "parsing/parser.mly" ( xs ) -# 14802 "parsing/parser.ml" +# 14824 "parsing/parser.ml" in -# 3284 "parsing/parser.mly" +# 3319 "parsing/parser.mly" ( _1 ) -# 14808 "parsing/parser.ml" +# 14830 "parsing/parser.ml" in let id = @@ -14813,29 +14835,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14819 "parsing/parser.ml" +# 14841 "parsing/parser.ml" in let flag = -# 4053 "parsing/parser.mly" +# 4088 "parsing/parser.mly" ( Nonrecursive ) -# 14825 "parsing/parser.ml" +# 14847 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 14832 "parsing/parser.ml" +# 14854 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3256 "parsing/parser.mly" +# 3291 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14844,7 +14866,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14848 "parsing/parser.ml" +# 14870 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14863,17 +14885,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 891 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 14869 "parsing/parser.ml" +# 14891 "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) = -# 3895 "parsing/parser.mly" +# 3930 "parsing/parser.mly" ( _1 ) -# 14877 "parsing/parser.ml" +# 14899 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14892,17 +14914,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 14898 "parsing/parser.ml" +# 14920 "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) = -# 3896 "parsing/parser.mly" +# 3931 "parsing/parser.mly" ( _1 ) -# 14906 "parsing/parser.ml" +# 14928 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14932,9 +14954,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.structure) = -# 1279 "parsing/parser.mly" +# 1301 "parsing/parser.mly" ( _1 ) -# 14938 "parsing/parser.ml" +# 14960 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14957,9 +14979,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (bool) = -# 1658 "parsing/parser.mly" +# 1680 "parsing/parser.mly" ( false ) -# 14963 "parsing/parser.ml" +# 14985 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14989,9 +15011,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (bool) = -# 1660 "parsing/parser.mly" +# 1682 "parsing/parser.mly" ( true ) -# 14995 "parsing/parser.ml" +# 15017 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15007,9 +15029,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string) = -# 3945 "parsing/parser.mly" +# 3980 "parsing/parser.mly" ( "" ) -# 15013 "parsing/parser.ml" +# 15035 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15039,9 +15061,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string) = -# 3946 "parsing/parser.mly" +# 3981 "parsing/parser.mly" ( ";.." ) -# 15045 "parsing/parser.ml" +# 15067 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15071,9 +15093,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.signature) = -# 1286 "parsing/parser.mly" +# 1308 "parsing/parser.mly" ( _1 ) -# 15077 "parsing/parser.ml" +# 15099 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15117,9 +15139,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 4249 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( (_2, _3) ) -# 15123 "parsing/parser.ml" +# 15145 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15138,9 +15160,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 882 "parsing/parser.mly" +# 904 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 15144 "parsing/parser.ml" +# 15166 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15149,9 +15171,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4251 "parsing/parser.mly" +# 4286 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 15155 "parsing/parser.ml" +# 15177 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15197,9 +15219,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 15203 "parsing/parser.ml" +# 15225 "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 @@ -15208,34 +15230,34 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let _5 = let _1 = _1_inlined3 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 15214 "parsing/parser.ml" +# 15236 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 3613 "parsing/parser.mly" +# 3648 "parsing/parser.mly" ( _1 ) -# 15223 "parsing/parser.ml" +# 15245 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 15231 "parsing/parser.ml" +# 15253 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15239 "parsing/parser.ml" +# 15261 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -15247,13 +15269,13 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 3479 "parsing/parser.mly" +# 3514 "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_) ) -# 15257 "parsing/parser.ml" +# 15279 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15313,9 +15335,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 15319 "parsing/parser.ml" +# 15341 "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 @@ -15324,43 +15346,43 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let _7 = let _1 = _1_inlined4 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 15330 "parsing/parser.ml" +# 15352 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _5 = let _1 = _1_inlined3 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 15339 "parsing/parser.ml" +# 15361 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 3613 "parsing/parser.mly" +# 3648 "parsing/parser.mly" ( _1 ) -# 15348 "parsing/parser.ml" +# 15370 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 15356 "parsing/parser.ml" +# 15378 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15364 "parsing/parser.ml" +# 15386 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -15372,7 +15394,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 3488 "parsing/parser.mly" +# 3523 "parsing/parser.mly" ( let info = match rhs_info _endpos__5_ with | Some _ as info_before_semi -> info_before_semi @@ -15382,7 +15404,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_) ) -# 15386 "parsing/parser.ml" +# 15408 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15405,9 +15427,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 3473 "parsing/parser.mly" +# 3508 "parsing/parser.mly" ( [_1] ) -# 15411 "parsing/parser.ml" +# 15433 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15430,9 +15452,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 3474 "parsing/parser.mly" +# 3509 "parsing/parser.mly" ( [_1] ) -# 15436 "parsing/parser.ml" +# 15458 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15462,9 +15484,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.label_declaration list) = -# 3475 "parsing/parser.mly" +# 3510 "parsing/parser.mly" ( _1 :: _2 ) -# 15468 "parsing/parser.ml" +# 15490 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15483,9 +15505,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 15489 "parsing/parser.ml" +# 15511 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15496,24 +15518,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15502 "parsing/parser.ml" +# 15524 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2404 "parsing/parser.mly" +# 2426 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 15511 "parsing/parser.ml" +# 15533 "parsing/parser.ml" in -# 2391 "parsing/parser.mly" +# 2413 "parsing/parser.mly" ( x ) -# 15517 "parsing/parser.ml" +# 15539 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15546,9 +15568,9 @@ module Tables = struct let cty : (Parsetree.core_type) = Obj.magic cty in let _2 : unit = Obj.magic _2 in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 15552 "parsing/parser.ml" +# 15574 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15559,18 +15581,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15565 "parsing/parser.ml" +# 15587 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2404 "parsing/parser.mly" +# 2426 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 15574 "parsing/parser.ml" +# 15596 "parsing/parser.ml" in let _startpos_x_ = _startpos__1_ in @@ -15578,11 +15600,11 @@ module Tables = struct let _symbolstartpos = _startpos_x_ in let _sloc = (_symbolstartpos, _endpos) in -# 2393 "parsing/parser.mly" +# 2415 "parsing/parser.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) -# 15586 "parsing/parser.ml" +# 15608 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15629,9 +15651,9 @@ module Tables = struct let xs : (Asttypes.label Asttypes.loc list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 15635 "parsing/parser.ml" +# 15657 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15643,24 +15665,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 15647 "parsing/parser.ml" +# 15669 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 15652 "parsing/parser.ml" +# 15674 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 15658 "parsing/parser.ml" +# 15680 "parsing/parser.ml" in -# 2397 "parsing/parser.mly" +# 2419 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 15664 "parsing/parser.ml" +# 15686 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -15668,9 +15690,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 15674 "parsing/parser.ml" +# 15696 "parsing/parser.ml" in let _endpos_cty_ = _endpos_ty_ in @@ -15680,18 +15702,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15686 "parsing/parser.ml" +# 15708 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2404 "parsing/parser.mly" +# 2426 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 15695 "parsing/parser.ml" +# 15717 "parsing/parser.ml" in let _startpos_x_ = _startpos__1_ in @@ -15699,11 +15721,11 @@ module Tables = struct let _symbolstartpos = _startpos_x_ in let _sloc = (_symbolstartpos, _endpos) in -# 2398 "parsing/parser.mly" +# 2420 "parsing/parser.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) -# 15707 "parsing/parser.ml" +# 15729 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15726,9 +15748,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3977 "parsing/parser.mly" +# 4012 "parsing/parser.mly" ( _1 ) -# 15732 "parsing/parser.ml" +# 15754 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15751,9 +15773,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression) = -# 2743 "parsing/parser.mly" +# 2776 "parsing/parser.mly" ( (Nolabel, _1) ) -# 15757 "parsing/parser.ml" +# 15779 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15779,17 +15801,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 824 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 15785 "parsing/parser.ml" +# 15807 "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) = -# 2745 "parsing/parser.mly" +# 2778 "parsing/parser.mly" ( (Labelled _1, _2) ) -# 15793 "parsing/parser.ml" +# 15815 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15814,9 +15836,9 @@ module Tables = struct }; } = _menhir_stack in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 15820 "parsing/parser.ml" +# 15842 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -15824,10 +15846,10 @@ module Tables = struct let _endpos = _endpos_label_ in let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2747 "parsing/parser.mly" +# 2780 "parsing/parser.mly" ( let loc = _loc_label_ in (Labelled label, mkexpvar ~loc label) ) -# 15831 "parsing/parser.ml" +# 15853 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15872,9 +15894,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 15878 "parsing/parser.ml" +# 15900 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in @@ -15884,10 +15906,10 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression) = let _endpos = _endpos__5_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2750 "parsing/parser.mly" +# 2783 "parsing/parser.mly" ( (Labelled label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty) ) -# 15891 "parsing/parser.ml" +# 15913 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15912,9 +15934,9 @@ module Tables = struct }; } = _menhir_stack in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 15918 "parsing/parser.ml" +# 15940 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -15922,10 +15944,10 @@ module Tables = struct let _endpos = _endpos_label_ in let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2753 "parsing/parser.mly" +# 2786 "parsing/parser.mly" ( let loc = _loc_label_ in (Optional label, mkexpvar ~loc label) ) -# 15929 "parsing/parser.ml" +# 15951 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15951,17 +15973,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 857 "parsing/parser.mly" +# 879 "parsing/parser.mly" (string) -# 15957 "parsing/parser.ml" +# 15979 "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) = -# 2756 "parsing/parser.mly" +# 2789 "parsing/parser.mly" ( (Optional _1, _2) ) -# 15965 "parsing/parser.ml" +# 15987 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16014,22 +16036,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined1 in -# 2387 "parsing/parser.mly" +# 2409 "parsing/parser.mly" ( _1 ) -# 16020 "parsing/parser.ml" +# 16042 "parsing/parser.ml" in let _3 = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 16026 "parsing/parser.ml" +# 16048 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2350 "parsing/parser.mly" +# 2372 "parsing/parser.mly" ( (Optional (fst _4), _5, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16033 "parsing/parser.ml" +# 16055 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16089,22 +16111,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined2 in -# 2387 "parsing/parser.mly" +# 2409 "parsing/parser.mly" ( _1 ) -# 16095 "parsing/parser.ml" +# 16117 "parsing/parser.ml" in let _3 = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 16101 "parsing/parser.ml" +# 16123 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2350 "parsing/parser.mly" +# 2372 "parsing/parser.mly" ( (Optional (fst _4), _5, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16108 "parsing/parser.ml" +# 16130 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16129,9 +16151,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 16135 "parsing/parser.ml" +# 16157 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -16144,24 +16166,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 16150 "parsing/parser.ml" +# 16172 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2404 "parsing/parser.mly" +# 2426 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16159 "parsing/parser.ml" +# 16181 "parsing/parser.ml" in -# 2352 "parsing/parser.mly" +# 2374 "parsing/parser.mly" ( (Optional (fst _2), None, snd _2) ) -# 16165 "parsing/parser.ml" +# 16187 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16208,9 +16230,9 @@ module Tables = struct let _4 : (Parsetree.pattern) = Obj.magic _4 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 857 "parsing/parser.mly" +# 879 "parsing/parser.mly" (string) -# 16214 "parsing/parser.ml" +# 16236 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16218,22 +16240,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined1 in -# 2387 "parsing/parser.mly" +# 2409 "parsing/parser.mly" ( _1 ) -# 16224 "parsing/parser.ml" +# 16246 "parsing/parser.ml" in let _3 = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 16230 "parsing/parser.ml" +# 16252 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2354 "parsing/parser.mly" +# 2376 "parsing/parser.mly" ( (Optional _1, _5, mkpat_local_if _3 _4 _loc__3_) ) -# 16237 "parsing/parser.ml" +# 16259 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16287,9 +16309,9 @@ module Tables = struct let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 857 "parsing/parser.mly" +# 879 "parsing/parser.mly" (string) -# 16293 "parsing/parser.ml" +# 16315 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16297,22 +16319,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined2 in -# 2387 "parsing/parser.mly" +# 2409 "parsing/parser.mly" ( _1 ) -# 16303 "parsing/parser.ml" +# 16325 "parsing/parser.ml" in let _3 = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 16309 "parsing/parser.ml" +# 16331 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2354 "parsing/parser.mly" +# 2376 "parsing/parser.mly" ( (Optional _1, _5, mkpat_local_if _3 _4 _loc__3_) ) -# 16316 "parsing/parser.ml" +# 16338 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16338,17 +16360,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( -# 857 "parsing/parser.mly" +# 879 "parsing/parser.mly" (string) -# 16344 "parsing/parser.ml" +# 16366 "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) = -# 2356 "parsing/parser.mly" +# 2378 "parsing/parser.mly" ( (Optional _1, None, _2) ) -# 16352 "parsing/parser.ml" +# 16374 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16392,17 +16414,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 = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 16398 "parsing/parser.ml" +# 16420 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2358 "parsing/parser.mly" +# 2380 "parsing/parser.mly" ( (Labelled (fst _4), None, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16406 "parsing/parser.ml" +# 16428 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16453,17 +16475,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 = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 16459 "parsing/parser.ml" +# 16481 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2358 "parsing/parser.mly" +# 2380 "parsing/parser.mly" ( (Labelled (fst _4), None, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16467 "parsing/parser.ml" +# 16489 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16488,9 +16510,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 16494 "parsing/parser.ml" +# 16516 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -16503,24 +16525,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 16509 "parsing/parser.ml" +# 16531 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2404 "parsing/parser.mly" +# 2426 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16518 "parsing/parser.ml" +# 16540 "parsing/parser.ml" in -# 2361 "parsing/parser.mly" +# 2383 "parsing/parser.mly" ( (Labelled (fst _2), None, snd _2) ) -# 16524 "parsing/parser.ml" +# 16546 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16546,17 +16568,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( -# 824 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 16552 "parsing/parser.ml" +# 16574 "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) = -# 2363 "parsing/parser.mly" +# 2385 "parsing/parser.mly" ( (Labelled _1, None, _2) ) -# 16560 "parsing/parser.ml" +# 16582 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16603,18 +16625,18 @@ module Tables = struct let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 824 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 16609 "parsing/parser.ml" +# 16631 "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 -# 2365 "parsing/parser.mly" +# 2387 "parsing/parser.mly" ( (Labelled _1, None, mkpat_stack _4 (make_loc _loc__3_)) ) -# 16618 "parsing/parser.ml" +# 16640 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16637,9 +16659,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = -# 2367 "parsing/parser.mly" +# 2389 "parsing/parser.mly" ( (Nolabel, None, _1) ) -# 16643 "parsing/parser.ml" +# 16665 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16684,9 +16706,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 -# 2369 "parsing/parser.mly" +# 2391 "parsing/parser.mly" ( (Nolabel, None, mkpat_stack _3 (make_loc _loc__2_)) ) -# 16690 "parsing/parser.ml" +# 16712 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16754,9 +16776,9 @@ module Tables = struct let pat : (Parsetree.pattern) = Obj.magic pat in let _2 : unit = Obj.magic _2 in let _1 : ( -# 824 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 16760 "parsing/parser.ml" +# 16782 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16771,24 +16793,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 16775 "parsing/parser.ml" +# 16797 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 16780 "parsing/parser.ml" +# 16802 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 16786 "parsing/parser.ml" +# 16808 "parsing/parser.ml" in -# 2420 "parsing/parser.mly" +# 2442 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 16792 "parsing/parser.ml" +# 16814 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -16796,15 +16818,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 16802 "parsing/parser.ml" +# 16824 "parsing/parser.ml" in -# 2421 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 16808 "parsing/parser.ml" +# 16830 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -16812,21 +16834,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 16818 "parsing/parser.ml" +# 16840 "parsing/parser.ml" in -# 2422 "parsing/parser.mly" +# 2444 "parsing/parser.mly" ( _1 ) -# 16824 "parsing/parser.ml" +# 16846 "parsing/parser.ml" in -# 2371 "parsing/parser.mly" +# 2393 "parsing/parser.mly" ( (Labelled _1, None, _3) ) -# 16830 "parsing/parser.ml" +# 16852 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16901,9 +16923,9 @@ module Tables = struct let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 824 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 16907 "parsing/parser.ml" +# 16929 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16918,24 +16940,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 16922 "parsing/parser.ml" +# 16944 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 16927 "parsing/parser.ml" +# 16949 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 16933 "parsing/parser.ml" +# 16955 "parsing/parser.ml" in -# 2420 "parsing/parser.mly" +# 2442 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 16939 "parsing/parser.ml" +# 16961 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -16943,15 +16965,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 16949 "parsing/parser.ml" +# 16971 "parsing/parser.ml" in -# 2421 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 16955 "parsing/parser.ml" +# 16977 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -16959,22 +16981,22 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 16965 "parsing/parser.ml" +# 16987 "parsing/parser.ml" in -# 2422 "parsing/parser.mly" +# 2444 "parsing/parser.mly" ( _1 ) -# 16971 "parsing/parser.ml" +# 16993 "parsing/parser.ml" in let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 2373 "parsing/parser.mly" +# 2395 "parsing/parser.mly" ( (Labelled _1, None, mkpat_stack _4 (make_loc _loc__2_)) ) -# 16978 "parsing/parser.ml" +# 17000 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17048,24 +17070,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17052 "parsing/parser.ml" +# 17074 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 17057 "parsing/parser.ml" +# 17079 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 17063 "parsing/parser.ml" +# 17085 "parsing/parser.ml" in -# 2420 "parsing/parser.mly" +# 2442 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 17069 "parsing/parser.ml" +# 17091 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -17073,15 +17095,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 17079 "parsing/parser.ml" +# 17101 "parsing/parser.ml" in -# 2421 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 17085 "parsing/parser.ml" +# 17107 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -17089,21 +17111,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 17095 "parsing/parser.ml" +# 17117 "parsing/parser.ml" in -# 2422 "parsing/parser.mly" +# 2444 "parsing/parser.mly" ( _1 ) -# 17101 "parsing/parser.ml" +# 17123 "parsing/parser.ml" in -# 2375 "parsing/parser.mly" +# 2397 "parsing/parser.mly" ( (Nolabel, None, _2) ) -# 17107 "parsing/parser.ml" +# 17129 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17127,9 +17149,9 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.attribute) = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3333 "parsing/parser.mly" +# 3368 "parsing/parser.mly" ( check_layout _loc__1_ _1 ) -# 17133 "parsing/parser.ml" +# 17155 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17152,9 +17174,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern * Parsetree.expression * bool) = -# 2815 "parsing/parser.mly" +# 2848 "parsing/parser.mly" ( let p,e = _1 in (p,e,false) ) -# 17158 "parsing/parser.ml" +# 17180 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17180,9 +17202,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 2818 "parsing/parser.mly" +# 2851 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1, true) ) -# 17186 "parsing/parser.ml" +# 17208 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17216,15 +17238,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2763 "parsing/parser.mly" +# 2796 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17222 "parsing/parser.ml" +# 17244 "parsing/parser.ml" in -# 2767 "parsing/parser.mly" +# 2800 "parsing/parser.mly" ( (_1, _2) ) -# 17228 "parsing/parser.ml" +# 17250 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17272,16 +17294,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2763 "parsing/parser.mly" +# 2796 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17278 "parsing/parser.ml" +# 17300 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let _1 = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 17285 "parsing/parser.ml" +# 17307 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__5_ in @@ -17292,7 +17314,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2769 "parsing/parser.mly" +# 2802 "parsing/parser.mly" ( let v = _2 in (* PR#7344 *) let t = match _3 with @@ -17314,7 +17336,7 @@ module Tables = struct local_loc) in (pat, exp) ) -# 17318 "parsing/parser.ml" +# 17340 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17370,16 +17392,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2763 "parsing/parser.mly" +# 2796 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17376 "parsing/parser.ml" +# 17398 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 17383 "parsing/parser.ml" +# 17405 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -17389,7 +17411,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2769 "parsing/parser.mly" +# 2802 "parsing/parser.mly" ( let v = _2 in (* PR#7344 *) let t = match _3 with @@ -17411,7 +17433,7 @@ module Tables = struct local_loc) in (pat, exp) ) -# 17415 "parsing/parser.ml" +# 17437 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17482,24 +17504,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17486 "parsing/parser.ml" +# 17508 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 17491 "parsing/parser.ml" +# 17513 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 17497 "parsing/parser.ml" +# 17519 "parsing/parser.ml" in -# 3599 "parsing/parser.mly" +# 3634 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 17503 "parsing/parser.ml" +# 17525 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -17508,16 +17530,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2763 "parsing/parser.mly" +# 2796 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17514 "parsing/parser.ml" +# 17536 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let _1 = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 17521 "parsing/parser.ml" +# 17543 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__6_ in @@ -17529,7 +17551,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2791 "parsing/parser.mly" +# 2824 "parsing/parser.mly" ( let patloc = (_startpos__2_, _endpos__4_) in let pat = mkpat_local_if _1 @@ -17539,7 +17561,7 @@ module Tables = struct in let exp = mkexp_local_if _1 ~loc:_sloc ~kwd_loc:(_loc__1_) _6 in (pat, exp) ) -# 17543 "parsing/parser.ml" +# 17565 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17617,24 +17639,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17621 "parsing/parser.ml" +# 17643 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 17626 "parsing/parser.ml" +# 17648 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 17632 "parsing/parser.ml" +# 17654 "parsing/parser.ml" in -# 3599 "parsing/parser.mly" +# 3634 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 17638 "parsing/parser.ml" +# 17660 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -17644,16 +17666,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2763 "parsing/parser.mly" +# 2796 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17650 "parsing/parser.ml" +# 17672 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 17657 "parsing/parser.ml" +# 17679 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -17664,7 +17686,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2791 "parsing/parser.mly" +# 2824 "parsing/parser.mly" ( let patloc = (_startpos__2_, _endpos__4_) in let pat = mkpat_local_if _1 @@ -17674,7 +17696,7 @@ module Tables = struct in let exp = mkexp_local_if _1 ~loc:_sloc ~kwd_loc:(_loc__1_) _6 in (pat, exp) ) -# 17678 "parsing/parser.ml" +# 17700 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17746,30 +17768,30 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in let _v : (Parsetree.pattern * Parsetree.expression) = let _4 = -# 2760 "parsing/parser.mly" +# 2793 "parsing/parser.mly" ( xs ) -# 17752 "parsing/parser.ml" +# 17774 "parsing/parser.ml" in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2763 "parsing/parser.mly" +# 2796 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17761 "parsing/parser.ml" +# 17783 "parsing/parser.ml" in let _endpos = _endpos__8_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2801 "parsing/parser.mly" +# 2834 "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) ) -# 17773 "parsing/parser.ml" +# 17795 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17806,9 +17828,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2806 "parsing/parser.mly" +# 2839 "parsing/parser.mly" ( (_1, _3) ) -# 17812 "parsing/parser.ml" +# 17834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17859,10 +17881,10 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2808 "parsing/parser.mly" +# 2841 "parsing/parser.mly" ( let loc = (_startpos__1_, _endpos__3_) in (ghpat ~loc (Ppat_constraint(_1, _3)), _5) ) -# 17866 "parsing/parser.ml" +# 17888 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17904,9 +17926,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2763 "parsing/parser.mly" +# 2796 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17910 "parsing/parser.ml" +# 17932 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -17914,9 +17936,9 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2811 "parsing/parser.mly" +# 2844 "parsing/parser.mly" ( (_2, mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__1_) _3) ) -# 17920 "parsing/parser.ml" +# 17942 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17977,36 +17999,36 @@ module Tables = struct let attrs2 = let _1 = _1_inlined2 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 17983 "parsing/parser.ml" +# 18005 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 17992 "parsing/parser.ml" +# 18014 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2838 "parsing/parser.mly" +# 2871 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18004 "parsing/parser.ml" +# 18026 "parsing/parser.ml" in -# 2828 "parsing/parser.mly" +# 2861 "parsing/parser.mly" ( _1 ) -# 18010 "parsing/parser.ml" +# 18032 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18036,9 +18058,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = -# 2829 "parsing/parser.mly" +# 2862 "parsing/parser.mly" ( addlb _1 _2 ) -# 18042 "parsing/parser.ml" +# 18064 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18092,41 +18114,41 @@ module Tables = struct let attrs2 = let _1 = _1_inlined2 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 18098 "parsing/parser.ml" +# 18120 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 18107 "parsing/parser.ml" +# 18129 "parsing/parser.ml" in let ext = -# 4235 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( None ) -# 18113 "parsing/parser.ml" +# 18135 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2838 "parsing/parser.mly" +# 2871 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18124 "parsing/parser.ml" +# 18146 "parsing/parser.ml" in -# 2828 "parsing/parser.mly" +# 2861 "parsing/parser.mly" ( _1 ) -# 18130 "parsing/parser.ml" +# 18152 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18194,18 +18216,18 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 18200 "parsing/parser.ml" +# 18222 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 18209 "parsing/parser.ml" +# 18231 "parsing/parser.ml" in let ext = @@ -18214,27 +18236,27 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4237 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( not_expecting _loc "extension" ) -# 18220 "parsing/parser.ml" +# 18242 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2838 "parsing/parser.mly" +# 2871 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18232 "parsing/parser.ml" +# 18254 "parsing/parser.ml" in -# 2828 "parsing/parser.mly" +# 2861 "parsing/parser.mly" ( _1 ) -# 18238 "parsing/parser.ml" +# 18260 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18264,9 +18286,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = -# 2829 "parsing/parser.mly" +# 2862 "parsing/parser.mly" ( addlb _1 _2 ) -# 18270 "parsing/parser.ml" +# 18292 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18289,9 +18311,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 2408 "parsing/parser.mly" +# 2430 "parsing/parser.mly" ( _1 ) -# 18295 "parsing/parser.ml" +# 18317 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18329,24 +18351,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2410 "parsing/parser.mly" +# 2432 "parsing/parser.mly" ( Ppat_constraint(_1, _3) ) -# 18335 "parsing/parser.ml" +# 18357 "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 -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 18344 "parsing/parser.ml" +# 18366 "parsing/parser.ml" in -# 2411 "parsing/parser.mly" +# 2433 "parsing/parser.mly" ( _1 ) -# 18350 "parsing/parser.ml" +# 18372 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18406,24 +18428,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 18410 "parsing/parser.ml" +# 18432 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 18415 "parsing/parser.ml" +# 18437 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 18421 "parsing/parser.ml" +# 18443 "parsing/parser.ml" in -# 2420 "parsing/parser.mly" +# 2442 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 18427 "parsing/parser.ml" +# 18449 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -18431,15 +18453,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 18437 "parsing/parser.ml" +# 18459 "parsing/parser.ml" in -# 2421 "parsing/parser.mly" +# 2443 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 18443 "parsing/parser.ml" +# 18465 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -18447,21 +18469,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 18453 "parsing/parser.ml" +# 18475 "parsing/parser.ml" in -# 2422 "parsing/parser.mly" +# 2444 "parsing/parser.mly" ( _1 ) -# 18459 "parsing/parser.ml" +# 18481 "parsing/parser.ml" in -# 2413 "parsing/parser.mly" +# 2435 "parsing/parser.mly" ( _1 ) -# 18465 "parsing/parser.ml" +# 18487 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18495,15 +18517,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2763 "parsing/parser.mly" +# 2796 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 18501 "parsing/parser.ml" +# 18523 "parsing/parser.ml" in -# 2855 "parsing/parser.mly" +# 2888 "parsing/parser.mly" ( (pat, exp) ) -# 18507 "parsing/parser.ml" +# 18529 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18529,9 +18551,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 2858 "parsing/parser.mly" +# 2891 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1) ) -# 18535 "parsing/parser.ml" +# 18557 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18582,10 +18604,10 @@ module Tables = struct let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2860 "parsing/parser.mly" +# 2893 "parsing/parser.mly" ( let loc = (_startpos_pat_, _endpos_typ_) in (ghpat ~loc (Ppat_constraint(pat, typ)), exp) ) -# 18589 "parsing/parser.ml" +# 18611 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18622,9 +18644,9 @@ module Tables = struct let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2863 "parsing/parser.mly" +# 2896 "parsing/parser.mly" ( (pat, exp) ) -# 18628 "parsing/parser.ml" +# 18650 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18647,10 +18669,10 @@ module Tables = struct let _startpos = _startpos_body_ in let _endpos = _endpos_body_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = -# 2867 "parsing/parser.mly" +# 2900 "parsing/parser.mly" ( let let_pat, let_exp = body in let_pat, let_exp, [] ) -# 18654 "parsing/parser.ml" +# 18676 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18682,9 +18704,9 @@ module Tables = struct } = _menhir_stack in let body : (Parsetree.pattern * Parsetree.expression) = Obj.magic body in let _1 : ( -# 820 "parsing/parser.mly" +# 842 "parsing/parser.mly" (string) -# 18688 "parsing/parser.ml" +# 18710 "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 @@ -18695,22 +18717,22 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 18701 "parsing/parser.ml" +# 18723 "parsing/parser.ml" in let _endpos = _endpos_body_ in let _symbolstartpos = _startpos_bindings_ in let _sloc = (_symbolstartpos, _endpos) in -# 2870 "parsing/parser.mly" +# 2903 "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 ) -# 18714 "parsing/parser.ml" +# 18736 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18728,7 +18750,7 @@ module Tables = struct let _v : (Parsetree.class_declaration list) = # 211 "" ( [] ) -# 18732 "parsing/parser.ml" +# 18754 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18792,9 +18814,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 18798 "parsing/parser.ml" +# 18820 "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 @@ -18807,9 +18829,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 18813 "parsing/parser.ml" +# 18835 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -18819,24 +18841,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 18825 "parsing/parser.ml" +# 18847 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 18833 "parsing/parser.ml" +# 18855 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1996 "parsing/parser.mly" +# 2018 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -18844,13 +18866,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id body ~virt ~params ~attrs ~loc ~text ~docs ) -# 18848 "parsing/parser.ml" +# 18870 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 18854 "parsing/parser.ml" +# 18876 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18868,7 +18890,7 @@ module Tables = struct let _v : (Parsetree.class_description list) = # 211 "" ( [] ) -# 18872 "parsing/parser.ml" +# 18894 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18939,9 +18961,9 @@ module Tables = struct let cty : (Parsetree.class_type) = Obj.magic cty in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 18945 "parsing/parser.ml" +# 18967 "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 @@ -18954,9 +18976,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 18960 "parsing/parser.ml" +# 18982 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -18966,24 +18988,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 18972 "parsing/parser.ml" +# 18994 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 18980 "parsing/parser.ml" +# 19002 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2287 "parsing/parser.mly" +# 2309 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -18991,13 +19013,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id cty ~virt ~params ~attrs ~loc ~text ~docs ) -# 18995 "parsing/parser.ml" +# 19017 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19001 "parsing/parser.ml" +# 19023 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19015,7 +19037,7 @@ module Tables = struct let _v : (Parsetree.class_type_declaration list) = # 211 "" ( [] ) -# 19019 "parsing/parser.ml" +# 19041 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19086,9 +19108,9 @@ module Tables = struct let csig : (Parsetree.class_type) = Obj.magic csig in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 19092 "parsing/parser.ml" +# 19114 "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 @@ -19101,9 +19123,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 19107 "parsing/parser.ml" +# 19129 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19113,24 +19135,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19119 "parsing/parser.ml" +# 19141 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 19127 "parsing/parser.ml" +# 19149 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2326 "parsing/parser.mly" +# 2348 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -19138,13 +19160,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id csig ~virt ~params ~attrs ~loc ~text ~docs ) -# 19142 "parsing/parser.ml" +# 19164 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19148 "parsing/parser.ml" +# 19170 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19162,7 +19184,7 @@ module Tables = struct let _v : (Parsetree.module_binding list) = # 211 "" ( [] ) -# 19166 "parsing/parser.ml" +# 19188 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19223,9 +19245,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 19229 "parsing/parser.ml" +# 19251 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19235,24 +19257,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19241 "parsing/parser.ml" +# 19263 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 19249 "parsing/parser.ml" +# 19271 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1643 "parsing/parser.mly" +# 1665 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in @@ -19260,13 +19282,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Mb.mk name body ~attrs ~loc ~text ~docs ) -# 19264 "parsing/parser.ml" +# 19286 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19270 "parsing/parser.ml" +# 19292 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19284,7 +19306,7 @@ module Tables = struct let _v : (Parsetree.module_declaration list) = # 211 "" ( [] ) -# 19288 "parsing/parser.ml" +# 19310 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19352,9 +19374,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 19358 "parsing/parser.ml" +# 19380 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19364,24 +19386,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19370 "parsing/parser.ml" +# 19392 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 19378 "parsing/parser.ml" +# 19400 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1937 "parsing/parser.mly" +# 1959 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let docs = symbol_docs _sloc in @@ -19389,13 +19411,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Md.mk name mty ~attrs ~loc ~text ~docs ) -# 19393 "parsing/parser.ml" +# 19415 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19399 "parsing/parser.ml" +# 19421 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19413,7 +19435,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 211 "" ( [] ) -# 19417 "parsing/parser.ml" +# 19439 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19445,7 +19467,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 213 "" ( x :: xs ) -# 19449 "parsing/parser.ml" +# 19471 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19463,7 +19485,7 @@ module Tables = struct let _v : (Parsetree.type_declaration list) = # 211 "" ( [] ) -# 19467 "parsing/parser.ml" +# 19489 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19528,9 +19550,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 19534 "parsing/parser.ml" +# 19556 "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 @@ -19543,9 +19565,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 19549 "parsing/parser.ml" +# 19571 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19554,18 +19576,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 19558 "parsing/parser.ml" +# 19580 "parsing/parser.ml" in -# 1108 "parsing/parser.mly" +# 1130 "parsing/parser.mly" ( xs ) -# 19563 "parsing/parser.ml" +# 19585 "parsing/parser.ml" in -# 3284 "parsing/parser.mly" +# 3319 "parsing/parser.mly" ( _1 ) -# 19569 "parsing/parser.ml" +# 19591 "parsing/parser.ml" in let id = @@ -19574,24 +19596,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19580 "parsing/parser.ml" +# 19602 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 19588 "parsing/parser.ml" +# 19610 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3273 "parsing/parser.mly" +# 3308 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -19600,13 +19622,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 19604 "parsing/parser.ml" +# 19626 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19610 "parsing/parser.ml" +# 19632 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19624,7 +19646,7 @@ module Tables = struct let _v : (Parsetree.type_declaration list) = # 211 "" ( [] ) -# 19628 "parsing/parser.ml" +# 19650 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19696,9 +19718,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 19702 "parsing/parser.ml" +# 19724 "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 @@ -19711,9 +19733,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 19717 "parsing/parser.ml" +# 19739 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -19722,24 +19744,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 19726 "parsing/parser.ml" +# 19748 "parsing/parser.ml" in -# 1108 "parsing/parser.mly" +# 1130 "parsing/parser.mly" ( xs ) -# 19731 "parsing/parser.ml" +# 19753 "parsing/parser.ml" in -# 3284 "parsing/parser.mly" +# 3319 "parsing/parser.mly" ( _1 ) -# 19737 "parsing/parser.ml" +# 19759 "parsing/parser.ml" in let kind_priv_manifest = -# 3319 "parsing/parser.mly" +# 3354 "parsing/parser.mly" ( _2 ) -# 19743 "parsing/parser.ml" +# 19765 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -19747,24 +19769,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19753 "parsing/parser.ml" +# 19775 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 19761 "parsing/parser.ml" +# 19783 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3273 "parsing/parser.mly" +# 3308 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -19773,13 +19795,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 19777 "parsing/parser.ml" +# 19799 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19783 "parsing/parser.ml" +# 19805 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19797,7 +19819,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 211 "" ( [] ) -# 19801 "parsing/parser.ml" +# 19823 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19829,7 +19851,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 213 "" ( x :: xs ) -# 19833 "parsing/parser.ml" +# 19855 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19847,7 +19869,7 @@ module Tables = struct let _v : (Parsetree.signature_item list list) = # 211 "" ( [] ) -# 19851 "parsing/parser.ml" +# 19873 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19880,21 +19902,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1034 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( text_sig _startpos ) -# 19886 "parsing/parser.ml" +# 19908 "parsing/parser.ml" in -# 1793 "parsing/parser.mly" +# 1815 "parsing/parser.mly" ( _1 ) -# 19892 "parsing/parser.ml" +# 19914 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19898 "parsing/parser.ml" +# 19920 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19927,21 +19949,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1032 "parsing/parser.mly" +# 1054 "parsing/parser.mly" ( text_sig _startpos @ [_1] ) -# 19933 "parsing/parser.ml" +# 19955 "parsing/parser.ml" in -# 1793 "parsing/parser.mly" +# 1815 "parsing/parser.mly" ( _1 ) -# 19939 "parsing/parser.ml" +# 19961 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19945 "parsing/parser.ml" +# 19967 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19959,7 +19981,7 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = # 211 "" ( [] ) -# 19963 "parsing/parser.ml" +# 19985 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19992,40 +20014,40 @@ module Tables = struct let _1 = let ys = let items = -# 1094 "parsing/parser.mly" +# 1116 "parsing/parser.mly" ( [] ) -# 19998 "parsing/parser.ml" +# 20020 "parsing/parser.ml" in -# 1523 "parsing/parser.mly" +# 1545 "parsing/parser.mly" ( items ) -# 20003 "parsing/parser.ml" +# 20025 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in -# 1030 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( text_str _startpos ) -# 20011 "parsing/parser.ml" +# 20033 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 20017 "parsing/parser.ml" +# 20039 "parsing/parser.ml" in -# 1539 "parsing/parser.mly" +# 1561 "parsing/parser.mly" ( _1 ) -# 20023 "parsing/parser.ml" +# 20045 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20029 "parsing/parser.ml" +# 20051 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20077,70 +20099,70 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 20083 "parsing/parser.ml" +# 20105 "parsing/parser.ml" in -# 1530 "parsing/parser.mly" +# 1552 "parsing/parser.mly" ( mkstrexp e attrs ) -# 20088 "parsing/parser.ml" +# 20110 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1028 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20096 "parsing/parser.ml" +# 20118 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1047 "parsing/parser.mly" +# 1069 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 20106 "parsing/parser.ml" +# 20128 "parsing/parser.ml" in -# 1096 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( x ) -# 20112 "parsing/parser.ml" +# 20134 "parsing/parser.ml" in -# 1523 "parsing/parser.mly" +# 1545 "parsing/parser.mly" ( items ) -# 20118 "parsing/parser.ml" +# 20140 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in -# 1030 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( text_str _startpos ) -# 20126 "parsing/parser.ml" +# 20148 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 20132 "parsing/parser.ml" +# 20154 "parsing/parser.ml" in -# 1539 "parsing/parser.mly" +# 1561 "parsing/parser.mly" ( _1 ) -# 20138 "parsing/parser.ml" +# 20160 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20144 "parsing/parser.ml" +# 20166 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20173,21 +20195,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1028 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20179 "parsing/parser.ml" +# 20201 "parsing/parser.ml" in -# 1539 "parsing/parser.mly" +# 1561 "parsing/parser.mly" ( _1 ) -# 20185 "parsing/parser.ml" +# 20207 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20191 "parsing/parser.ml" +# 20213 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20205,7 +20227,7 @@ module Tables = struct let _v : (Parsetree.class_type_field list list) = # 211 "" ( [] ) -# 20209 "parsing/parser.ml" +# 20231 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20237,15 +20259,15 @@ module Tables = struct let _v : (Parsetree.class_type_field list list) = let x = let _startpos = _startpos__1_ in -# 1042 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( text_csig _startpos @ [_1] ) -# 20243 "parsing/parser.ml" +# 20265 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20249 "parsing/parser.ml" +# 20271 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20263,7 +20285,7 @@ module Tables = struct let _v : (Parsetree.class_field list list) = # 211 "" ( [] ) -# 20267 "parsing/parser.ml" +# 20289 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20295,15 +20317,15 @@ module Tables = struct let _v : (Parsetree.class_field list list) = let x = let _startpos = _startpos__1_ in -# 1040 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( text_cstr _startpos @ [_1] ) -# 20301 "parsing/parser.ml" +# 20323 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20307 "parsing/parser.ml" +# 20329 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20321,7 +20343,7 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = # 211 "" ( [] ) -# 20325 "parsing/parser.ml" +# 20347 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20353,15 +20375,15 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = let x = let _startpos = _startpos__1_ in -# 1028 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20359 "parsing/parser.ml" +# 20381 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20365 "parsing/parser.ml" +# 20387 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20379,7 +20401,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase list list) = # 211 "" ( [] ) -# 20383 "parsing/parser.ml" +# 20405 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20412,32 +20434,32 @@ module Tables = struct let _1 = let x = let _1 = -# 1094 "parsing/parser.mly" +# 1116 "parsing/parser.mly" ( [] ) -# 20418 "parsing/parser.ml" +# 20440 "parsing/parser.ml" in -# 1326 "parsing/parser.mly" +# 1348 "parsing/parser.mly" ( _1 ) -# 20423 "parsing/parser.ml" +# 20445 "parsing/parser.ml" in # 183 "" ( x ) -# 20429 "parsing/parser.ml" +# 20451 "parsing/parser.ml" in -# 1338 "parsing/parser.mly" +# 1360 "parsing/parser.mly" ( _1 ) -# 20435 "parsing/parser.ml" +# 20457 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20441 "parsing/parser.ml" +# 20463 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20489,58 +20511,58 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 20495 "parsing/parser.ml" +# 20517 "parsing/parser.ml" in -# 1530 "parsing/parser.mly" +# 1552 "parsing/parser.mly" ( mkstrexp e attrs ) -# 20500 "parsing/parser.ml" +# 20522 "parsing/parser.ml" in -# 1038 "parsing/parser.mly" +# 1060 "parsing/parser.mly" ( Ptop_def [_1] ) -# 20506 "parsing/parser.ml" +# 20528 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1036 "parsing/parser.mly" +# 1058 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 20514 "parsing/parser.ml" +# 20536 "parsing/parser.ml" in -# 1096 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( x ) -# 20520 "parsing/parser.ml" +# 20542 "parsing/parser.ml" in -# 1326 "parsing/parser.mly" +# 1348 "parsing/parser.mly" ( _1 ) -# 20526 "parsing/parser.ml" +# 20548 "parsing/parser.ml" in # 183 "" ( x ) -# 20532 "parsing/parser.ml" +# 20554 "parsing/parser.ml" in -# 1338 "parsing/parser.mly" +# 1360 "parsing/parser.mly" ( _1 ) -# 20538 "parsing/parser.ml" +# 20560 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20544 "parsing/parser.ml" +# 20566 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20572,27 +20594,27 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase list list) = let x = let _1 = let _1 = -# 1038 "parsing/parser.mly" +# 1060 "parsing/parser.mly" ( Ptop_def [_1] ) -# 20578 "parsing/parser.ml" +# 20600 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1036 "parsing/parser.mly" +# 1058 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 20584 "parsing/parser.ml" +# 20606 "parsing/parser.ml" in -# 1338 "parsing/parser.mly" +# 1360 "parsing/parser.mly" ( _1 ) -# 20590 "parsing/parser.ml" +# 20612 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20596 "parsing/parser.ml" +# 20618 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20627,29 +20649,29 @@ module Tables = struct let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1047 "parsing/parser.mly" +# 1069 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 20634 "parsing/parser.ml" +# 20656 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1036 "parsing/parser.mly" +# 1058 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 20641 "parsing/parser.ml" +# 20663 "parsing/parser.ml" in -# 1338 "parsing/parser.mly" +# 1360 "parsing/parser.mly" ( _1 ) -# 20647 "parsing/parser.ml" +# 20669 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20653 "parsing/parser.ml" +# 20675 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20688,7 +20710,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 124 "" ( None ) -# 20692 "parsing/parser.ml" +# 20714 "parsing/parser.ml" in let x = let label = @@ -20696,9 +20718,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20702 "parsing/parser.ml" +# 20724 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20706,7 +20728,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3159 "parsing/parser.mly" +# 3194 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20720,13 +20742,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20724 "parsing/parser.ml" +# 20746 "parsing/parser.ml" in -# 1263 "parsing/parser.mly" +# 1285 "parsing/parser.mly" ( [x], None ) -# 20730 "parsing/parser.ml" +# 20752 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20772,7 +20794,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 126 "" ( Some x ) -# 20776 "parsing/parser.ml" +# 20798 "parsing/parser.ml" in let x = let label = @@ -20780,9 +20802,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20786 "parsing/parser.ml" +# 20808 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20790,7 +20812,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3159 "parsing/parser.mly" +# 3194 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20804,13 +20826,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20808 "parsing/parser.ml" +# 20830 "parsing/parser.ml" in -# 1263 "parsing/parser.mly" +# 1285 "parsing/parser.mly" ( [x], None ) -# 20814 "parsing/parser.ml" +# 20836 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20873,9 +20895,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20879 "parsing/parser.ml" +# 20901 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20883,7 +20905,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3159 "parsing/parser.mly" +# 3194 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20897,13 +20919,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20901 "parsing/parser.ml" +# 20923 "parsing/parser.ml" in -# 1265 "parsing/parser.mly" +# 1287 "parsing/parser.mly" ( [x], Some y ) -# 20907 "parsing/parser.ml" +# 20929 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20959,9 +20981,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20965 "parsing/parser.ml" +# 20987 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20969,7 +20991,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3159 "parsing/parser.mly" +# 3194 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20983,14 +21005,14 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20987 "parsing/parser.ml" +# 21009 "parsing/parser.ml" in -# 1269 "parsing/parser.mly" +# 1291 "parsing/parser.mly" ( let xs, y = tail in x :: xs, y ) -# 20994 "parsing/parser.ml" +# 21016 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21013,9 +21035,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2892 "parsing/parser.mly" +# 2925 "parsing/parser.mly" ( _1 ) -# 21019 "parsing/parser.ml" +# 21041 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21055,9 +21077,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2894 "parsing/parser.mly" +# 2927 "parsing/parser.mly" ( wrap_exp_stack (mkexp_constraint ~loc:_sloc _3 _1) (make_loc _sloc) ) -# 21061 "parsing/parser.ml" +# 21083 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21087,9 +21109,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2898 "parsing/parser.mly" +# 2931 "parsing/parser.mly" ( _2 ) -# 21093 "parsing/parser.ml" +# 21115 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21122,9 +21144,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2900 "parsing/parser.mly" +# 2933 "parsing/parser.mly" ( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 21128 "parsing/parser.ml" +# 21150 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21175,17 +21197,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2760 "parsing/parser.mly" +# 2793 "parsing/parser.mly" ( xs ) -# 21181 "parsing/parser.ml" +# 21203 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2902 "parsing/parser.mly" +# 2935 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 21189 "parsing/parser.ml" +# 21211 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21222,9 +21244,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.case) = -# 2910 "parsing/parser.mly" +# 2943 "parsing/parser.mly" ( Exp.case _1 _3 ) -# 21228 "parsing/parser.ml" +# 21250 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21275,9 +21297,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.case) = -# 2912 "parsing/parser.mly" +# 2945 "parsing/parser.mly" ( Exp.case _1 ~guard:_3 _5 ) -# 21281 "parsing/parser.ml" +# 21303 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21315,9 +21337,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.case) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2914 "parsing/parser.mly" +# 2947 "parsing/parser.mly" ( Exp.case _1 (Exp.unreachable ~loc:(make_loc _loc__3_) ()) ) -# 21321 "parsing/parser.ml" +# 21343 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21378,9 +21400,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 21384 "parsing/parser.ml" +# 21406 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21389,49 +21411,49 @@ module Tables = struct let _6 = let _1 = _1_inlined3 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 21395 "parsing/parser.ml" +# 21417 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 21404 "parsing/parser.ml" +# 21426 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3613 "parsing/parser.mly" +# 3648 "parsing/parser.mly" ( _1 ) -# 21413 "parsing/parser.ml" +# 21435 "parsing/parser.ml" in let _1 = let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 21420 "parsing/parser.ml" +# 21442 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21428 "parsing/parser.ml" +# 21450 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3858 "parsing/parser.mly" +# 3893 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -21439,13 +21461,13 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 21443 "parsing/parser.ml" +# 21465 "parsing/parser.ml" in -# 3839 "parsing/parser.mly" +# 3874 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) -# 21449 "parsing/parser.ml" +# 21471 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21486,15 +21508,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 3869 "parsing/parser.mly" +# 3904 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21492 "parsing/parser.ml" +# 21514 "parsing/parser.ml" in -# 3839 "parsing/parser.mly" +# 3874 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) -# 21498 "parsing/parser.ml" +# 21520 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21548,9 +21570,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 21554 "parsing/parser.ml" +# 21576 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21559,49 +21581,49 @@ module Tables = struct let _6 = let _1 = _1_inlined3 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 21565 "parsing/parser.ml" +# 21587 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 21574 "parsing/parser.ml" +# 21596 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3613 "parsing/parser.mly" +# 3648 "parsing/parser.mly" ( _1 ) -# 21583 "parsing/parser.ml" +# 21605 "parsing/parser.ml" in let _1 = let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 21590 "parsing/parser.ml" +# 21612 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21598 "parsing/parser.ml" +# 21620 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3858 "parsing/parser.mly" +# 3893 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -21609,13 +21631,13 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 21613 "parsing/parser.ml" +# 21635 "parsing/parser.ml" in -# 3842 "parsing/parser.mly" +# 3877 "parsing/parser.mly" ( [head], Closed ) -# 21619 "parsing/parser.ml" +# 21641 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21649,15 +21671,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 3869 "parsing/parser.mly" +# 3904 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21655 "parsing/parser.ml" +# 21677 "parsing/parser.ml" in -# 3842 "parsing/parser.mly" +# 3877 "parsing/parser.mly" ( [head], Closed ) -# 21661 "parsing/parser.ml" +# 21683 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21697,9 +21719,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 21703 "parsing/parser.ml" +# 21725 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21708,50 +21730,50 @@ module Tables = struct let _4 = let _1 = _1_inlined2 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 21714 "parsing/parser.ml" +# 21736 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3613 "parsing/parser.mly" +# 3648 "parsing/parser.mly" ( _1 ) -# 21723 "parsing/parser.ml" +# 21745 "parsing/parser.ml" in let _1 = let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 21730 "parsing/parser.ml" +# 21752 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21738 "parsing/parser.ml" +# 21760 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3851 "parsing/parser.mly" +# 3886 "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 ) -# 21749 "parsing/parser.ml" +# 21771 "parsing/parser.ml" in -# 3845 "parsing/parser.mly" +# 3880 "parsing/parser.mly" ( [head], Closed ) -# 21755 "parsing/parser.ml" +# 21777 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21778,15 +21800,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 3869 "parsing/parser.mly" +# 3904 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21784 "parsing/parser.ml" +# 21806 "parsing/parser.ml" in -# 3845 "parsing/parser.mly" +# 3880 "parsing/parser.mly" ( [head], Closed ) -# 21790 "parsing/parser.ml" +# 21812 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21809,9 +21831,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.object_field list * Asttypes.closed_flag) = -# 3847 "parsing/parser.mly" +# 3882 "parsing/parser.mly" ( [], Open ) -# 21815 "parsing/parser.ml" +# 21837 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21856,9 +21878,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 21862 "parsing/parser.ml" +# 21884 "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 @@ -21870,41 +21892,41 @@ module Tables = struct Parsetree.attributes) = let ty = let _1 = _1_inlined2 in -# 3609 "parsing/parser.mly" +# 3644 "parsing/parser.mly" ( _1 ) -# 21876 "parsing/parser.ml" +# 21898 "parsing/parser.ml" in let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 21884 "parsing/parser.ml" +# 21906 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21892 "parsing/parser.ml" +# 21914 "parsing/parser.ml" in let attrs = -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 21898 "parsing/parser.ml" +# 21920 "parsing/parser.ml" in let _1 = -# 4125 "parsing/parser.mly" +# 4160 "parsing/parser.mly" ( Fresh ) -# 21903 "parsing/parser.ml" +# 21925 "parsing/parser.ml" in -# 2134 "parsing/parser.mly" +# 2156 "parsing/parser.mly" ( (label, private_, Cfk_virtual ty), attrs ) -# 21908 "parsing/parser.ml" +# 21930 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21942,9 +21964,9 @@ module Tables = struct } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 21948 "parsing/parser.ml" +# 21970 "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 @@ -21956,36 +21978,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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 21962 "parsing/parser.ml" +# 21984 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21970 "parsing/parser.ml" +# 21992 "parsing/parser.ml" in let _2 = -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 21976 "parsing/parser.ml" +# 21998 "parsing/parser.ml" in let _1 = -# 4128 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Fresh ) -# 21981 "parsing/parser.ml" +# 22003 "parsing/parser.ml" in -# 2136 "parsing/parser.mly" +# 2158 "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 ) -# 21989 "parsing/parser.ml" +# 22011 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22029,9 +22051,9 @@ module Tables = struct } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined2 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 22035 "parsing/parser.ml" +# 22057 "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 @@ -22044,39 +22066,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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 22050 "parsing/parser.ml" +# 22072 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22058 "parsing/parser.ml" +# 22080 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 22066 "parsing/parser.ml" +# 22088 "parsing/parser.ml" in let _1 = -# 4129 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Override ) -# 22072 "parsing/parser.ml" +# 22094 "parsing/parser.ml" in -# 2136 "parsing/parser.mly" +# 2158 "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 ) -# 22080 "parsing/parser.ml" +# 22102 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22135,9 +22157,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 22141 "parsing/parser.ml" +# 22163 "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 @@ -22149,45 +22171,45 @@ module Tables = struct Parsetree.attributes) = let _6 = let _1 = _1_inlined2 in -# 3609 "parsing/parser.mly" +# 3644 "parsing/parser.mly" ( _1 ) -# 22155 "parsing/parser.ml" +# 22177 "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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 22164 "parsing/parser.ml" +# 22186 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22172 "parsing/parser.ml" +# 22194 "parsing/parser.ml" in let _2 = -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 22178 "parsing/parser.ml" +# 22200 "parsing/parser.ml" in let _1 = -# 4128 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Fresh ) -# 22183 "parsing/parser.ml" +# 22205 "parsing/parser.ml" in -# 2142 "parsing/parser.mly" +# 2164 "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 ) -# 22191 "parsing/parser.ml" +# 22213 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22252,9 +22274,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 22258 "parsing/parser.ml" +# 22280 "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 @@ -22267,48 +22289,48 @@ module Tables = struct Parsetree.attributes) = let _6 = let _1 = _1_inlined3 in -# 3609 "parsing/parser.mly" +# 3644 "parsing/parser.mly" ( _1 ) -# 22273 "parsing/parser.ml" +# 22295 "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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 22282 "parsing/parser.ml" +# 22304 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22290 "parsing/parser.ml" +# 22312 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 22298 "parsing/parser.ml" +# 22320 "parsing/parser.ml" in let _1 = -# 4129 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Override ) -# 22304 "parsing/parser.ml" +# 22326 "parsing/parser.ml" in -# 2142 "parsing/parser.mly" +# 2164 "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 ) -# 22312 "parsing/parser.ml" +# 22334 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22388,9 +22410,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 22394 "parsing/parser.ml" +# 22416 "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 @@ -22400,38 +22422,38 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _7 = -# 2760 "parsing/parser.mly" +# 2793 "parsing/parser.mly" ( xs ) -# 22406 "parsing/parser.ml" +# 22428 "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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 22414 "parsing/parser.ml" +# 22436 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22422 "parsing/parser.ml" +# 22444 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 22429 "parsing/parser.ml" +# 22451 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = -# 4128 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Fresh ) -# 22435 "parsing/parser.ml" +# 22457 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__11_ in @@ -22447,7 +22469,7 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2148 "parsing/parser.mly" +# 2170 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = @@ -22458,7 +22480,7 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22462 "parsing/parser.ml" +# 22484 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22544,9 +22566,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 22550 "parsing/parser.ml" +# 22572 "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 @@ -22557,41 +22579,41 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _7 = -# 2760 "parsing/parser.mly" +# 2793 "parsing/parser.mly" ( xs ) -# 22563 "parsing/parser.ml" +# 22585 "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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 22571 "parsing/parser.ml" +# 22593 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22579 "parsing/parser.ml" +# 22601 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 22588 "parsing/parser.ml" +# 22610 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = -# 4129 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Override ) -# 22595 "parsing/parser.ml" +# 22617 "parsing/parser.ml" in let _endpos = _endpos__11_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -22606,7 +22628,7 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2148 "parsing/parser.mly" +# 2170 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = @@ -22617,7 +22639,7 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22621 "parsing/parser.ml" +# 22643 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22636,17 +22658,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 22642 "parsing/parser.ml" +# 22664 "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) = -# 3970 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( Lident _1 ) -# 22650 "parsing/parser.ml" +# 22672 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22677,9 +22699,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 22683 "parsing/parser.ml" +# 22705 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -22687,9 +22709,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3971 "parsing/parser.mly" +# 4006 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22693 "parsing/parser.ml" +# 22715 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22708,17 +22730,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 891 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 22714 "parsing/parser.ml" +# 22736 "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) = -# 3970 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( Lident _1 ) -# 22722 "parsing/parser.ml" +# 22744 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22749,9 +22771,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 891 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 22755 "parsing/parser.ml" +# 22777 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -22759,9 +22781,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3971 "parsing/parser.mly" +# 4006 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22765 "parsing/parser.ml" +# 22787 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22784,14 +22806,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = let _1 = -# 4008 "parsing/parser.mly" +# 4043 "parsing/parser.mly" ( _1 ) -# 22790 "parsing/parser.ml" +# 22812 "parsing/parser.ml" in -# 3970 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( Lident _1 ) -# 22795 "parsing/parser.ml" +# 22817 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22829,20 +22851,20 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _1 = let _1 = -# 3950 "parsing/parser.mly" +# 3985 "parsing/parser.mly" ( "::" ) -# 22835 "parsing/parser.ml" +# 22857 "parsing/parser.ml" in -# 4008 "parsing/parser.mly" +# 4043 "parsing/parser.mly" ( _1 ) -# 22840 "parsing/parser.ml" +# 22862 "parsing/parser.ml" in -# 3970 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( Lident _1 ) -# 22846 "parsing/parser.ml" +# 22868 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22865,14 +22887,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = let _1 = -# 4008 "parsing/parser.mly" +# 4043 "parsing/parser.mly" ( _1 ) -# 22871 "parsing/parser.ml" +# 22893 "parsing/parser.ml" in -# 3970 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( Lident _1 ) -# 22876 "parsing/parser.ml" +# 22898 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22911,15 +22933,15 @@ module Tables = struct let _v : (Longident.t) = let _3 = let _1 = _1_inlined1 in -# 4008 "parsing/parser.mly" +# 4043 "parsing/parser.mly" ( _1 ) -# 22917 "parsing/parser.ml" +# 22939 "parsing/parser.ml" in -# 3971 "parsing/parser.mly" +# 4006 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22923 "parsing/parser.ml" +# 22945 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22971,20 +22993,20 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _3 = let _1 = -# 3950 "parsing/parser.mly" +# 3985 "parsing/parser.mly" ( "::" ) -# 22977 "parsing/parser.ml" +# 22999 "parsing/parser.ml" in -# 4008 "parsing/parser.mly" +# 4043 "parsing/parser.mly" ( _1 ) -# 22982 "parsing/parser.ml" +# 23004 "parsing/parser.ml" in -# 3971 "parsing/parser.mly" +# 4006 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22988 "parsing/parser.ml" +# 23010 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23023,15 +23045,15 @@ module Tables = struct let _v : (Longident.t) = let _3 = let _1 = _1_inlined1 in -# 4008 "parsing/parser.mly" +# 4043 "parsing/parser.mly" ( _1 ) -# 23029 "parsing/parser.ml" +# 23051 "parsing/parser.ml" in -# 3971 "parsing/parser.mly" +# 4006 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23035 "parsing/parser.ml" +# 23057 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23054,9 +23076,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3970 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( Lident _1 ) -# 23060 "parsing/parser.ml" +# 23082 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23093,9 +23115,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3971 "parsing/parser.mly" +# 4006 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23099 "parsing/parser.ml" +# 23121 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23114,17 +23136,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 23120 "parsing/parser.ml" +# 23142 "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) = -# 3970 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( Lident _1 ) -# 23128 "parsing/parser.ml" +# 23150 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23155,9 +23177,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 23161 "parsing/parser.ml" +# 23183 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23165,9 +23187,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3971 "parsing/parser.mly" +# 4006 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23171 "parsing/parser.ml" +# 23193 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23186,17 +23208,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 891 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 23192 "parsing/parser.ml" +# 23214 "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) = -# 3970 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( Lident _1 ) -# 23200 "parsing/parser.ml" +# 23222 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23227,9 +23249,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 891 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 23233 "parsing/parser.ml" +# 23255 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23237,9 +23259,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3971 "parsing/parser.mly" +# 4006 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23243 "parsing/parser.ml" +# 23265 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23262,9 +23284,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3970 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( Lident _1 ) -# 23268 "parsing/parser.ml" +# 23290 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23301,9 +23323,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3971 "parsing/parser.mly" +# 4006 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23307 "parsing/parser.ml" +# 23329 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23326,9 +23348,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3986 "parsing/parser.mly" +# 4021 "parsing/parser.mly" ( _1 ) -# 23332 "parsing/parser.ml" +# 23354 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23375,9 +23397,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3988 "parsing/parser.mly" +# 4023 "parsing/parser.mly" ( lapply ~loc:_sloc _1 _3 ) -# 23381 "parsing/parser.ml" +# 23403 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23415,9 +23437,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3990 "parsing/parser.mly" +# 4025 "parsing/parser.mly" ( expecting _loc__3_ "module path" ) -# 23421 "parsing/parser.ml" +# 23443 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23440,9 +23462,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3983 "parsing/parser.mly" +# 4018 "parsing/parser.mly" ( _1 ) -# 23446 "parsing/parser.ml" +# 23468 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23472,9 +23494,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = -# 1602 "parsing/parser.mly" +# 1624 "parsing/parser.mly" ( me ) -# 23478 "parsing/parser.ml" +# 23500 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23519,24 +23541,24 @@ module Tables = struct let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1605 "parsing/parser.mly" +# 1627 "parsing/parser.mly" ( Pmod_constraint(me, mty) ) -# 23525 "parsing/parser.ml" +# 23547 "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 -# 1067 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23534 "parsing/parser.ml" +# 23556 "parsing/parser.ml" in -# 1609 "parsing/parser.mly" +# 1631 "parsing/parser.mly" ( _1 ) -# 23540 "parsing/parser.ml" +# 23562 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23567,25 +23589,25 @@ module Tables = struct let _endpos = _endpos_body_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1607 "parsing/parser.mly" +# 1629 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmod_functor(arg, body) ) -# 23574 "parsing/parser.ml" +# 23596 "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 -# 1067 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23583 "parsing/parser.ml" +# 23605 "parsing/parser.ml" in -# 1609 "parsing/parser.mly" +# 1631 "parsing/parser.mly" ( _1 ) -# 23589 "parsing/parser.ml" +# 23611 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23615,9 +23637,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_mty_ in let _v : (Parsetree.module_type) = -# 1863 "parsing/parser.mly" +# 1885 "parsing/parser.mly" ( mty ) -# 23621 "parsing/parser.ml" +# 23643 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23648,25 +23670,25 @@ module Tables = struct let _endpos = _endpos_body_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1866 "parsing/parser.mly" +# 1888 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmty_functor(arg, body) ) -# 23655 "parsing/parser.ml" +# 23677 "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 -# 1069 "parsing/parser.mly" +# 1091 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 23664 "parsing/parser.ml" +# 23686 "parsing/parser.ml" in -# 1869 "parsing/parser.mly" +# 1891 "parsing/parser.mly" ( _1 ) -# 23670 "parsing/parser.ml" +# 23692 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23712,18 +23734,18 @@ module Tables = struct let _v : (Parsetree.module_expr) = let attrs = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 23718 "parsing/parser.ml" +# 23740 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1438 "parsing/parser.mly" +# 1460 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_structure s) ) -# 23727 "parsing/parser.ml" +# 23749 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23769,17 +23791,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 23775 "parsing/parser.ml" +# 23797 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1440 "parsing/parser.mly" +# 1462 "parsing/parser.mly" ( unclosed "struct" _loc__1_ "end" _loc__4_ ) -# 23783 "parsing/parser.ml" +# 23805 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23832,30 +23854,30 @@ module Tables = struct let _v : (Parsetree.module_expr) = let args = let _1 = _1_inlined2 in -# 1404 "parsing/parser.mly" +# 1426 "parsing/parser.mly" ( _1 ) -# 23838 "parsing/parser.ml" +# 23860 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 23846 "parsing/parser.ml" +# 23868 "parsing/parser.ml" in let _endpos = _endpos_me_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1442 "parsing/parser.mly" +# 1464 "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 ) ) -# 23859 "parsing/parser.ml" +# 23881 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23878,9 +23900,9 @@ module Tables = struct let _startpos = _startpos_me_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = -# 1448 "parsing/parser.mly" +# 1470 "parsing/parser.mly" ( me ) -# 23884 "parsing/parser.ml" +# 23906 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23910,9 +23932,9 @@ module Tables = struct let _startpos = _startpos_me_ in let _endpos = _endpos_attr_ in let _v : (Parsetree.module_expr) = -# 1450 "parsing/parser.mly" +# 1472 "parsing/parser.mly" ( Mod.attr me attr ) -# 23916 "parsing/parser.ml" +# 23938 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23941,30 +23963,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 23947 "parsing/parser.ml" +# 23969 "parsing/parser.ml" in -# 1454 "parsing/parser.mly" +# 1476 "parsing/parser.mly" ( Pmod_ident x ) -# 23953 "parsing/parser.ml" +# 23975 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1067 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23962 "parsing/parser.ml" +# 23984 "parsing/parser.ml" in -# 1466 "parsing/parser.mly" +# 1488 "parsing/parser.mly" ( _1 ) -# 23968 "parsing/parser.ml" +# 23990 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23995,24 +24017,24 @@ module Tables = struct let _endpos = _endpos_me2_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1457 "parsing/parser.mly" +# 1479 "parsing/parser.mly" ( Pmod_apply(me1, me2) ) -# 24001 "parsing/parser.ml" +# 24023 "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 -# 1067 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24010 "parsing/parser.ml" +# 24032 "parsing/parser.ml" in -# 1466 "parsing/parser.mly" +# 1488 "parsing/parser.mly" ( _1 ) -# 24016 "parsing/parser.ml" +# 24038 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24054,10 +24076,10 @@ module Tables = struct let _symbolstartpos = _startpos_me1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1460 "parsing/parser.mly" +# 1482 "parsing/parser.mly" ( (* TODO review mkmod location *) Pmod_apply(me1, mkmod ~loc:_sloc (Pmod_structure [])) ) -# 24061 "parsing/parser.ml" +# 24083 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me1_) in @@ -24065,15 +24087,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1067 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24071 "parsing/parser.ml" +# 24093 "parsing/parser.ml" in -# 1466 "parsing/parser.mly" +# 1488 "parsing/parser.mly" ( _1 ) -# 24077 "parsing/parser.ml" +# 24099 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24097,24 +24119,24 @@ module Tables = struct let _endpos = _endpos_ex_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1464 "parsing/parser.mly" +# 1486 "parsing/parser.mly" ( Pmod_extension ex ) -# 24103 "parsing/parser.ml" +# 24125 "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 -# 1067 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24112 "parsing/parser.ml" +# 24134 "parsing/parser.ml" in -# 1466 "parsing/parser.mly" +# 1488 "parsing/parser.mly" ( _1 ) -# 24118 "parsing/parser.ml" +# 24140 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24133,17 +24155,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : ( -# 891 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 24139 "parsing/parser.ml" +# 24161 "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) = -# 1421 "parsing/parser.mly" +# 1443 "parsing/parser.mly" ( Some x ) -# 24147 "parsing/parser.ml" +# 24169 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24166,9 +24188,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string option) = -# 1424 "parsing/parser.mly" +# 1446 "parsing/parser.mly" ( None ) -# 24172 "parsing/parser.ml" +# 24194 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24226,9 +24248,9 @@ module Tables = struct let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 891 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 24232 "parsing/parser.ml" +# 24254 "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 @@ -24239,9 +24261,9 @@ module Tables = struct let _v : (Parsetree.module_substitution * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 24245 "parsing/parser.ml" +# 24267 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -24251,9 +24273,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24257 "parsing/parser.ml" +# 24279 "parsing/parser.ml" in let uid = @@ -24262,31 +24284,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24268 "parsing/parser.ml" +# 24290 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 24276 "parsing/parser.ml" +# 24298 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1899 "parsing/parser.mly" +# 1921 "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 ) -# 24290 "parsing/parser.ml" +# 24312 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24337,9 +24359,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 891 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 24343 "parsing/parser.ml" +# 24365 "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 @@ -24353,24 +24375,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24359 "parsing/parser.ml" +# 24381 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 24367 "parsing/parser.ml" +# 24389 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in -# 1906 "parsing/parser.mly" +# 1928 "parsing/parser.mly" ( expecting _loc__6_ "module path" ) -# 24374 "parsing/parser.ml" +# 24396 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24416,18 +24438,18 @@ module Tables = struct let _v : (Parsetree.module_type) = let attrs = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 24422 "parsing/parser.ml" +# 24444 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1746 "parsing/parser.mly" +# 1768 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs (Pmty_signature s) ) -# 24431 "parsing/parser.ml" +# 24453 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24473,17 +24495,17 @@ module Tables = struct let _v : (Parsetree.module_type) = let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 24479 "parsing/parser.ml" +# 24501 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1748 "parsing/parser.mly" +# 1770 "parsing/parser.mly" ( unclosed "sig" _loc__1_ "end" _loc__4_ ) -# 24487 "parsing/parser.ml" +# 24509 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24536,30 +24558,30 @@ module Tables = struct let _v : (Parsetree.module_type) = let args = let _1 = _1_inlined2 in -# 1404 "parsing/parser.mly" +# 1426 "parsing/parser.mly" ( _1 ) -# 24542 "parsing/parser.ml" +# 24564 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 24550 "parsing/parser.ml" +# 24572 "parsing/parser.ml" in let _endpos = _endpos_mty_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1752 "parsing/parser.mly" +# 1774 "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 ) ) -# 24563 "parsing/parser.ml" +# 24585 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24612,18 +24634,18 @@ module Tables = struct let _v : (Parsetree.module_type) = let _4 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 24618 "parsing/parser.ml" +# 24640 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1758 "parsing/parser.mly" +# 1780 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) ) -# 24627 "parsing/parser.ml" +# 24649 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24660,9 +24682,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_type) = -# 1760 "parsing/parser.mly" +# 1782 "parsing/parser.mly" ( _2 ) -# 24666 "parsing/parser.ml" +# 24688 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24701,9 +24723,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 -# 1762 "parsing/parser.mly" +# 1784 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 24707 "parsing/parser.ml" +# 24729 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24733,9 +24755,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = -# 1764 "parsing/parser.mly" +# 1786 "parsing/parser.mly" ( Mty.attr _1 _2 ) -# 24739 "parsing/parser.ml" +# 24761 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24764,30 +24786,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24770 "parsing/parser.ml" +# 24792 "parsing/parser.ml" in -# 1767 "parsing/parser.mly" +# 1789 "parsing/parser.mly" ( Pmty_ident _1 ) -# 24776 "parsing/parser.ml" +# 24798 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1069 "parsing/parser.mly" +# 1091 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24785 "parsing/parser.ml" +# 24807 "parsing/parser.ml" in -# 1778 "parsing/parser.mly" +# 1800 "parsing/parser.mly" ( _1 ) -# 24791 "parsing/parser.ml" +# 24813 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24825,24 +24847,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1770 "parsing/parser.mly" +# 1792 "parsing/parser.mly" ( Pmty_functor(Named (mknoloc None, _1), _3) ) -# 24831 "parsing/parser.ml" +# 24853 "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 -# 1069 "parsing/parser.mly" +# 1091 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24840 "parsing/parser.ml" +# 24862 "parsing/parser.ml" in -# 1778 "parsing/parser.mly" +# 1800 "parsing/parser.mly" ( _1 ) -# 24846 "parsing/parser.ml" +# 24868 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24884,18 +24906,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 24888 "parsing/parser.ml" +# 24910 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 24893 "parsing/parser.ml" +# 24915 "parsing/parser.ml" in -# 1772 "parsing/parser.mly" +# 1794 "parsing/parser.mly" ( Pmty_with(_1, _3) ) -# 24899 "parsing/parser.ml" +# 24921 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -24903,15 +24925,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1069 "parsing/parser.mly" +# 1091 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24909 "parsing/parser.ml" +# 24931 "parsing/parser.ml" in -# 1778 "parsing/parser.mly" +# 1800 "parsing/parser.mly" ( _1 ) -# 24915 "parsing/parser.ml" +# 24937 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24935,23 +24957,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1776 "parsing/parser.mly" +# 1798 "parsing/parser.mly" ( Pmty_extension _1 ) -# 24941 "parsing/parser.ml" +# 24963 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1069 "parsing/parser.mly" +# 1091 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24949 "parsing/parser.ml" +# 24971 "parsing/parser.ml" in -# 1778 "parsing/parser.mly" +# 1800 "parsing/parser.mly" ( _1 ) -# 24955 "parsing/parser.ml" +# 24977 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25018,9 +25040,9 @@ module Tables = struct let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 25024 "parsing/parser.ml" +# 25046 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -25030,31 +25052,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25036 "parsing/parser.ml" +# 25058 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 25044 "parsing/parser.ml" +# 25066 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1692 "parsing/parser.mly" +# 1714 "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 ) -# 25058 "parsing/parser.ml" +# 25080 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25128,9 +25150,9 @@ module Tables = struct let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 25134 "parsing/parser.ml" +# 25156 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -25140,31 +25162,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25146 "parsing/parser.ml" +# 25168 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 25154 "parsing/parser.ml" +# 25176 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1955 "parsing/parser.mly" +# 1977 "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 ) -# 25168 "parsing/parser.ml" +# 25190 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25187,9 +25209,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3993 "parsing/parser.mly" +# 4028 "parsing/parser.mly" ( _1 ) -# 25193 "parsing/parser.ml" +# 25215 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25205,9 +25227,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag) = -# 4074 "parsing/parser.mly" +# 4109 "parsing/parser.mly" ( Immutable ) -# 25211 "parsing/parser.ml" +# 25233 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25230,9 +25252,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 4075 "parsing/parser.mly" +# 4110 "parsing/parser.mly" ( Mutable ) -# 25236 "parsing/parser.ml" +# 25258 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25248,9 +25270,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4078 "parsing/parser.mly" +# 4113 "parsing/parser.mly" ( Immutable, Nothing ) -# 25254 "parsing/parser.ml" +# 25276 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25273,9 +25295,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4079 "parsing/parser.mly" +# 4114 "parsing/parser.mly" ( Mutable, Nothing ) -# 25279 "parsing/parser.ml" +# 25301 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25298,9 +25320,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4080 "parsing/parser.mly" +# 4115 "parsing/parser.mly" ( Immutable, Global ) -# 25304 "parsing/parser.ml" +# 25326 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25323,9 +25345,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4081 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Immutable, Nonlocal ) -# 25329 "parsing/parser.ml" +# 25351 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25341,9 +25363,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4094 "parsing/parser.mly" +# 4129 "parsing/parser.mly" ( Immutable, Concrete ) -# 25347 "parsing/parser.ml" +# 25369 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25366,9 +25388,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4096 "parsing/parser.mly" +# 4131 "parsing/parser.mly" ( Mutable, Concrete ) -# 25372 "parsing/parser.ml" +# 25394 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25391,9 +25413,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4098 "parsing/parser.mly" +# 4133 "parsing/parser.mly" ( Immutable, Virtual ) -# 25397 "parsing/parser.ml" +# 25419 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25423,9 +25445,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4101 "parsing/parser.mly" +# 4136 "parsing/parser.mly" ( Mutable, Virtual ) -# 25429 "parsing/parser.ml" +# 25451 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25455,9 +25477,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4101 "parsing/parser.mly" +# 4136 "parsing/parser.mly" ( Mutable, Virtual ) -# 25461 "parsing/parser.ml" +# 25483 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25487,9 +25509,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 4045 "parsing/parser.mly" +# 4080 "parsing/parser.mly" ( _2 ) -# 25493 "parsing/parser.ml" +# 25515 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25508,9 +25530,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 25514 "parsing/parser.ml" +# 25536 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -25520,15 +25542,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25526 "parsing/parser.ml" +# 25548 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 25532 "parsing/parser.ml" +# 25554 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25554,9 +25576,9 @@ module Tables = struct } = _menhir_stack in let xs : (string Asttypes.loc list) = Obj.magic xs in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 25560 "parsing/parser.ml" +# 25582 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -25566,15 +25588,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25572 "parsing/parser.ml" +# 25594 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 25578 "parsing/parser.ml" +# 25600 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25593,22 +25615,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let s : ( -# 878 "parsing/parser.mly" +# 900 "parsing/parser.mly" (string * Location.t * string option) -# 25599 "parsing/parser.ml" +# 25621 "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 = -# 4041 "parsing/parser.mly" +# 4076 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 25607 "parsing/parser.ml" +# 25629 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 25612 "parsing/parser.ml" +# 25634 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25634,22 +25656,22 @@ module Tables = struct } = _menhir_stack in let xs : (string list) = Obj.magic xs in let s : ( -# 878 "parsing/parser.mly" +# 900 "parsing/parser.mly" (string * Location.t * string option) -# 25640 "parsing/parser.ml" +# 25662 "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 = -# 4041 "parsing/parser.mly" +# 4076 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 25648 "parsing/parser.ml" +# 25670 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 25653 "parsing/parser.ml" +# 25675 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25672,14 +25694,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 = -# 4070 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( Public ) -# 25678 "parsing/parser.ml" +# 25700 "parsing/parser.ml" in -# 3293 "parsing/parser.mly" +# 3328 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 25683 "parsing/parser.ml" +# 25705 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25709,14 +25731,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 = -# 4071 "parsing/parser.mly" +# 4106 "parsing/parser.mly" ( Private ) -# 25715 "parsing/parser.ml" +# 25737 "parsing/parser.ml" in -# 3293 "parsing/parser.mly" +# 3328 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 25720 "parsing/parser.ml" +# 25742 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25739,26 +25761,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 = -# 4070 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( Public ) -# 25745 "parsing/parser.ml" +# 25767 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 25751 "parsing/parser.ml" +# 25773 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 25756 "parsing/parser.ml" +# 25778 "parsing/parser.ml" in -# 3297 "parsing/parser.mly" +# 3332 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25762 "parsing/parser.ml" +# 25784 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25788,26 +25810,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 = -# 4071 "parsing/parser.mly" +# 4106 "parsing/parser.mly" ( Private ) -# 25794 "parsing/parser.ml" +# 25816 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 25800 "parsing/parser.ml" +# 25822 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 25805 "parsing/parser.ml" +# 25827 "parsing/parser.ml" in -# 3297 "parsing/parser.mly" +# 3332 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25811 "parsing/parser.ml" +# 25833 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25844,33 +25866,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 = -# 4070 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( Public ) -# 25850 "parsing/parser.ml" +# 25872 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 25857 "parsing/parser.ml" +# 25879 "parsing/parser.ml" in # 126 "" ( Some x ) -# 25862 "parsing/parser.ml" +# 25884 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 25868 "parsing/parser.ml" +# 25890 "parsing/parser.ml" in -# 3297 "parsing/parser.mly" +# 3332 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25874 "parsing/parser.ml" +# 25896 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25914,33 +25936,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 = -# 4071 "parsing/parser.mly" +# 4106 "parsing/parser.mly" ( Private ) -# 25920 "parsing/parser.ml" +# 25942 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 25927 "parsing/parser.ml" +# 25949 "parsing/parser.ml" in # 126 "" ( Some x ) -# 25932 "parsing/parser.ml" +# 25954 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 25938 "parsing/parser.ml" +# 25960 "parsing/parser.ml" in -# 3297 "parsing/parser.mly" +# 3332 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25944 "parsing/parser.ml" +# 25966 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25963,26 +25985,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 = -# 4070 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( Public ) -# 25969 "parsing/parser.ml" +# 25991 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 25975 "parsing/parser.ml" +# 25997 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 25980 "parsing/parser.ml" +# 26002 "parsing/parser.ml" in -# 3301 "parsing/parser.mly" +# 3336 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 25986 "parsing/parser.ml" +# 26008 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26012,26 +26034,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 = -# 4071 "parsing/parser.mly" +# 4106 "parsing/parser.mly" ( Private ) -# 26018 "parsing/parser.ml" +# 26040 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26024 "parsing/parser.ml" +# 26046 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 26029 "parsing/parser.ml" +# 26051 "parsing/parser.ml" in -# 3301 "parsing/parser.mly" +# 3336 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26035 "parsing/parser.ml" +# 26057 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26068,33 +26090,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 = -# 4070 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( Public ) -# 26074 "parsing/parser.ml" +# 26096 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26081 "parsing/parser.ml" +# 26103 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26086 "parsing/parser.ml" +# 26108 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 26092 "parsing/parser.ml" +# 26114 "parsing/parser.ml" in -# 3301 "parsing/parser.mly" +# 3336 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26098 "parsing/parser.ml" +# 26120 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26138,33 +26160,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 = -# 4071 "parsing/parser.mly" +# 4106 "parsing/parser.mly" ( Private ) -# 26144 "parsing/parser.ml" +# 26166 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26151 "parsing/parser.ml" +# 26173 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26156 "parsing/parser.ml" +# 26178 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 26162 "parsing/parser.ml" +# 26184 "parsing/parser.ml" in -# 3301 "parsing/parser.mly" +# 3336 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26168 "parsing/parser.ml" +# 26190 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26201,26 +26223,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 = -# 4070 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( Public ) -# 26207 "parsing/parser.ml" +# 26229 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26213 "parsing/parser.ml" +# 26235 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 26218 "parsing/parser.ml" +# 26240 "parsing/parser.ml" in -# 3305 "parsing/parser.mly" +# 3340 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26224 "parsing/parser.ml" +# 26246 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26264,26 +26286,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 = -# 4071 "parsing/parser.mly" +# 4106 "parsing/parser.mly" ( Private ) -# 26270 "parsing/parser.ml" +# 26292 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26276 "parsing/parser.ml" +# 26298 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 26281 "parsing/parser.ml" +# 26303 "parsing/parser.ml" in -# 3305 "parsing/parser.mly" +# 3340 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26287 "parsing/parser.ml" +# 26309 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26334,33 +26356,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 = -# 4070 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( Public ) -# 26340 "parsing/parser.ml" +# 26362 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26347 "parsing/parser.ml" +# 26369 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26352 "parsing/parser.ml" +# 26374 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 26358 "parsing/parser.ml" +# 26380 "parsing/parser.ml" in -# 3305 "parsing/parser.mly" +# 3340 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26364 "parsing/parser.ml" +# 26386 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26418,33 +26440,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 = -# 4071 "parsing/parser.mly" +# 4106 "parsing/parser.mly" ( Private ) -# 26424 "parsing/parser.ml" +# 26446 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26431 "parsing/parser.ml" +# 26453 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26436 "parsing/parser.ml" +# 26458 "parsing/parser.ml" in -# 3309 "parsing/parser.mly" +# 3344 "parsing/parser.mly" ( _1 ) -# 26442 "parsing/parser.ml" +# 26464 "parsing/parser.ml" in -# 3305 "parsing/parser.mly" +# 3340 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26448 "parsing/parser.ml" +# 26470 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26497,37 +26519,37 @@ module Tables = struct let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined2 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 26503 "parsing/parser.ml" +# 26525 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 26512 "parsing/parser.ml" +# 26534 "parsing/parser.ml" in let override = -# 4128 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Fresh ) -# 26518 "parsing/parser.ml" +# 26540 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1711 "parsing/parser.mly" +# 1733 "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 ) -# 26531 "parsing/parser.ml" +# 26553 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26587,37 +26609,37 @@ module Tables = struct let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 26593 "parsing/parser.ml" +# 26615 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 26602 "parsing/parser.ml" +# 26624 "parsing/parser.ml" in let override = -# 4129 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Override ) -# 26608 "parsing/parser.ml" +# 26630 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1711 "parsing/parser.mly" +# 1733 "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 ) -# 26621 "parsing/parser.ml" +# 26643 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26670,9 +26692,9 @@ module Tables = struct let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 26676 "parsing/parser.ml" +# 26698 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -26682,36 +26704,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 26688 "parsing/parser.ml" +# 26710 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 26696 "parsing/parser.ml" +# 26718 "parsing/parser.ml" in let override = -# 4128 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Fresh ) -# 26702 "parsing/parser.ml" +# 26724 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1726 "parsing/parser.mly" +# 1748 "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 ) -# 26715 "parsing/parser.ml" +# 26737 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26771,9 +26793,9 @@ module Tables = struct let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 26777 "parsing/parser.ml" +# 26799 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -26783,36 +26805,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 26789 "parsing/parser.ml" +# 26811 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined2 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 26797 "parsing/parser.ml" +# 26819 "parsing/parser.ml" in let override = -# 4129 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Override ) -# 26803 "parsing/parser.ml" +# 26825 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1726 "parsing/parser.mly" +# 1748 "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 ) -# 26816 "parsing/parser.ml" +# 26838 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26831,17 +26853,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 864 "parsing/parser.mly" +# 886 "parsing/parser.mly" (string) -# 26837 "parsing/parser.ml" +# 26859 "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) = -# 3909 "parsing/parser.mly" +# 3944 "parsing/parser.mly" ( _1 ) -# 26845 "parsing/parser.ml" +# 26867 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26860,17 +26882,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 819 "parsing/parser.mly" +# 841 "parsing/parser.mly" (string) -# 26866 "parsing/parser.ml" +# 26888 "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) = -# 3910 "parsing/parser.mly" +# 3945 "parsing/parser.mly" ( _1 ) -# 26874 "parsing/parser.ml" +# 26896 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26889,17 +26911,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 820 "parsing/parser.mly" +# 842 "parsing/parser.mly" (string) -# 26895 "parsing/parser.ml" +# 26917 "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) = -# 3911 "parsing/parser.mly" +# 3946 "parsing/parser.mly" ( _1 ) -# 26903 "parsing/parser.ml" +# 26925 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26939,17 +26961,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 26945 "parsing/parser.ml" +# 26967 "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) = -# 3912 "parsing/parser.mly" +# 3947 "parsing/parser.mly" ( "."^ _1 ^"(" ^ _3 ^ ")" ) -# 26953 "parsing/parser.ml" +# 26975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26996,17 +27018,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 27002 "parsing/parser.ml" +# 27024 "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) = -# 3913 "parsing/parser.mly" +# 3948 "parsing/parser.mly" ( "."^ _1 ^ "(" ^ _3 ^ ")<-" ) -# 27010 "parsing/parser.ml" +# 27032 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27046,17 +27068,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 27052 "parsing/parser.ml" +# 27074 "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) = -# 3914 "parsing/parser.mly" +# 3949 "parsing/parser.mly" ( "."^ _1 ^"[" ^ _3 ^ "]" ) -# 27060 "parsing/parser.ml" +# 27082 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27103,17 +27125,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 27109 "parsing/parser.ml" +# 27131 "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) = -# 3915 "parsing/parser.mly" +# 3950 "parsing/parser.mly" ( "."^ _1 ^ "[" ^ _3 ^ "]<-" ) -# 27117 "parsing/parser.ml" +# 27139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27153,17 +27175,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 27159 "parsing/parser.ml" +# 27181 "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) = -# 3916 "parsing/parser.mly" +# 3951 "parsing/parser.mly" ( "."^ _1 ^"{" ^ _3 ^ "}" ) -# 27167 "parsing/parser.ml" +# 27189 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27210,17 +27232,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 27216 "parsing/parser.ml" +# 27238 "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) = -# 3917 "parsing/parser.mly" +# 3952 "parsing/parser.mly" ( "."^ _1 ^ "{" ^ _3 ^ "}<-" ) -# 27224 "parsing/parser.ml" +# 27246 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27239,17 +27261,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 875 "parsing/parser.mly" +# 897 "parsing/parser.mly" (string) -# 27245 "parsing/parser.ml" +# 27267 "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) = -# 3918 "parsing/parser.mly" +# 3953 "parsing/parser.mly" ( _1 ) -# 27253 "parsing/parser.ml" +# 27275 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27272,9 +27294,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3919 "parsing/parser.mly" +# 3954 "parsing/parser.mly" ( "!" ) -# 27278 "parsing/parser.ml" +# 27300 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27293,22 +27315,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 813 "parsing/parser.mly" +# 835 "parsing/parser.mly" (string) -# 27299 "parsing/parser.ml" +# 27321 "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 = -# 3923 "parsing/parser.mly" +# 3958 "parsing/parser.mly" ( op ) -# 27307 "parsing/parser.ml" +# 27329 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27312 "parsing/parser.ml" +# 27334 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27327,22 +27349,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 814 "parsing/parser.mly" +# 836 "parsing/parser.mly" (string) -# 27333 "parsing/parser.ml" +# 27355 "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 = -# 3924 "parsing/parser.mly" +# 3959 "parsing/parser.mly" ( op ) -# 27341 "parsing/parser.ml" +# 27363 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27346 "parsing/parser.ml" +# 27368 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27361,22 +27383,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 815 "parsing/parser.mly" +# 837 "parsing/parser.mly" (string) -# 27367 "parsing/parser.ml" +# 27389 "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 = -# 3925 "parsing/parser.mly" +# 3960 "parsing/parser.mly" ( op ) -# 27375 "parsing/parser.ml" +# 27397 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27380 "parsing/parser.ml" +# 27402 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27395,22 +27417,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 816 "parsing/parser.mly" +# 838 "parsing/parser.mly" (string) -# 27401 "parsing/parser.ml" +# 27423 "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 = -# 3926 "parsing/parser.mly" +# 3961 "parsing/parser.mly" ( op ) -# 27409 "parsing/parser.ml" +# 27431 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27414 "parsing/parser.ml" +# 27436 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27429,22 +27451,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 817 "parsing/parser.mly" +# 839 "parsing/parser.mly" (string) -# 27435 "parsing/parser.ml" +# 27457 "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 = -# 3927 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( op ) -# 27443 "parsing/parser.ml" +# 27465 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27448 "parsing/parser.ml" +# 27470 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27467,14 +27489,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3928 "parsing/parser.mly" +# 3963 "parsing/parser.mly" ("+") -# 27473 "parsing/parser.ml" +# 27495 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27478 "parsing/parser.ml" +# 27500 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27497,14 +27519,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3929 "parsing/parser.mly" +# 3964 "parsing/parser.mly" ("+.") -# 27503 "parsing/parser.ml" +# 27525 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27508 "parsing/parser.ml" +# 27530 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27527,14 +27549,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3930 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ("+=") -# 27533 "parsing/parser.ml" +# 27555 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27538 "parsing/parser.ml" +# 27560 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27557,14 +27579,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3931 "parsing/parser.mly" +# 3966 "parsing/parser.mly" ("-") -# 27563 "parsing/parser.ml" +# 27585 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27568 "parsing/parser.ml" +# 27590 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27587,14 +27609,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3932 "parsing/parser.mly" +# 3967 "parsing/parser.mly" ("-.") -# 27593 "parsing/parser.ml" +# 27615 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27598 "parsing/parser.ml" +# 27620 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27617,14 +27639,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3933 "parsing/parser.mly" +# 3968 "parsing/parser.mly" ("*") -# 27623 "parsing/parser.ml" +# 27645 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27628 "parsing/parser.ml" +# 27650 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27647,14 +27669,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3934 "parsing/parser.mly" +# 3969 "parsing/parser.mly" ("%") -# 27653 "parsing/parser.ml" +# 27675 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27658 "parsing/parser.ml" +# 27680 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27677,14 +27699,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3935 "parsing/parser.mly" +# 3970 "parsing/parser.mly" ("=") -# 27683 "parsing/parser.ml" +# 27705 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27688 "parsing/parser.ml" +# 27710 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27707,14 +27729,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3936 "parsing/parser.mly" +# 3971 "parsing/parser.mly" ("<") -# 27713 "parsing/parser.ml" +# 27735 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27718 "parsing/parser.ml" +# 27740 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27737,14 +27759,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3937 "parsing/parser.mly" +# 3972 "parsing/parser.mly" (">") -# 27743 "parsing/parser.ml" +# 27765 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27748 "parsing/parser.ml" +# 27770 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27767,14 +27789,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3938 "parsing/parser.mly" +# 3973 "parsing/parser.mly" ("or") -# 27773 "parsing/parser.ml" +# 27795 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27778 "parsing/parser.ml" +# 27800 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27797,14 +27819,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3939 "parsing/parser.mly" +# 3974 "parsing/parser.mly" ("||") -# 27803 "parsing/parser.ml" +# 27825 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27808 "parsing/parser.ml" +# 27830 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27827,14 +27849,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3940 "parsing/parser.mly" +# 3975 "parsing/parser.mly" ("&") -# 27833 "parsing/parser.ml" +# 27855 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27838 "parsing/parser.ml" +# 27860 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27857,14 +27879,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3941 "parsing/parser.mly" +# 3976 "parsing/parser.mly" ("&&") -# 27863 "parsing/parser.ml" +# 27885 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27868 "parsing/parser.ml" +# 27890 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27887,14 +27909,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3942 "parsing/parser.mly" +# 3977 "parsing/parser.mly" (":=") -# 27893 "parsing/parser.ml" +# 27915 "parsing/parser.ml" in -# 3920 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( _1 ) -# 27898 "parsing/parser.ml" +# 27920 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27917,9 +27939,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (bool) = -# 3824 "parsing/parser.mly" +# 3859 "parsing/parser.mly" ( true ) -# 27923 "parsing/parser.ml" +# 27945 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27935,9 +27957,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (bool) = -# 3825 "parsing/parser.mly" +# 3860 "parsing/parser.mly" ( false ) -# 27941 "parsing/parser.ml" +# 27963 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27955,7 +27977,7 @@ module Tables = struct let _v : (unit option) = # 114 "" ( None ) -# 27959 "parsing/parser.ml" +# 27981 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27980,7 +28002,7 @@ module Tables = struct let _v : (unit option) = # 116 "" ( Some x ) -# 27984 "parsing/parser.ml" +# 28006 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27998,7 +28020,7 @@ module Tables = struct let _v : (unit option) = # 114 "" ( None ) -# 28002 "parsing/parser.ml" +# 28024 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28023,7 +28045,7 @@ module Tables = struct let _v : (unit option) = # 116 "" ( Some x ) -# 28027 "parsing/parser.ml" +# 28049 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28041,7 +28063,7 @@ module Tables = struct let _v : (string Asttypes.loc option) = # 114 "" ( None ) -# 28045 "parsing/parser.ml" +# 28067 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28066,9 +28088,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 28072 "parsing/parser.ml" +# 28094 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -28081,21 +28103,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 28087 "parsing/parser.ml" +# 28109 "parsing/parser.ml" in # 183 "" ( x ) -# 28093 "parsing/parser.ml" +# 28115 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28099 "parsing/parser.ml" +# 28121 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28113,7 +28135,7 @@ module Tables = struct let _v : (Parsetree.core_type option) = # 114 "" ( None ) -# 28117 "parsing/parser.ml" +# 28139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28145,12 +28167,12 @@ module Tables = struct let _v : (Parsetree.core_type option) = let x = # 183 "" ( x ) -# 28149 "parsing/parser.ml" +# 28171 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28154 "parsing/parser.ml" +# 28176 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28168,7 +28190,7 @@ module Tables = struct let _v : (Parsetree.expression option) = # 114 "" ( None ) -# 28172 "parsing/parser.ml" +# 28194 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28200,12 +28222,12 @@ module Tables = struct let _v : (Parsetree.expression option) = let x = # 183 "" ( x ) -# 28204 "parsing/parser.ml" +# 28226 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28209 "parsing/parser.ml" +# 28231 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28223,7 +28245,7 @@ module Tables = struct let _v : (Parsetree.module_type option) = # 114 "" ( None ) -# 28227 "parsing/parser.ml" +# 28249 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28255,12 +28277,12 @@ module Tables = struct let _v : (Parsetree.module_type option) = let x = # 183 "" ( x ) -# 28259 "parsing/parser.ml" +# 28281 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28264 "parsing/parser.ml" +# 28286 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28278,7 +28300,7 @@ module Tables = struct let _v : (Parsetree.pattern option) = # 114 "" ( None ) -# 28282 "parsing/parser.ml" +# 28304 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28310,12 +28332,12 @@ module Tables = struct let _v : (Parsetree.pattern option) = let x = # 183 "" ( x ) -# 28314 "parsing/parser.ml" +# 28336 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28319 "parsing/parser.ml" +# 28341 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28333,7 +28355,7 @@ module Tables = struct let _v : (Parsetree.expression option) = # 114 "" ( None ) -# 28337 "parsing/parser.ml" +# 28359 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28365,12 +28387,12 @@ module Tables = struct let _v : (Parsetree.expression option) = let x = # 183 "" ( x ) -# 28369 "parsing/parser.ml" +# 28391 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28374 "parsing/parser.ml" +# 28396 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28388,7 +28410,7 @@ module Tables = struct let _v : ((Parsetree.core_type option * Parsetree.core_type option) option) = # 114 "" ( None ) -# 28392 "parsing/parser.ml" +# 28414 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28413,7 +28435,7 @@ module Tables = struct let _v : ((Parsetree.core_type option * Parsetree.core_type option) option) = # 116 "" ( Some x ) -# 28417 "parsing/parser.ml" +# 28439 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28432,17 +28454,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 857 "parsing/parser.mly" +# 879 "parsing/parser.mly" (string) -# 28438 "parsing/parser.ml" +# 28460 "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) = -# 4140 "parsing/parser.mly" +# 4175 "parsing/parser.mly" ( _1 ) -# 28446 "parsing/parser.ml" +# 28468 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28474,18 +28496,18 @@ module Tables = struct } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 28480 "parsing/parser.ml" +# 28502 "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) = -# 4141 "parsing/parser.mly" +# 4176 "parsing/parser.mly" ( _2 ) -# 28489 "parsing/parser.ml" +# 28511 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28539,9 +28561,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1475 "parsing/parser.mly" +# 1497 "parsing/parser.mly" ( mkmod ~loc:_sloc (Pmod_constraint(me, mty)) ) -# 28545 "parsing/parser.ml" +# 28567 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28594,9 +28616,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 -# 1477 "parsing/parser.mly" +# 1499 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 28600 "parsing/parser.ml" +# 28622 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28633,9 +28655,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_expr) = -# 1480 "parsing/parser.mly" +# 1502 "parsing/parser.mly" ( me (* TODO consider reloc *) ) -# 28639 "parsing/parser.ml" +# 28661 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28674,9 +28696,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 -# 1482 "parsing/parser.mly" +# 1504 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 28680 "parsing/parser.ml" +# 28702 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28727,25 +28749,25 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.module_expr) = let e = -# 1499 "parsing/parser.mly" +# 1521 "parsing/parser.mly" ( e ) -# 28733 "parsing/parser.ml" +# 28755 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 28740 "parsing/parser.ml" +# 28762 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1486 "parsing/parser.mly" +# 1508 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 28749 "parsing/parser.ml" +# 28771 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28816,11 +28838,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3799 "parsing/parser.mly" +# 3834 "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 ) -# 28824 "parsing/parser.ml" +# 28846 "parsing/parser.ml" in let _endpos_ty_ = _endpos__1_ in @@ -28828,26 +28850,26 @@ module Tables = struct let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1501 "parsing/parser.mly" +# 1523 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) -# 28834 "parsing/parser.ml" +# 28856 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 28842 "parsing/parser.ml" +# 28864 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1486 "parsing/parser.mly" +# 1508 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 28851 "parsing/parser.ml" +# 28873 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28933,11 +28955,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3799 "parsing/parser.mly" +# 3834 "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 ) -# 28941 "parsing/parser.ml" +# 28963 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined1_ in @@ -28946,37 +28968,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3799 "parsing/parser.mly" +# 3834 "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 ) -# 28954 "parsing/parser.ml" +# 28976 "parsing/parser.ml" in let _endpos = _endpos_ty2_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1503 "parsing/parser.mly" +# 1525 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) -# 28963 "parsing/parser.ml" +# 28985 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 28971 "parsing/parser.ml" +# 28993 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1486 "parsing/parser.mly" +# 1508 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 28980 "parsing/parser.ml" +# 29002 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29047,11 +29069,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3799 "parsing/parser.mly" +# 3834 "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 ) -# 29055 "parsing/parser.ml" +# 29077 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_ in @@ -29059,26 +29081,26 @@ module Tables = struct let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1505 "parsing/parser.mly" +# 1527 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) -# 29065 "parsing/parser.ml" +# 29087 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 29073 "parsing/parser.ml" +# 29095 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1486 "parsing/parser.mly" +# 1508 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 29082 "parsing/parser.ml" +# 29104 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29138,17 +29160,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 29144 "parsing/parser.ml" +# 29166 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1488 "parsing/parser.mly" +# 1510 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 29152 "parsing/parser.ml" +# 29174 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29208,17 +29230,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 29214 "parsing/parser.ml" +# 29236 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1490 "parsing/parser.mly" +# 1512 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 29222 "parsing/parser.ml" +# 29244 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29271,17 +29293,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 29277 "parsing/parser.ml" +# 29299 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1492 "parsing/parser.mly" +# 1514 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 29285 "parsing/parser.ml" +# 29307 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29304,9 +29326,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = -# 3337 "parsing/parser.mly" +# 3372 "parsing/parser.mly" ( _1 ) -# 29310 "parsing/parser.ml" +# 29332 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29350,9 +29372,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = -# 3339 "parsing/parser.mly" +# 3374 "parsing/parser.mly" ( {_2 with ptyp_attributes = [_4]}, _1 ) -# 29356 "parsing/parser.ml" +# 29378 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29382,9 +29404,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1394 "parsing/parser.mly" +# 1416 "parsing/parser.mly" ( _1 ) -# 29388 "parsing/parser.ml" +# 29410 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29414,9 +29436,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1379 "parsing/parser.mly" +# 1401 "parsing/parser.mly" ( _1 ) -# 29420 "parsing/parser.ml" +# 29442 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29446,9 +29468,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = -# 1354 "parsing/parser.mly" +# 1376 "parsing/parser.mly" ( _1 ) -# 29452 "parsing/parser.ml" +# 29474 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29478,9 +29500,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 1359 "parsing/parser.mly" +# 1381 "parsing/parser.mly" ( _1 ) -# 29484 "parsing/parser.ml" +# 29506 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29510,9 +29532,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1384 "parsing/parser.mly" +# 1406 "parsing/parser.mly" ( _1 ) -# 29516 "parsing/parser.ml" +# 29538 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29542,9 +29564,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1389 "parsing/parser.mly" +# 1411 "parsing/parser.mly" ( _1 ) -# 29548 "parsing/parser.ml" +# 29570 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29574,9 +29596,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_expr) = -# 1349 "parsing/parser.mly" +# 1371 "parsing/parser.mly" ( _1 ) -# 29580 "parsing/parser.ml" +# 29602 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29606,9 +29628,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = -# 1344 "parsing/parser.mly" +# 1366 "parsing/parser.mly" ( _1 ) -# 29612 "parsing/parser.ml" +# 29634 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29638,9 +29660,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1369 "parsing/parser.mly" +# 1391 "parsing/parser.mly" ( _1 ) -# 29644 "parsing/parser.ml" +# 29666 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29670,9 +29692,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = -# 1364 "parsing/parser.mly" +# 1386 "parsing/parser.mly" ( _1 ) -# 29676 "parsing/parser.ml" +# 29698 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29702,9 +29724,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1374 "parsing/parser.mly" +# 1396 "parsing/parser.mly" ( _1 ) -# 29708 "parsing/parser.ml" +# 29730 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29746,15 +29768,15 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 3018 "parsing/parser.mly" +# 3051 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 29752 "parsing/parser.ml" +# 29774 "parsing/parser.ml" in -# 3006 "parsing/parser.mly" +# 3039 "parsing/parser.mly" ( _1 ) -# 29758 "parsing/parser.ml" +# 29780 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29784,14 +29806,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = -# 3020 "parsing/parser.mly" +# 3053 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 29790 "parsing/parser.ml" +# 29812 "parsing/parser.ml" in -# 3006 "parsing/parser.mly" +# 3039 "parsing/parser.mly" ( _1 ) -# 29795 "parsing/parser.ml" +# 29817 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29814,14 +29836,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = -# 3022 "parsing/parser.mly" +# 3055 "parsing/parser.mly" ( _1 ) -# 29820 "parsing/parser.ml" +# 29842 "parsing/parser.ml" in -# 3006 "parsing/parser.mly" +# 3039 "parsing/parser.mly" ( _1 ) -# 29825 "parsing/parser.ml" +# 29847 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29866,15 +29888,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 29872 "parsing/parser.ml" +# 29894 "parsing/parser.ml" in -# 3025 "parsing/parser.mly" +# 3058 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) -# 29878 "parsing/parser.ml" +# 29900 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -29882,21 +29904,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 29888 "parsing/parser.ml" +# 29910 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 29894 "parsing/parser.ml" +# 29916 "parsing/parser.ml" in -# 3006 "parsing/parser.mly" +# 3039 "parsing/parser.mly" ( _1 ) -# 29900 "parsing/parser.ml" +# 29922 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29937,9 +29959,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3027 "parsing/parser.mly" +# 3060 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) -# 29943 "parsing/parser.ml" +# 29965 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -29947,21 +29969,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 29953 "parsing/parser.ml" +# 29975 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 29959 "parsing/parser.ml" +# 29981 "parsing/parser.ml" in -# 3006 "parsing/parser.mly" +# 3039 "parsing/parser.mly" ( _1 ) -# 29965 "parsing/parser.ml" +# 29987 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29986,29 +30008,29 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3029 "parsing/parser.mly" +# 3062 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) -# 29992 "parsing/parser.ml" +# 30014 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30000 "parsing/parser.ml" +# 30022 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 30006 "parsing/parser.ml" +# 30028 "parsing/parser.ml" in -# 3006 "parsing/parser.mly" +# 3039 "parsing/parser.mly" ( _1 ) -# 30012 "parsing/parser.ml" +# 30034 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30049,9 +30071,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3031 "parsing/parser.mly" +# 3064 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30055 "parsing/parser.ml" +# 30077 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -30059,21 +30081,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30065 "parsing/parser.ml" +# 30087 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 30071 "parsing/parser.ml" +# 30093 "parsing/parser.ml" in -# 3006 "parsing/parser.mly" +# 3039 "parsing/parser.mly" ( _1 ) -# 30077 "parsing/parser.ml" +# 30099 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30112,30 +30134,30 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3033 "parsing/parser.mly" +# 3066 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 30118 "parsing/parser.ml" +# 30140 "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 -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30127 "parsing/parser.ml" +# 30149 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 30133 "parsing/parser.ml" +# 30155 "parsing/parser.ml" in -# 3006 "parsing/parser.mly" +# 3039 "parsing/parser.mly" ( _1 ) -# 30139 "parsing/parser.ml" +# 30161 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30176,9 +30198,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3035 "parsing/parser.mly" +# 3068 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30182 "parsing/parser.ml" +# 30204 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -30186,21 +30208,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30192 "parsing/parser.ml" +# 30214 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 30198 "parsing/parser.ml" +# 30220 "parsing/parser.ml" in -# 3006 "parsing/parser.mly" +# 3039 "parsing/parser.mly" ( _1 ) -# 30204 "parsing/parser.ml" +# 30226 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30248,24 +30270,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 30254 "parsing/parser.ml" +# 30276 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 30260 "parsing/parser.ml" +# 30282 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3008 "parsing/parser.mly" +# 3041 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2) -# 30269 "parsing/parser.ml" +# 30291 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30302,9 +30324,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3139 "parsing/parser.mly" +# 3174 "parsing/parser.mly" ( _3 :: _1 ) -# 30308 "parsing/parser.ml" +# 30330 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30341,9 +30363,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3140 "parsing/parser.mly" +# 3175 "parsing/parser.mly" ( [_3; _1] ) -# 30347 "parsing/parser.ml" +# 30369 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30381,9 +30403,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3141 "parsing/parser.mly" +# 3176 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30387 "parsing/parser.ml" +# 30409 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30420,9 +30442,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3139 "parsing/parser.mly" +# 3174 "parsing/parser.mly" ( _3 :: _1 ) -# 30426 "parsing/parser.ml" +# 30448 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30459,9 +30481,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3140 "parsing/parser.mly" +# 3175 "parsing/parser.mly" ( [_3; _1] ) -# 30465 "parsing/parser.ml" +# 30487 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30499,9 +30521,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3141 "parsing/parser.mly" +# 3176 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30505 "parsing/parser.ml" +# 30527 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30524,9 +30546,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3041 "parsing/parser.mly" +# 3074 "parsing/parser.mly" ( _1 ) -# 30530 "parsing/parser.ml" +# 30552 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30562,15 +30584,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 30568 "parsing/parser.ml" +# 30590 "parsing/parser.ml" in -# 3044 "parsing/parser.mly" +# 3077 "parsing/parser.mly" ( Ppat_construct(_1, Some ([], _2)) ) -# 30574 "parsing/parser.ml" +# 30596 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -30578,15 +30600,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30584 "parsing/parser.ml" +# 30606 "parsing/parser.ml" in -# 3050 "parsing/parser.mly" +# 3083 "parsing/parser.mly" ( _1 ) -# 30590 "parsing/parser.ml" +# 30612 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30646,24 +30668,24 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let newtypes = -# 2760 "parsing/parser.mly" +# 2793 "parsing/parser.mly" ( xs ) -# 30652 "parsing/parser.ml" +# 30674 "parsing/parser.ml" in let constr = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 30661 "parsing/parser.ml" +# 30683 "parsing/parser.ml" in -# 3047 "parsing/parser.mly" +# 3080 "parsing/parser.mly" ( Ppat_construct(constr, Some (newtypes, pat)) ) -# 30667 "parsing/parser.ml" +# 30689 "parsing/parser.ml" in let _endpos__1_ = _endpos_pat_ in @@ -30671,15 +30693,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30677 "parsing/parser.ml" +# 30699 "parsing/parser.ml" in -# 3050 "parsing/parser.mly" +# 3083 "parsing/parser.mly" ( _1 ) -# 30683 "parsing/parser.ml" +# 30705 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30710,24 +30732,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3049 "parsing/parser.mly" +# 3082 "parsing/parser.mly" ( Ppat_variant(_1, Some _2) ) -# 30716 "parsing/parser.ml" +# 30738 "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 -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30725 "parsing/parser.ml" +# 30747 "parsing/parser.ml" in -# 3050 "parsing/parser.mly" +# 3083 "parsing/parser.mly" ( _1 ) -# 30731 "parsing/parser.ml" +# 30753 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30775,24 +30797,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 30781 "parsing/parser.ml" +# 30803 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 30787 "parsing/parser.ml" +# 30809 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3052 "parsing/parser.mly" +# 3085 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2) -# 30796 "parsing/parser.ml" +# 30818 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30834,15 +30856,15 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 3018 "parsing/parser.mly" +# 3051 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 30840 "parsing/parser.ml" +# 30862 "parsing/parser.ml" in -# 3013 "parsing/parser.mly" +# 3046 "parsing/parser.mly" ( _1 ) -# 30846 "parsing/parser.ml" +# 30868 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30872,14 +30894,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = -# 3020 "parsing/parser.mly" +# 3053 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 30878 "parsing/parser.ml" +# 30900 "parsing/parser.ml" in -# 3013 "parsing/parser.mly" +# 3046 "parsing/parser.mly" ( _1 ) -# 30883 "parsing/parser.ml" +# 30905 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30902,14 +30924,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = -# 3022 "parsing/parser.mly" +# 3055 "parsing/parser.mly" ( _1 ) -# 30908 "parsing/parser.ml" +# 30930 "parsing/parser.ml" in -# 3013 "parsing/parser.mly" +# 3046 "parsing/parser.mly" ( _1 ) -# 30913 "parsing/parser.ml" +# 30935 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30954,15 +30976,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 30960 "parsing/parser.ml" +# 30982 "parsing/parser.ml" in -# 3025 "parsing/parser.mly" +# 3058 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) -# 30966 "parsing/parser.ml" +# 30988 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -30970,21 +30992,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30976 "parsing/parser.ml" +# 30998 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 30982 "parsing/parser.ml" +# 31004 "parsing/parser.ml" in -# 3013 "parsing/parser.mly" +# 3046 "parsing/parser.mly" ( _1 ) -# 30988 "parsing/parser.ml" +# 31010 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31025,9 +31047,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3027 "parsing/parser.mly" +# 3060 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) -# 31031 "parsing/parser.ml" +# 31053 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31035,21 +31057,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31041 "parsing/parser.ml" +# 31063 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 31047 "parsing/parser.ml" +# 31069 "parsing/parser.ml" in -# 3013 "parsing/parser.mly" +# 3046 "parsing/parser.mly" ( _1 ) -# 31053 "parsing/parser.ml" +# 31075 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31074,29 +31096,29 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3029 "parsing/parser.mly" +# 3062 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) -# 31080 "parsing/parser.ml" +# 31102 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31088 "parsing/parser.ml" +# 31110 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 31094 "parsing/parser.ml" +# 31116 "parsing/parser.ml" in -# 3013 "parsing/parser.mly" +# 3046 "parsing/parser.mly" ( _1 ) -# 31100 "parsing/parser.ml" +# 31122 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31137,9 +31159,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3031 "parsing/parser.mly" +# 3064 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 31143 "parsing/parser.ml" +# 31165 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31147,21 +31169,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31153 "parsing/parser.ml" +# 31175 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 31159 "parsing/parser.ml" +# 31181 "parsing/parser.ml" in -# 3013 "parsing/parser.mly" +# 3046 "parsing/parser.mly" ( _1 ) -# 31165 "parsing/parser.ml" +# 31187 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31200,30 +31222,30 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3033 "parsing/parser.mly" +# 3066 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 31206 "parsing/parser.ml" +# 31228 "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 -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31215 "parsing/parser.ml" +# 31237 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 31221 "parsing/parser.ml" +# 31243 "parsing/parser.ml" in -# 3013 "parsing/parser.mly" +# 3046 "parsing/parser.mly" ( _1 ) -# 31227 "parsing/parser.ml" +# 31249 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31264,9 +31286,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3035 "parsing/parser.mly" +# 3068 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 31270 "parsing/parser.ml" +# 31292 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31274,21 +31296,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31280 "parsing/parser.ml" +# 31302 "parsing/parser.ml" in -# 3036 "parsing/parser.mly" +# 3069 "parsing/parser.mly" ( _1 ) -# 31286 "parsing/parser.ml" +# 31308 "parsing/parser.ml" in -# 3013 "parsing/parser.mly" +# 3046 "parsing/parser.mly" ( _1 ) -# 31292 "parsing/parser.ml" +# 31314 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31307,9 +31329,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 31313 "parsing/parser.ml" +# 31335 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31321,30 +31343,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 31327 "parsing/parser.ml" +# 31349 "parsing/parser.ml" in -# 2380 "parsing/parser.mly" +# 2402 "parsing/parser.mly" ( Ppat_var _1 ) -# 31333 "parsing/parser.ml" +# 31355 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31342 "parsing/parser.ml" +# 31364 "parsing/parser.ml" in -# 2382 "parsing/parser.mly" +# 2404 "parsing/parser.mly" ( _1 ) -# 31348 "parsing/parser.ml" +# 31370 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31368,23 +31390,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2381 "parsing/parser.mly" +# 2403 "parsing/parser.mly" ( Ppat_any ) -# 31374 "parsing/parser.ml" +# 31396 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31382 "parsing/parser.ml" +# 31404 "parsing/parser.ml" in -# 2382 "parsing/parser.mly" +# 2404 "parsing/parser.mly" ( _1 ) -# 31388 "parsing/parser.ml" +# 31410 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31407,9 +31429,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = -# 4254 "parsing/parser.mly" +# 4289 "parsing/parser.mly" ( PStr _1 ) -# 31413 "parsing/parser.ml" +# 31435 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31439,9 +31461,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4255 "parsing/parser.mly" +# 4290 "parsing/parser.mly" ( PSig _2 ) -# 31445 "parsing/parser.ml" +# 31467 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31471,9 +31493,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4256 "parsing/parser.mly" +# 4291 "parsing/parser.mly" ( PTyp _2 ) -# 31477 "parsing/parser.ml" +# 31499 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31503,9 +31525,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4257 "parsing/parser.mly" +# 4292 "parsing/parser.mly" ( PPat (_2, None) ) -# 31509 "parsing/parser.ml" +# 31531 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31549,9 +31571,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.payload) = -# 4258 "parsing/parser.mly" +# 4293 "parsing/parser.mly" ( PPat (_2, Some _4) ) -# 31555 "parsing/parser.ml" +# 31577 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31574,9 +31596,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 3603 "parsing/parser.mly" +# 3638 "parsing/parser.mly" ( _1 ) -# 31580 "parsing/parser.ml" +# 31602 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31619,24 +31641,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 31623 "parsing/parser.ml" +# 31645 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 31628 "parsing/parser.ml" +# 31650 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 31634 "parsing/parser.ml" +# 31656 "parsing/parser.ml" in -# 3599 "parsing/parser.mly" +# 3634 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 31640 "parsing/parser.ml" +# 31662 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_xs_) in @@ -31644,15 +31666,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 31650 "parsing/parser.ml" +# 31672 "parsing/parser.ml" in -# 3605 "parsing/parser.mly" +# 3640 "parsing/parser.mly" ( _1 ) -# 31656 "parsing/parser.ml" +# 31678 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31675,14 +31697,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = -# 3634 "parsing/parser.mly" +# 3669 "parsing/parser.mly" ( _1 ) -# 31681 "parsing/parser.ml" +# 31703 "parsing/parser.ml" in -# 3603 "parsing/parser.mly" +# 3638 "parsing/parser.mly" ( _1 ) -# 31686 "parsing/parser.ml" +# 31708 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31721,33 +31743,33 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let _3 = -# 3634 "parsing/parser.mly" +# 3669 "parsing/parser.mly" ( _1 ) -# 31727 "parsing/parser.ml" +# 31749 "parsing/parser.ml" in let _1 = let _1 = let xs = # 253 "" ( List.rev xs ) -# 31734 "parsing/parser.ml" +# 31756 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 31739 "parsing/parser.ml" +# 31761 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 31745 "parsing/parser.ml" +# 31767 "parsing/parser.ml" in -# 3599 "parsing/parser.mly" +# 3634 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 31751 "parsing/parser.ml" +# 31773 "parsing/parser.ml" in let _startpos__1_ = _startpos_xs_ in @@ -31755,15 +31777,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 31761 "parsing/parser.ml" +# 31783 "parsing/parser.ml" in -# 3605 "parsing/parser.mly" +# 3640 "parsing/parser.mly" ( _1 ) -# 31767 "parsing/parser.ml" +# 31789 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31810,9 +31832,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4215 "parsing/parser.mly" +# 4250 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 31816 "parsing/parser.ml" +# 31838 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31893,9 +31915,9 @@ module Tables = struct let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 31899 "parsing/parser.ml" +# 31921 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -31905,30 +31927,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 31911 "parsing/parser.ml" +# 31933 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 31919 "parsing/parser.ml" +# 31941 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3203 "parsing/parser.mly" +# 3238 "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 ) -# 31932 "parsing/parser.ml" +# 31954 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31944,14 +31966,14 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag) = let _1 = -# 4070 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( Public ) -# 31950 "parsing/parser.ml" +# 31972 "parsing/parser.ml" in -# 4067 "parsing/parser.mly" +# 4102 "parsing/parser.mly" ( _1 ) -# 31955 "parsing/parser.ml" +# 31977 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31974,14 +31996,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = let _1 = -# 4071 "parsing/parser.mly" +# 4106 "parsing/parser.mly" ( Private ) -# 31980 "parsing/parser.ml" +# 32002 "parsing/parser.ml" in -# 4067 "parsing/parser.mly" +# 4102 "parsing/parser.mly" ( _1 ) -# 31985 "parsing/parser.ml" +# 32007 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31997,9 +32019,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4104 "parsing/parser.mly" +# 4139 "parsing/parser.mly" ( Public, Concrete ) -# 32003 "parsing/parser.ml" +# 32025 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32022,9 +32044,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4105 "parsing/parser.mly" +# 4140 "parsing/parser.mly" ( Private, Concrete ) -# 32028 "parsing/parser.ml" +# 32050 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32047,9 +32069,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4106 "parsing/parser.mly" +# 4141 "parsing/parser.mly" ( Public, Virtual ) -# 32053 "parsing/parser.ml" +# 32075 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32079,9 +32101,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4107 "parsing/parser.mly" +# 4142 "parsing/parser.mly" ( Private, Virtual ) -# 32085 "parsing/parser.ml" +# 32107 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32111,9 +32133,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4108 "parsing/parser.mly" +# 4143 "parsing/parser.mly" ( Private, Virtual ) -# 32117 "parsing/parser.ml" +# 32139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32129,9 +32151,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.rec_flag) = -# 4048 "parsing/parser.mly" +# 4083 "parsing/parser.mly" ( Nonrecursive ) -# 32135 "parsing/parser.ml" +# 32157 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32154,9 +32176,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.rec_flag) = -# 4049 "parsing/parser.mly" +# 4084 "parsing/parser.mly" ( Recursive ) -# 32160 "parsing/parser.ml" +# 32182 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32182,12 +32204,12 @@ module Tables = struct (Longident.t Asttypes.loc * Parsetree.expression) list) = let eo = # 124 "" ( None ) -# 32186 "parsing/parser.ml" +# 32208 "parsing/parser.ml" in -# 2938 "parsing/parser.mly" +# 2971 "parsing/parser.mly" ( eo, fields ) -# 32191 "parsing/parser.ml" +# 32213 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32228,18 +32250,18 @@ module Tables = struct let x = # 191 "" ( x ) -# 32232 "parsing/parser.ml" +# 32254 "parsing/parser.ml" in # 126 "" ( Some x ) -# 32237 "parsing/parser.ml" +# 32259 "parsing/parser.ml" in -# 2938 "parsing/parser.mly" +# 2971 "parsing/parser.mly" ( eo, fields ) -# 32243 "parsing/parser.ml" +# 32265 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32264,17 +32286,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3403 "parsing/parser.mly" +# 3438 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32273 "parsing/parser.ml" +# 32295 "parsing/parser.ml" in -# 1236 "parsing/parser.mly" +# 1258 "parsing/parser.mly" ( [x] ) -# 32278 "parsing/parser.ml" +# 32300 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32299,17 +32321,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3403 "parsing/parser.mly" +# 3438 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32308 "parsing/parser.ml" +# 32330 "parsing/parser.ml" in -# 1239 "parsing/parser.mly" +# 1261 "parsing/parser.mly" ( [x] ) -# 32313 "parsing/parser.ml" +# 32335 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32341,17 +32363,17 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3403 "parsing/parser.mly" +# 3438 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32350 "parsing/parser.ml" +# 32372 "parsing/parser.ml" in -# 1243 "parsing/parser.mly" +# 1265 "parsing/parser.mly" ( x :: xs ) -# 32355 "parsing/parser.ml" +# 32377 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32377,23 +32399,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3533 "parsing/parser.mly" +# 3568 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32386 "parsing/parser.ml" +# 32408 "parsing/parser.ml" in -# 3527 "parsing/parser.mly" +# 3562 "parsing/parser.mly" ( _1 ) -# 32391 "parsing/parser.ml" +# 32413 "parsing/parser.ml" in -# 1236 "parsing/parser.mly" +# 1258 "parsing/parser.mly" ( [x] ) -# 32397 "parsing/parser.ml" +# 32419 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32416,14 +32438,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3529 "parsing/parser.mly" +# 3564 "parsing/parser.mly" ( _1 ) -# 32422 "parsing/parser.ml" +# 32444 "parsing/parser.ml" in -# 1236 "parsing/parser.mly" +# 1258 "parsing/parser.mly" ( [x] ) -# 32427 "parsing/parser.ml" +# 32449 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32449,23 +32471,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3533 "parsing/parser.mly" +# 3568 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32458 "parsing/parser.ml" +# 32480 "parsing/parser.ml" in -# 3527 "parsing/parser.mly" +# 3562 "parsing/parser.mly" ( _1 ) -# 32463 "parsing/parser.ml" +# 32485 "parsing/parser.ml" in -# 1239 "parsing/parser.mly" +# 1261 "parsing/parser.mly" ( [x] ) -# 32469 "parsing/parser.ml" +# 32491 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32488,14 +32510,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3529 "parsing/parser.mly" +# 3564 "parsing/parser.mly" ( _1 ) -# 32494 "parsing/parser.ml" +# 32516 "parsing/parser.ml" in -# 1239 "parsing/parser.mly" +# 1261 "parsing/parser.mly" ( [x] ) -# 32499 "parsing/parser.ml" +# 32521 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32528,23 +32550,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3533 "parsing/parser.mly" +# 3568 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32537 "parsing/parser.ml" +# 32559 "parsing/parser.ml" in -# 3527 "parsing/parser.mly" +# 3562 "parsing/parser.mly" ( _1 ) -# 32542 "parsing/parser.ml" +# 32564 "parsing/parser.ml" in -# 1243 "parsing/parser.mly" +# 1265 "parsing/parser.mly" ( x :: xs ) -# 32548 "parsing/parser.ml" +# 32570 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32574,14 +32596,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3529 "parsing/parser.mly" +# 3564 "parsing/parser.mly" ( _1 ) -# 32580 "parsing/parser.ml" +# 32602 "parsing/parser.ml" in -# 1243 "parsing/parser.mly" +# 1265 "parsing/parser.mly" ( x :: xs ) -# 32585 "parsing/parser.ml" +# 32607 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32606,17 +32628,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3533 "parsing/parser.mly" +# 3568 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32615 "parsing/parser.ml" +# 32637 "parsing/parser.ml" in -# 1236 "parsing/parser.mly" +# 1258 "parsing/parser.mly" ( [x] ) -# 32620 "parsing/parser.ml" +# 32642 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32641,17 +32663,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3533 "parsing/parser.mly" +# 3568 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32650 "parsing/parser.ml" +# 32672 "parsing/parser.ml" in -# 1239 "parsing/parser.mly" +# 1261 "parsing/parser.mly" ( [x] ) -# 32655 "parsing/parser.ml" +# 32677 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32683,17 +32705,17 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3533 "parsing/parser.mly" +# 3568 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32692 "parsing/parser.ml" +# 32714 "parsing/parser.ml" in -# 1243 "parsing/parser.mly" +# 1265 "parsing/parser.mly" ( x :: xs ) -# 32697 "parsing/parser.ml" +# 32719 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32709,9 +32731,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) = -# 1102 "parsing/parser.mly" +# 1124 "parsing/parser.mly" ( [] ) -# 32715 "parsing/parser.ml" +# 32737 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32768,21 +32790,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2249 "parsing/parser.mly" +# 2271 "parsing/parser.mly" ( _1, _3, make_loc _sloc ) -# 32774 "parsing/parser.ml" +# 32796 "parsing/parser.ml" in # 183 "" ( x ) -# 32780 "parsing/parser.ml" +# 32802 "parsing/parser.ml" in -# 1104 "parsing/parser.mly" +# 1126 "parsing/parser.mly" ( x :: xs ) -# 32786 "parsing/parser.ml" +# 32808 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32805,9 +32827,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause list) = -# 1116 "parsing/parser.mly" +# 1138 "parsing/parser.mly" ( [ x ] ) -# 32811 "parsing/parser.ml" +# 32833 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32837,9 +32859,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause list) = -# 1118 "parsing/parser.mly" +# 1140 "parsing/parser.mly" ( x :: xs ) -# 32843 "parsing/parser.ml" +# 32865 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32862,9 +32884,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = -# 1116 "parsing/parser.mly" +# 1138 "parsing/parser.mly" ( [ x ] ) -# 32868 "parsing/parser.ml" +# 32890 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32894,9 +32916,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = -# 1118 "parsing/parser.mly" +# 1140 "parsing/parser.mly" ( x :: xs ) -# 32900 "parsing/parser.ml" +# 32922 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32919,9 +32941,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = -# 1116 "parsing/parser.mly" +# 1138 "parsing/parser.mly" ( [ x ] ) -# 32925 "parsing/parser.ml" +# 32947 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32951,9 +32973,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = -# 1118 "parsing/parser.mly" +# 1140 "parsing/parser.mly" ( x :: xs ) -# 32957 "parsing/parser.ml" +# 32979 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32976,9 +32998,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = -# 1116 "parsing/parser.mly" +# 1138 "parsing/parser.mly" ( [ x ] ) -# 32982 "parsing/parser.ml" +# 33004 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33008,9 +33030,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = -# 1118 "parsing/parser.mly" +# 1140 "parsing/parser.mly" ( x :: xs ) -# 33014 "parsing/parser.ml" +# 33036 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33046,21 +33068,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 33052 "parsing/parser.ml" +# 33074 "parsing/parser.ml" in -# 3591 "parsing/parser.mly" +# 3626 "parsing/parser.mly" ( _2 ) -# 33058 "parsing/parser.ml" +# 33080 "parsing/parser.ml" in -# 1116 "parsing/parser.mly" +# 1138 "parsing/parser.mly" ( [ x ] ) -# 33064 "parsing/parser.ml" +# 33086 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33103,21 +33125,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 33109 "parsing/parser.ml" +# 33131 "parsing/parser.ml" in -# 3591 "parsing/parser.mly" +# 3626 "parsing/parser.mly" ( _2 ) -# 33115 "parsing/parser.ml" +# 33137 "parsing/parser.ml" in -# 1118 "parsing/parser.mly" +# 1140 "parsing/parser.mly" ( x :: xs ) -# 33121 "parsing/parser.ml" +# 33143 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33142,12 +33164,12 @@ module Tables = struct let _v : (Parsetree.case list) = let _1 = # 124 "" ( None ) -# 33146 "parsing/parser.ml" +# 33168 "parsing/parser.ml" in -# 1207 "parsing/parser.mly" +# 1229 "parsing/parser.mly" ( [x] ) -# 33151 "parsing/parser.ml" +# 33173 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33181,13 +33203,13 @@ module Tables = struct # 126 "" ( Some x ) -# 33185 "parsing/parser.ml" +# 33207 "parsing/parser.ml" in -# 1207 "parsing/parser.mly" +# 1229 "parsing/parser.mly" ( [x] ) -# 33191 "parsing/parser.ml" +# 33213 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33224,9 +33246,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.case list) = -# 1211 "parsing/parser.mly" +# 1233 "parsing/parser.mly" ( x :: xs ) -# 33230 "parsing/parser.ml" +# 33252 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33250,20 +33272,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type list) = let xs = let x = -# 3634 "parsing/parser.mly" +# 3669 "parsing/parser.mly" ( _1 ) -# 33256 "parsing/parser.ml" +# 33278 "parsing/parser.ml" in -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 33261 "parsing/parser.ml" +# 33283 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33267 "parsing/parser.ml" +# 33289 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33301,20 +33323,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type list) = let xs = let x = -# 3634 "parsing/parser.mly" +# 3669 "parsing/parser.mly" ( _1 ) -# 33307 "parsing/parser.ml" +# 33329 "parsing/parser.ml" in -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 33312 "parsing/parser.ml" +# 33334 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33318 "parsing/parser.ml" +# 33340 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33337,14 +33359,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause_binding list) = let xs = -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 33343 "parsing/parser.ml" +# 33365 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33348 "parsing/parser.ml" +# 33370 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33381,14 +33403,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause_binding list) = let xs = -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 33387 "parsing/parser.ml" +# 33409 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33392 "parsing/parser.ml" +# 33414 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33411,14 +33433,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.with_constraint list) = let xs = -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 33417 "parsing/parser.ml" +# 33439 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33422 "parsing/parser.ml" +# 33444 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33455,14 +33477,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.with_constraint list) = let xs = -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 33461 "parsing/parser.ml" +# 33483 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33466 "parsing/parser.ml" +# 33488 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33485,14 +33507,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.row_field list) = let xs = -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 33491 "parsing/parser.ml" +# 33513 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33496 "parsing/parser.ml" +# 33518 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33529,14 +33551,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.row_field list) = let xs = -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 33535 "parsing/parser.ml" +# 33557 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33540 "parsing/parser.ml" +# 33562 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33559,14 +33581,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = let xs = -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 33565 "parsing/parser.ml" +# 33587 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33570 "parsing/parser.ml" +# 33592 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33603,14 +33625,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = let xs = -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 33609 "parsing/parser.ml" +# 33631 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33614 "parsing/parser.ml" +# 33636 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33633,14 +33655,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 = -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 33639 "parsing/parser.ml" +# 33661 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33644 "parsing/parser.ml" +# 33666 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33677,14 +33699,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 = -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 33683 "parsing/parser.ml" +# 33705 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33688 "parsing/parser.ml" +# 33710 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33707,14 +33729,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 = -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 33713 "parsing/parser.ml" +# 33735 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33718 "parsing/parser.ml" +# 33740 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33751,14 +33773,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 = -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 33757 "parsing/parser.ml" +# 33779 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33762 "parsing/parser.ml" +# 33784 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33783,30 +33805,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4084 "parsing/parser.mly" +# 4119 "parsing/parser.mly" ( Nothing ) -# 33789 "parsing/parser.ml" +# 33811 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33798 "parsing/parser.ml" +# 33820 "parsing/parser.ml" in -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 33804 "parsing/parser.ml" +# 33826 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33810 "parsing/parser.ml" +# 33832 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33838,30 +33860,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4085 "parsing/parser.mly" +# 4120 "parsing/parser.mly" ( Global ) -# 33844 "parsing/parser.ml" +# 33866 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33853 "parsing/parser.ml" +# 33875 "parsing/parser.ml" in -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 33859 "parsing/parser.ml" +# 33881 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33865 "parsing/parser.ml" +# 33887 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33893,30 +33915,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4086 "parsing/parser.mly" +# 4121 "parsing/parser.mly" ( Nonlocal ) -# 33899 "parsing/parser.ml" +# 33921 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33908 "parsing/parser.ml" +# 33930 "parsing/parser.ml" in -# 1142 "parsing/parser.mly" +# 1164 "parsing/parser.mly" ( [ x ] ) -# 33914 "parsing/parser.ml" +# 33936 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33920 "parsing/parser.ml" +# 33942 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33956,30 +33978,30 @@ module Tables = struct let x = let _endpos__0_ = _endpos__2_ in let gbl = -# 4084 "parsing/parser.mly" +# 4119 "parsing/parser.mly" ( Nothing ) -# 33962 "parsing/parser.ml" +# 33984 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33971 "parsing/parser.ml" +# 33993 "parsing/parser.ml" in -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 33977 "parsing/parser.ml" +# 33999 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 33983 "parsing/parser.ml" +# 34005 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34025,30 +34047,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4085 "parsing/parser.mly" +# 4120 "parsing/parser.mly" ( Global ) -# 34031 "parsing/parser.ml" +# 34053 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34040 "parsing/parser.ml" +# 34062 "parsing/parser.ml" in -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 34046 "parsing/parser.ml" +# 34068 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 34052 "parsing/parser.ml" +# 34074 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34094,30 +34116,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4086 "parsing/parser.mly" +# 4121 "parsing/parser.mly" ( Nonlocal ) -# 34100 "parsing/parser.ml" +# 34122 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3460 "parsing/parser.mly" +# 3495 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34109 "parsing/parser.ml" +# 34131 "parsing/parser.ml" in -# 1146 "parsing/parser.mly" +# 1168 "parsing/parser.mly" ( x :: xs ) -# 34115 "parsing/parser.ml" +# 34137 "parsing/parser.ml" in -# 1150 "parsing/parser.mly" +# 1172 "parsing/parser.mly" ( xs ) -# 34121 "parsing/parser.ml" +# 34143 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34154,9 +34176,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = -# 1173 "parsing/parser.mly" +# 1195 "parsing/parser.mly" ( x :: xs ) -# 34160 "parsing/parser.ml" +# 34182 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34193,9 +34215,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.core_type list) = -# 1177 "parsing/parser.mly" +# 1199 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34199 "parsing/parser.ml" +# 34221 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34232,9 +34254,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.expression list) = -# 1173 "parsing/parser.mly" +# 1195 "parsing/parser.mly" ( x :: xs ) -# 34238 "parsing/parser.ml" +# 34260 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34271,9 +34293,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.expression list) = -# 1177 "parsing/parser.mly" +# 1199 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34277 "parsing/parser.ml" +# 34299 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34310,9 +34332,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = -# 1173 "parsing/parser.mly" +# 1195 "parsing/parser.mly" ( x :: xs ) -# 34316 "parsing/parser.ml" +# 34338 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34349,9 +34371,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.core_type list) = -# 1177 "parsing/parser.mly" +# 1199 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34355 "parsing/parser.ml" +# 34377 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34374,9 +34396,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.row_field) = -# 3809 "parsing/parser.mly" +# 3844 "parsing/parser.mly" ( _1 ) -# 34380 "parsing/parser.ml" +# 34402 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34402,9 +34424,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3811 "parsing/parser.mly" +# 3846 "parsing/parser.mly" ( Rf.inherit_ ~loc:(make_loc _sloc) _1 ) -# 34408 "parsing/parser.ml" +# 34430 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34429,12 +34451,12 @@ module Tables = struct let _v : (Parsetree.expression list) = let _2 = # 124 "" ( None ) -# 34433 "parsing/parser.ml" +# 34455 "parsing/parser.ml" in -# 1194 "parsing/parser.mly" +# 1216 "parsing/parser.mly" ( [x] ) -# 34438 "parsing/parser.ml" +# 34460 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34468,13 +34490,13 @@ module Tables = struct # 126 "" ( Some x ) -# 34472 "parsing/parser.ml" +# 34494 "parsing/parser.ml" in -# 1194 "parsing/parser.mly" +# 1216 "parsing/parser.mly" ( [x] ) -# 34478 "parsing/parser.ml" +# 34500 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34511,9 +34533,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.expression list) = -# 1198 "parsing/parser.mly" +# 1220 "parsing/parser.mly" ( x :: xs ) -# 34517 "parsing/parser.ml" +# 34539 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34539,9 +34561,9 @@ module Tables = struct } = _menhir_stack in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 34545 "parsing/parser.ml" +# 34567 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34549,26 +34571,26 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) -# 34553 "parsing/parser.ml" +# 34575 "parsing/parser.ml" in let x = let label = let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 34560 "parsing/parser.ml" +# 34582 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34568 "parsing/parser.ml" +# 34590 "parsing/parser.ml" in -# 2961 "parsing/parser.mly" +# 2994 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34578,13 +34600,13 @@ module Tables = struct label, e in label, e ) -# 34582 "parsing/parser.ml" +# 34604 "parsing/parser.ml" in -# 1194 "parsing/parser.mly" +# 1216 "parsing/parser.mly" ( [x] ) -# 34588 "parsing/parser.ml" +# 34610 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34617,9 +34639,9 @@ module Tables = struct let x : unit = Obj.magic x in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 34623 "parsing/parser.ml" +# 34645 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34627,26 +34649,26 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) -# 34631 "parsing/parser.ml" +# 34653 "parsing/parser.ml" in let x = let label = let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 34638 "parsing/parser.ml" +# 34660 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34646 "parsing/parser.ml" +# 34668 "parsing/parser.ml" in -# 2961 "parsing/parser.mly" +# 2994 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34656,13 +34678,13 @@ module Tables = struct label, e in label, e ) -# 34660 "parsing/parser.ml" +# 34682 "parsing/parser.ml" in -# 1194 "parsing/parser.mly" +# 1216 "parsing/parser.mly" ( [x] ) -# 34666 "parsing/parser.ml" +# 34688 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34702,9 +34724,9 @@ module Tables = struct let _2 : unit = Obj.magic _2 in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 34708 "parsing/parser.ml" +# 34730 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34712,21 +34734,21 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let x = let label = let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 34718 "parsing/parser.ml" +# 34740 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34726 "parsing/parser.ml" +# 34748 "parsing/parser.ml" in -# 2961 "parsing/parser.mly" +# 2994 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34736,13 +34758,13 @@ module Tables = struct label, e in label, e ) -# 34740 "parsing/parser.ml" +# 34762 "parsing/parser.ml" in -# 1198 "parsing/parser.mly" +# 1220 "parsing/parser.mly" ( x :: xs ) -# 34746 "parsing/parser.ml" +# 34768 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34767,12 +34789,12 @@ module Tables = struct let _v : (Parsetree.pattern list) = let _2 = # 124 "" ( None ) -# 34771 "parsing/parser.ml" +# 34793 "parsing/parser.ml" in -# 1194 "parsing/parser.mly" +# 1216 "parsing/parser.mly" ( [x] ) -# 34776 "parsing/parser.ml" +# 34798 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34806,13 +34828,13 @@ module Tables = struct # 126 "" ( Some x ) -# 34810 "parsing/parser.ml" +# 34832 "parsing/parser.ml" in -# 1194 "parsing/parser.mly" +# 1216 "parsing/parser.mly" ( [x] ) -# 34816 "parsing/parser.ml" +# 34838 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34849,9 +34871,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.pattern list) = -# 1198 "parsing/parser.mly" +# 1220 "parsing/parser.mly" ( x :: xs ) -# 34855 "parsing/parser.ml" +# 34877 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34890,7 +34912,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) -# 34894 "parsing/parser.ml" +# 34916 "parsing/parser.ml" in let x = let label = @@ -34898,9 +34920,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34904 "parsing/parser.ml" +# 34926 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -34908,7 +34930,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 2944 "parsing/parser.mly" +# 2977 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -34918,13 +34940,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 34922 "parsing/parser.ml" +# 34944 "parsing/parser.ml" in -# 1194 "parsing/parser.mly" +# 1216 "parsing/parser.mly" ( [x] ) -# 34928 "parsing/parser.ml" +# 34950 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34970,7 +34992,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) -# 34974 "parsing/parser.ml" +# 34996 "parsing/parser.ml" in let x = let label = @@ -34978,9 +35000,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34984 "parsing/parser.ml" +# 35006 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -34988,7 +35010,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 2944 "parsing/parser.mly" +# 2977 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -34998,13 +35020,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35002 "parsing/parser.ml" +# 35024 "parsing/parser.ml" in -# 1194 "parsing/parser.mly" +# 1216 "parsing/parser.mly" ( [x] ) -# 35008 "parsing/parser.ml" +# 35030 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35060,9 +35082,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35066 "parsing/parser.ml" +# 35088 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -35070,7 +35092,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 2944 "parsing/parser.mly" +# 2977 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -35080,13 +35102,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35084 "parsing/parser.ml" +# 35106 "parsing/parser.ml" in -# 1198 "parsing/parser.mly" +# 1220 "parsing/parser.mly" ( x :: xs ) -# 35090 "parsing/parser.ml" +# 35112 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35109,9 +35131,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2338 "parsing/parser.mly" +# 2360 "parsing/parser.mly" ( _1 ) -# 35115 "parsing/parser.ml" +# 35137 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35141,9 +35163,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2339 "parsing/parser.mly" +# 2361 "parsing/parser.mly" ( _1 ) -# 35147 "parsing/parser.ml" +# 35169 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35181,24 +35203,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2341 "parsing/parser.mly" +# 2363 "parsing/parser.mly" ( Pexp_sequence(_1, _3) ) -# 35187 "parsing/parser.ml" +# 35209 "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 -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 35196 "parsing/parser.ml" +# 35218 "parsing/parser.ml" in -# 2342 "parsing/parser.mly" +# 2364 "parsing/parser.mly" ( _1 ) -# 35202 "parsing/parser.ml" +# 35224 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35252,11 +35274,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2344 "parsing/parser.mly" +# 2366 "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)) ) -# 35260 "parsing/parser.ml" +# 35282 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35324,18 +35346,18 @@ module Tables = struct let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined4 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 35330 "parsing/parser.ml" +# 35352 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined4_ in let attrs2 = let _1 = _1_inlined3 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 35339 "parsing/parser.ml" +# 35361 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -35345,17 +35367,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35351 "parsing/parser.ml" +# 35373 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 35359 "parsing/parser.ml" +# 35381 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in @@ -35363,14 +35385,14 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3433 "parsing/parser.mly" +# 3468 "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 ) -# 35374 "parsing/parser.ml" +# 35396 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35396,21 +35418,21 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 35400 "parsing/parser.ml" +# 35422 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1017 "parsing/parser.mly" +# 1039 "parsing/parser.mly" ( extra_sig _startpos _endpos _1 ) -# 35408 "parsing/parser.ml" +# 35430 "parsing/parser.ml" in -# 1784 "parsing/parser.mly" +# 1806 "parsing/parser.mly" ( _1 ) -# 35414 "parsing/parser.ml" +# 35436 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35442,9 +35464,9 @@ module Tables = struct let _v : (Parsetree.signature_item) = let _2 = let _1 = _1_inlined1 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 35448 "parsing/parser.ml" +# 35470 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -35452,10 +35474,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1799 "parsing/parser.mly" +# 1821 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mksig ~loc:_sloc (Psig_extension (_1, (add_docs_attrs docs _2))) ) -# 35459 "parsing/parser.ml" +# 35481 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35479,23 +35501,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1803 "parsing/parser.mly" +# 1825 "parsing/parser.mly" ( Psig_attribute _1 ) -# 35485 "parsing/parser.ml" +# 35507 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1065 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mksig ~loc:_sloc _1 ) -# 35493 "parsing/parser.ml" +# 35515 "parsing/parser.ml" in -# 1805 "parsing/parser.mly" +# 1827 "parsing/parser.mly" ( _1 ) -# 35499 "parsing/parser.ml" +# 35521 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35519,23 +35541,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1808 "parsing/parser.mly" +# 1830 "parsing/parser.mly" ( psig_value _1 ) -# 35525 "parsing/parser.ml" +# 35547 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35533 "parsing/parser.ml" +# 35555 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 35539 "parsing/parser.ml" +# 35561 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35559,23 +35581,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1810 "parsing/parser.mly" +# 1832 "parsing/parser.mly" ( psig_value _1 ) -# 35565 "parsing/parser.ml" +# 35587 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35573 "parsing/parser.ml" +# 35595 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 35579 "parsing/parser.ml" +# 35601 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35610,26 +35632,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1255 "parsing/parser.mly" +# 1277 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 35616 "parsing/parser.ml" +# 35638 "parsing/parser.ml" in -# 3239 "parsing/parser.mly" +# 3274 "parsing/parser.mly" ( _1 ) -# 35621 "parsing/parser.ml" +# 35643 "parsing/parser.ml" in -# 3222 "parsing/parser.mly" +# 3257 "parsing/parser.mly" ( _1 ) -# 35627 "parsing/parser.ml" +# 35649 "parsing/parser.ml" in -# 1812 "parsing/parser.mly" +# 1834 "parsing/parser.mly" ( psig_type _1 ) -# 35633 "parsing/parser.ml" +# 35655 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -35637,15 +35659,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35643 "parsing/parser.ml" +# 35665 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 35649 "parsing/parser.ml" +# 35671 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35680,26 +35702,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1255 "parsing/parser.mly" +# 1277 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 35686 "parsing/parser.ml" +# 35708 "parsing/parser.ml" in -# 3239 "parsing/parser.mly" +# 3274 "parsing/parser.mly" ( _1 ) -# 35691 "parsing/parser.ml" +# 35713 "parsing/parser.ml" in -# 3227 "parsing/parser.mly" +# 3262 "parsing/parser.mly" ( _1 ) -# 35697 "parsing/parser.ml" +# 35719 "parsing/parser.ml" in -# 1814 "parsing/parser.mly" +# 1836 "parsing/parser.mly" ( psig_typesubst _1 ) -# 35703 "parsing/parser.ml" +# 35725 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -35707,15 +35729,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35713 "parsing/parser.ml" +# 35735 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 35719 "parsing/parser.ml" +# 35741 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35800,16 +35822,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 35806 "parsing/parser.ml" +# 35828 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = -# 1247 "parsing/parser.mly" +# 1269 "parsing/parser.mly" ( List.rev xs ) -# 35813 "parsing/parser.ml" +# 35835 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -35817,46 +35839,46 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35823 "parsing/parser.ml" +# 35845 "parsing/parser.ml" in let _4 = -# 4056 "parsing/parser.mly" +# 4091 "parsing/parser.mly" ( Recursive ) -# 35829 "parsing/parser.ml" +# 35851 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 35836 "parsing/parser.ml" +# 35858 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3520 "parsing/parser.mly" +# 3555 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 35848 "parsing/parser.ml" +# 35870 "parsing/parser.ml" in -# 3507 "parsing/parser.mly" +# 3542 "parsing/parser.mly" ( _1 ) -# 35854 "parsing/parser.ml" +# 35876 "parsing/parser.ml" in -# 1816 "parsing/parser.mly" +# 1838 "parsing/parser.mly" ( psig_typext _1 ) -# 35860 "parsing/parser.ml" +# 35882 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -35864,15 +35886,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35870 "parsing/parser.ml" +# 35892 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 35876 "parsing/parser.ml" +# 35898 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35964,16 +35986,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 35970 "parsing/parser.ml" +# 35992 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = -# 1247 "parsing/parser.mly" +# 1269 "parsing/parser.mly" ( List.rev xs ) -# 35977 "parsing/parser.ml" +# 35999 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -35981,9 +36003,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35987 "parsing/parser.ml" +# 36009 "parsing/parser.ml" in let _4 = @@ -35992,41 +36014,41 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4058 "parsing/parser.mly" +# 4093 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 35998 "parsing/parser.ml" +# 36020 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 36006 "parsing/parser.ml" +# 36028 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3520 "parsing/parser.mly" +# 3555 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 36018 "parsing/parser.ml" +# 36040 "parsing/parser.ml" in -# 3507 "parsing/parser.mly" +# 3542 "parsing/parser.mly" ( _1 ) -# 36024 "parsing/parser.ml" +# 36046 "parsing/parser.ml" in -# 1816 "parsing/parser.mly" +# 1838 "parsing/parser.mly" ( psig_typext _1 ) -# 36030 "parsing/parser.ml" +# 36052 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -36034,15 +36056,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36040 "parsing/parser.ml" +# 36062 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36046 "parsing/parser.ml" +# 36068 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36066,23 +36088,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1818 "parsing/parser.mly" +# 1840 "parsing/parser.mly" ( psig_exception _1 ) -# 36072 "parsing/parser.ml" +# 36094 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36080 "parsing/parser.ml" +# 36102 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36086 "parsing/parser.ml" +# 36108 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36145,9 +36167,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 36151 "parsing/parser.ml" +# 36173 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -36157,37 +36179,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36163 "parsing/parser.ml" +# 36185 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 36171 "parsing/parser.ml" +# 36193 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1852 "parsing/parser.mly" +# 1874 "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 ) -# 36185 "parsing/parser.ml" +# 36207 "parsing/parser.ml" in -# 1820 "parsing/parser.mly" +# 1842 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 36191 "parsing/parser.ml" +# 36213 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -36195,15 +36217,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36201 "parsing/parser.ml" +# 36223 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36207 "parsing/parser.ml" +# 36229 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36273,9 +36295,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 36279 "parsing/parser.ml" +# 36301 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -36286,9 +36308,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36292 "parsing/parser.ml" +# 36314 "parsing/parser.ml" in let (_endpos_id_, _startpos_id_) = (_endpos__1_, _startpos__1_) in @@ -36296,9 +36318,9 @@ module Tables = struct let _symbolstartpos = _startpos_id_ in let _sloc = (_symbolstartpos, _endpos) in -# 1889 "parsing/parser.mly" +# 1911 "parsing/parser.mly" ( Mty.alias ~loc:(make_loc _sloc) id ) -# 36302 "parsing/parser.ml" +# 36324 "parsing/parser.ml" in let name = @@ -36307,37 +36329,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36313 "parsing/parser.ml" +# 36335 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 36321 "parsing/parser.ml" +# 36343 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1880 "parsing/parser.mly" +# 1902 "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 ) -# 36335 "parsing/parser.ml" +# 36357 "parsing/parser.ml" in -# 1822 "parsing/parser.mly" +# 1844 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 36341 "parsing/parser.ml" +# 36363 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -36345,15 +36367,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36351 "parsing/parser.ml" +# 36373 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36357 "parsing/parser.ml" +# 36379 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36377,23 +36399,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1824 "parsing/parser.mly" +# 1846 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modsubst body, ext) ) -# 36383 "parsing/parser.ml" +# 36405 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36391 "parsing/parser.ml" +# 36413 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36397 "parsing/parser.ml" +# 36419 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36479,9 +36501,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 36485 "parsing/parser.ml" +# 36507 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -36491,49 +36513,49 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36497 "parsing/parser.ml" +# 36519 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 36505 "parsing/parser.ml" +# 36527 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1923 "parsing/parser.mly" +# 1945 "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 ) -# 36519 "parsing/parser.ml" +# 36541 "parsing/parser.ml" in -# 1255 "parsing/parser.mly" +# 1277 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 36525 "parsing/parser.ml" +# 36547 "parsing/parser.ml" in -# 1912 "parsing/parser.mly" +# 1934 "parsing/parser.mly" ( _1 ) -# 36531 "parsing/parser.ml" +# 36553 "parsing/parser.ml" in -# 1826 "parsing/parser.mly" +# 1848 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_recmodule l, ext) ) -# 36537 "parsing/parser.ml" +# 36559 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -36541,15 +36563,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36547 "parsing/parser.ml" +# 36569 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36553 "parsing/parser.ml" +# 36575 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36573,23 +36595,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1828 "parsing/parser.mly" +# 1850 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtype body, ext) ) -# 36579 "parsing/parser.ml" +# 36601 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36587 "parsing/parser.ml" +# 36609 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36593 "parsing/parser.ml" +# 36615 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36613,23 +36635,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1830 "parsing/parser.mly" +# 1852 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtypesubst body, ext) ) -# 36619 "parsing/parser.ml" +# 36641 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36627 "parsing/parser.ml" +# 36649 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36633 "parsing/parser.ml" +# 36655 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36653,23 +36675,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1832 "parsing/parser.mly" +# 1854 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_open body, ext) ) -# 36659 "parsing/parser.ml" +# 36681 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36667 "parsing/parser.ml" +# 36689 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36673 "parsing/parser.ml" +# 36695 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36725,22 +36747,22 @@ module Tables = struct let attrs2 = let _1 = _1_inlined1 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 36731 "parsing/parser.ml" +# 36753 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined1_ in let attrs1 = -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 36738 "parsing/parser.ml" +# 36760 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos_is_functor_ in let _sloc = (_symbolstartpos, _endpos) in -# 1671 "parsing/parser.mly" +# 1693 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -36752,16 +36774,16 @@ module Tables = struct else wrap (incl, ext) ) -# 36756 "parsing/parser.ml" +# 36778 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1856 "parsing/parser.mly" ( _1 psig_include (fun ~loc incl -> Jane_syntax.Include_functor.sig_item_of ~loc (Ifsig_include_functor incl)) ) -# 36765 "parsing/parser.ml" +# 36787 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in @@ -36769,15 +36791,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36775 "parsing/parser.ml" +# 36797 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36781 "parsing/parser.ml" +# 36803 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36854,9 +36876,9 @@ module Tables = struct let cty : (Parsetree.class_type) = Obj.magic cty in let _7 : unit = Obj.magic _7 in let _1_inlined2 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 36860 "parsing/parser.ml" +# 36882 "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 @@ -36874,9 +36896,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 36880 "parsing/parser.ml" +# 36902 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -36886,24 +36908,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36892 "parsing/parser.ml" +# 36914 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 36900 "parsing/parser.ml" +# 36922 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2270 "parsing/parser.mly" +# 2292 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -36911,25 +36933,25 @@ module Tables = struct ext, Ci.mk id cty ~virt ~params ~attrs ~loc ~docs ) -# 36915 "parsing/parser.ml" +# 36937 "parsing/parser.ml" in -# 1255 "parsing/parser.mly" +# 1277 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 36921 "parsing/parser.ml" +# 36943 "parsing/parser.ml" in -# 2258 "parsing/parser.mly" +# 2280 "parsing/parser.mly" ( _1 ) -# 36927 "parsing/parser.ml" +# 36949 "parsing/parser.ml" in -# 1839 "parsing/parser.mly" +# 1861 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class l, ext) ) -# 36933 "parsing/parser.ml" +# 36955 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -36937,15 +36959,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36943 "parsing/parser.ml" +# 36965 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36949 "parsing/parser.ml" +# 36971 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36969,23 +36991,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1841 "parsing/parser.mly" +# 1863 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class_type l, ext) ) -# 36975 "parsing/parser.ml" +# 36997 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1082 "parsing/parser.mly" +# 1104 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36983 "parsing/parser.ml" +# 37005 "parsing/parser.ml" in -# 1843 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( _1 ) -# 36989 "parsing/parser.ml" +# 37011 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37008,9 +37030,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3885 "parsing/parser.mly" +# 3920 "parsing/parser.mly" ( _1 ) -# 37014 "parsing/parser.ml" +# 37036 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37035,18 +37057,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 823 "parsing/parser.mly" +# 845 "parsing/parser.mly" (string * char option) -# 37041 "parsing/parser.ml" +# 37063 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 3886 "parsing/parser.mly" +# 3921 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer("-" ^ n, m) ) -# 37050 "parsing/parser.ml" +# 37072 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37071,18 +37093,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 801 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string * char option) -# 37077 "parsing/parser.ml" +# 37099 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 3887 "parsing/parser.mly" +# 3922 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float("-" ^ f, m) ) -# 37086 "parsing/parser.ml" +# 37108 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37107,18 +37129,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 823 "parsing/parser.mly" +# 845 "parsing/parser.mly" (string * char option) -# 37113 "parsing/parser.ml" +# 37135 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 3888 "parsing/parser.mly" +# 3923 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer (n, m) ) -# 37122 "parsing/parser.ml" +# 37144 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37143,18 +37165,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 801 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string * char option) -# 37149 "parsing/parser.ml" +# 37171 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 3889 "parsing/parser.mly" +# 3924 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float(f, m) ) -# 37158 "parsing/parser.ml" +# 37180 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37195,18 +37217,18 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 3151 "parsing/parser.mly" +# 3186 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 37203 "parsing/parser.ml" +# 37225 "parsing/parser.ml" in -# 3118 "parsing/parser.mly" +# 3151 "parsing/parser.mly" ( let (fields, closed) = _2 in Ppat_record(fields, closed) ) -# 37210 "parsing/parser.ml" +# 37232 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37214,15 +37236,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37220 "parsing/parser.ml" +# 37242 "parsing/parser.ml" in -# 3136 "parsing/parser.mly" +# 3171 "parsing/parser.mly" ( _1 ) -# 37226 "parsing/parser.ml" +# 37248 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37263,19 +37285,19 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 3151 "parsing/parser.mly" +# 3186 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 37271 "parsing/parser.ml" +# 37293 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3121 "parsing/parser.mly" +# 3154 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 37279 "parsing/parser.ml" +# 37301 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37283,15 +37305,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37289 "parsing/parser.ml" +# 37311 "parsing/parser.ml" in -# 3136 "parsing/parser.mly" +# 3171 "parsing/parser.mly" ( _1 ) -# 37295 "parsing/parser.ml" +# 37317 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37330,15 +37352,15 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3145 "parsing/parser.mly" +# 3180 "parsing/parser.mly" ( ps ) -# 37336 "parsing/parser.ml" +# 37358 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3123 "parsing/parser.mly" +# 3156 "parsing/parser.mly" ( fst (mktailpat _loc__3_ _2) ) -# 37342 "parsing/parser.ml" +# 37364 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37346,15 +37368,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37352 "parsing/parser.ml" +# 37374 "parsing/parser.ml" in -# 3136 "parsing/parser.mly" +# 3171 "parsing/parser.mly" ( _1 ) -# 37358 "parsing/parser.ml" +# 37380 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37393,16 +37415,16 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3145 "parsing/parser.mly" +# 3180 "parsing/parser.mly" ( ps ) -# 37399 "parsing/parser.ml" +# 37421 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3125 "parsing/parser.mly" +# 3158 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 37406 "parsing/parser.ml" +# 37428 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37410,15 +37432,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37416 "parsing/parser.ml" +# 37438 "parsing/parser.ml" in -# 3136 "parsing/parser.mly" +# 3171 "parsing/parser.mly" ( _1 ) -# 37422 "parsing/parser.ml" +# 37444 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37459,29 +37481,30 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3145 "parsing/parser.mly" +# 3180 "parsing/parser.mly" ( ps ) -# 37465 "parsing/parser.ml" +# 37487 "parsing/parser.ml" in -# 2626 "parsing/parser.mly" - ( Generic_array.Literal _2 ) -# 37470 "parsing/parser.ml" +# 2665 "parsing/parser.mly" + ( Generic_array.Simple.Literal _2 ) +# 37492 "parsing/parser.ml" in -# 2648 "parsing/parser.mly" +# 2689 "parsing/parser.mly" ( _1 ) -# 37476 "parsing/parser.ml" +# 37498 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" - ( Generic_array.pattern +# 3160 "parsing/parser.mly" + ( Generic_array.Pattern.to_pattern_desc "[|" "|]" (fun elts -> Ppat_array elts) - _1 ) -# 37485 "parsing/parser.ml" + _1 + ) +# 37508 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37489,15 +37512,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37495 "parsing/parser.ml" +# 37518 "parsing/parser.ml" in -# 3136 "parsing/parser.mly" +# 3171 "parsing/parser.mly" ( _1 ) -# 37501 "parsing/parser.ml" +# 37524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37538,31 +37561,32 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3145 "parsing/parser.mly" +# 3180 "parsing/parser.mly" ( ps ) -# 37544 "parsing/parser.ml" +# 37567 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2628 "parsing/parser.mly" - ( Generic_array.Unclosed(_loc__1_,_loc__3_) ) -# 37551 "parsing/parser.ml" +# 2667 "parsing/parser.mly" + ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) +# 37574 "parsing/parser.ml" in -# 2648 "parsing/parser.mly" +# 2689 "parsing/parser.mly" ( _1 ) -# 37557 "parsing/parser.ml" +# 37580 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" - ( Generic_array.pattern +# 3160 "parsing/parser.mly" + ( Generic_array.Pattern.to_pattern_desc "[|" "|]" (fun elts -> Ppat_array elts) - _1 ) -# 37566 "parsing/parser.ml" + _1 + ) +# 37590 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37570,15 +37594,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37576 "parsing/parser.ml" +# 37600 "parsing/parser.ml" in -# 3136 "parsing/parser.mly" +# 3171 "parsing/parser.mly" ( _1 ) -# 37582 "parsing/parser.ml" +# 37606 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37611,23 +37635,24 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2630 "parsing/parser.mly" - ( Generic_array.Literal [] ) -# 37617 "parsing/parser.ml" +# 2669 "parsing/parser.mly" + ( Generic_array.Simple.Literal [] ) +# 37641 "parsing/parser.ml" in -# 2648 "parsing/parser.mly" +# 2689 "parsing/parser.mly" ( _1 ) -# 37622 "parsing/parser.ml" +# 37646 "parsing/parser.ml" in -# 3127 "parsing/parser.mly" - ( Generic_array.pattern +# 3160 "parsing/parser.mly" + ( Generic_array.Pattern.to_pattern_desc "[|" "|]" (fun elts -> Ppat_array elts) - _1 ) -# 37631 "parsing/parser.ml" + _1 + ) +# 37656 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -37635,15 +37660,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37641 "parsing/parser.ml" +# 37666 "parsing/parser.ml" in -# 3136 "parsing/parser.mly" +# 3171 "parsing/parser.mly" ( _1 ) -# 37647 "parsing/parser.ml" +# 37672 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37684,20 +37709,20 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3145 "parsing/parser.mly" +# 3180 "parsing/parser.mly" ( ps ) -# 37690 "parsing/parser.ml" +# 37715 "parsing/parser.ml" in -# 2626 "parsing/parser.mly" - ( Generic_array.Literal _2 ) -# 37695 "parsing/parser.ml" +# 2665 "parsing/parser.mly" + ( Generic_array.Simple.Literal _2 ) +# 37720 "parsing/parser.ml" in -# 2648 "parsing/parser.mly" +# 2689 "parsing/parser.mly" ( _1 ) -# 37701 "parsing/parser.ml" +# 37726 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37705,12 +37730,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3132 "parsing/parser.mly" - ( Generic_array.pattern +# 3166 "parsing/parser.mly" + ( Generic_array.Pattern.to_pattern_desc "[:" ":]" (ppat_iarray _sloc) - _1 ) -# 37714 "parsing/parser.ml" + _1 + ) +# 37740 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37718,15 +37744,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37724 "parsing/parser.ml" +# 37750 "parsing/parser.ml" in -# 3136 "parsing/parser.mly" +# 3171 "parsing/parser.mly" ( _1 ) -# 37730 "parsing/parser.ml" +# 37756 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37767,22 +37793,22 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3145 "parsing/parser.mly" +# 3180 "parsing/parser.mly" ( ps ) -# 37773 "parsing/parser.ml" +# 37799 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2628 "parsing/parser.mly" - ( Generic_array.Unclosed(_loc__1_,_loc__3_) ) -# 37780 "parsing/parser.ml" +# 2667 "parsing/parser.mly" + ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) +# 37806 "parsing/parser.ml" in -# 2648 "parsing/parser.mly" +# 2689 "parsing/parser.mly" ( _1 ) -# 37786 "parsing/parser.ml" +# 37812 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37790,12 +37816,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3132 "parsing/parser.mly" - ( Generic_array.pattern +# 3166 "parsing/parser.mly" + ( Generic_array.Pattern.to_pattern_desc "[:" ":]" (ppat_iarray _sloc) - _1 ) -# 37799 "parsing/parser.ml" + _1 + ) +# 37826 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37803,15 +37830,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37809 "parsing/parser.ml" +# 37836 "parsing/parser.ml" in -# 3136 "parsing/parser.mly" +# 3171 "parsing/parser.mly" ( _1 ) -# 37815 "parsing/parser.ml" +# 37842 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37844,14 +37871,14 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2630 "parsing/parser.mly" - ( Generic_array.Literal [] ) -# 37850 "parsing/parser.ml" +# 2669 "parsing/parser.mly" + ( Generic_array.Simple.Literal [] ) +# 37877 "parsing/parser.ml" in -# 2648 "parsing/parser.mly" +# 2689 "parsing/parser.mly" ( _1 ) -# 37855 "parsing/parser.ml" +# 37882 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -37859,12 +37886,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3132 "parsing/parser.mly" - ( Generic_array.pattern +# 3166 "parsing/parser.mly" + ( Generic_array.Pattern.to_pattern_desc "[:" ":]" (ppat_iarray _sloc) - _1 ) -# 37868 "parsing/parser.ml" + _1 + ) +# 37896 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -37872,15 +37900,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37878 "parsing/parser.ml" +# 37906 "parsing/parser.ml" in -# 3136 "parsing/parser.mly" +# 3171 "parsing/parser.mly" ( _1 ) -# 37884 "parsing/parser.ml" +# 37912 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37920,9 +37948,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2535 "parsing/parser.mly" +# 2557 "parsing/parser.mly" ( reloc_exp ~loc:_sloc _2 ) -# 37926 "parsing/parser.ml" +# 37954 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37961,9 +37989,9 @@ module Tables = struct let _v : (Parsetree.expression) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2537 "parsing/parser.mly" +# 2559 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 37967 "parsing/parser.ml" +# 37995 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38010,9 +38038,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2539 "parsing/parser.mly" +# 2561 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _2 _3 ) -# 38016 "parsing/parser.ml" +# 38044 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38064,14 +38092,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2540 "parsing/parser.mly" +# 2562 "parsing/parser.mly" ( None ) -# 38070 "parsing/parser.ml" +# 38098 "parsing/parser.ml" in -# 2427 "parsing/parser.mly" +# 2449 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38075 "parsing/parser.ml" +# 38103 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38079,9 +38107,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2541 "parsing/parser.mly" +# 2563 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38085 "parsing/parser.ml" +# 38113 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38133,14 +38161,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2540 "parsing/parser.mly" +# 2562 "parsing/parser.mly" ( None ) -# 38139 "parsing/parser.ml" +# 38167 "parsing/parser.ml" in -# 2429 "parsing/parser.mly" +# 2451 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38144 "parsing/parser.ml" +# 38172 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38148,9 +38176,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2541 "parsing/parser.mly" +# 2563 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38154 "parsing/parser.ml" +# 38182 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38202,14 +38230,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2540 "parsing/parser.mly" +# 2562 "parsing/parser.mly" ( None ) -# 38208 "parsing/parser.ml" +# 38236 "parsing/parser.ml" in -# 2431 "parsing/parser.mly" +# 2453 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 38213 "parsing/parser.ml" +# 38241 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38217,9 +38245,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2541 "parsing/parser.mly" +# 2563 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38223 "parsing/parser.ml" +# 38251 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38265,9 +38293,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 38271 "parsing/parser.ml" +# 38299 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -38275,31 +38303,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2544 "parsing/parser.mly" +# 2566 "parsing/parser.mly" ( None ) -# 38281 "parsing/parser.ml" +# 38309 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 38286 "parsing/parser.ml" +# 38314 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 38292 "parsing/parser.ml" +# 38320 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 38297 "parsing/parser.ml" +# 38325 "parsing/parser.ml" in -# 2427 "parsing/parser.mly" +# 2449 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38303 "parsing/parser.ml" +# 38331 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38307,9 +38335,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2545 "parsing/parser.mly" +# 2567 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38313 "parsing/parser.ml" +# 38341 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38367,9 +38395,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 38373 "parsing/parser.ml" +# 38401 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38379,39 +38407,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2544 "parsing/parser.mly" +# 2566 "parsing/parser.mly" ( None ) -# 38385 "parsing/parser.ml" +# 38413 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 38390 "parsing/parser.ml" +# 38418 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" (_2) -# 38398 "parsing/parser.ml" +# 38426 "parsing/parser.ml" in # 126 "" ( Some x ) -# 38403 "parsing/parser.ml" +# 38431 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 38409 "parsing/parser.ml" +# 38437 "parsing/parser.ml" in -# 2427 "parsing/parser.mly" +# 2449 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38415 "parsing/parser.ml" +# 38443 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38419,9 +38447,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2545 "parsing/parser.mly" +# 2567 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38425 "parsing/parser.ml" +# 38453 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38467,9 +38495,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 38473 "parsing/parser.ml" +# 38501 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -38477,31 +38505,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2544 "parsing/parser.mly" +# 2566 "parsing/parser.mly" ( None ) -# 38483 "parsing/parser.ml" +# 38511 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 38488 "parsing/parser.ml" +# 38516 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 38494 "parsing/parser.ml" +# 38522 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 38499 "parsing/parser.ml" +# 38527 "parsing/parser.ml" in -# 2429 "parsing/parser.mly" +# 2451 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38505 "parsing/parser.ml" +# 38533 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38509,9 +38537,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2545 "parsing/parser.mly" +# 2567 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38515 "parsing/parser.ml" +# 38543 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38569,9 +38597,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 38575 "parsing/parser.ml" +# 38603 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38581,39 +38609,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2544 "parsing/parser.mly" +# 2566 "parsing/parser.mly" ( None ) -# 38587 "parsing/parser.ml" +# 38615 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 38592 "parsing/parser.ml" +# 38620 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" (_2) -# 38600 "parsing/parser.ml" +# 38628 "parsing/parser.ml" in # 126 "" ( Some x ) -# 38605 "parsing/parser.ml" +# 38633 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 38611 "parsing/parser.ml" +# 38639 "parsing/parser.ml" in -# 2429 "parsing/parser.mly" +# 2451 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38617 "parsing/parser.ml" +# 38645 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38621,9 +38649,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2545 "parsing/parser.mly" +# 2567 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38627 "parsing/parser.ml" +# 38655 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38669,9 +38697,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 38675 "parsing/parser.ml" +# 38703 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -38679,31 +38707,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2544 "parsing/parser.mly" +# 2566 "parsing/parser.mly" ( None ) -# 38685 "parsing/parser.ml" +# 38713 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 38690 "parsing/parser.ml" +# 38718 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 38696 "parsing/parser.ml" +# 38724 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 38701 "parsing/parser.ml" +# 38729 "parsing/parser.ml" in -# 2431 "parsing/parser.mly" +# 2453 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 38707 "parsing/parser.ml" +# 38735 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38711,9 +38739,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2545 "parsing/parser.mly" +# 2567 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38717 "parsing/parser.ml" +# 38745 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38771,9 +38799,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 38777 "parsing/parser.ml" +# 38805 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38783,39 +38811,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2544 "parsing/parser.mly" +# 2566 "parsing/parser.mly" ( None ) -# 38789 "parsing/parser.ml" +# 38817 "parsing/parser.ml" in let i = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 38794 "parsing/parser.ml" +# 38822 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" (_2) -# 38802 "parsing/parser.ml" +# 38830 "parsing/parser.ml" in # 126 "" ( Some x ) -# 38807 "parsing/parser.ml" +# 38835 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 38813 "parsing/parser.ml" +# 38841 "parsing/parser.ml" in -# 2431 "parsing/parser.mly" +# 2453 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 38819 "parsing/parser.ml" +# 38847 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38823,9 +38851,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2545 "parsing/parser.mly" +# 2567 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38829 "parsing/parser.ml" +# 38857 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38879,15 +38907,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2436 "parsing/parser.mly" +# 2458 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 38885 "parsing/parser.ml" +# 38913 "parsing/parser.ml" in -# 2546 "parsing/parser.mly" +# 2568 "parsing/parser.mly" ( _1 ) -# 38891 "parsing/parser.ml" +# 38919 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38941,15 +38969,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2438 "parsing/parser.mly" +# 2460 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 38947 "parsing/parser.ml" +# 38975 "parsing/parser.ml" in -# 2546 "parsing/parser.mly" +# 2568 "parsing/parser.mly" ( _1 ) -# 38953 "parsing/parser.ml" +# 38981 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39003,15 +39031,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2440 "parsing/parser.mly" +# 2462 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39009 "parsing/parser.ml" +# 39037 "parsing/parser.ml" in -# 2546 "parsing/parser.mly" +# 2568 "parsing/parser.mly" ( _1 ) -# 39015 "parsing/parser.ml" +# 39043 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39057,9 +39085,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 39063 "parsing/parser.ml" +# 39091 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39067,34 +39095,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 39073 "parsing/parser.ml" +# 39101 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39079 "parsing/parser.ml" +# 39107 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 39084 "parsing/parser.ml" +# 39112 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2436 "parsing/parser.mly" +# 2458 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 39092 "parsing/parser.ml" +# 39120 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2569 "parsing/parser.mly" ( _1 ) -# 39098 "parsing/parser.ml" +# 39126 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39152,9 +39180,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 39158 "parsing/parser.ml" +# 39186 "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 @@ -39164,42 +39192,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 39170 "parsing/parser.ml" +# 39198 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" (_2) -# 39178 "parsing/parser.ml" +# 39206 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39183 "parsing/parser.ml" +# 39211 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 39189 "parsing/parser.ml" +# 39217 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2436 "parsing/parser.mly" +# 2458 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 39197 "parsing/parser.ml" +# 39225 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2569 "parsing/parser.mly" ( _1 ) -# 39203 "parsing/parser.ml" +# 39231 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39245,9 +39273,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 39251 "parsing/parser.ml" +# 39279 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39255,34 +39283,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 39261 "parsing/parser.ml" +# 39289 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39267 "parsing/parser.ml" +# 39295 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 39272 "parsing/parser.ml" +# 39300 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2438 "parsing/parser.mly" +# 2460 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 39280 "parsing/parser.ml" +# 39308 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2569 "parsing/parser.mly" ( _1 ) -# 39286 "parsing/parser.ml" +# 39314 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39340,9 +39368,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 39346 "parsing/parser.ml" +# 39374 "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 @@ -39352,42 +39380,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 39358 "parsing/parser.ml" +# 39386 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" (_2) -# 39366 "parsing/parser.ml" +# 39394 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39371 "parsing/parser.ml" +# 39399 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 39377 "parsing/parser.ml" +# 39405 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2438 "parsing/parser.mly" +# 2460 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 39385 "parsing/parser.ml" +# 39413 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2569 "parsing/parser.mly" ( _1 ) -# 39391 "parsing/parser.ml" +# 39419 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39433,9 +39461,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 39439 "parsing/parser.ml" +# 39467 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39443,34 +39471,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 39449 "parsing/parser.ml" +# 39477 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39455 "parsing/parser.ml" +# 39483 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 39460 "parsing/parser.ml" +# 39488 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2440 "parsing/parser.mly" +# 2462 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39468 "parsing/parser.ml" +# 39496 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2569 "parsing/parser.mly" ( _1 ) -# 39474 "parsing/parser.ml" +# 39502 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39528,9 +39556,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 818 "parsing/parser.mly" +# 840 "parsing/parser.mly" (string) -# 39534 "parsing/parser.ml" +# 39562 "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 @@ -39540,42 +39568,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 39546 "parsing/parser.ml" +# 39574 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" (_2) -# 39554 "parsing/parser.ml" +# 39582 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39559 "parsing/parser.ml" +# 39587 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2465 "parsing/parser.mly" ( _1, _2 ) -# 39565 "parsing/parser.ml" +# 39593 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2440 "parsing/parser.mly" +# 2462 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39573 "parsing/parser.ml" +# 39601 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2569 "parsing/parser.mly" ( _1 ) -# 39579 "parsing/parser.ml" +# 39607 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39629,15 +39657,15 @@ module Tables = struct let attrs = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 39635 "parsing/parser.ml" +# 39663 "parsing/parser.ml" in -# 2556 "parsing/parser.mly" +# 2593 "parsing/parser.mly" ( e.pexp_desc, (ext, attrs @ e.pexp_attributes) ) -# 39641 "parsing/parser.ml" +# 39669 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -39645,10 +39673,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2549 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39652 "parsing/parser.ml" +# 39680 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39697,24 +39725,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 39703 "parsing/parser.ml" +# 39731 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 39709 "parsing/parser.ml" +# 39737 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2558 "parsing/parser.mly" +# 2595 "parsing/parser.mly" ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 ) -# 39718 "parsing/parser.ml" +# 39746 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -39722,10 +39750,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2549 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39729 "parsing/parser.ml" +# 39757 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39781,23 +39809,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 39787 "parsing/parser.ml" +# 39815 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 39793 "parsing/parser.ml" +# 39821 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2560 "parsing/parser.mly" +# 2597 "parsing/parser.mly" ( unclosed "begin" _loc__1_ "end" _loc__4_ ) -# 39801 "parsing/parser.ml" +# 39829 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -39805,10 +39833,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2549 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39812 "parsing/parser.ml" +# 39840 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39858,9 +39886,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 39864 "parsing/parser.ml" +# 39892 "parsing/parser.ml" in let _2 = @@ -39868,21 +39896,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 39874 "parsing/parser.ml" +# 39902 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 39880 "parsing/parser.ml" +# 39908 "parsing/parser.ml" in -# 2562 "parsing/parser.mly" +# 2599 "parsing/parser.mly" ( Pexp_new(_3), _2 ) -# 39886 "parsing/parser.ml" +# 39914 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -39890,10 +39918,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2549 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39897 "parsing/parser.ml" +# 39925 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39956,21 +39984,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 39962 "parsing/parser.ml" +# 39990 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 39968 "parsing/parser.ml" +# 39996 "parsing/parser.ml" in -# 2564 "parsing/parser.mly" +# 2601 "parsing/parser.mly" ( Pexp_pack _4, _3 ) -# 39974 "parsing/parser.ml" +# 40002 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -39978,10 +40006,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2549 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39985 "parsing/parser.ml" +# 40013 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40059,11 +40087,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3799 "parsing/parser.mly" +# 3834 "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 ) -# 40067 "parsing/parser.ml" +# 40095 "parsing/parser.ml" in let _3 = @@ -40071,24 +40099,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 40077 "parsing/parser.ml" +# 40105 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 40083 "parsing/parser.ml" +# 40111 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2566 "parsing/parser.mly" +# 2603 "parsing/parser.mly" ( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 ) -# 40092 "parsing/parser.ml" +# 40120 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -40096,10 +40124,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2549 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40103 "parsing/parser.ml" +# 40131 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40169,23 +40197,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 40175 "parsing/parser.ml" +# 40203 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 40181 "parsing/parser.ml" +# 40209 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2568 "parsing/parser.mly" +# 2605 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 40189 "parsing/parser.ml" +# 40217 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -40193,10 +40221,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2549 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40200 "parsing/parser.ml" +# 40228 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40261,27 +40289,27 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 40265 "parsing/parser.ml" +# 40293 "parsing/parser.ml" in -# 2086 "parsing/parser.mly" +# 2108 "parsing/parser.mly" ( _1 ) -# 40270 "parsing/parser.ml" +# 40298 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1018 "parsing/parser.mly" +# 1040 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 40279 "parsing/parser.ml" +# 40307 "parsing/parser.ml" in -# 2073 "parsing/parser.mly" +# 2095 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 40285 "parsing/parser.ml" +# 40313 "parsing/parser.ml" in let _2 = @@ -40289,21 +40317,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 40295 "parsing/parser.ml" +# 40323 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 40301 "parsing/parser.ml" +# 40329 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2607 "parsing/parser.mly" ( Pexp_object _3, _2 ) -# 40307 "parsing/parser.ml" +# 40335 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -40311,10 +40339,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2549 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40318 "parsing/parser.ml" +# 40346 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40379,27 +40407,27 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 40383 "parsing/parser.ml" +# 40411 "parsing/parser.ml" in -# 2086 "parsing/parser.mly" +# 2108 "parsing/parser.mly" ( _1 ) -# 40388 "parsing/parser.ml" +# 40416 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1018 "parsing/parser.mly" +# 1040 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 40397 "parsing/parser.ml" +# 40425 "parsing/parser.ml" in -# 2073 "parsing/parser.mly" +# 2095 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 40403 "parsing/parser.ml" +# 40431 "parsing/parser.ml" in let _2 = @@ -40407,23 +40435,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 40413 "parsing/parser.ml" +# 40441 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 40419 "parsing/parser.ml" +# 40447 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2572 "parsing/parser.mly" +# 2609 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 40427 "parsing/parser.ml" +# 40455 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -40431,10 +40459,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2549 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40438 "parsing/parser.ml" +# 40466 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40463,30 +40491,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40469 "parsing/parser.ml" +# 40497 "parsing/parser.ml" in -# 2653 "parsing/parser.mly" +# 2694 "parsing/parser.mly" ( Pexp_ident (_1) ) -# 40475 "parsing/parser.ml" +# 40503 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40484 "parsing/parser.ml" +# 40512 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 40490 "parsing/parser.ml" +# 40518 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40510,23 +40538,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2655 "parsing/parser.mly" +# 2696 "parsing/parser.mly" ( Pexp_constant _1 ) -# 40516 "parsing/parser.ml" +# 40544 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40524 "parsing/parser.ml" +# 40552 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 40530 "parsing/parser.ml" +# 40558 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40555,30 +40583,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40561 "parsing/parser.ml" +# 40589 "parsing/parser.ml" in -# 2657 "parsing/parser.mly" +# 2698 "parsing/parser.mly" ( Pexp_construct(_1, None) ) -# 40567 "parsing/parser.ml" +# 40595 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40576 "parsing/parser.ml" +# 40604 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 40582 "parsing/parser.ml" +# 40610 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40602,23 +40630,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2659 "parsing/parser.mly" +# 2700 "parsing/parser.mly" ( Pexp_variant(_1, None) ) -# 40608 "parsing/parser.ml" +# 40636 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40616 "parsing/parser.ml" +# 40644 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 40622 "parsing/parser.ml" +# 40650 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40644,9 +40672,9 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 864 "parsing/parser.mly" +# 886 "parsing/parser.mly" (string) -# 40650 "parsing/parser.ml" +# 40678 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -40658,15 +40686,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 40664 "parsing/parser.ml" +# 40692 "parsing/parser.ml" in -# 2661 "parsing/parser.mly" +# 2702 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 40670 "parsing/parser.ml" +# 40698 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -40674,15 +40702,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40680 "parsing/parser.ml" +# 40708 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 40686 "parsing/parser.ml" +# 40714 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40715,23 +40743,23 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2662 "parsing/parser.mly" +# 2703 "parsing/parser.mly" ("!") -# 40721 "parsing/parser.ml" +# 40749 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 40729 "parsing/parser.ml" +# 40757 "parsing/parser.ml" in -# 2663 "parsing/parser.mly" +# 2704 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 40735 "parsing/parser.ml" +# 40763 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -40739,15 +40767,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40745 "parsing/parser.ml" +# 40773 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 40751 "parsing/parser.ml" +# 40779 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40786,14 +40814,14 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 2956 "parsing/parser.mly" +# 2989 "parsing/parser.mly" ( xs ) -# 40792 "parsing/parser.ml" +# 40820 "parsing/parser.ml" in -# 2665 "parsing/parser.mly" +# 2706 "parsing/parser.mly" ( Pexp_override _2 ) -# 40797 "parsing/parser.ml" +# 40825 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -40801,15 +40829,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40807 "parsing/parser.ml" +# 40835 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 40813 "parsing/parser.ml" +# 40841 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40848,16 +40876,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 2956 "parsing/parser.mly" +# 2989 "parsing/parser.mly" ( xs ) -# 40854 "parsing/parser.ml" +# 40882 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2667 "parsing/parser.mly" +# 2708 "parsing/parser.mly" ( unclosed "{<" _loc__1_ ">}" _loc__3_ ) -# 40861 "parsing/parser.ml" +# 40889 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -40865,15 +40893,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40871 "parsing/parser.ml" +# 40899 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 40877 "parsing/parser.ml" +# 40905 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40904,24 +40932,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2669 "parsing/parser.mly" +# 2710 "parsing/parser.mly" ( Pexp_override [] ) -# 40910 "parsing/parser.ml" +# 40938 "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 -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40919 "parsing/parser.ml" +# 40947 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 40925 "parsing/parser.ml" +# 40953 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40965,15 +40993,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40971 "parsing/parser.ml" +# 40999 "parsing/parser.ml" in -# 2671 "parsing/parser.mly" +# 2712 "parsing/parser.mly" ( Pexp_field(_1, _3) ) -# 40977 "parsing/parser.ml" +# 41005 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -40981,15 +41009,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40987 "parsing/parser.ml" +# 41015 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 40993 "parsing/parser.ml" +# 41021 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41047,24 +41075,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41053 "parsing/parser.ml" +# 41081 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1735 "parsing/parser.mly" +# 1757 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41062 "parsing/parser.ml" +# 41090 "parsing/parser.ml" in -# 2673 "parsing/parser.mly" +# 2714 "parsing/parser.mly" ( Pexp_open(od, _4) ) -# 41068 "parsing/parser.ml" +# 41096 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41072,15 +41100,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41078 "parsing/parser.ml" +# 41106 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41084 "parsing/parser.ml" +# 41112 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41133,9 +41161,9 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 2956 "parsing/parser.mly" +# 2989 "parsing/parser.mly" ( xs ) -# 41139 "parsing/parser.ml" +# 41167 "parsing/parser.ml" in let od = let _1 = @@ -41143,18 +41171,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41149 "parsing/parser.ml" +# 41177 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1735 "parsing/parser.mly" +# 1757 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41158 "parsing/parser.ml" +# 41186 "parsing/parser.ml" in let _startpos_od_ = _startpos__1_ in @@ -41162,10 +41190,10 @@ module Tables = struct let _symbolstartpos = _startpos_od_ in let _sloc = (_symbolstartpos, _endpos) in -# 2675 "parsing/parser.mly" +# 2716 "parsing/parser.mly" ( (* TODO: review the location of Pexp_override *) Pexp_open(od, mkexp ~loc:_sloc (Pexp_override _4)) ) -# 41169 "parsing/parser.ml" +# 41197 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41173,15 +41201,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41179 "parsing/parser.ml" +# 41207 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41185 "parsing/parser.ml" +# 41213 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41234,16 +41262,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 2956 "parsing/parser.mly" +# 2989 "parsing/parser.mly" ( xs ) -# 41240 "parsing/parser.ml" +# 41268 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2678 "parsing/parser.mly" +# 2719 "parsing/parser.mly" ( unclosed "{<" _loc__3_ ">}" _loc__5_ ) -# 41247 "parsing/parser.ml" +# 41275 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41251,15 +41279,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41257 "parsing/parser.ml" +# 41285 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41263 "parsing/parser.ml" +# 41291 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41290,9 +41318,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 41296 "parsing/parser.ml" +# 41324 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in @@ -41304,23 +41332,23 @@ module Tables = struct let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 41310 "parsing/parser.ml" +# 41338 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41318 "parsing/parser.ml" +# 41346 "parsing/parser.ml" in -# 2680 "parsing/parser.mly" +# 2721 "parsing/parser.mly" ( Pexp_send(_1, _3) ) -# 41324 "parsing/parser.ml" +# 41352 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -41328,15 +41356,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41334 "parsing/parser.ml" +# 41362 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41340 "parsing/parser.ml" +# 41368 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41368,9 +41396,9 @@ module Tables = struct } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined1 : ( -# 875 "parsing/parser.mly" +# 897 "parsing/parser.mly" (string) -# 41374 "parsing/parser.ml" +# 41402 "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 @@ -41384,15 +41412,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1051 "parsing/parser.mly" +# 1073 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 41390 "parsing/parser.ml" +# 41418 "parsing/parser.ml" in -# 2682 "parsing/parser.mly" +# 2723 "parsing/parser.mly" ( mkinfix _1 _2 _3 ) -# 41396 "parsing/parser.ml" +# 41424 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -41400,15 +41428,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41406 "parsing/parser.ml" +# 41434 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41412 "parsing/parser.ml" +# 41440 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41432,23 +41460,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2684 "parsing/parser.mly" +# 2725 "parsing/parser.mly" ( Pexp_extension _1 ) -# 41438 "parsing/parser.ml" +# 41466 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41446 "parsing/parser.ml" +# 41474 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41452 "parsing/parser.ml" +# 41480 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41496,18 +41524,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 2685 "parsing/parser.mly" +# 2726 "parsing/parser.mly" (Lident "()") -# 41502 "parsing/parser.ml" +# 41530 "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 -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41511 "parsing/parser.ml" +# 41539 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in @@ -41517,25 +41545,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41523 "parsing/parser.ml" +# 41551 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1735 "parsing/parser.mly" +# 1757 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41532 "parsing/parser.ml" +# 41560 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2686 "parsing/parser.mly" +# 2727 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:(_loc__3_) (Pexp_construct(_3, None))) ) -# 41539 "parsing/parser.ml" +# 41567 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -41543,15 +41571,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41549 "parsing/parser.ml" +# 41577 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41555 "parsing/parser.ml" +# 41583 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41606,9 +41634,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2688 "parsing/parser.mly" +# 2729 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 41612 "parsing/parser.ml" +# 41640 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41616,15 +41644,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41622 "parsing/parser.ml" +# 41650 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41628 "parsing/parser.ml" +# 41656 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41663,25 +41691,25 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2690 "parsing/parser.mly" +# 2731 "parsing/parser.mly" ( let (exten, fields) = _2 in Pexp_record(fields, exten) ) -# 41670 "parsing/parser.ml" +# 41698 "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 -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41679 "parsing/parser.ml" +# 41707 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41685 "parsing/parser.ml" +# 41713 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41723,9 +41751,9 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2693 "parsing/parser.mly" +# 2734 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 41729 "parsing/parser.ml" +# 41757 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -41733,15 +41761,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41739 "parsing/parser.ml" +# 41767 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41745 "parsing/parser.ml" +# 41773 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41800,27 +41828,27 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41806 "parsing/parser.ml" +# 41834 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1735 "parsing/parser.mly" +# 1757 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41815 "parsing/parser.ml" +# 41843 "parsing/parser.ml" in let _endpos = _endpos__5_ in -# 2695 "parsing/parser.mly" +# 2736 "parsing/parser.mly" ( let (exten, fields) = _4 in Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_record(fields, exten))) ) -# 41824 "parsing/parser.ml" +# 41852 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41828,15 +41856,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41834 "parsing/parser.ml" +# 41862 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41840 "parsing/parser.ml" +# 41868 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41892,9 +41920,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2699 "parsing/parser.mly" +# 2740 "parsing/parser.mly" ( unclosed "{" _loc__3_ "}" _loc__5_ ) -# 41898 "parsing/parser.ml" +# 41926 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41902,15 +41930,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41908 "parsing/parser.ml" +# 41936 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 41914 "parsing/parser.ml" +# 41942 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41951,29 +41979,112 @@ module Tables = struct let _1 = let _1 = let _2 = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 41957 "parsing/parser.ml" +# 41985 "parsing/parser.ml" in -# 2626 "parsing/parser.mly" - ( Generic_array.Literal _2 ) -# 41962 "parsing/parser.ml" +# 2665 "parsing/parser.mly" + ( Generic_array.Simple.Literal _2 ) +# 41990 "parsing/parser.ml" in -# 2635 "parsing/parser.mly" +# 2674 "parsing/parser.mly" + ( Generic_array.Expression.Simple _1 ) +# 41996 "parsing/parser.ml" + + in + +# 2742 "parsing/parser.mly" + ( Generic_array.Expression.to_expression_desc + "[|" "|]" + (fun elts -> Pexp_array elts) + _1 + ) +# 42006 "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 + +# 1079 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 42016 "parsing/parser.ml" + + in + +# 2574 "parsing/parser.mly" ( _1 ) -# 41968 "parsing/parser.ml" +# 42022 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = es; + MenhirLib.EngineTypes.startp = _startpos_es_; + MenhirLib.EngineTypes.endp = _endpos_es_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + } = _menhir_stack in + let _3 : unit = Obj.magic _3 in + let es : (Parsetree.expression list) = Obj.magic es in + let _1 : unit = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__3_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let _1 = + let _1 = + let _2 = +# 3006 "parsing/parser.mly" + ( es ) +# 42065 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 2667 "parsing/parser.mly" + ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) +# 42072 "parsing/parser.ml" + + in + +# 2674 "parsing/parser.mly" + ( Generic_array.Expression.Simple _1 ) +# 42078 "parsing/parser.ml" in -# 2701 "parsing/parser.mly" - ( Generic_array.expression +# 2742 "parsing/parser.mly" + ( Generic_array.Expression.to_expression_desc "[|" "|]" (fun elts -> Pexp_array elts) - _1 ) -# 41977 "parsing/parser.ml" + _1 + ) +# 42088 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -41981,15 +42092,377 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41987 "parsing/parser.ml" +# 42098 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" + ( _1 ) +# 42104 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + } = _menhir_stack in + let _2 : unit = Obj.magic _2 in + let _1 : unit = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__2_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let _1 = + let _1 = +# 2669 "parsing/parser.mly" + ( Generic_array.Simple.Literal [] ) +# 42139 "parsing/parser.ml" + in + +# 2674 "parsing/parser.mly" + ( Generic_array.Expression.Simple _1 ) +# 42144 "parsing/parser.ml" + + in + +# 2742 "parsing/parser.mly" + ( Generic_array.Expression.to_expression_desc + "[|" "|]" + (fun elts -> Pexp_array elts) + _1 + ) +# 42154 "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 + +# 1079 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 42164 "parsing/parser.ml" + + in + +# 2574 "parsing/parser.mly" + ( _1 ) +# 42170 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _5; + MenhirLib.EngineTypes.startp = _startpos__5_; + MenhirLib.EngineTypes.endp = _endpos__5_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = es; + MenhirLib.EngineTypes.startp = _startpos_es_; + MenhirLib.EngineTypes.endp = _endpos_es_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + }; + } = _menhir_stack in + let _5 : unit = Obj.magic _5 in + let es : (Parsetree.expression list) = Obj.magic es in + let _3 : unit = Obj.magic _3 in + let _2 : unit = Obj.magic _2 in + let _1 : (Longident.t) = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__5_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let _1 = + let _4 = +# 3006 "parsing/parser.mly" + ( es ) +# 42226 "parsing/parser.ml" + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1046 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 42236 "parsing/parser.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1757 "parsing/parser.mly" + ( let loc = make_loc _loc__1_ in + let me = Mod.ident ~loc _1 in + Opn.mk ~loc me ) +# 42245 "parsing/parser.ml" + + in + let _endpos = _endpos__5_ in + +# 2676 "parsing/parser.mly" + ( Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, _4) + ) +# 42253 "parsing/parser.ml" + + in + +# 2742 "parsing/parser.mly" + ( Generic_array.Expression.to_expression_desc + "[|" "|]" + (fun elts -> Pexp_array elts) + _1 + ) +# 42263 "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 + +# 1079 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 42273 "parsing/parser.ml" + + in + +# 2574 "parsing/parser.mly" + ( _1 ) +# 42279 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _4; + MenhirLib.EngineTypes.startp = _startpos__4_; + MenhirLib.EngineTypes.endp = _endpos__4_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + } = _menhir_stack in + let _4 : unit = Obj.magic _4 in + let _3 : unit = Obj.magic _3 in + let _2 : unit = Obj.magic _2 in + let _1 : (Longident.t) = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__4_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let _1 = + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1046 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 42333 "parsing/parser.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1757 "parsing/parser.mly" + ( let loc = make_loc _loc__1_ in + let me = Mod.ident ~loc _1 in + Opn.mk ~loc me ) +# 42342 "parsing/parser.ml" + + in + let _endpos = _endpos__4_ in + +# 2679 "parsing/parser.mly" + ( (* TODO: review the location of Pexp_array *) + Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, []) + ) +# 42351 "parsing/parser.ml" + + in + +# 2742 "parsing/parser.mly" + ( Generic_array.Expression.to_expression_desc + "[|" "|]" + (fun elts -> Pexp_array elts) + _1 + ) +# 42361 "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 + +# 1079 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 42371 "parsing/parser.ml" + + in + +# 2574 "parsing/parser.mly" + ( _1 ) +# 42377 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _5; + MenhirLib.EngineTypes.startp = _startpos__5_; + MenhirLib.EngineTypes.endp = _endpos__5_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = es; + MenhirLib.EngineTypes.startp = _startpos_es_; + MenhirLib.EngineTypes.endp = _endpos_es_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + }; + } = _menhir_stack in + let _5 : unit = Obj.magic _5 in + let es : (Parsetree.expression list) = Obj.magic es in + let _3 : unit = Obj.magic _3 in + let _2 : unit = Obj.magic _2 in + let _1 : (Longident.t) = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__5_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let _1 = + let _4 = +# 3006 "parsing/parser.mly" + ( es ) +# 42433 "parsing/parser.ml" + in + let _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2684 "parsing/parser.mly" + ( Generic_array.Expression.Simple (Unclosed(_loc__3_, _loc__5_)) ) +# 42440 "parsing/parser.ml" + + in + +# 2742 "parsing/parser.mly" + ( Generic_array.Expression.to_expression_desc + "[|" "|]" + (fun elts -> Pexp_array elts) + _1 + ) +# 42450 "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 + +# 1079 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 42460 "parsing/parser.ml" + + in + +# 2574 "parsing/parser.mly" ( _1 ) -# 41993 "parsing/parser.ml" +# 42466 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42027,34 +42500,80 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _1 = - let _2 = -# 2973 "parsing/parser.mly" + let _2 = +# 3006 "parsing/parser.mly" ( es ) -# 42036 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2628 "parsing/parser.mly" - ( Generic_array.Unclosed(_loc__1_,_loc__3_) ) -# 42043 "parsing/parser.ml" - - in - -# 2635 "parsing/parser.mly" +# 42507 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2748 "parsing/parser.mly" + ( fst (mktailexp _loc__3_ _2) ) +# 42513 "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 + +# 1079 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 42523 "parsing/parser.ml" + + in + +# 2574 "parsing/parser.mly" ( _1 ) -# 42049 "parsing/parser.ml" - - in +# 42529 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = es; + MenhirLib.EngineTypes.startp = _startpos_es_; + MenhirLib.EngineTypes.endp = _endpos_es_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + } = _menhir_stack in + let _3 : unit = Obj.magic _3 in + let es : (Parsetree.expression list) = Obj.magic es in + let _1 : unit = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__3_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let _2 = +# 3006 "parsing/parser.mly" + ( es ) +# 42570 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2701 "parsing/parser.mly" - ( Generic_array.expression - "[|" "|]" - (fun elts -> Pexp_array elts) - _1 ) -# 42058 "parsing/parser.ml" +# 2750 "parsing/parser.mly" + ( unclosed "[" _loc__1_ "]" _loc__3_ ) +# 42577 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42062,15 +42581,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42068 "parsing/parser.ml" +# 42587 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 42074 "parsing/parser.ml" +# 42593 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42083,59 +42602,132 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.semv = _4; + MenhirLib.EngineTypes.startp = _startpos__4_; + MenhirLib.EngineTypes.endp = _endpos__4_; MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = xs; + MenhirLib.EngineTypes.startp = _startpos_xs_; + MenhirLib.EngineTypes.endp = _endpos_xs_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2_inlined1; + MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1_inlined1; + MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + }; }; } = _menhir_stack in + let _4 : unit = Obj.magic _4 in + let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in + let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in + let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in - let _1 : unit = Obj.magic _1 in + let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in - let _endpos = _endpos__2_ in + let _endpos = _endpos__4_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _1 = -# 2630 "parsing/parser.mly" - ( Generic_array.Literal [] ) -# 42109 "parsing/parser.ml" - in + let _3 = + let (_startpos__1_, _2) = (_startpos__1_inlined1_, _2_inlined1) in + let _1 = + let _1 = + let _3 = + let xs = +# 253 "" + ( List.rev xs ) +# 42660 "parsing/parser.ml" + in + +# 1148 "parsing/parser.mly" + ( xs ) +# 42665 "parsing/parser.ml" + + in + +# 2644 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) +# 42671 "parsing/parser.ml" + + in + +# 2649 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) +# 42677 "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 -# 2635 "parsing/parser.mly" - ( _1 ) -# 42114 "parsing/parser.ml" +# 2658 "parsing/parser.mly" + ( mkexp_jane_syntax ~loc:_sloc + (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) + ) +# 42689 "parsing/parser.ml" + + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1046 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 42700 "parsing/parser.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1757 "parsing/parser.mly" + ( let loc = make_loc _loc__1_ in + let me = Mod.ident ~loc _1 in + Opn.mk ~loc me ) +# 42709 "parsing/parser.ml" in -# 2701 "parsing/parser.mly" - ( Generic_array.expression - "[|" "|]" - (fun elts -> Pexp_array elts) - _1 ) -# 42123 "parsing/parser.ml" +# 2752 "parsing/parser.mly" + ( Pexp_open(od, _3) ) +# 42715 "parsing/parser.ml" in - let _endpos__1_ = _endpos__2_ in + let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42133 "parsing/parser.ml" +# 42725 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 42139 "parsing/parser.ml" +# 42731 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42148,101 +42740,132 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _5; - MenhirLib.EngineTypes.startp = _startpos__5_; - MenhirLib.EngineTypes.endp = _endpos__5_; + MenhirLib.EngineTypes.semv = _4; + MenhirLib.EngineTypes.startp = _startpos__4_; + MenhirLib.EngineTypes.endp = _endpos__4_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = es; - MenhirLib.EngineTypes.startp = _startpos_es_; - MenhirLib.EngineTypes.endp = _endpos_es_; + MenhirLib.EngineTypes.semv = xs; + MenhirLib.EngineTypes.startp = _startpos_xs_; + MenhirLib.EngineTypes.endp = _endpos_xs_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.semv = _2_inlined1; + MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.semv = _1_inlined1; + MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; }; }; }; }; } = _menhir_stack in - let _5 : unit = Obj.magic _5 in - let es : (Parsetree.expression list) = Obj.magic es in - let _3 : unit = Obj.magic _3 in + let _4 : unit = Obj.magic _4 in + let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in + let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in + let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in - let _endpos = _endpos__5_ in + let _endpos = _endpos__4_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _4 = -# 2973 "parsing/parser.mly" - ( es ) -# 42195 "parsing/parser.ml" - in - let od = + let _3 = + let (_startpos__1_, _2) = (_startpos__1_inlined1_, _2_inlined1) in + let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let _3 = + let xs = +# 253 "" + ( List.rev xs ) +# 42798 "parsing/parser.ml" + in + +# 1148 "parsing/parser.mly" + ( xs ) +# 42803 "parsing/parser.ml" + + in -# 1024 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 42205 "parsing/parser.ml" +# 2644 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) +# 42809 "parsing/parser.ml" in - let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1735 "parsing/parser.mly" - ( let loc = make_loc _loc__1_ in - let me = Mod.ident ~loc _1 in - Opn.mk ~loc me ) -# 42214 "parsing/parser.ml" +# 2651 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) +# 42815 "parsing/parser.ml" in - let _endpos = _endpos__5_ in + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2658 "parsing/parser.mly" + ( mkexp_jane_syntax ~loc:_sloc + (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) + ) +# 42827 "parsing/parser.ml" + + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1046 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 42838 "parsing/parser.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2637 "parsing/parser.mly" - ( Generic_array.Opened_literal(od, _startpos__3_, _endpos, _4) ) -# 42221 "parsing/parser.ml" +# 1757 "parsing/parser.mly" + ( let loc = make_loc _loc__1_ in + let me = Mod.ident ~loc _1 in + Opn.mk ~loc me ) +# 42847 "parsing/parser.ml" in -# 2701 "parsing/parser.mly" - ( Generic_array.expression - "[|" "|]" - (fun elts -> Pexp_array elts) - _1 ) -# 42230 "parsing/parser.ml" +# 2752 "parsing/parser.mly" + ( Pexp_open(od, _3) ) +# 42853 "parsing/parser.ml" in - let _endpos__1_ = _endpos__5_ in + let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42240 "parsing/parser.ml" +# 42863 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 42246 "parsing/parser.ml" +# 42869 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42260,26 +42883,40 @@ module Tables = struct MenhirLib.EngineTypes.endp = _endpos__4_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.semv = xs; + MenhirLib.EngineTypes.startp = _startpos_xs_; + MenhirLib.EngineTypes.endp = _endpos_xs_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.semv = _2_inlined1; + MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1_inlined1; + MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in - let _3 : unit = Obj.magic _3 in + let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in + let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in + let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -42287,42 +42924,70 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let od = + let _3 = + let (_startpos__1_, _2) = (_startpos__1_inlined1_, _2_inlined1) in + let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let _3 = + let xs = +# 253 "" + ( List.rev xs ) +# 42936 "parsing/parser.ml" + in + +# 1148 "parsing/parser.mly" + ( xs ) +# 42941 "parsing/parser.ml" + + in -# 1024 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 42300 "parsing/parser.ml" +# 2644 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) +# 42947 "parsing/parser.ml" in - let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1735 "parsing/parser.mly" - ( let loc = make_loc _loc__1_ in - let me = Mod.ident ~loc _1 in - Opn.mk ~loc me ) -# 42309 "parsing/parser.ml" +# 2653 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) +# 42953 "parsing/parser.ml" in - let _endpos = _endpos__4_ in + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2639 "parsing/parser.mly" - ( (* TODO: review the location of Pexp_array *) - Generic_array.Opened_literal(od, _startpos__3_, _endpos, []) ) -# 42317 "parsing/parser.ml" +# 2658 "parsing/parser.mly" + ( mkexp_jane_syntax ~loc:_sloc + (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) + ) +# 42965 "parsing/parser.ml" + + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1046 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 42976 "parsing/parser.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1757 "parsing/parser.mly" + ( let loc = make_loc _loc__1_ in + let me = Mod.ident ~loc _1 in + Opn.mk ~loc me ) +# 42985 "parsing/parser.ml" in -# 2701 "parsing/parser.mly" - ( Generic_array.expression - "[|" "|]" - (fun elts -> Pexp_array elts) - _1 ) -# 42326 "parsing/parser.ml" +# 2752 "parsing/parser.mly" + ( Pexp_open(od, _3) ) +# 42991 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42330,15 +42995,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42336 "parsing/parser.ml" +# 43001 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 42342 "parsing/parser.ml" +# 43007 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42390,27 +43055,41 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _4 = -# 2973 "parsing/parser.mly" + let _4 = +# 3006 "parsing/parser.mly" ( es ) -# 42398 "parsing/parser.ml" - in - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in +# 43062 "parsing/parser.ml" + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1046 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 43072 "parsing/parser.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2643 "parsing/parser.mly" - ( Generic_array.Unclosed(_loc__3_, _loc__5_) ) -# 42405 "parsing/parser.ml" +# 1757 "parsing/parser.mly" + ( let loc = make_loc _loc__1_ in + let me = Mod.ident ~loc _1 in + Opn.mk ~loc me ) +# 43081 "parsing/parser.ml" in + let _endpos = _endpos__5_ in + let _loc__5_ = (_startpos__5_, _endpos__5_) in -# 2701 "parsing/parser.mly" - ( Generic_array.expression - "[|" "|]" - (fun elts -> Pexp_array elts) - _1 ) -# 42414 "parsing/parser.ml" +# 2754 "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) ) +# 43093 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42418,15 +43097,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42424 "parsing/parser.ml" +# 43103 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 42430 "parsing/parser.ml" +# 43109 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42439,80 +43118,97 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.semv = _2_inlined1; + MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = es; - MenhirLib.EngineTypes.startp = _startpos_es_; - MenhirLib.EngineTypes.endp = _endpos_es_; + MenhirLib.EngineTypes.semv = _1_inlined1; + MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; }; }; } = _menhir_stack in - let _3 : unit = Obj.magic _3 in - let es : (Parsetree.expression list) = Obj.magic es in - let _1 : unit = Obj.magic _1 in + let _2_inlined1 : unit = Obj.magic _2_inlined1 in + let _1_inlined1 : unit = Obj.magic _1_inlined1 in + let _2 : unit = Obj.magic _2 in + let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in - let _endpos = _endpos__3_ in + let _endpos = _endpos__2_inlined1_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = + let _3 = + let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in + let _1 = +# 2759 "parsing/parser.mly" + (Lident "[]") +# 43159 "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 + +# 1046 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 43168 "parsing/parser.ml" + + in + let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in + let od = let _1 = - let _2 = -# 2973 "parsing/parser.mly" - ( es ) -# 42473 "parsing/parser.ml" - in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2626 "parsing/parser.mly" - ( Generic_array.Literal _2 ) -# 42478 "parsing/parser.ml" +# 1046 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 43180 "parsing/parser.ml" in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2635 "parsing/parser.mly" - ( _1 ) -# 42484 "parsing/parser.ml" +# 1757 "parsing/parser.mly" + ( let loc = make_loc _loc__1_ in + let me = Mod.ident ~loc _1 in + Opn.mk ~loc me ) +# 43189 "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 + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2706 "parsing/parser.mly" - ( Generic_array.expression - "[:" ":]" - (fun elts -> - Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc _sloc) - (Iaexp_immutable_array elts)) - _1 ) -# 42500 "parsing/parser.ml" +# 2760 "parsing/parser.mly" + ( Pexp_open(od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) ) +# 43196 "parsing/parser.ml" in - let _endpos__1_ = _endpos__3_ in + let _endpos__1_ = _endpos__2_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42510 "parsing/parser.ml" +# 43206 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 42516 "parsing/parser.ml" +# 43212 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42525,154 +43221,72 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.semv = _5; + MenhirLib.EngineTypes.startp = _startpos__5_; + MenhirLib.EngineTypes.endp = _endpos__5_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; MenhirLib.EngineTypes.semv = es; MenhirLib.EngineTypes.startp = _startpos_es_; MenhirLib.EngineTypes.endp = _endpos_es_; MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; }; }; } = _menhir_stack in - let _3 : unit = Obj.magic _3 in + let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in - let _1 : unit = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__3_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = - let _1 = - let _1 = - let _2 = -# 2973 "parsing/parser.mly" - ( es ) -# 42559 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2628 "parsing/parser.mly" - ( Generic_array.Unclosed(_loc__1_,_loc__3_) ) -# 42566 "parsing/parser.ml" - - in - -# 2635 "parsing/parser.mly" - ( _1 ) -# 42572 "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 - -# 2706 "parsing/parser.mly" - ( Generic_array.expression - "[:" ":]" - (fun elts -> - Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc _sloc) - (Iaexp_immutable_array elts)) - _1 ) -# 42588 "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 - -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42598 "parsing/parser.ml" - - in - -# 2552 "parsing/parser.mly" - ( _1 ) -# 42604 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - } = _menhir_stack in + let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in - let _1 : unit = Obj.magic _1 in + let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in - let _endpos = _endpos__2_ in + let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _1 = -# 2630 "parsing/parser.mly" - ( Generic_array.Literal [] ) -# 42639 "parsing/parser.ml" - in - -# 2635 "parsing/parser.mly" - ( _1 ) -# 42644 "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 + let _4 = +# 3006 "parsing/parser.mly" + ( es ) +# 43267 "parsing/parser.ml" + in + let _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2706 "parsing/parser.mly" - ( Generic_array.expression - "[:" ":]" - (fun elts -> - Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc _sloc) - (Iaexp_immutable_array elts)) - _1 ) -# 42660 "parsing/parser.ml" +# 2763 "parsing/parser.mly" + ( unclosed "[" _loc__3_ "]" _loc__5_ ) +# 43274 "parsing/parser.ml" in - let _endpos__1_ = _endpos__2_ in + let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42670 "parsing/parser.ml" +# 43284 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 42676 "parsing/parser.ml" +# 43290 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42685,108 +43299,156 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _5; - MenhirLib.EngineTypes.startp = _startpos__5_; - MenhirLib.EngineTypes.endp = _endpos__5_; + MenhirLib.EngineTypes.semv = _9; + MenhirLib.EngineTypes.startp = _startpos__9_; + MenhirLib.EngineTypes.endp = _endpos__9_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = es; - MenhirLib.EngineTypes.startp = _startpos_es_; - MenhirLib.EngineTypes.endp = _endpos_es_; + MenhirLib.EngineTypes.semv = _1_inlined3; + MenhirLib.EngineTypes.startp = _startpos__1_inlined3_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined3_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.semv = _7; + MenhirLib.EngineTypes.startp = _startpos__7_; + MenhirLib.EngineTypes.endp = _endpos__7_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.semv = _6; + MenhirLib.EngineTypes.startp = _startpos__6_; + MenhirLib.EngineTypes.endp = _endpos__6_; MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1_inlined2; + MenhirLib.EngineTypes.startp = _startpos__1_inlined2_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1_inlined1; + MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _4; + MenhirLib.EngineTypes.startp = _startpos__4_; + MenhirLib.EngineTypes.endp = _endpos__4_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + }; + }; }; }; }; }; } = _menhir_stack in - let _5 : unit = Obj.magic _5 in - let es : (Parsetree.expression list) = Obj.magic es in + let _9 : unit = Obj.magic _9 in + let _1_inlined3 : (Parsetree.module_type) = Obj.magic _1_inlined3 in + let _7 : unit = Obj.magic _7 in + let _6 : (Parsetree.module_expr) = Obj.magic _6 in + let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in + let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in + let _4 : unit = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in - let _endpos = _endpos__5_ in + let _endpos = _endpos__9_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _4 = -# 2973 "parsing/parser.mly" - ( es ) -# 42732 "parsing/parser.ml" - in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1024 "parsing/parser.mly" + let _8 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3834 "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 ) +# 43387 "parsing/parser.ml" + + in + let _5 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + +# 4263 "parsing/parser.mly" + ( _1 ) +# 43397 "parsing/parser.ml" + + in + +# 4276 "parsing/parser.mly" + ( _1, _2 ) +# 43403 "parsing/parser.ml" + + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42742 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 43414 "parsing/parser.ml" -# 1735 "parsing/parser.mly" + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1757 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42751 "parsing/parser.ml" - - in - let _endpos = _endpos__5_ in - -# 2637 "parsing/parser.mly" - ( Generic_array.Opened_literal(od, _startpos__3_, _endpos, _4) ) -# 42758 "parsing/parser.ml" +# 43423 "parsing/parser.ml" in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in + let _startpos_od_ = _startpos__1_ in + let _endpos = _endpos__9_ in + let _symbolstartpos = _startpos_od_ in let _sloc = (_symbolstartpos, _endpos) in -# 2706 "parsing/parser.mly" - ( Generic_array.expression - "[:" ":]" - (fun elts -> - Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc _sloc) - (Iaexp_immutable_array elts)) - _1 ) -# 42774 "parsing/parser.ml" +# 2766 "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) ) +# 43436 "parsing/parser.ml" in - let _endpos__1_ = _endpos__5_ in + let _endpos__1_ = _endpos__9_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42784 "parsing/parser.ml" +# 43446 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 42790 "parsing/parser.ml" +# 43452 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42799,97 +43461,111 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _4; - MenhirLib.EngineTypes.startp = _startpos__4_; - MenhirLib.EngineTypes.endp = _endpos__4_; + MenhirLib.EngineTypes.semv = _8; + MenhirLib.EngineTypes.startp = _startpos__8_; + MenhirLib.EngineTypes.endp = _endpos__8_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.semv = _7; + MenhirLib.EngineTypes.startp = _startpos__7_; + MenhirLib.EngineTypes.endp = _endpos__7_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.semv = _6; + MenhirLib.EngineTypes.startp = _startpos__6_; + MenhirLib.EngineTypes.endp = _endpos__6_; MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1_inlined2; + MenhirLib.EngineTypes.startp = _startpos__1_inlined2_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1_inlined1; + MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _4; + MenhirLib.EngineTypes.startp = _startpos__4_; + MenhirLib.EngineTypes.endp = _endpos__4_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + }; + }; }; }; }; } = _menhir_stack in + let _8 : unit = Obj.magic _8 in + let _7 : unit = Obj.magic _7 in + let _6 : (Parsetree.module_expr) = Obj.magic _6 in + let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in + let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _4 : unit = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in - let _endpos = _endpos__4_ in + let _endpos = _endpos__8_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1024 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 42844 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in + let _5 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in -# 1735 "parsing/parser.mly" - ( let loc = make_loc _loc__1_ in - let me = Mod.ident ~loc _1 in - Opn.mk ~loc me ) -# 42853 "parsing/parser.ml" +# 4263 "parsing/parser.mly" + ( _1 ) +# 43539 "parsing/parser.ml" in - let _endpos = _endpos__4_ in -# 2639 "parsing/parser.mly" - ( (* TODO: review the location of Pexp_array *) - Generic_array.Opened_literal(od, _startpos__3_, _endpos, []) ) -# 42861 "parsing/parser.ml" +# 4276 "parsing/parser.mly" + ( _1, _2 ) +# 43545 "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 + let _loc__8_ = (_startpos__8_, _endpos__8_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2706 "parsing/parser.mly" - ( Generic_array.expression - "[:" ":]" - (fun elts -> - Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc _sloc) - (Iaexp_immutable_array elts)) - _1 ) -# 42877 "parsing/parser.ml" +# 2772 "parsing/parser.mly" + ( unclosed "(" _loc__3_ ")" _loc__8_ ) +# 43553 "parsing/parser.ml" in - let _endpos__1_ = _endpos__4_ in + let _endpos__1_ = _endpos__8_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42887 "parsing/parser.ml" +# 43563 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 42893 "parsing/parser.ml" +# 43569 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42902,89 +43578,65 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _5; - MenhirLib.EngineTypes.startp = _startpos__5_; - MenhirLib.EngineTypes.endp = _endpos__5_; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; MenhirLib.EngineTypes.semv = es; MenhirLib.EngineTypes.startp = _startpos_es_; MenhirLib.EngineTypes.endp = _endpos_es_; MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in - let _5 : unit = Obj.magic _5 in - let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in - let _2 : unit = Obj.magic _2 in - let _1 : (Longident.t) = Obj.magic _1 in + let es : (Parsetree.expression list) = Obj.magic es in + let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in - let _endpos = _endpos__5_ in + let _endpos = _endpos__3_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _4 = -# 2973 "parsing/parser.mly" + let _2 = +# 3006 "parsing/parser.mly" ( es ) -# 42949 "parsing/parser.ml" - in - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2643 "parsing/parser.mly" - ( Generic_array.Unclosed(_loc__3_, _loc__5_) ) -# 42956 "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 +# 43610 "parsing/parser.ml" + in -# 2706 "parsing/parser.mly" - ( Generic_array.expression - "[:" ":]" - (fun elts -> - Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc _sloc) - (Iaexp_immutable_array elts)) - _1 ) -# 42972 "parsing/parser.ml" +# 2665 "parsing/parser.mly" + ( Generic_array.Simple.Literal _2 ) +# 43615 "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 -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42982 "parsing/parser.ml" +# 2674 "parsing/parser.mly" + ( Generic_array.Expression.Simple _1 ) +# 43621 "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 -# 2552 "parsing/parser.mly" - ( _1 ) -# 42988 "parsing/parser.ml" +# 2579 "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) + _1 + ) +# 43640 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43023,31 +43675,41 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 2973 "parsing/parser.mly" +# 3006 "parsing/parser.mly" ( es ) -# 43029 "parsing/parser.ml" +# 43681 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2714 "parsing/parser.mly" - ( fst (mktailexp _loc__3_ _2) ) -# 43035 "parsing/parser.ml" +# 2667 "parsing/parser.mly" + ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) +# 43688 "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 -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43045 "parsing/parser.ml" +# 2674 "parsing/parser.mly" + ( Generic_array.Expression.Simple _1 ) +# 43694 "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 -# 2552 "parsing/parser.mly" - ( _1 ) -# 43051 "parsing/parser.ml" +# 2579 "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) + _1 + ) +# 43713 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43060,58 +43722,51 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = es; - MenhirLib.EngineTypes.startp = _startpos_es_; - MenhirLib.EngineTypes.endp = _endpos_es_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in - let _3 : unit = Obj.magic _3 in - let es : (Parsetree.expression list) = Obj.magic es in + let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in - let _endpos = _endpos__3_ in + let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = let _1 = - let _1 = - let _2 = -# 2973 "parsing/parser.mly" - ( es ) -# 43092 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2716 "parsing/parser.mly" - ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 43099 "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 + let _1 = +# 2669 "parsing/parser.mly" + ( Generic_array.Simple.Literal [] ) +# 43746 "parsing/parser.ml" + in -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43109 "parsing/parser.ml" +# 2674 "parsing/parser.mly" + ( Generic_array.Expression.Simple _1 ) +# 43751 "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 -# 2552 "parsing/parser.mly" - ( _1 ) -# 43115 "parsing/parser.ml" +# 2579 "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) + _1 + ) +# 43770 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43124,736 +43779,19 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _4; - MenhirLib.EngineTypes.startp = _startpos__4_; - MenhirLib.EngineTypes.endp = _endpos__4_; + MenhirLib.EngineTypes.semv = _5; + MenhirLib.EngineTypes.startp = _startpos__5_; + MenhirLib.EngineTypes.endp = _endpos__5_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = xs; - MenhirLib.EngineTypes.startp = _startpos_xs_; - MenhirLib.EngineTypes.endp = _endpos_xs_; + MenhirLib.EngineTypes.semv = es; + MenhirLib.EngineTypes.startp = _startpos_es_; + MenhirLib.EngineTypes.endp = _endpos_es_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - } = _menhir_stack in - let _4 : unit = Obj.magic _4 in - let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in - let _2 : (Parsetree.expression) = Obj.magic _2 in - let _1 : unit = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__4_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = - let _1 = - let _1 = - let _1 = - let _3 = - let xs = -# 253 "" - ( List.rev xs ) -# 43167 "parsing/parser.ml" - in - -# 1126 "parsing/parser.mly" - ( xs ) -# 43172 "parsing/parser.ml" - - in - -# 2607 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 43178 "parsing/parser.ml" - - in - -# 2612 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) -# 43184 "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 - -# 2621 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43194 "parsing/parser.ml" - - in - -# 2717 "parsing/parser.mly" - ( _1 ) -# 43200 "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 - -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43210 "parsing/parser.ml" - - in - -# 2552 "parsing/parser.mly" - ( _1 ) -# 43216 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _4; - MenhirLib.EngineTypes.startp = _startpos__4_; - MenhirLib.EngineTypes.endp = _endpos__4_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = xs; - MenhirLib.EngineTypes.startp = _startpos_xs_; - MenhirLib.EngineTypes.endp = _endpos_xs_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - } = _menhir_stack in - let _4 : unit = Obj.magic _4 in - let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in - let _2 : (Parsetree.expression) = Obj.magic _2 in - let _1 : unit = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__4_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = - let _1 = - let _1 = - let _1 = - let _3 = - let xs = -# 253 "" - ( List.rev xs ) -# 43268 "parsing/parser.ml" - in - -# 1126 "parsing/parser.mly" - ( xs ) -# 43273 "parsing/parser.ml" - - in - -# 2607 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 43279 "parsing/parser.ml" - - in - -# 2614 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 43285 "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 - -# 2621 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43295 "parsing/parser.ml" - - in - -# 2717 "parsing/parser.mly" - ( _1 ) -# 43301 "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 - -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43311 "parsing/parser.ml" - - in - -# 2552 "parsing/parser.mly" - ( _1 ) -# 43317 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _4; - MenhirLib.EngineTypes.startp = _startpos__4_; - MenhirLib.EngineTypes.endp = _endpos__4_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = xs; - MenhirLib.EngineTypes.startp = _startpos_xs_; - MenhirLib.EngineTypes.endp = _endpos_xs_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - } = _menhir_stack in - let _4 : unit = Obj.magic _4 in - let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in - let _2 : (Parsetree.expression) = Obj.magic _2 in - let _1 : unit = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__4_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = - let _1 = - let _1 = - let _1 = - let _3 = - let xs = -# 253 "" - ( List.rev xs ) -# 43369 "parsing/parser.ml" - in - -# 1126 "parsing/parser.mly" - ( xs ) -# 43374 "parsing/parser.ml" - - in - -# 2607 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 43380 "parsing/parser.ml" - - in - -# 2616 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 43386 "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 - -# 2621 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43396 "parsing/parser.ml" - - in - -# 2717 "parsing/parser.mly" - ( _1 ) -# 43402 "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 - -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43412 "parsing/parser.ml" - - in - -# 2552 "parsing/parser.mly" - ( _1 ) -# 43418 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _4; - MenhirLib.EngineTypes.startp = _startpos__4_; - MenhirLib.EngineTypes.endp = _endpos__4_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = xs; - MenhirLib.EngineTypes.startp = _startpos_xs_; - MenhirLib.EngineTypes.endp = _endpos_xs_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2_inlined1; - MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined1; - MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - }; - }; - } = _menhir_stack in - let _4 : unit = Obj.magic _4 in - let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in - let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in - let _1_inlined1 : unit = Obj.magic _1_inlined1 in - let _2 : unit = Obj.magic _2 in - let _1 : (Longident.t) = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__4_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = - let _3 = - let (_startpos__1_, _2) = (_startpos__1_inlined1_, _2_inlined1) in - let _1 = - let _1 = - let _3 = - let xs = -# 253 "" - ( List.rev xs ) -# 43485 "parsing/parser.ml" - in - -# 1126 "parsing/parser.mly" - ( xs ) -# 43490 "parsing/parser.ml" - - in - -# 2607 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 43496 "parsing/parser.ml" - - in - -# 2612 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) -# 43502 "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 - -# 2621 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43512 "parsing/parser.ml" - - in - let (_endpos__3_, _startpos__3_) = (_endpos__4_, _startpos__1_inlined1_) in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1024 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 43524 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 1735 "parsing/parser.mly" - ( let loc = make_loc _loc__1_ in - let me = Mod.ident ~loc _1 in - Opn.mk ~loc me ) -# 43533 "parsing/parser.ml" - - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2719 "parsing/parser.mly" - ( Pexp_open(od, mkexp ~loc:(_loc__3_) _3) ) -# 43540 "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 - -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43550 "parsing/parser.ml" - - in - -# 2552 "parsing/parser.mly" - ( _1 ) -# 43556 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _4; - MenhirLib.EngineTypes.startp = _startpos__4_; - MenhirLib.EngineTypes.endp = _endpos__4_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = xs; - MenhirLib.EngineTypes.startp = _startpos_xs_; - MenhirLib.EngineTypes.endp = _endpos_xs_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2_inlined1; - MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined1; - MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - }; - }; - } = _menhir_stack in - let _4 : unit = Obj.magic _4 in - let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in - let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in - let _1_inlined1 : unit = Obj.magic _1_inlined1 in - let _2 : unit = Obj.magic _2 in - let _1 : (Longident.t) = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__4_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = - let _3 = - let (_startpos__1_, _2) = (_startpos__1_inlined1_, _2_inlined1) in - let _1 = - let _1 = - let _3 = - let xs = -# 253 "" - ( List.rev xs ) -# 43623 "parsing/parser.ml" - in - -# 1126 "parsing/parser.mly" - ( xs ) -# 43628 "parsing/parser.ml" - - in - -# 2607 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 43634 "parsing/parser.ml" - - in - -# 2614 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 43640 "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 - -# 2621 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43650 "parsing/parser.ml" - - in - let (_endpos__3_, _startpos__3_) = (_endpos__4_, _startpos__1_inlined1_) in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1024 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 43662 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 1735 "parsing/parser.mly" - ( let loc = make_loc _loc__1_ in - let me = Mod.ident ~loc _1 in - Opn.mk ~loc me ) -# 43671 "parsing/parser.ml" - - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2719 "parsing/parser.mly" - ( Pexp_open(od, mkexp ~loc:(_loc__3_) _3) ) -# 43678 "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 - -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43688 "parsing/parser.ml" - - in - -# 2552 "parsing/parser.mly" - ( _1 ) -# 43694 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _4; - MenhirLib.EngineTypes.startp = _startpos__4_; - MenhirLib.EngineTypes.endp = _endpos__4_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = xs; - MenhirLib.EngineTypes.startp = _startpos_xs_; - MenhirLib.EngineTypes.endp = _endpos_xs_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2_inlined1; - MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined1; - MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - }; - }; - } = _menhir_stack in - let _4 : unit = Obj.magic _4 in - let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in - let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in - let _1_inlined1 : unit = Obj.magic _1_inlined1 in - let _2 : unit = Obj.magic _2 in - let _1 : (Longident.t) = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__4_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = - let _3 = - let (_startpos__1_, _2) = (_startpos__1_inlined1_, _2_inlined1) in - let _1 = - let _1 = - let _3 = - let xs = -# 253 "" - ( List.rev xs ) -# 43761 "parsing/parser.ml" - in - -# 1126 "parsing/parser.mly" - ( xs ) -# 43766 "parsing/parser.ml" - - in - -# 2607 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 43772 "parsing/parser.ml" - - in - -# 2616 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 43778 "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 - -# 2621 "parsing/parser.mly" - ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 ) -# 43788 "parsing/parser.ml" - - in - let (_endpos__3_, _startpos__3_) = (_endpos__4_, _startpos__1_inlined1_) in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1024 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 43800 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 1735 "parsing/parser.mly" - ( let loc = make_loc _loc__1_ in - let me = Mod.ident ~loc _1 in - Opn.mk ~loc me ) -# 43809 "parsing/parser.ml" - - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2719 "parsing/parser.mly" - ( Pexp_open(od, mkexp ~loc:(_loc__3_) _3) ) -# 43816 "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 - -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43826 "parsing/parser.ml" - - in - -# 2552 "parsing/parser.mly" - ( _1 ) -# 43832 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _5; - MenhirLib.EngineTypes.startp = _startpos__5_; - MenhirLib.EngineTypes.endp = _endpos__5_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = es; - MenhirLib.EngineTypes.startp = _startpos_es_; - MenhirLib.EngineTypes.endp = _endpos_es_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; MenhirLib.EngineTypes.semv = _2; @@ -43879,58 +43817,56 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = - let _1 = - let _4 = -# 2973 "parsing/parser.mly" + let _4 = +# 3006 "parsing/parser.mly" ( es ) -# 43887 "parsing/parser.ml" - in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1024 "parsing/parser.mly" +# 43824 "parsing/parser.ml" + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43897 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 43834 "parsing/parser.ml" -# 1735 "parsing/parser.mly" + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1757 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43906 "parsing/parser.ml" - - in - let _endpos = _endpos__5_ in - let _loc__5_ = (_startpos__5_, _endpos__5_) in - -# 2721 "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) ) -# 43918 "parsing/parser.ml" +# 43843 "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 + let _endpos = _endpos__5_ in -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43928 "parsing/parser.ml" +# 2676 "parsing/parser.mly" + ( Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, _4) + ) +# 43851 "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 -# 2552 "parsing/parser.mly" - ( _1 ) -# 43934 "parsing/parser.ml" +# 2579 "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) + _1 + ) +# 43870 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43943,14 +43879,14 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2_inlined1; - MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; + MenhirLib.EngineTypes.semv = _4; + MenhirLib.EngineTypes.startp = _startpos__4_; + MenhirLib.EngineTypes.endp = _endpos__4_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined1; - MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; MenhirLib.EngineTypes.semv = _2; @@ -43966,74 +43902,60 @@ module Tables = struct }; }; } = _menhir_stack in - let _2_inlined1 : unit = Obj.magic _2_inlined1 in - let _1_inlined1 : unit = Obj.magic _1_inlined1 in + let _4 : unit = Obj.magic _4 in + let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in - let _endpos = _endpos__2_inlined1_ in + let _endpos = _endpos__4_ in let _v : (Parsetree.expression) = let _1 = - let _1 = - let _3 = - let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in - let _1 = -# 2726 "parsing/parser.mly" - (Lident "[]") -# 43984 "parsing/parser.ml" - in - let _endpos__1_ = _endpos__2_ in + let od = + let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43993 "parsing/parser.ml" +# 43922 "parsing/parser.ml" in - let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1024 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 44005 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 1735 "parsing/parser.mly" + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1757 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 44014 "parsing/parser.ml" - - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2727 "parsing/parser.mly" - ( Pexp_open(od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) ) -# 44021 "parsing/parser.ml" +# 43931 "parsing/parser.ml" in - let _endpos__1_ = _endpos__2_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let _endpos = _endpos__4_ in -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 44031 "parsing/parser.ml" +# 2679 "parsing/parser.mly" + ( (* TODO: review the location of Pexp_array *) + Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, []) + ) +# 43940 "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 -# 2552 "parsing/parser.mly" - ( _1 ) -# 44037 "parsing/parser.ml" +# 2579 "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) + _1 + ) +# 43959 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44084,34 +44006,36 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = - let _1 = - let _4 = -# 2973 "parsing/parser.mly" + let _4 = +# 3006 "parsing/parser.mly" ( es ) -# 44092 "parsing/parser.ml" - in - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2730 "parsing/parser.mly" - ( unclosed "[" _loc__3_ "]" _loc__5_ ) -# 44099 "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 +# 44013 "parsing/parser.ml" + in + let _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 44109 "parsing/parser.ml" +# 2684 "parsing/parser.mly" + ( Generic_array.Expression.Simple (Unclosed(_loc__3_, _loc__5_)) ) +# 44020 "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 -# 2552 "parsing/parser.mly" - ( _1 ) -# 44115 "parsing/parser.ml" +# 2579 "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) + _1 + ) +# 44039 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44124,156 +44048,164 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _9; - MenhirLib.EngineTypes.startp = _startpos__9_; - MenhirLib.EngineTypes.endp = _endpos__9_; + MenhirLib.EngineTypes.semv = _4; + MenhirLib.EngineTypes.startp = _startpos__4_; + MenhirLib.EngineTypes.endp = _endpos__4_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined3; - MenhirLib.EngineTypes.startp = _startpos__1_inlined3_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined3_; + MenhirLib.EngineTypes.semv = xs; + MenhirLib.EngineTypes.startp = _startpos_xs_; + MenhirLib.EngineTypes.endp = _endpos_xs_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _7; - MenhirLib.EngineTypes.startp = _startpos__7_; - MenhirLib.EngineTypes.endp = _endpos__7_; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _6; - MenhirLib.EngineTypes.startp = _startpos__6_; - MenhirLib.EngineTypes.endp = _endpos__6_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined2; - MenhirLib.EngineTypes.startp = _startpos__1_inlined2_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined1; - MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _4; - MenhirLib.EngineTypes.startp = _startpos__4_; - MenhirLib.EngineTypes.endp = _endpos__4_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - }; - }; - }; + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in - let _9 : unit = Obj.magic _9 in - let _1_inlined3 : (Parsetree.module_type) = Obj.magic _1_inlined3 in - let _7 : unit = Obj.magic _7 in - let _6 : (Parsetree.module_expr) = Obj.magic _6 in - let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in - let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _4 : unit = Obj.magic _4 in - let _3 : unit = Obj.magic _3 in - let _2 : unit = Obj.magic _2 in - let _1 : (Longident.t) = Obj.magic _1 in + let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in + let _2 : (Parsetree.expression) = Obj.magic _2 in + let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in - let _endpos = _endpos__9_ in + let _endpos = _endpos__4_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _8 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3799 "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 ) -# 44212 "parsing/parser.ml" - - in - let _5 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in + let _1 = + let _3 = + let xs = +# 253 "" + ( List.rev xs ) +# 44089 "parsing/parser.ml" + in -# 4228 "parsing/parser.mly" - ( _1 ) -# 44222 "parsing/parser.ml" +# 1148 "parsing/parser.mly" + ( xs ) +# 44094 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" - ( _1, _2 ) -# 44228 "parsing/parser.ml" +# 2644 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) +# 44100 "parsing/parser.ml" in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + +# 2649 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) +# 44106 "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 + +# 2658 "parsing/parser.mly" + ( mkexp_jane_syntax ~loc:_sloc + (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) + ) +# 44118 "parsing/parser.ml" + + in + +# 2589 "parsing/parser.mly" + ( _1 ) +# 44124 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _4; + MenhirLib.EngineTypes.startp = _startpos__4_; + MenhirLib.EngineTypes.endp = _endpos__4_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = xs; + MenhirLib.EngineTypes.startp = _startpos_xs_; + MenhirLib.EngineTypes.endp = _endpos_xs_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + } = _menhir_stack in + let _4 : unit = Obj.magic _4 in + let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in + let _2 : (Parsetree.expression) = Obj.magic _2 in + let _1 : unit = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__4_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let _1 = + let _3 = + let xs = +# 253 "" + ( List.rev xs ) +# 44174 "parsing/parser.ml" + in -# 1024 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 44239 "parsing/parser.ml" +# 1148 "parsing/parser.mly" + ( xs ) +# 44179 "parsing/parser.ml" in - let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1735 "parsing/parser.mly" - ( let loc = make_loc _loc__1_ in - let me = Mod.ident ~loc _1 in - Opn.mk ~loc me ) -# 44248 "parsing/parser.ml" +# 2644 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) +# 44185 "parsing/parser.ml" in - let _startpos_od_ = _startpos__1_ in - let _endpos = _endpos__9_ in - let _symbolstartpos = _startpos_od_ in - let _sloc = (_symbolstartpos, _endpos) in -# 2733 "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) ) -# 44261 "parsing/parser.ml" +# 2651 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) +# 44191 "parsing/parser.ml" in - let _endpos__1_ = _endpos__9_ in + let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 44271 "parsing/parser.ml" +# 2658 "parsing/parser.mly" + ( mkexp_jane_syntax ~loc:_sloc + (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) + ) +# 44203 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" - ( _1 ) -# 44277 "parsing/parser.ml" +# 2589 "parsing/parser.mly" + ( _1 ) +# 44209 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44286,111 +44218,79 @@ module Tables = struct let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in let { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _8; - MenhirLib.EngineTypes.startp = _startpos__8_; - MenhirLib.EngineTypes.endp = _endpos__8_; + MenhirLib.EngineTypes.semv = _4; + MenhirLib.EngineTypes.startp = _startpos__4_; + MenhirLib.EngineTypes.endp = _endpos__4_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _7; - MenhirLib.EngineTypes.startp = _startpos__7_; - MenhirLib.EngineTypes.endp = _endpos__7_; + MenhirLib.EngineTypes.semv = xs; + MenhirLib.EngineTypes.startp = _startpos_xs_; + MenhirLib.EngineTypes.endp = _endpos_xs_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _6; - MenhirLib.EngineTypes.startp = _startpos__6_; - MenhirLib.EngineTypes.endp = _endpos__6_; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined2; - MenhirLib.EngineTypes.startp = _startpos__1_inlined2_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined1; - MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _4; - MenhirLib.EngineTypes.startp = _startpos__4_; - MenhirLib.EngineTypes.endp = _endpos__4_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - }; - }; + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in - let _8 : unit = Obj.magic _8 in - let _7 : unit = Obj.magic _7 in - let _6 : (Parsetree.module_expr) = Obj.magic _6 in - let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in - let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _4 : unit = Obj.magic _4 in - let _3 : unit = Obj.magic _3 in - let _2 : unit = Obj.magic _2 in - let _1 : (Longident.t) = Obj.magic _1 in + let xs : (Jane_syntax.Comprehensions.clause list) = Obj.magic xs in + let _2 : (Parsetree.expression) = Obj.magic _2 in + let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in - let _endpos = _endpos__8_ in + let _endpos = _endpos__4_ in let _v : (Parsetree.expression) = let _1 = let _1 = - let _5 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in + let _1 = + let _3 = + let xs = +# 253 "" + ( List.rev xs ) +# 44259 "parsing/parser.ml" + in -# 4228 "parsing/parser.mly" - ( _1 ) -# 44364 "parsing/parser.ml" +# 1148 "parsing/parser.mly" + ( xs ) +# 44264 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" - ( _1, _2 ) -# 44370 "parsing/parser.ml" +# 2644 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) +# 44270 "parsing/parser.ml" in - let _loc__8_ = (_startpos__8_, _endpos__8_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2739 "parsing/parser.mly" - ( unclosed "(" _loc__3_ ")" _loc__8_ ) -# 44378 "parsing/parser.ml" +# 2653 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) +# 44276 "parsing/parser.ml" in - let _endpos__1_ = _endpos__8_ in + let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1057 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 44388 "parsing/parser.ml" +# 2658 "parsing/parser.mly" + ( mkexp_jane_syntax ~loc:_sloc + (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) + ) +# 44288 "parsing/parser.ml" in -# 2552 "parsing/parser.mly" - ( _1 ) -# 44394 "parsing/parser.ml" +# 2589 "parsing/parser.mly" + ( _1 ) +# 44294 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44419,30 +44319,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44425 "parsing/parser.ml" +# 44325 "parsing/parser.ml" in -# 3056 "parsing/parser.mly" +# 3089 "parsing/parser.mly" ( Ppat_var (_1) ) -# 44431 "parsing/parser.ml" +# 44331 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44440 "parsing/parser.ml" +# 44340 "parsing/parser.ml" in -# 3057 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( _1 ) -# 44446 "parsing/parser.ml" +# 44346 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44465,9 +44365,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3058 "parsing/parser.mly" +# 3091 "parsing/parser.mly" ( _1 ) -# 44471 "parsing/parser.ml" +# 44371 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44507,9 +44407,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3063 "parsing/parser.mly" +# 3096 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) -# 44513 "parsing/parser.ml" +# 44413 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44532,9 +44432,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3065 "parsing/parser.mly" +# 3098 "parsing/parser.mly" ( _1 ) -# 44538 "parsing/parser.ml" +# 44438 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44597,9 +44497,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44603 "parsing/parser.ml" +# 44503 "parsing/parser.ml" in let _3 = @@ -44607,24 +44507,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 44613 "parsing/parser.ml" +# 44513 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 44619 "parsing/parser.ml" +# 44519 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3067 "parsing/parser.mly" +# 3100 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 ) -# 44628 "parsing/parser.ml" +# 44528 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44701,11 +44601,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3799 "parsing/parser.mly" +# 3834 "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 ) -# 44709 "parsing/parser.ml" +# 44609 "parsing/parser.ml" in let _4 = @@ -44714,9 +44614,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44720 "parsing/parser.ml" +# 44620 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__1_inlined3_, _startpos__1_inlined3_) in @@ -44725,15 +44625,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 44731 "parsing/parser.ml" +# 44631 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 44737 "parsing/parser.ml" +# 44637 "parsing/parser.ml" in let _endpos = _endpos__7_ in @@ -44741,11 +44641,11 @@ module Tables = struct let _loc__4_ = (_startpos__4_, _endpos__4_) in let _sloc = (_symbolstartpos, _endpos) in -# 3069 "parsing/parser.mly" +# 3102 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_constraint(mkpat ~loc:_loc__4_ (Ppat_unpack _4), _6)) _3 ) -# 44749 "parsing/parser.ml" +# 44649 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44769,23 +44669,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3077 "parsing/parser.mly" +# 3110 "parsing/parser.mly" ( Ppat_any ) -# 44775 "parsing/parser.ml" +# 44675 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44783 "parsing/parser.ml" +# 44683 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 44789 "parsing/parser.ml" +# 44689 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44809,23 +44709,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3079 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( Ppat_constant _1 ) -# 44815 "parsing/parser.ml" +# 44715 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44823 "parsing/parser.ml" +# 44723 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 44829 "parsing/parser.ml" +# 44729 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44863,24 +44763,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3081 "parsing/parser.mly" +# 3114 "parsing/parser.mly" ( Ppat_interval (_1, _3) ) -# 44869 "parsing/parser.ml" +# 44769 "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 -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44878 "parsing/parser.ml" +# 44778 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 44884 "parsing/parser.ml" +# 44784 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44909,30 +44809,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44915 "parsing/parser.ml" +# 44815 "parsing/parser.ml" in -# 3083 "parsing/parser.mly" +# 3116 "parsing/parser.mly" ( Ppat_construct(_1, None) ) -# 44921 "parsing/parser.ml" +# 44821 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44930 "parsing/parser.ml" +# 44830 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 44936 "parsing/parser.ml" +# 44836 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44956,23 +44856,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3085 "parsing/parser.mly" +# 3118 "parsing/parser.mly" ( Ppat_variant(_1, None) ) -# 44962 "parsing/parser.ml" +# 44862 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44970 "parsing/parser.ml" +# 44870 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 44976 "parsing/parser.ml" +# 44876 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45009,15 +44909,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45015 "parsing/parser.ml" +# 44915 "parsing/parser.ml" in -# 3087 "parsing/parser.mly" +# 3120 "parsing/parser.mly" ( Ppat_type (_2) ) -# 45021 "parsing/parser.ml" +# 44921 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -45025,15 +44925,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45031 "parsing/parser.ml" +# 44931 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45037 "parsing/parser.ml" +# 44937 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45076,15 +44976,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45082 "parsing/parser.ml" +# 44982 "parsing/parser.ml" in -# 3089 "parsing/parser.mly" +# 3122 "parsing/parser.mly" ( Ppat_open(_1, _3) ) -# 45088 "parsing/parser.ml" +# 44988 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -45092,15 +44992,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45098 "parsing/parser.ml" +# 44998 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45104 "parsing/parser.ml" +# 45004 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45148,18 +45048,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 3090 "parsing/parser.mly" +# 3123 "parsing/parser.mly" (Lident "[]") -# 45154 "parsing/parser.ml" +# 45054 "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 -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45163 "parsing/parser.ml" +# 45063 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in @@ -45168,18 +45068,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45174 "parsing/parser.ml" +# 45074 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3091 "parsing/parser.mly" +# 3124 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 45183 "parsing/parser.ml" +# 45083 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -45187,15 +45087,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45193 "parsing/parser.ml" +# 45093 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45199 "parsing/parser.ml" +# 45099 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45243,18 +45143,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 3092 "parsing/parser.mly" +# 3125 "parsing/parser.mly" (Lident "()") -# 45249 "parsing/parser.ml" +# 45149 "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 -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45258 "parsing/parser.ml" +# 45158 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in @@ -45263,18 +45163,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45269 "parsing/parser.ml" +# 45169 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3093 "parsing/parser.mly" +# 3126 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 45278 "parsing/parser.ml" +# 45178 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -45282,15 +45182,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45288 "parsing/parser.ml" +# 45188 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45294 "parsing/parser.ml" +# 45194 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45347,15 +45247,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45353 "parsing/parser.ml" +# 45253 "parsing/parser.ml" in -# 3095 "parsing/parser.mly" +# 3128 "parsing/parser.mly" ( Ppat_open (_1, _4) ) -# 45359 "parsing/parser.ml" +# 45259 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -45363,15 +45263,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45369 "parsing/parser.ml" +# 45269 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45375 "parsing/parser.ml" +# 45275 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45426,9 +45326,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3097 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 45432 "parsing/parser.ml" +# 45332 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -45436,15 +45336,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45442 "parsing/parser.ml" +# 45342 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45448 "parsing/parser.ml" +# 45348 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45491,9 +45391,9 @@ module Tables = struct let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in -# 3099 "parsing/parser.mly" +# 3132 "parsing/parser.mly" ( expecting _loc__4_ "pattern" ) -# 45497 "parsing/parser.ml" +# 45397 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -45501,15 +45401,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45507 "parsing/parser.ml" +# 45407 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45513 "parsing/parser.ml" +# 45413 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45550,9 +45450,9 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3101 "parsing/parser.mly" +# 3134 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 45556 "parsing/parser.ml" +# 45456 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -45560,15 +45460,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45566 "parsing/parser.ml" +# 45466 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45572 "parsing/parser.ml" +# 45472 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45620,24 +45520,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3103 "parsing/parser.mly" +# 3136 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) -# 45626 "parsing/parser.ml" +# 45526 "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 -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45635 "parsing/parser.ml" +# 45535 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45641 "parsing/parser.ml" +# 45541 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45692,9 +45592,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3105 "parsing/parser.mly" +# 3138 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 45698 "parsing/parser.ml" +# 45598 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -45702,15 +45602,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45708 "parsing/parser.ml" +# 45608 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45714 "parsing/parser.ml" +# 45614 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45757,9 +45657,9 @@ module Tables = struct let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in -# 3107 "parsing/parser.mly" +# 3140 "parsing/parser.mly" ( expecting _loc__4_ "type" ) -# 45763 "parsing/parser.ml" +# 45663 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -45767,15 +45667,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45773 "parsing/parser.ml" +# 45673 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45779 "parsing/parser.ml" +# 45679 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45854,11 +45754,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3799 "parsing/parser.mly" +# 3834 "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 ) -# 45862 "parsing/parser.ml" +# 45762 "parsing/parser.ml" in let _3 = @@ -45866,23 +45766,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 45872 "parsing/parser.ml" +# 45772 "parsing/parser.ml" in -# 4241 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( _1, _2 ) -# 45878 "parsing/parser.ml" +# 45778 "parsing/parser.ml" in let _loc__7_ = (_startpos__7_, _endpos__7_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3110 "parsing/parser.mly" +# 3143 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__7_ ) -# 45886 "parsing/parser.ml" +# 45786 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -45890,15 +45790,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45896 "parsing/parser.ml" +# 45796 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45902 "parsing/parser.ml" +# 45802 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45922,23 +45822,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3112 "parsing/parser.mly" +# 3145 "parsing/parser.mly" ( Ppat_extension _1 ) -# 45928 "parsing/parser.ml" +# 45828 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1059 "parsing/parser.mly" +# 1081 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45936 "parsing/parser.ml" +# 45836 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( _1 ) -# 45942 "parsing/parser.ml" +# 45842 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45957,17 +45857,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 45963 "parsing/parser.ml" +# 45863 "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) = -# 4147 "parsing/parser.mly" +# 4182 "parsing/parser.mly" ( _1 ) -# 45971 "parsing/parser.ml" +# 45871 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45986,17 +45886,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 891 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 45992 "parsing/parser.ml" +# 45892 "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) = -# 4148 "parsing/parser.mly" +# 4183 "parsing/parser.mly" ( _1 ) -# 46000 "parsing/parser.ml" +# 45900 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46019,9 +45919,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4149 "parsing/parser.mly" +# 4184 "parsing/parser.mly" ( "and" ) -# 46025 "parsing/parser.ml" +# 45925 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46044,9 +45944,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4150 "parsing/parser.mly" +# 4185 "parsing/parser.mly" ( "as" ) -# 46050 "parsing/parser.ml" +# 45950 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46069,9 +45969,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4151 "parsing/parser.mly" +# 4186 "parsing/parser.mly" ( "assert" ) -# 46075 "parsing/parser.ml" +# 45975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46094,9 +45994,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4152 "parsing/parser.mly" +# 4187 "parsing/parser.mly" ( "begin" ) -# 46100 "parsing/parser.ml" +# 46000 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46119,9 +46019,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4153 "parsing/parser.mly" +# 4188 "parsing/parser.mly" ( "class" ) -# 46125 "parsing/parser.ml" +# 46025 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46144,9 +46044,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4154 "parsing/parser.mly" +# 4189 "parsing/parser.mly" ( "constraint" ) -# 46150 "parsing/parser.ml" +# 46050 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46169,9 +46069,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4155 "parsing/parser.mly" +# 4190 "parsing/parser.mly" ( "do" ) -# 46175 "parsing/parser.ml" +# 46075 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46194,9 +46094,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4156 "parsing/parser.mly" +# 4191 "parsing/parser.mly" ( "done" ) -# 46200 "parsing/parser.ml" +# 46100 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46219,9 +46119,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4157 "parsing/parser.mly" +# 4192 "parsing/parser.mly" ( "downto" ) -# 46225 "parsing/parser.ml" +# 46125 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46244,9 +46144,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4158 "parsing/parser.mly" +# 4193 "parsing/parser.mly" ( "else" ) -# 46250 "parsing/parser.ml" +# 46150 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46269,9 +46169,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4159 "parsing/parser.mly" +# 4194 "parsing/parser.mly" ( "end" ) -# 46275 "parsing/parser.ml" +# 46175 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46294,9 +46194,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4160 "parsing/parser.mly" +# 4195 "parsing/parser.mly" ( "exception" ) -# 46300 "parsing/parser.ml" +# 46200 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46319,9 +46219,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4161 "parsing/parser.mly" +# 4196 "parsing/parser.mly" ( "external" ) -# 46325 "parsing/parser.ml" +# 46225 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46344,9 +46244,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4162 "parsing/parser.mly" +# 4197 "parsing/parser.mly" ( "false" ) -# 46350 "parsing/parser.ml" +# 46250 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46369,9 +46269,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4163 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( "for" ) -# 46375 "parsing/parser.ml" +# 46275 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46394,9 +46294,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4164 "parsing/parser.mly" +# 4199 "parsing/parser.mly" ( "fun" ) -# 46400 "parsing/parser.ml" +# 46300 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46419,9 +46319,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4165 "parsing/parser.mly" +# 4200 "parsing/parser.mly" ( "function" ) -# 46425 "parsing/parser.ml" +# 46325 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46444,9 +46344,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4166 "parsing/parser.mly" +# 4201 "parsing/parser.mly" ( "functor" ) -# 46450 "parsing/parser.ml" +# 46350 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46469,9 +46369,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4167 "parsing/parser.mly" +# 4202 "parsing/parser.mly" ( "nonlocal_" ) -# 46475 "parsing/parser.ml" +# 46375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46494,9 +46394,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4168 "parsing/parser.mly" +# 4203 "parsing/parser.mly" ( "if" ) -# 46500 "parsing/parser.ml" +# 46400 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46519,9 +46419,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4169 "parsing/parser.mly" +# 4204 "parsing/parser.mly" ( "in" ) -# 46525 "parsing/parser.ml" +# 46425 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46544,9 +46444,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4170 "parsing/parser.mly" +# 4205 "parsing/parser.mly" ( "include" ) -# 46550 "parsing/parser.ml" +# 46450 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46569,9 +46469,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4171 "parsing/parser.mly" +# 4206 "parsing/parser.mly" ( "inherit" ) -# 46575 "parsing/parser.ml" +# 46475 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46594,9 +46494,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4172 "parsing/parser.mly" +# 4207 "parsing/parser.mly" ( "initializer" ) -# 46600 "parsing/parser.ml" +# 46500 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46619,9 +46519,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4173 "parsing/parser.mly" +# 4208 "parsing/parser.mly" ( "lazy" ) -# 46625 "parsing/parser.ml" +# 46525 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46644,9 +46544,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4174 "parsing/parser.mly" +# 4209 "parsing/parser.mly" ( "let" ) -# 46650 "parsing/parser.ml" +# 46550 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46669,9 +46569,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4175 "parsing/parser.mly" +# 4210 "parsing/parser.mly" ( "local_" ) -# 46675 "parsing/parser.ml" +# 46575 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46694,9 +46594,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4176 "parsing/parser.mly" +# 4211 "parsing/parser.mly" ( "match" ) -# 46700 "parsing/parser.ml" +# 46600 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46719,9 +46619,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4177 "parsing/parser.mly" +# 4212 "parsing/parser.mly" ( "method" ) -# 46725 "parsing/parser.ml" +# 46625 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46744,9 +46644,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4178 "parsing/parser.mly" +# 4213 "parsing/parser.mly" ( "module" ) -# 46750 "parsing/parser.ml" +# 46650 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46769,9 +46669,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4179 "parsing/parser.mly" +# 4214 "parsing/parser.mly" ( "mutable" ) -# 46775 "parsing/parser.ml" +# 46675 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46794,9 +46694,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4180 "parsing/parser.mly" +# 4215 "parsing/parser.mly" ( "new" ) -# 46800 "parsing/parser.ml" +# 46700 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46819,9 +46719,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4181 "parsing/parser.mly" +# 4216 "parsing/parser.mly" ( "nonrec" ) -# 46825 "parsing/parser.ml" +# 46725 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46844,9 +46744,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4182 "parsing/parser.mly" +# 4217 "parsing/parser.mly" ( "object" ) -# 46850 "parsing/parser.ml" +# 46750 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46869,9 +46769,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4183 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( "of" ) -# 46875 "parsing/parser.ml" +# 46775 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46894,9 +46794,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4184 "parsing/parser.mly" +# 4219 "parsing/parser.mly" ( "open" ) -# 46900 "parsing/parser.ml" +# 46800 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46919,9 +46819,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4185 "parsing/parser.mly" +# 4220 "parsing/parser.mly" ( "or" ) -# 46925 "parsing/parser.ml" +# 46825 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46944,9 +46844,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4186 "parsing/parser.mly" +# 4221 "parsing/parser.mly" ( "private" ) -# 46950 "parsing/parser.ml" +# 46850 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46969,9 +46869,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4187 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( "rec" ) -# 46975 "parsing/parser.ml" +# 46875 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46994,9 +46894,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4188 "parsing/parser.mly" +# 4223 "parsing/parser.mly" ( "sig" ) -# 47000 "parsing/parser.ml" +# 46900 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47019,9 +46919,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4189 "parsing/parser.mly" +# 4224 "parsing/parser.mly" ( "struct" ) -# 47025 "parsing/parser.ml" +# 46925 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47044,9 +46944,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4190 "parsing/parser.mly" +# 4225 "parsing/parser.mly" ( "then" ) -# 47050 "parsing/parser.ml" +# 46950 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47069,9 +46969,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4191 "parsing/parser.mly" +# 4226 "parsing/parser.mly" ( "to" ) -# 47075 "parsing/parser.ml" +# 46975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47094,9 +46994,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4192 "parsing/parser.mly" +# 4227 "parsing/parser.mly" ( "true" ) -# 47100 "parsing/parser.ml" +# 47000 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47119,9 +47019,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4193 "parsing/parser.mly" +# 4228 "parsing/parser.mly" ( "try" ) -# 47125 "parsing/parser.ml" +# 47025 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47144,9 +47044,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4194 "parsing/parser.mly" +# 4229 "parsing/parser.mly" ( "type" ) -# 47150 "parsing/parser.ml" +# 47050 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47169,9 +47069,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4195 "parsing/parser.mly" +# 4230 "parsing/parser.mly" ( "val" ) -# 47175 "parsing/parser.ml" +# 47075 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47194,9 +47094,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4196 "parsing/parser.mly" +# 4231 "parsing/parser.mly" ( "virtual" ) -# 47200 "parsing/parser.ml" +# 47100 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47219,9 +47119,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4197 "parsing/parser.mly" +# 4232 "parsing/parser.mly" ( "when" ) -# 47225 "parsing/parser.ml" +# 47125 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47244,9 +47144,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4198 "parsing/parser.mly" +# 4233 "parsing/parser.mly" ( "while" ) -# 47250 "parsing/parser.ml" +# 47150 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47269,9 +47169,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4199 "parsing/parser.mly" +# 4234 "parsing/parser.mly" ( "with" ) -# 47275 "parsing/parser.ml" +# 47175 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47294,9 +47194,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.type_exception * string Asttypes.loc option) = -# 3410 "parsing/parser.mly" +# 3445 "parsing/parser.mly" ( _1 ) -# 47300 "parsing/parser.ml" +# 47200 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47370,18 +47270,18 @@ module Tables = struct let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined5 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 47376 "parsing/parser.ml" +# 47276 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined5_ in let attrs2 = let _1 = _1_inlined4 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 47385 "parsing/parser.ml" +# 47285 "parsing/parser.ml" in let lid = @@ -47390,9 +47290,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 47396 "parsing/parser.ml" +# 47296 "parsing/parser.ml" in let id = @@ -47401,30 +47301,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 47407 "parsing/parser.ml" +# 47307 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 47415 "parsing/parser.ml" +# 47315 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3419 "parsing/parser.mly" +# 3454 "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 ) -# 47428 "parsing/parser.ml" +# 47328 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47454,9 +47354,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2884 "parsing/parser.mly" +# 2917 "parsing/parser.mly" ( _2 ) -# 47460 "parsing/parser.ml" +# 47360 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47489,9 +47389,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2886 "parsing/parser.mly" +# 2919 "parsing/parser.mly" ( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 47495 "parsing/parser.ml" +# 47395 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47542,17 +47442,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2760 "parsing/parser.mly" +# 2793 "parsing/parser.mly" ( xs ) -# 47548 "parsing/parser.ml" +# 47448 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2888 "parsing/parser.mly" +# 2921 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 47556 "parsing/parser.ml" +# 47456 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47634,24 +47534,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 47638 "parsing/parser.ml" +# 47538 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 47643 "parsing/parser.ml" +# 47543 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 47649 "parsing/parser.ml" +# 47549 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 47655 "parsing/parser.ml" +# 47555 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -47659,40 +47559,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47665 "parsing/parser.ml" +# 47565 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 47671 "parsing/parser.ml" +# 47571 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47678 "parsing/parser.ml" +# 47578 "parsing/parser.ml" in let local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 47684 "parsing/parser.ml" +# 47584 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 47690 "parsing/parser.ml" +# 47590 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47696 "parsing/parser.ml" +# 47596 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -47700,15 +47600,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47706 "parsing/parser.ml" +# 47606 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 47712 "parsing/parser.ml" +# 47612 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47755,33 +47655,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 47761 "parsing/parser.ml" +# 47661 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47767 "parsing/parser.ml" +# 47667 "parsing/parser.ml" in let local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 47773 "parsing/parser.ml" +# 47673 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 47779 "parsing/parser.ml" +# 47679 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47785 "parsing/parser.ml" +# 47685 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -47789,15 +47689,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47795 "parsing/parser.ml" +# 47695 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 47801 "parsing/parser.ml" +# 47701 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47887,24 +47787,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 47891 "parsing/parser.ml" +# 47791 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 47896 "parsing/parser.ml" +# 47796 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 47902 "parsing/parser.ml" +# 47802 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 47908 "parsing/parser.ml" +# 47808 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -47912,40 +47812,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47918 "parsing/parser.ml" +# 47818 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 47924 "parsing/parser.ml" +# 47824 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47931 "parsing/parser.ml" +# 47831 "parsing/parser.ml" in let local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 47937 "parsing/parser.ml" +# 47837 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 47943 "parsing/parser.ml" +# 47843 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47949 "parsing/parser.ml" +# 47849 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -47953,15 +47853,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47959 "parsing/parser.ml" +# 47859 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 47965 "parsing/parser.ml" +# 47865 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48015,33 +47915,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 48021 "parsing/parser.ml" +# 47921 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48027 "parsing/parser.ml" +# 47927 "parsing/parser.ml" in let local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 48033 "parsing/parser.ml" +# 47933 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 48039 "parsing/parser.ml" +# 47939 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48045 "parsing/parser.ml" +# 47945 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48049,15 +47949,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48055 "parsing/parser.ml" +# 47955 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 48061 "parsing/parser.ml" +# 47961 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48132,9 +48032,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 48138 "parsing/parser.ml" +# 48038 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48150,24 +48050,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48154 "parsing/parser.ml" +# 48054 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 48159 "parsing/parser.ml" +# 48059 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 48165 "parsing/parser.ml" +# 48065 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48171 "parsing/parser.ml" +# 48071 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48175,40 +48075,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48181 "parsing/parser.ml" +# 48081 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 48187 "parsing/parser.ml" +# 48087 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48194 "parsing/parser.ml" +# 48094 "parsing/parser.ml" in let local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 48200 "parsing/parser.ml" +# 48100 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 48206 "parsing/parser.ml" +# 48106 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48212 "parsing/parser.ml" +# 48112 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48216,15 +48116,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48222 "parsing/parser.ml" +# 48122 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 48228 "parsing/parser.ml" +# 48128 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48271,9 +48171,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 48277 "parsing/parser.ml" +# 48177 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48282,33 +48182,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 48288 "parsing/parser.ml" +# 48188 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48294 "parsing/parser.ml" +# 48194 "parsing/parser.ml" in let local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 48300 "parsing/parser.ml" +# 48200 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 48306 "parsing/parser.ml" +# 48206 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48312 "parsing/parser.ml" +# 48212 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48316,15 +48216,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48322 "parsing/parser.ml" +# 48222 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 48328 "parsing/parser.ml" +# 48228 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48406,9 +48306,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 48412 "parsing/parser.ml" +# 48312 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48425,24 +48325,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48429 "parsing/parser.ml" +# 48329 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 48434 "parsing/parser.ml" +# 48334 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 48440 "parsing/parser.ml" +# 48340 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48446 "parsing/parser.ml" +# 48346 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48450,40 +48350,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48456 "parsing/parser.ml" +# 48356 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 48462 "parsing/parser.ml" +# 48362 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48469 "parsing/parser.ml" +# 48369 "parsing/parser.ml" in let local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 48475 "parsing/parser.ml" +# 48375 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 48481 "parsing/parser.ml" +# 48381 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48487 "parsing/parser.ml" +# 48387 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48491,15 +48391,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48497 "parsing/parser.ml" +# 48397 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 48503 "parsing/parser.ml" +# 48403 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48553,9 +48453,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 48559 "parsing/parser.ml" +# 48459 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48564,33 +48464,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 48570 "parsing/parser.ml" +# 48470 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48576 "parsing/parser.ml" +# 48476 "parsing/parser.ml" in let local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 48582 "parsing/parser.ml" +# 48482 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 48588 "parsing/parser.ml" +# 48488 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48594 "parsing/parser.ml" +# 48494 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48598,15 +48498,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48604 "parsing/parser.ml" +# 48504 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 48610 "parsing/parser.ml" +# 48510 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48681,24 +48581,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48685 "parsing/parser.ml" +# 48585 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 48690 "parsing/parser.ml" +# 48590 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 48696 "parsing/parser.ml" +# 48596 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48702 "parsing/parser.ml" +# 48602 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48706,40 +48606,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48712 "parsing/parser.ml" +# 48612 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 48718 "parsing/parser.ml" +# 48618 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48725 "parsing/parser.ml" +# 48625 "parsing/parser.ml" in let local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 48731 "parsing/parser.ml" +# 48631 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 48737 "parsing/parser.ml" +# 48637 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48743 "parsing/parser.ml" +# 48643 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -48747,15 +48647,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48753 "parsing/parser.ml" +# 48653 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 48759 "parsing/parser.ml" +# 48659 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48795,33 +48695,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 48801 "parsing/parser.ml" +# 48701 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48807 "parsing/parser.ml" +# 48707 "parsing/parser.ml" in let local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 48813 "parsing/parser.ml" +# 48713 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 48819 "parsing/parser.ml" +# 48719 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48825 "parsing/parser.ml" +# 48725 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -48829,15 +48729,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48835 "parsing/parser.ml" +# 48735 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 48841 "parsing/parser.ml" +# 48741 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48920,24 +48820,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48924 "parsing/parser.ml" +# 48824 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 48929 "parsing/parser.ml" +# 48829 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 48935 "parsing/parser.ml" +# 48835 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48941 "parsing/parser.ml" +# 48841 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48945,40 +48845,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48951 "parsing/parser.ml" +# 48851 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 48957 "parsing/parser.ml" +# 48857 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48964 "parsing/parser.ml" +# 48864 "parsing/parser.ml" in let local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 48970 "parsing/parser.ml" +# 48870 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 48976 "parsing/parser.ml" +# 48876 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48982 "parsing/parser.ml" +# 48882 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -48986,15 +48886,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48992 "parsing/parser.ml" +# 48892 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 48998 "parsing/parser.ml" +# 48898 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49041,33 +48941,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 49047 "parsing/parser.ml" +# 48947 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49053 "parsing/parser.ml" +# 48953 "parsing/parser.ml" in let local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 49059 "parsing/parser.ml" +# 48959 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 49065 "parsing/parser.ml" +# 48965 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3672 "parsing/parser.mly" +# 3707 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 49071 "parsing/parser.ml" +# 48971 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -49075,15 +48975,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49081 "parsing/parser.ml" +# 48981 "parsing/parser.ml" in -# 3674 "parsing/parser.mly" +# 3709 "parsing/parser.mly" ( _1 ) -# 49087 "parsing/parser.ml" +# 48987 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49157,9 +49057,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 49163 "parsing/parser.ml" +# 49063 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -49171,24 +49071,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49175 "parsing/parser.ml" +# 49075 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 49180 "parsing/parser.ml" +# 49080 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 49186 "parsing/parser.ml" +# 49086 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49192 "parsing/parser.ml" +# 49092 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49196,45 +49096,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49202 "parsing/parser.ml" +# 49102 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 49208 "parsing/parser.ml" +# 49108 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49215 "parsing/parser.ml" +# 49115 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 49221 "parsing/parser.ml" +# 49121 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 49227 "parsing/parser.ml" +# 49127 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 49238 "parsing/parser.ml" +# 49138 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49242,15 +49142,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49248 "parsing/parser.ml" +# 49148 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 49254 "parsing/parser.ml" +# 49154 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49331,9 +49231,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 49337 "parsing/parser.ml" +# 49237 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -49345,24 +49245,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49349 "parsing/parser.ml" +# 49249 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 49354 "parsing/parser.ml" +# 49254 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 49360 "parsing/parser.ml" +# 49260 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49366 "parsing/parser.ml" +# 49266 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49370,45 +49270,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49376 "parsing/parser.ml" +# 49276 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 49382 "parsing/parser.ml" +# 49282 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49389 "parsing/parser.ml" +# 49289 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 49395 "parsing/parser.ml" +# 49295 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 49401 "parsing/parser.ml" +# 49301 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 49412 "parsing/parser.ml" +# 49312 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49416,15 +49316,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49422 "parsing/parser.ml" +# 49322 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 49428 "parsing/parser.ml" +# 49328 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49470,45 +49370,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 49476 "parsing/parser.ml" +# 49376 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 49483 "parsing/parser.ml" +# 49383 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49489 "parsing/parser.ml" +# 49389 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 49495 "parsing/parser.ml" +# 49395 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 49501 "parsing/parser.ml" +# 49401 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 49512 "parsing/parser.ml" +# 49412 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49516,15 +49416,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49522 "parsing/parser.ml" +# 49422 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 49528 "parsing/parser.ml" +# 49428 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49577,45 +49477,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 49583 "parsing/parser.ml" +# 49483 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 49590 "parsing/parser.ml" +# 49490 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49596 "parsing/parser.ml" +# 49496 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 49602 "parsing/parser.ml" +# 49502 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 49608 "parsing/parser.ml" +# 49508 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 49619 "parsing/parser.ml" +# 49519 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49623,15 +49523,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49629 "parsing/parser.ml" +# 49529 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 49635 "parsing/parser.ml" +# 49535 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49712,9 +49612,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 49718 "parsing/parser.ml" +# 49618 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -49727,24 +49627,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49731 "parsing/parser.ml" +# 49631 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 49736 "parsing/parser.ml" +# 49636 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 49742 "parsing/parser.ml" +# 49642 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49748 "parsing/parser.ml" +# 49648 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49752,45 +49652,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49758 "parsing/parser.ml" +# 49658 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 49764 "parsing/parser.ml" +# 49664 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49771 "parsing/parser.ml" +# 49671 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 49777 "parsing/parser.ml" +# 49677 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 49783 "parsing/parser.ml" +# 49683 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 49794 "parsing/parser.ml" +# 49694 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49798,15 +49698,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49804 "parsing/parser.ml" +# 49704 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 49810 "parsing/parser.ml" +# 49710 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49894,9 +49794,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 49900 "parsing/parser.ml" +# 49800 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -49909,24 +49809,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49913 "parsing/parser.ml" +# 49813 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 49918 "parsing/parser.ml" +# 49818 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 49924 "parsing/parser.ml" +# 49824 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49930 "parsing/parser.ml" +# 49830 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49934,45 +49834,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49940 "parsing/parser.ml" +# 49840 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 49946 "parsing/parser.ml" +# 49846 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49953 "parsing/parser.ml" +# 49853 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 49959 "parsing/parser.ml" +# 49859 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 49965 "parsing/parser.ml" +# 49865 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 49976 "parsing/parser.ml" +# 49876 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49980,15 +49880,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49986 "parsing/parser.ml" +# 49886 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 49992 "parsing/parser.ml" +# 49892 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50041,45 +49941,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 50047 "parsing/parser.ml" +# 49947 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 50054 "parsing/parser.ml" +# 49954 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50060 "parsing/parser.ml" +# 49960 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 50066 "parsing/parser.ml" +# 49966 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 50072 "parsing/parser.ml" +# 49972 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 50083 "parsing/parser.ml" +# 49983 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50087,15 +49987,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50093 "parsing/parser.ml" +# 49993 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 50099 "parsing/parser.ml" +# 49999 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50155,45 +50055,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 50161 "parsing/parser.ml" +# 50061 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 50168 "parsing/parser.ml" +# 50068 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50174 "parsing/parser.ml" +# 50074 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 50180 "parsing/parser.ml" +# 50080 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3692 "parsing/parser.mly" +# 3727 "parsing/parser.mly" ( Optional label ) -# 50186 "parsing/parser.ml" +# 50086 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 50197 "parsing/parser.ml" +# 50097 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50201,15 +50101,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50207 "parsing/parser.ml" +# 50107 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 50213 "parsing/parser.ml" +# 50113 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50284,9 +50184,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 50290 "parsing/parser.ml" +# 50190 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50294,9 +50194,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 50300 "parsing/parser.ml" +# 50200 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -50308,24 +50208,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50312 "parsing/parser.ml" +# 50212 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 50317 "parsing/parser.ml" +# 50217 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 50323 "parsing/parser.ml" +# 50223 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50329 "parsing/parser.ml" +# 50229 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50333,45 +50233,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50339 "parsing/parser.ml" +# 50239 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 50345 "parsing/parser.ml" +# 50245 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50352 "parsing/parser.ml" +# 50252 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 50358 "parsing/parser.ml" +# 50258 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 50364 "parsing/parser.ml" +# 50264 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 50375 "parsing/parser.ml" +# 50275 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50379,15 +50279,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50385 "parsing/parser.ml" +# 50285 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 50391 "parsing/parser.ml" +# 50291 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50469,9 +50369,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 50475 "parsing/parser.ml" +# 50375 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50479,9 +50379,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 50485 "parsing/parser.ml" +# 50385 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -50493,24 +50393,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50497 "parsing/parser.ml" +# 50397 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 50502 "parsing/parser.ml" +# 50402 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 50508 "parsing/parser.ml" +# 50408 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50514 "parsing/parser.ml" +# 50414 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50518,45 +50418,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50524 "parsing/parser.ml" +# 50424 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 50530 "parsing/parser.ml" +# 50430 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50537 "parsing/parser.ml" +# 50437 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 50543 "parsing/parser.ml" +# 50443 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 50549 "parsing/parser.ml" +# 50449 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 50560 "parsing/parser.ml" +# 50460 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50564,15 +50464,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50570 "parsing/parser.ml" +# 50470 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 50576 "parsing/parser.ml" +# 50476 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50619,9 +50519,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 50625 "parsing/parser.ml" +# 50525 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50629,45 +50529,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 50635 "parsing/parser.ml" +# 50535 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 50642 "parsing/parser.ml" +# 50542 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50648 "parsing/parser.ml" +# 50548 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 50654 "parsing/parser.ml" +# 50554 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 50660 "parsing/parser.ml" +# 50560 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 50671 "parsing/parser.ml" +# 50571 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50675,15 +50575,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50681 "parsing/parser.ml" +# 50581 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 50687 "parsing/parser.ml" +# 50587 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50737,9 +50637,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 50743 "parsing/parser.ml" +# 50643 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50747,45 +50647,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 50753 "parsing/parser.ml" +# 50653 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 50760 "parsing/parser.ml" +# 50660 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50766 "parsing/parser.ml" +# 50666 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 50772 "parsing/parser.ml" +# 50672 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 50778 "parsing/parser.ml" +# 50678 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 50789 "parsing/parser.ml" +# 50689 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50793,15 +50693,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50799 "parsing/parser.ml" +# 50699 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 50805 "parsing/parser.ml" +# 50705 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50883,9 +50783,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 50889 "parsing/parser.ml" +# 50789 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50893,9 +50793,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 50899 "parsing/parser.ml" +# 50799 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -50908,24 +50808,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50912 "parsing/parser.ml" +# 50812 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 50917 "parsing/parser.ml" +# 50817 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 50923 "parsing/parser.ml" +# 50823 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50929 "parsing/parser.ml" +# 50829 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50933,45 +50833,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50939 "parsing/parser.ml" +# 50839 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 50945 "parsing/parser.ml" +# 50845 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50952 "parsing/parser.ml" +# 50852 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 50958 "parsing/parser.ml" +# 50858 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 50964 "parsing/parser.ml" +# 50864 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 50975 "parsing/parser.ml" +# 50875 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50979,15 +50879,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50985 "parsing/parser.ml" +# 50885 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 50991 "parsing/parser.ml" +# 50891 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51076,9 +50976,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 51082 "parsing/parser.ml" +# 50982 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51086,9 +50986,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 51092 "parsing/parser.ml" +# 50992 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -51101,24 +51001,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51105 "parsing/parser.ml" +# 51005 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 51110 "parsing/parser.ml" +# 51010 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 51116 "parsing/parser.ml" +# 51016 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51122 "parsing/parser.ml" +# 51022 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51126,45 +51026,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51132 "parsing/parser.ml" +# 51032 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 51138 "parsing/parser.ml" +# 51038 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51145 "parsing/parser.ml" +# 51045 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 51151 "parsing/parser.ml" +# 51051 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 51157 "parsing/parser.ml" +# 51057 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 51168 "parsing/parser.ml" +# 51068 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51172,15 +51072,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51178 "parsing/parser.ml" +# 51078 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 51184 "parsing/parser.ml" +# 51084 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51234,9 +51134,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 51240 "parsing/parser.ml" +# 51140 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51244,45 +51144,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 51250 "parsing/parser.ml" +# 51150 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 51257 "parsing/parser.ml" +# 51157 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51263 "parsing/parser.ml" +# 51163 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 51269 "parsing/parser.ml" +# 51169 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 51275 "parsing/parser.ml" +# 51175 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 51286 "parsing/parser.ml" +# 51186 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51290,15 +51190,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51296 "parsing/parser.ml" +# 51196 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 51302 "parsing/parser.ml" +# 51202 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51359,9 +51259,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 51365 "parsing/parser.ml" +# 51265 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51369,45 +51269,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 51375 "parsing/parser.ml" +# 51275 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 51382 "parsing/parser.ml" +# 51282 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51388 "parsing/parser.ml" +# 51288 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 51394 "parsing/parser.ml" +# 51294 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3694 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( Labelled label ) -# 51400 "parsing/parser.ml" +# 51300 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 51411 "parsing/parser.ml" +# 51311 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51415,15 +51315,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51421 "parsing/parser.ml" +# 51321 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 51427 "parsing/parser.ml" +# 51327 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51490,9 +51390,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 51496 "parsing/parser.ml" +# 51396 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -51504,24 +51404,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51508 "parsing/parser.ml" +# 51408 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 51513 "parsing/parser.ml" +# 51413 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 51519 "parsing/parser.ml" +# 51419 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51525 "parsing/parser.ml" +# 51425 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51529,45 +51429,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51535 "parsing/parser.ml" +# 51435 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 51541 "parsing/parser.ml" +# 51441 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51548 "parsing/parser.ml" +# 51448 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 51554 "parsing/parser.ml" +# 51454 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 51560 "parsing/parser.ml" +# 51460 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 51571 "parsing/parser.ml" +# 51471 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -51575,15 +51475,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51581 "parsing/parser.ml" +# 51481 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 51587 "parsing/parser.ml" +# 51487 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51657,9 +51557,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 51663 "parsing/parser.ml" +# 51563 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -51671,24 +51571,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51675 "parsing/parser.ml" +# 51575 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 51680 "parsing/parser.ml" +# 51580 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 51686 "parsing/parser.ml" +# 51586 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51692 "parsing/parser.ml" +# 51592 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51696,45 +51596,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51702 "parsing/parser.ml" +# 51602 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 51708 "parsing/parser.ml" +# 51608 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51715 "parsing/parser.ml" +# 51615 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 51721 "parsing/parser.ml" +# 51621 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 51727 "parsing/parser.ml" +# 51627 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 51738 "parsing/parser.ml" +# 51638 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -51742,15 +51642,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51748 "parsing/parser.ml" +# 51648 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 51754 "parsing/parser.ml" +# 51654 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51789,45 +51689,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 51795 "parsing/parser.ml" +# 51695 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 51802 "parsing/parser.ml" +# 51702 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51808 "parsing/parser.ml" +# 51708 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 51814 "parsing/parser.ml" +# 51714 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 51820 "parsing/parser.ml" +# 51720 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 51831 "parsing/parser.ml" +# 51731 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -51835,15 +51735,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51841 "parsing/parser.ml" +# 51741 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 51847 "parsing/parser.ml" +# 51747 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51889,45 +51789,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 51895 "parsing/parser.ml" +# 51795 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 51902 "parsing/parser.ml" +# 51802 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51908 "parsing/parser.ml" +# 51808 "parsing/parser.ml" in let arg_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 51914 "parsing/parser.ml" +# 51814 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 51920 "parsing/parser.ml" +# 51820 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 51931 "parsing/parser.ml" +# 51831 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -51935,15 +51835,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51941 "parsing/parser.ml" +# 51841 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 51947 "parsing/parser.ml" +# 51847 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52017,9 +51917,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 52023 "parsing/parser.ml" +# 51923 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -52032,24 +51932,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52036 "parsing/parser.ml" +# 51936 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 52041 "parsing/parser.ml" +# 51941 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 52047 "parsing/parser.ml" +# 51947 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 52053 "parsing/parser.ml" +# 51953 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -52057,45 +51957,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52063 "parsing/parser.ml" +# 51963 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 52069 "parsing/parser.ml" +# 51969 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52076 "parsing/parser.ml" +# 51976 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 52082 "parsing/parser.ml" +# 51982 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 52088 "parsing/parser.ml" +# 51988 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 52099 "parsing/parser.ml" +# 51999 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52103,15 +52003,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52109 "parsing/parser.ml" +# 52009 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 52115 "parsing/parser.ml" +# 52015 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52192,9 +52092,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 52198 "parsing/parser.ml" +# 52098 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -52207,24 +52107,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52211 "parsing/parser.ml" +# 52111 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1148 "parsing/parser.mly" ( xs ) -# 52216 "parsing/parser.ml" +# 52116 "parsing/parser.ml" in -# 3595 "parsing/parser.mly" +# 3630 "parsing/parser.mly" ( _1 ) -# 52222 "parsing/parser.ml" +# 52122 "parsing/parser.ml" in -# 3707 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 52228 "parsing/parser.ml" +# 52128 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -52232,45 +52132,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52238 "parsing/parser.ml" +# 52138 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 52244 "parsing/parser.ml" +# 52144 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52251 "parsing/parser.ml" +# 52151 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 52257 "parsing/parser.ml" +# 52157 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 52263 "parsing/parser.ml" +# 52163 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 52274 "parsing/parser.ml" +# 52174 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52278,15 +52178,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52284 "parsing/parser.ml" +# 52184 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 52290 "parsing/parser.ml" +# 52190 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52332,45 +52232,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3700 "parsing/parser.mly" +# 3735 "parsing/parser.mly" ( false ) -# 52338 "parsing/parser.ml" +# 52238 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 52345 "parsing/parser.ml" +# 52245 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52351 "parsing/parser.ml" +# 52251 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 52357 "parsing/parser.ml" +# 52257 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 52363 "parsing/parser.ml" +# 52263 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 52374 "parsing/parser.ml" +# 52274 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52378,15 +52278,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52384 "parsing/parser.ml" +# 52284 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 52390 "parsing/parser.ml" +# 52290 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52439,45 +52339,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 52445 "parsing/parser.ml" +# 52345 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3711 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( ty ) -# 52452 "parsing/parser.ml" +# 52352 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1022 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52458 "parsing/parser.ml" +# 52358 "parsing/parser.ml" in let arg_local = -# 3702 "parsing/parser.mly" +# 3737 "parsing/parser.mly" ( true ) -# 52464 "parsing/parser.ml" +# 52364 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3696 "parsing/parser.mly" +# 3731 "parsing/parser.mly" ( Nolabel ) -# 52470 "parsing/parser.ml" +# 52370 "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 -# 3683 "parsing/parser.mly" +# 3718 "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_) ) -# 52481 "parsing/parser.ml" +# 52381 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52485,15 +52385,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52491 "parsing/parser.ml" +# 52391 "parsing/parser.ml" in -# 3688 "parsing/parser.mly" +# 3723 "parsing/parser.mly" ( _1 ) -# 52497 "parsing/parser.ml" +# 52397 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52520,39 +52420,39 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 52524 "parsing/parser.ml" +# 52424 "parsing/parser.ml" in let xs = let items = -# 1094 "parsing/parser.mly" +# 1116 "parsing/parser.mly" ( [] ) -# 52530 "parsing/parser.ml" +# 52430 "parsing/parser.ml" in -# 1523 "parsing/parser.mly" +# 1545 "parsing/parser.mly" ( items ) -# 52535 "parsing/parser.ml" +# 52435 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 52541 "parsing/parser.ml" +# 52441 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1016 "parsing/parser.mly" +# 1038 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 52550 "parsing/parser.ml" +# 52450 "parsing/parser.ml" in -# 1516 "parsing/parser.mly" +# 1538 "parsing/parser.mly" ( _1 ) -# 52556 "parsing/parser.ml" +# 52456 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52593,7 +52493,7 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 52597 "parsing/parser.ml" +# 52497 "parsing/parser.ml" in let xs = let items = @@ -52601,65 +52501,65 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 52607 "parsing/parser.ml" +# 52507 "parsing/parser.ml" in -# 1530 "parsing/parser.mly" +# 1552 "parsing/parser.mly" ( mkstrexp e attrs ) -# 52612 "parsing/parser.ml" +# 52512 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1028 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 52620 "parsing/parser.ml" +# 52520 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1047 "parsing/parser.mly" +# 1069 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 52630 "parsing/parser.ml" +# 52530 "parsing/parser.ml" in -# 1096 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( x ) -# 52636 "parsing/parser.ml" +# 52536 "parsing/parser.ml" in -# 1523 "parsing/parser.mly" +# 1545 "parsing/parser.mly" ( items ) -# 52642 "parsing/parser.ml" +# 52542 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 52648 "parsing/parser.ml" +# 52548 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1016 "parsing/parser.mly" +# 1038 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 52657 "parsing/parser.ml" +# 52557 "parsing/parser.ml" in -# 1516 "parsing/parser.mly" +# 1538 "parsing/parser.mly" ( _1 ) -# 52663 "parsing/parser.ml" +# 52563 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52685,9 +52585,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1545 "parsing/parser.mly" +# 1567 "parsing/parser.mly" ( val_of_let_bindings ~loc:_sloc _1 ) -# 52691 "parsing/parser.ml" +# 52591 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52721,9 +52621,9 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 52727 "parsing/parser.ml" +# 52627 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -52731,10 +52631,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1548 "parsing/parser.mly" +# 1570 "parsing/parser.mly" ( let docs = symbol_docs _sloc in Pstr_extension (_1, add_docs_attrs docs _2) ) -# 52738 "parsing/parser.ml" +# 52638 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -52742,15 +52642,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) -# 52748 "parsing/parser.ml" +# 52648 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 52754 "parsing/parser.ml" +# 52654 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52774,23 +52674,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1551 "parsing/parser.mly" +# 1573 "parsing/parser.mly" ( Pstr_attribute _1 ) -# 52780 "parsing/parser.ml" +# 52680 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1063 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) -# 52788 "parsing/parser.ml" +# 52688 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 52794 "parsing/parser.ml" +# 52694 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52814,23 +52714,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1555 "parsing/parser.mly" +# 1577 "parsing/parser.mly" ( pstr_primitive _1 ) -# 52820 "parsing/parser.ml" +# 52720 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 52828 "parsing/parser.ml" +# 52728 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 52834 "parsing/parser.ml" +# 52734 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52854,23 +52754,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1557 "parsing/parser.mly" +# 1579 "parsing/parser.mly" ( pstr_primitive _1 ) -# 52860 "parsing/parser.ml" +# 52760 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 52868 "parsing/parser.ml" +# 52768 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 52874 "parsing/parser.ml" +# 52774 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52905,26 +52805,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1255 "parsing/parser.mly" +# 1277 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 52911 "parsing/parser.ml" +# 52811 "parsing/parser.ml" in -# 3239 "parsing/parser.mly" +# 3274 "parsing/parser.mly" ( _1 ) -# 52916 "parsing/parser.ml" +# 52816 "parsing/parser.ml" in -# 3222 "parsing/parser.mly" +# 3257 "parsing/parser.mly" ( _1 ) -# 52922 "parsing/parser.ml" +# 52822 "parsing/parser.ml" in -# 1559 "parsing/parser.mly" +# 1581 "parsing/parser.mly" ( pstr_type _1 ) -# 52928 "parsing/parser.ml" +# 52828 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -52932,15 +52832,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 52938 "parsing/parser.ml" +# 52838 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 52944 "parsing/parser.ml" +# 52844 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53025,16 +52925,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 53031 "parsing/parser.ml" +# 52931 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = -# 1247 "parsing/parser.mly" +# 1269 "parsing/parser.mly" ( List.rev xs ) -# 53038 "parsing/parser.ml" +# 52938 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -53042,46 +52942,46 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53048 "parsing/parser.ml" +# 52948 "parsing/parser.ml" in let _4 = -# 4056 "parsing/parser.mly" +# 4091 "parsing/parser.mly" ( Recursive ) -# 53054 "parsing/parser.ml" +# 52954 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 53061 "parsing/parser.ml" +# 52961 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3520 "parsing/parser.mly" +# 3555 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 53073 "parsing/parser.ml" +# 52973 "parsing/parser.ml" in -# 3503 "parsing/parser.mly" +# 3538 "parsing/parser.mly" ( _1 ) -# 53079 "parsing/parser.ml" +# 52979 "parsing/parser.ml" in -# 1561 "parsing/parser.mly" +# 1583 "parsing/parser.mly" ( pstr_typext _1 ) -# 53085 "parsing/parser.ml" +# 52985 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -53089,15 +52989,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53095 "parsing/parser.ml" +# 52995 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 53101 "parsing/parser.ml" +# 53001 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53189,16 +53089,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 53195 "parsing/parser.ml" +# 53095 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = -# 1247 "parsing/parser.mly" +# 1269 "parsing/parser.mly" ( List.rev xs ) -# 53202 "parsing/parser.ml" +# 53102 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -53206,9 +53106,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53212 "parsing/parser.ml" +# 53112 "parsing/parser.ml" in let _4 = @@ -53217,41 +53117,41 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4058 "parsing/parser.mly" +# 4093 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 53223 "parsing/parser.ml" +# 53123 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 53231 "parsing/parser.ml" +# 53131 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3520 "parsing/parser.mly" +# 3555 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 53243 "parsing/parser.ml" +# 53143 "parsing/parser.ml" in -# 3503 "parsing/parser.mly" +# 3538 "parsing/parser.mly" ( _1 ) -# 53249 "parsing/parser.ml" +# 53149 "parsing/parser.ml" in -# 1561 "parsing/parser.mly" +# 1583 "parsing/parser.mly" ( pstr_typext _1 ) -# 53255 "parsing/parser.ml" +# 53155 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -53259,15 +53159,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53265 "parsing/parser.ml" +# 53165 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 53271 "parsing/parser.ml" +# 53171 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53291,23 +53191,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1563 "parsing/parser.mly" +# 1585 "parsing/parser.mly" ( pstr_exception _1 ) -# 53297 "parsing/parser.ml" +# 53197 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53305 "parsing/parser.ml" +# 53205 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 53311 "parsing/parser.ml" +# 53211 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53370,9 +53270,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 53376 "parsing/parser.ml" +# 53276 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -53382,36 +53282,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53388 "parsing/parser.ml" +# 53288 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 53396 "parsing/parser.ml" +# 53296 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1592 "parsing/parser.mly" +# 1614 "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 ) -# 53409 "parsing/parser.ml" +# 53309 "parsing/parser.ml" in -# 1565 "parsing/parser.mly" +# 1587 "parsing/parser.mly" ( _1 ) -# 53415 "parsing/parser.ml" +# 53315 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -53419,15 +53319,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53425 "parsing/parser.ml" +# 53325 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 53431 "parsing/parser.ml" +# 53331 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53506,9 +53406,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 53512 "parsing/parser.ml" +# 53412 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -53518,24 +53418,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53524 "parsing/parser.ml" +# 53424 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 53532 "parsing/parser.ml" +# 53432 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1627 "parsing/parser.mly" +# 1649 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in @@ -53543,25 +53443,25 @@ module Tables = struct ext, Mb.mk name body ~attrs ~loc ~docs ) -# 53547 "parsing/parser.ml" +# 53447 "parsing/parser.ml" in -# 1255 "parsing/parser.mly" +# 1277 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 53553 "parsing/parser.ml" +# 53453 "parsing/parser.ml" in -# 1615 "parsing/parser.mly" +# 1637 "parsing/parser.mly" ( _1 ) -# 53559 "parsing/parser.ml" +# 53459 "parsing/parser.ml" in -# 1567 "parsing/parser.mly" +# 1589 "parsing/parser.mly" ( pstr_recmodule _1 ) -# 53565 "parsing/parser.ml" +# 53465 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -53569,15 +53469,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53575 "parsing/parser.ml" +# 53475 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 53581 "parsing/parser.ml" +# 53481 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53601,23 +53501,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1569 "parsing/parser.mly" +# 1591 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_modtype body, ext) ) -# 53607 "parsing/parser.ml" +# 53507 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53615 "parsing/parser.ml" +# 53515 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 53621 "parsing/parser.ml" +# 53521 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53641,23 +53541,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1571 "parsing/parser.mly" +# 1593 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_open body, ext) ) -# 53647 "parsing/parser.ml" +# 53547 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53655 "parsing/parser.ml" +# 53555 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 53661 "parsing/parser.ml" +# 53561 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53727,9 +53627,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 53733 "parsing/parser.ml" +# 53633 "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 @@ -53747,9 +53647,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 53753 "parsing/parser.ml" +# 53653 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -53759,24 +53659,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53765 "parsing/parser.ml" +# 53665 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 53773 "parsing/parser.ml" +# 53673 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1980 "parsing/parser.mly" +# 2002 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -53784,25 +53684,25 @@ module Tables = struct ext, Ci.mk id body ~virt ~params ~attrs ~loc ~docs ) -# 53788 "parsing/parser.ml" +# 53688 "parsing/parser.ml" in -# 1255 "parsing/parser.mly" +# 1277 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 53794 "parsing/parser.ml" +# 53694 "parsing/parser.ml" in -# 1969 "parsing/parser.mly" +# 1991 "parsing/parser.mly" ( _1 ) -# 53800 "parsing/parser.ml" +# 53700 "parsing/parser.ml" in -# 1573 "parsing/parser.mly" +# 1595 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class l, ext) ) -# 53806 "parsing/parser.ml" +# 53706 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -53810,15 +53710,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53816 "parsing/parser.ml" +# 53716 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 53822 "parsing/parser.ml" +# 53722 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53842,23 +53742,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1575 "parsing/parser.mly" +# 1597 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class_type l, ext) ) -# 53848 "parsing/parser.ml" +# 53748 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53856 "parsing/parser.ml" +# 53756 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 53862 "parsing/parser.ml" +# 53762 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53914,22 +53814,22 @@ module Tables = struct let attrs2 = let _1 = _1_inlined1 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 53920 "parsing/parser.ml" +# 53820 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined1_ in let attrs1 = -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 53927 "parsing/parser.ml" +# 53827 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos_is_functor_ in let _sloc = (_symbolstartpos, _endpos) in -# 1671 "parsing/parser.mly" +# 1693 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -53941,16 +53841,16 @@ module Tables = struct else wrap (incl, ext) ) -# 53945 "parsing/parser.ml" +# 53845 "parsing/parser.ml" in -# 1577 "parsing/parser.mly" +# 1599 "parsing/parser.mly" ( _1 pstr_include (fun ~loc incl -> Jane_syntax.Include_functor.str_item_of ~loc (Ifstr_include_functor incl)) ) -# 53954 "parsing/parser.ml" +# 53854 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in @@ -53958,15 +53858,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1080 "parsing/parser.mly" +# 1102 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53964 "parsing/parser.ml" +# 53864 "parsing/parser.ml" in -# 1582 "parsing/parser.mly" +# 1604 "parsing/parser.mly" ( _1 ) -# 53970 "parsing/parser.ml" +# 53870 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53989,9 +53889,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4132 "parsing/parser.mly" +# 4167 "parsing/parser.mly" ( "-" ) -# 53995 "parsing/parser.ml" +# 53895 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54014,9 +53914,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4133 "parsing/parser.mly" +# 4168 "parsing/parser.mly" ( "-." ) -# 54020 "parsing/parser.ml" +# 53920 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54069,9 +53969,9 @@ module Tables = struct let _v : (Parsetree.row_field) = let _5 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 54075 "parsing/parser.ml" +# 53975 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined1_ in @@ -54080,18 +53980,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 54084 "parsing/parser.ml" +# 53984 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 54089 "parsing/parser.ml" +# 53989 "parsing/parser.ml" in -# 3829 "parsing/parser.mly" +# 3864 "parsing/parser.mly" ( _1 ) -# 54095 "parsing/parser.ml" +# 53995 "parsing/parser.ml" in let _1 = @@ -54099,20 +53999,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54105 "parsing/parser.ml" +# 54005 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3815 "parsing/parser.mly" +# 3850 "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 ) -# 54116 "parsing/parser.ml" +# 54016 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54144,9 +54044,9 @@ module Tables = struct let _v : (Parsetree.row_field) = let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 54150 "parsing/parser.ml" +# 54050 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -54155,20 +54055,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54161 "parsing/parser.ml" +# 54061 "parsing/parser.ml" in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3819 "parsing/parser.mly" +# 3854 "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 [] ) -# 54172 "parsing/parser.ml" +# 54072 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54200,7 +54100,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase) = let arg = # 124 "" ( None ) -# 54204 "parsing/parser.ml" +# 54104 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined1_ in let dir = @@ -54209,18 +54109,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54215 "parsing/parser.ml" +# 54115 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4019 "parsing/parser.mly" +# 4054 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54224 "parsing/parser.ml" +# 54124 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54251,9 +54151,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 878 "parsing/parser.mly" +# 900 "parsing/parser.mly" (string * Location.t * string option) -# 54257 "parsing/parser.ml" +# 54157 "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 @@ -54264,23 +54164,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4023 "parsing/parser.mly" +# 4058 "parsing/parser.mly" ( let (s, _, _) = _1 in Pdir_string s ) -# 54270 "parsing/parser.ml" +# 54170 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1085 "parsing/parser.mly" +# 1107 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54278 "parsing/parser.ml" +# 54178 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54284 "parsing/parser.ml" +# 54184 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54290,18 +54190,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54296 "parsing/parser.ml" +# 54196 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4019 "parsing/parser.mly" +# 4054 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54305 "parsing/parser.ml" +# 54205 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54332,9 +54232,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 823 "parsing/parser.mly" +# 845 "parsing/parser.mly" (string * char option) -# 54338 "parsing/parser.ml" +# 54238 "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 @@ -54345,23 +54245,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4024 "parsing/parser.mly" +# 4059 "parsing/parser.mly" ( let (n, m) = _1 in Pdir_int (n ,m) ) -# 54351 "parsing/parser.ml" +# 54251 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1085 "parsing/parser.mly" +# 1107 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54359 "parsing/parser.ml" +# 54259 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54365 "parsing/parser.ml" +# 54265 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54371,18 +54271,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54377 "parsing/parser.ml" +# 54277 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4019 "parsing/parser.mly" +# 4054 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54386 "parsing/parser.ml" +# 54286 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54422,23 +54322,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4025 "parsing/parser.mly" +# 4060 "parsing/parser.mly" ( Pdir_ident _1 ) -# 54428 "parsing/parser.ml" +# 54328 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1085 "parsing/parser.mly" +# 1107 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54436 "parsing/parser.ml" +# 54336 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54442 "parsing/parser.ml" +# 54342 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54448,18 +54348,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54454 "parsing/parser.ml" +# 54354 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4019 "parsing/parser.mly" +# 4054 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54463 "parsing/parser.ml" +# 54363 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54499,23 +54399,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4026 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( Pdir_ident _1 ) -# 54505 "parsing/parser.ml" +# 54405 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1085 "parsing/parser.mly" +# 1107 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54513 "parsing/parser.ml" +# 54413 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54519 "parsing/parser.ml" +# 54419 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54525,18 +54425,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54531 "parsing/parser.ml" +# 54431 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4019 "parsing/parser.mly" +# 4054 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54540 "parsing/parser.ml" +# 54440 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54576,23 +54476,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4027 "parsing/parser.mly" +# 4062 "parsing/parser.mly" ( Pdir_bool false ) -# 54582 "parsing/parser.ml" +# 54482 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1085 "parsing/parser.mly" +# 1107 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54590 "parsing/parser.ml" +# 54490 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54596 "parsing/parser.ml" +# 54496 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54602,18 +54502,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54608 "parsing/parser.ml" +# 54508 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4019 "parsing/parser.mly" +# 4054 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54617 "parsing/parser.ml" +# 54517 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54653,23 +54553,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4028 "parsing/parser.mly" +# 4063 "parsing/parser.mly" ( Pdir_bool true ) -# 54659 "parsing/parser.ml" +# 54559 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1085 "parsing/parser.mly" +# 1107 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54667 "parsing/parser.ml" +# 54567 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54673 "parsing/parser.ml" +# 54573 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54679,18 +54579,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54685 "parsing/parser.ml" +# 54585 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4019 "parsing/parser.mly" +# 4054 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54694 "parsing/parser.ml" +# 54594 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54730,37 +54630,37 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 54736 "parsing/parser.ml" +# 54636 "parsing/parser.ml" in -# 1530 "parsing/parser.mly" +# 1552 "parsing/parser.mly" ( mkstrexp e attrs ) -# 54741 "parsing/parser.ml" +# 54641 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1028 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 54749 "parsing/parser.ml" +# 54649 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1016 "parsing/parser.mly" +# 1038 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 54758 "parsing/parser.ml" +# 54658 "parsing/parser.ml" in -# 1295 "parsing/parser.mly" +# 1317 "parsing/parser.mly" ( Ptop_def _1 ) -# 54764 "parsing/parser.ml" +# 54664 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54793,21 +54693,21 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 54797 "parsing/parser.ml" +# 54697 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1016 "parsing/parser.mly" +# 1038 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 54805 "parsing/parser.ml" +# 54705 "parsing/parser.ml" in -# 1299 "parsing/parser.mly" +# 1321 "parsing/parser.mly" ( Ptop_def _1 ) -# 54811 "parsing/parser.ml" +# 54711 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54837,9 +54737,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.toplevel_phrase) = -# 1303 "parsing/parser.mly" +# 1325 "parsing/parser.mly" ( _1 ) -# 54843 "parsing/parser.ml" +# 54743 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54862,9 +54762,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.toplevel_phrase) = -# 1306 "parsing/parser.mly" +# 1328 "parsing/parser.mly" ( raise End_of_file ) -# 54868 "parsing/parser.ml" +# 54768 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54887,9 +54787,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3721 "parsing/parser.mly" +# 3756 "parsing/parser.mly" ( ty ) -# 54893 "parsing/parser.ml" +# 54793 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54917,18 +54817,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 54921 "parsing/parser.ml" +# 54821 "parsing/parser.ml" in -# 1186 "parsing/parser.mly" +# 1208 "parsing/parser.mly" ( xs ) -# 54926 "parsing/parser.ml" +# 54826 "parsing/parser.ml" in -# 3724 "parsing/parser.mly" +# 3759 "parsing/parser.mly" ( Ptyp_tuple tys ) -# 54932 "parsing/parser.ml" +# 54832 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in @@ -54936,15 +54836,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 54942 "parsing/parser.ml" +# 54842 "parsing/parser.ml" in -# 3726 "parsing/parser.mly" +# 3761 "parsing/parser.mly" ( _1 ) -# 54948 "parsing/parser.ml" +# 54848 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54974,9 +54874,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2976 "parsing/parser.mly" +# 3009 "parsing/parser.mly" ( (Some _2, None) ) -# 54980 "parsing/parser.ml" +# 54880 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55020,9 +54920,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2977 "parsing/parser.mly" +# 3010 "parsing/parser.mly" ( (Some _2, Some _4) ) -# 55026 "parsing/parser.ml" +# 54926 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55052,9 +54952,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2978 "parsing/parser.mly" +# 3011 "parsing/parser.mly" ( (None, Some _2) ) -# 55058 "parsing/parser.ml" +# 54958 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55084,9 +54984,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2979 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( syntax_error() ) -# 55090 "parsing/parser.ml" +# 54990 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55116,9 +55016,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2980 "parsing/parser.mly" +# 3013 "parsing/parser.mly" ( syntax_error() ) -# 55122 "parsing/parser.ml" +# 55022 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55134,9 +55034,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) = -# 3313 "parsing/parser.mly" +# 3348 "parsing/parser.mly" ( (Ptype_abstract, Public, None) ) -# 55140 "parsing/parser.ml" +# 55040 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55166,9 +55066,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) = -# 3315 "parsing/parser.mly" +# 3350 "parsing/parser.mly" ( _2 ) -# 55172 "parsing/parser.ml" +# 55072 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55191,9 +55091,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3980 "parsing/parser.mly" +# 4015 "parsing/parser.mly" ( _1 ) -# 55197 "parsing/parser.ml" +# 55097 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55232,15 +55132,15 @@ module Tables = struct let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = let _3 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 55238 "parsing/parser.ml" +# 55138 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3379 "parsing/parser.mly" ( {_2 with ptyp_attributes = _3}, _1 ) -# 55244 "parsing/parser.ml" +# 55144 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55256,9 +55156,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) = -# 3323 "parsing/parser.mly" +# 3358 "parsing/parser.mly" ( [] ) -# 55262 "parsing/parser.ml" +# 55162 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55281,9 +55181,9 @@ module Tables = struct let _startpos = _startpos_p_ in let _endpos = _endpos_p_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = -# 3325 "parsing/parser.mly" +# 3360 "parsing/parser.mly" ( [p] ) -# 55287 "parsing/parser.ml" +# 55187 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55323,18 +55223,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 55327 "parsing/parser.ml" +# 55227 "parsing/parser.ml" in -# 1158 "parsing/parser.mly" +# 1180 "parsing/parser.mly" ( xs ) -# 55332 "parsing/parser.ml" +# 55232 "parsing/parser.ml" in -# 3329 "parsing/parser.mly" +# 3364 "parsing/parser.mly" ( ps ) -# 55338 "parsing/parser.ml" +# 55238 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55365,24 +55265,24 @@ module Tables = struct let _endpos = _endpos_tyvar_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3350 "parsing/parser.mly" +# 3385 "parsing/parser.mly" ( Ptyp_var tyvar ) -# 55371 "parsing/parser.ml" +# 55271 "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 -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 55380 "parsing/parser.ml" +# 55280 "parsing/parser.ml" in -# 3353 "parsing/parser.mly" +# 3388 "parsing/parser.mly" ( _1 ) -# 55386 "parsing/parser.ml" +# 55286 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55406,23 +55306,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3352 "parsing/parser.mly" +# 3387 "parsing/parser.mly" ( Ptyp_any ) -# 55412 "parsing/parser.ml" +# 55312 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1061 "parsing/parser.mly" +# 1083 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 55420 "parsing/parser.ml" +# 55320 "parsing/parser.ml" in -# 3353 "parsing/parser.mly" +# 3388 "parsing/parser.mly" ( _1 ) -# 55426 "parsing/parser.ml" +# 55326 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55438,9 +55338,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3357 "parsing/parser.mly" +# 3392 "parsing/parser.mly" ( NoVariance, NoInjectivity ) -# 55444 "parsing/parser.ml" +# 55344 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55463,9 +55363,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3358 "parsing/parser.mly" +# 3393 "parsing/parser.mly" ( Covariant, NoInjectivity ) -# 55469 "parsing/parser.ml" +# 55369 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55488,9 +55388,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3359 "parsing/parser.mly" +# 3394 "parsing/parser.mly" ( Contravariant, NoInjectivity ) -# 55494 "parsing/parser.ml" +# 55394 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55513,9 +55413,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3360 "parsing/parser.mly" +# 3395 "parsing/parser.mly" ( NoVariance, Injective ) -# 55519 "parsing/parser.ml" +# 55419 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55545,9 +55445,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3361 "parsing/parser.mly" +# 3396 "parsing/parser.mly" ( Covariant, Injective ) -# 55551 "parsing/parser.ml" +# 55451 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55577,9 +55477,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3361 "parsing/parser.mly" +# 3396 "parsing/parser.mly" ( Covariant, Injective ) -# 55583 "parsing/parser.ml" +# 55483 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55609,9 +55509,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3362 "parsing/parser.mly" +# 3397 "parsing/parser.mly" ( Contravariant, Injective ) -# 55615 "parsing/parser.ml" +# 55515 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55641,9 +55541,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3362 "parsing/parser.mly" +# 3397 "parsing/parser.mly" ( Contravariant, Injective ) -# 55647 "parsing/parser.ml" +# 55547 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55662,20 +55562,20 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 815 "parsing/parser.mly" +# 837 "parsing/parser.mly" (string) -# 55668 "parsing/parser.ml" +# 55568 "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 -# 3364 "parsing/parser.mly" +# 3399 "parsing/parser.mly" ( if _1 = "+!" then Covariant, Injective else if _1 = "-!" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 55679 "parsing/parser.ml" +# 55579 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55694,20 +55594,20 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 864 "parsing/parser.mly" +# 886 "parsing/parser.mly" (string) -# 55700 "parsing/parser.ml" +# 55600 "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 -# 3368 "parsing/parser.mly" +# 3403 "parsing/parser.mly" ( if _1 = "!+" then Covariant, Injective else if _1 = "!-" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 55711 "parsing/parser.ml" +# 55611 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55741,39 +55641,39 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 55745 "parsing/parser.ml" +# 55645 "parsing/parser.ml" in let xs = let _1 = -# 1094 "parsing/parser.mly" +# 1116 "parsing/parser.mly" ( [] ) -# 55751 "parsing/parser.ml" +# 55651 "parsing/parser.ml" in -# 1326 "parsing/parser.mly" +# 1348 "parsing/parser.mly" ( _1 ) -# 55756 "parsing/parser.ml" +# 55656 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 55762 "parsing/parser.ml" +# 55662 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1020 "parsing/parser.mly" +# 1042 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) -# 55771 "parsing/parser.ml" +# 55671 "parsing/parser.ml" in -# 1319 "parsing/parser.mly" +# 1341 "parsing/parser.mly" ( _1 ) -# 55777 "parsing/parser.ml" +# 55677 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55821,7 +55721,7 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 55825 "parsing/parser.ml" +# 55725 "parsing/parser.ml" in let xs = let _1 = @@ -55829,61 +55729,61 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 55835 "parsing/parser.ml" +# 55735 "parsing/parser.ml" in -# 1530 "parsing/parser.mly" +# 1552 "parsing/parser.mly" ( mkstrexp e attrs ) -# 55840 "parsing/parser.ml" +# 55740 "parsing/parser.ml" in -# 1038 "parsing/parser.mly" +# 1060 "parsing/parser.mly" ( Ptop_def [_1] ) -# 55846 "parsing/parser.ml" +# 55746 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1036 "parsing/parser.mly" +# 1058 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 55854 "parsing/parser.ml" +# 55754 "parsing/parser.ml" in -# 1096 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( x ) -# 55860 "parsing/parser.ml" +# 55760 "parsing/parser.ml" in -# 1326 "parsing/parser.mly" +# 1348 "parsing/parser.mly" ( _1 ) -# 55866 "parsing/parser.ml" +# 55766 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 55872 "parsing/parser.ml" +# 55772 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1020 "parsing/parser.mly" +# 1042 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) -# 55881 "parsing/parser.ml" +# 55781 "parsing/parser.ml" in -# 1319 "parsing/parser.mly" +# 1341 "parsing/parser.mly" ( _1 ) -# 55887 "parsing/parser.ml" +# 55787 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55920,9 +55820,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = -# 3899 "parsing/parser.mly" +# 3934 "parsing/parser.mly" ( _2 ) -# 55926 "parsing/parser.ml" +# 55826 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55961,9 +55861,9 @@ module Tables = struct let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3900 "parsing/parser.mly" +# 3935 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 55967 "parsing/parser.ml" +# 55867 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55994,9 +55894,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Asttypes.label) = let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 3901 "parsing/parser.mly" +# 3936 "parsing/parser.mly" ( expecting _loc__2_ "operator" ) -# 56000 "parsing/parser.ml" +# 55900 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56034,9 +55934,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3902 "parsing/parser.mly" +# 3937 "parsing/parser.mly" ( expecting _loc__3_ "module-expr" ) -# 56040 "parsing/parser.ml" +# 55940 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56055,17 +55955,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 56061 "parsing/parser.ml" +# 55961 "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) = -# 3905 "parsing/parser.mly" +# 3940 "parsing/parser.mly" ( _1 ) -# 56069 "parsing/parser.ml" +# 55969 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56088,9 +55988,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3906 "parsing/parser.mly" +# 3941 "parsing/parser.mly" ( _1 ) -# 56094 "parsing/parser.ml" +# 55994 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56113,9 +56013,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3974 "parsing/parser.mly" +# 4009 "parsing/parser.mly" ( _1 ) -# 56119 "parsing/parser.ml" +# 56019 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56160,9 +56060,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 56166 "parsing/parser.ml" +# 56066 "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 @@ -56174,33 +56074,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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 56180 "parsing/parser.ml" +# 56080 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56188 "parsing/parser.ml" +# 56088 "parsing/parser.ml" in let attrs = -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 56194 "parsing/parser.ml" +# 56094 "parsing/parser.ml" in let _1 = -# 4125 "parsing/parser.mly" +# 4160 "parsing/parser.mly" ( Fresh ) -# 56199 "parsing/parser.ml" +# 56099 "parsing/parser.ml" in -# 2120 "parsing/parser.mly" +# 2142 "parsing/parser.mly" ( (label, mutable_, Cfk_virtual ty), attrs ) -# 56204 "parsing/parser.ml" +# 56104 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56245,9 +56145,9 @@ module Tables = struct let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 56251 "parsing/parser.ml" +# 56151 "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 @@ -56259,33 +56159,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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 56265 "parsing/parser.ml" +# 56165 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56273 "parsing/parser.ml" +# 56173 "parsing/parser.ml" in let _2 = -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 56279 "parsing/parser.ml" +# 56179 "parsing/parser.ml" in let _1 = -# 4128 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Fresh ) -# 56284 "parsing/parser.ml" +# 56184 "parsing/parser.ml" in -# 2122 "parsing/parser.mly" +# 2144 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 56289 "parsing/parser.ml" +# 56189 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56336,9 +56236,9 @@ module Tables = struct let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 56342 "parsing/parser.ml" +# 56242 "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 @@ -56351,36 +56251,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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 56357 "parsing/parser.ml" +# 56257 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56365 "parsing/parser.ml" +# 56265 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 56373 "parsing/parser.ml" +# 56273 "parsing/parser.ml" in let _1 = -# 4129 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Override ) -# 56379 "parsing/parser.ml" +# 56279 "parsing/parser.ml" in -# 2122 "parsing/parser.mly" +# 2144 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 56384 "parsing/parser.ml" +# 56284 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56432,9 +56332,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 56438 "parsing/parser.ml" +# 56338 "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 @@ -56446,30 +56346,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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 56452 "parsing/parser.ml" +# 56352 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56460 "parsing/parser.ml" +# 56360 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 56467 "parsing/parser.ml" +# 56367 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = -# 4128 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Fresh ) -# 56473 "parsing/parser.ml" +# 56373 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__7_ in @@ -56485,11 +56385,11 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2125 "parsing/parser.mly" +# 2147 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 56493 "parsing/parser.ml" +# 56393 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56547,9 +56447,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 : ( -# 838 "parsing/parser.mly" +# 860 "parsing/parser.mly" (string) -# 56553 "parsing/parser.ml" +# 56453 "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 @@ -56562,33 +56462,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 = -# 3873 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 56568 "parsing/parser.ml" +# 56468 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56576 "parsing/parser.ml" +# 56476 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 56585 "parsing/parser.ml" +# 56485 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = -# 4129 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Override ) -# 56592 "parsing/parser.ml" +# 56492 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -56603,11 +56503,11 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2125 "parsing/parser.mly" +# 2147 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 56611 "parsing/parser.ml" +# 56511 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56674,9 +56574,9 @@ module Tables = struct let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4224 "parsing/parser.mly" +# 4259 "parsing/parser.mly" ( _1 ) -# 56680 "parsing/parser.ml" +# 56580 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -56686,30 +56586,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56692 "parsing/parser.ml" +# 56592 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4228 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( _1 ) -# 56700 "parsing/parser.ml" +# 56600 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3184 "parsing/parser.mly" +# 3219 "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 ) -# 56713 "parsing/parser.ml" +# 56613 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56725,9 +56625,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.virtual_flag) = -# 4089 "parsing/parser.mly" +# 4124 "parsing/parser.mly" ( Concrete ) -# 56731 "parsing/parser.ml" +# 56631 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56750,9 +56650,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.virtual_flag) = -# 4090 "parsing/parser.mly" +# 4125 "parsing/parser.mly" ( Virtual ) -# 56756 "parsing/parser.ml" +# 56656 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56775,9 +56675,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 4113 "parsing/parser.mly" +# 4148 "parsing/parser.mly" ( Immutable ) -# 56781 "parsing/parser.ml" +# 56681 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56807,9 +56707,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 4114 "parsing/parser.mly" +# 4149 "parsing/parser.mly" ( Mutable ) -# 56813 "parsing/parser.ml" +# 56713 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56839,9 +56739,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 4115 "parsing/parser.mly" +# 4150 "parsing/parser.mly" ( Mutable ) -# 56845 "parsing/parser.ml" +# 56745 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56864,9 +56764,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 4120 "parsing/parser.mly" +# 4155 "parsing/parser.mly" ( Public ) -# 56870 "parsing/parser.ml" +# 56770 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56896,9 +56796,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 4121 "parsing/parser.mly" +# 4156 "parsing/parser.mly" ( Private ) -# 56902 "parsing/parser.ml" +# 56802 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56928,9 +56828,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 4122 "parsing/parser.mly" +# 4157 "parsing/parser.mly" ( Private ) -# 56934 "parsing/parser.ml" +# 56834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56992,27 +56892,27 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 56996 "parsing/parser.ml" +# 56896 "parsing/parser.ml" in -# 1108 "parsing/parser.mly" +# 1130 "parsing/parser.mly" ( xs ) -# 57001 "parsing/parser.ml" +# 56901 "parsing/parser.ml" in -# 3284 "parsing/parser.mly" +# 3319 "parsing/parser.mly" ( _1 ) -# 57007 "parsing/parser.ml" +# 56907 "parsing/parser.ml" in let _endpos__6_ = _endpos_xs_ in let _5 = let _1 = _1_inlined2 in -# 3634 "parsing/parser.mly" +# 3669 "parsing/parser.mly" ( _1 ) -# 57016 "parsing/parser.ml" +# 56916 "parsing/parser.ml" in let _3 = @@ -57021,16 +56921,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57027 "parsing/parser.ml" +# 56927 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3553 "parsing/parser.mly" +# 3588 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_type (_3, @@ -57040,7 +56940,7 @@ module Tables = struct ~manifest:_5 ~priv:_4 ~loc:(make_loc _sloc))) ) -# 57044 "parsing/parser.ml" +# 56944 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57093,9 +56993,9 @@ module Tables = struct let _v : (Parsetree.with_constraint) = let _5 = let _1 = _1_inlined2 in -# 3634 "parsing/parser.mly" +# 3669 "parsing/parser.mly" ( _1 ) -# 57099 "parsing/parser.ml" +# 56999 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in @@ -57105,16 +57005,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57111 "parsing/parser.ml" +# 57011 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3566 "parsing/parser.mly" +# 3601 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_typesubst (_3, @@ -57122,7 +57022,7 @@ module Tables = struct ~params:_2 ~manifest:_5 ~loc:(make_loc _sloc))) ) -# 57126 "parsing/parser.ml" +# 57026 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57171,9 +57071,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57177 "parsing/parser.ml" +# 57077 "parsing/parser.ml" in let _2 = @@ -57182,15 +57082,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57188 "parsing/parser.ml" +# 57088 "parsing/parser.ml" in -# 3574 "parsing/parser.mly" +# 3609 "parsing/parser.mly" ( Pwith_module (_2, _4) ) -# 57194 "parsing/parser.ml" +# 57094 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57239,9 +57139,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57245 "parsing/parser.ml" +# 57145 "parsing/parser.ml" in let _2 = @@ -57250,15 +57150,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57256 "parsing/parser.ml" +# 57156 "parsing/parser.ml" in -# 3576 "parsing/parser.mly" +# 3611 "parsing/parser.mly" ( Pwith_modsubst (_2, _4) ) -# 57262 "parsing/parser.ml" +# 57162 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57314,15 +57214,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57320 "parsing/parser.ml" +# 57220 "parsing/parser.ml" in -# 3578 "parsing/parser.mly" +# 3613 "parsing/parser.mly" ( Pwith_modtype (l, rhs) ) -# 57326 "parsing/parser.ml" +# 57226 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57378,15 +57278,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1024 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57384 "parsing/parser.ml" +# 57284 "parsing/parser.ml" in -# 3580 "parsing/parser.mly" +# 3615 "parsing/parser.mly" ( Pwith_modtypesubst (l, rhs) ) -# 57390 "parsing/parser.ml" +# 57290 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57409,9 +57309,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 3583 "parsing/parser.mly" +# 3618 "parsing/parser.mly" ( Public ) -# 57415 "parsing/parser.ml" +# 57315 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57441,9 +57341,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 3584 "parsing/parser.mly" +# 3619 "parsing/parser.mly" ( Private ) -# 57447 "parsing/parser.ml" +# 57347 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57593,12 +57493,12 @@ module Incremental = struct end -# 4266 "parsing/parser.mly" +# 4301 "parsing/parser.mly" -# 57600 "parsing/parser.ml" +# 57500 "parsing/parser.ml" # 269 "" -# 57605 "parsing/parser.ml" +# 57505 "parsing/parser.ml" diff --git a/ocaml/parsing/ast_invariants.ml b/ocaml/parsing/ast_invariants.ml index 84cd1f5f793..466555b45d8 100644 --- a/ocaml/parsing/ast_invariants.ml +++ b/ocaml/parsing/ast_invariants.ml @@ -90,7 +90,7 @@ let iterator = end; let loc = exp.pexp_loc in match Jane_syntax.Expression.of_ast exp with - | Some jexp -> jexpr self exp.pexp_loc jexp + | Some (jexp, _attrs) -> jexpr self exp.pexp_loc jexp | None -> match exp.pexp_desc with | Pexp_tuple ([] | [_]) -> invalid_tuple loc diff --git a/ocaml/parsing/ast_iterator.ml b/ocaml/parsing/ast_iterator.ml index fdea717c4cb..9ca76ed182e 100644 --- a/ocaml/parsing/ast_iterator.ml +++ b/ocaml/parsing/ast_iterator.ml @@ -429,10 +429,12 @@ module E = struct let iter sub ({pexp_loc = loc; pexp_desc = desc; pexp_attributes = attrs} as expr)= sub.location sub loc; - sub.attributes sub attrs; match Jane_syntax.Expression.of_ast expr with - | Some jexp -> sub.expr_jane_syntax sub jexp + | Some (jexp, attrs) -> + sub.attributes sub attrs; + sub.expr_jane_syntax sub jexp | None -> + sub.attributes sub attrs; match desc with | Pexp_ident x -> iter_loc sub x | Pexp_constant _ -> () diff --git a/ocaml/parsing/ast_mapper.ml b/ocaml/parsing/ast_mapper.ml index 3c58e79c9c6..045c265a436 100644 --- a/ocaml/parsing/ast_mapper.ml +++ b/ocaml/parsing/ast_mapper.ml @@ -149,7 +149,7 @@ module T = struct let attrs = sub.attributes sub attrs in match Jane_syntax.Core_type.of_ast typ with | Some jtyp -> begin - Jane_syntax_parsing.Core_type.wrap_desc ~loc ~attrs @@ + Jane_syntax_parsing.AST.wrap_desc Core_type ~loc ~attrs @@ match sub.typ_jane_syntax sub jtyp with | _ -> . end @@ -301,7 +301,7 @@ module MT = struct let attrs = sub.attributes sub attrs in match Jane_syntax.Module_type.of_ast mty with | Some jmty -> begin - Jane_syntax_parsing.Module_type.wrap_desc ~loc ~attrs @@ + Jane_syntax_parsing.AST.wrap_desc Module_type ~loc ~attrs @@ match sub.module_type_jane_syntax sub jmty with | Jmty_strengthen smty -> Jane_syntax.Strengthen.mty_of ~loc smty end @@ -352,7 +352,7 @@ 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 ~attrs:[] @@ + Jane_syntax_parsing.AST.wrap_desc Signature_item ~loc ~attrs:[] @@ match sub.signature_item_jane_syntax sub jsigi with | Jsig_include_functor incl -> Jane_syntax.Include_functor.sig_item_of ~loc incl @@ -432,7 +432,7 @@ 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 ~attrs:[] @@ + Jane_syntax_parsing.AST.wrap_desc Structure_item ~loc ~attrs:[] @@ match sub.structure_item_jane_syntax sub jstri with | Jstr_include_functor incl -> Jane_syntax.Include_functor.str_item_of ~loc incl @@ -507,15 +507,16 @@ module E = struct ({pexp_loc = loc; pexp_desc = desc; pexp_attributes = attrs} as exp) = let open Exp in let loc = sub.location sub loc in - let attrs = sub.attributes sub attrs in match Jane_syntax.Expression.of_ast exp with - | Some jexp -> begin - Jane_syntax_parsing.Expression.wrap_desc ~loc ~attrs @@ + | Some (jexp, attrs) -> begin + let attrs = sub.attributes sub attrs in + Jane_syntax_parsing.AST.wrap_desc Expression ~loc ~attrs @@ match sub.expr_jane_syntax sub jexp with | Jexp_comprehension c -> Jane_syntax.Comprehensions.expr_of ~loc c | Jexp_immutable_array i -> Jane_syntax.Immutable_arrays.expr_of ~loc i end | None -> + let attrs = sub.attributes sub attrs in match desc with | Pexp_ident x -> ident ~loc ~attrs (map_loc sub x) | Pexp_constant x -> constant ~loc ~attrs (sub.constant sub x) @@ -620,7 +621,7 @@ module P = struct let attrs = sub.attributes sub attrs in match Jane_syntax.Pattern.of_ast pat with | Some jpat -> begin - Jane_syntax_parsing.Pattern.wrap_desc ~loc ~attrs @@ + Jane_syntax_parsing.AST.wrap_desc Pattern ~loc ~attrs @@ match sub.pat_jane_syntax sub jpat with | Jpat_immutable_array i -> Jane_syntax.Immutable_arrays.pat_of ~loc i end diff --git a/ocaml/parsing/depend.ml b/ocaml/parsing/depend.ml index e809a0c4c3e..24013f4e2b1 100644 --- a/ocaml/parsing/depend.ml +++ b/ocaml/parsing/depend.ml @@ -212,7 +212,7 @@ let add_pattern bv pat = let rec add_expr bv exp = match Jane_syntax.Expression.of_ast exp with - | Some jexp -> add_expr_jane_syntax bv jexp + | Some (jexp, _attrs) -> add_expr_jane_syntax bv jexp | None -> match exp.pexp_desc with Pexp_ident l -> add bv l diff --git a/ocaml/parsing/jane_syntax.ml b/ocaml/parsing/jane_syntax.ml index 61841997ea9..6b85494826e 100644 --- a/ocaml/parsing/jane_syntax.ml +++ b/ocaml/parsing/jane_syntax.ml @@ -90,8 +90,8 @@ module Comprehensions = struct *) let comprehension_expr names x = - Expression.wrap_desc ~attrs:[] @@ - Expression.make_jane_syntax (extension_string :: names) x + AST.wrap_desc Expression ~attrs:[] ~loc:x.pexp_loc @@ + AST.make_jane_syntax Expression (extension_string :: 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 @@ -123,16 +123,24 @@ module Comprehensions = struct comprehension_expr ["when"] (Ast_helper.Exp.sequence cond rest) let expr_of_comprehension ~type_ { body; clauses } = + (* We elect to wrap the body in a new AST node (here, [Pexp_lazy]) + because it makes it so there is no AST node that can carry multiple Jane + Syntax-related attributes in addition to user-written attributes. This + choice simplifies the definition of [comprehension_expr_of_expr], as + part of its contract is threading through the user-written attributes + on the outermost node. + *) comprehension_expr type_ - (List.fold_right - expr_of_clause - clauses - (comprehension_expr ["body"] body)) + (Ast_helper.Exp.lazy_ + (List.fold_right + expr_of_clause + clauses + (comprehension_expr ["body"] body))) let expr_of ~loc cexpr = (* See Note [Wrapping with make_entire_jane_syntax] *) - Expression.make_entire_jane_syntax ~loc extension_string (fun () -> + AST.make_entire_jane_syntax Expression ~loc extension_string (fun () -> match cexpr with | Cexp_list_comprehension comp -> expr_of_comprehension ~type_:["list"] comp @@ -186,11 +194,13 @@ module Comprehensions = struct let raise expr err = raise (Error(expr.pexp_loc, err)) end + (* Returns the expression node with the outermost Jane Syntax-related + attribute removed. *) let expand_comprehension_extension_expr expr = - match Expression.match_jane_syntax expr with - | Some (comprehensions :: names, expr) + match find_and_remove_jane_syntax_attribute expr.pexp_attributes with + | Some (comprehensions :: names, attributes) when String.equal comprehensions extension_string -> - names, expr + names, { expr with pexp_attributes = attributes } | Some (ext_name, _) -> Desugaring_error.raise expr (Non_comprehension_embedding ext_name) | None -> @@ -216,40 +226,46 @@ module Comprehensions = struct let add_clause clause comp = { comp with clauses = clause :: comp.clauses } - let rec raw_comprehension_of_expr expr = - match expand_comprehension_extension_expr expr with - | ["for"], { pexp_desc = Pexp_let(Nonrecursive, iterators, rest); _ } -> - add_clause - (For (List.map clause_binding_of_vb iterators)) - (raw_comprehension_of_expr rest) - | ["when"], { pexp_desc = Pexp_sequence(cond, rest); _ } -> - add_clause - (When cond) - (raw_comprehension_of_expr rest) - | ["body"], body -> - { body; clauses = [] } - | bad, _ -> - Desugaring_error.raise expr (Bad_comprehension_embedding bad) - - let comprehension_of_expr expr = - match raw_comprehension_of_expr expr with - | { body = _; clauses = [] } -> - Desugaring_error.raise expr No_clauses - | comp -> comp - + let comprehension_of_expr = + let rec raw_comprehension_of_expr expr = + match expand_comprehension_extension_expr expr with + | ["for"], { pexp_desc = Pexp_let(Nonrecursive, iterators, rest); _ } -> + add_clause + (For (List.map clause_binding_of_vb iterators)) + (raw_comprehension_of_expr rest) + | ["when"], { pexp_desc = Pexp_sequence(cond, rest); _ } -> + add_clause + (When cond) + (raw_comprehension_of_expr rest) + | ["body"], body -> + { body; clauses = [] } + | bad, _ -> + Desugaring_error.raise expr (Bad_comprehension_embedding bad) + in + fun expr -> + match raw_comprehension_of_expr expr with + | { body = _; clauses = [] } -> + Desugaring_error.raise expr No_clauses + | comp -> comp + + (* Returns remaining unconsumed attributes on outermost expression *) let comprehension_expr_of_expr expr = - match expand_comprehension_extension_expr expr with - | ["list"], comp -> - Cexp_list_comprehension (comprehension_of_expr comp) - | ["array"; "mutable"], comp -> - Cexp_array_comprehension (Mutable, comprehension_of_expr comp) - | ["array"; "immutable"], comp -> - (* assert_extension_enabled: - See Note [Check for immutable extension in comprehensions code] *) - assert_extension_enabled ~loc:expr.pexp_loc Immutable_arrays; - Cexp_array_comprehension (Immutable, comprehension_of_expr comp) - | bad, _ -> - Desugaring_error.raise expr (Bad_comprehension_embedding bad) + let name, wrapper = expand_comprehension_extension_expr expr in + let comp = + match name, wrapper.pexp_desc with + | ["list"], Pexp_lazy comp -> + Cexp_list_comprehension (comprehension_of_expr comp) + | ["array"; "mutable"], Pexp_lazy comp -> + Cexp_array_comprehension (Mutable, comprehension_of_expr comp) + | ["array"; "immutable"], Pexp_lazy comp -> + (* assert_extension_enabled: + See Note [Check for immutable extension in comprehensions code] *) + assert_extension_enabled ~loc:expr.pexp_loc Immutable_arrays; + Cexp_array_comprehension (Immutable, comprehension_of_expr comp) + | bad, _ -> + Desugaring_error.raise expr (Bad_comprehension_embedding bad) + in + comp, wrapper.pexp_attributes end (** Immutable arrays *) @@ -265,17 +281,18 @@ module Immutable_arrays = struct let expr_of ~loc = function | Iaexp_immutable_array elts -> (* See Note [Wrapping with make_entire_jane_syntax] *) - Expression.make_entire_jane_syntax ~loc extension_string (fun () -> + AST.make_entire_jane_syntax Expression ~loc extension_string (fun () -> Ast_helper.Exp.array elts) + (* Returns remaining unconsumed attributes *) let of_expr expr = match expr.pexp_desc with - | Pexp_array elts -> Iaexp_immutable_array elts + | Pexp_array elts -> Iaexp_immutable_array elts, expr.pexp_attributes | _ -> failwith "Malformed immutable array expression" let pat_of ~loc = function | Iapat_immutable_array elts -> (* See Note [Wrapping with make_entire_jane_syntax] *) - Pattern.make_entire_jane_syntax ~loc extension_string (fun () -> + AST.make_entire_jane_syntax Pattern ~loc extension_string (fun () -> Ast_helper.Pat.array elts) let of_pat pat = match pat.ppat_desc with @@ -296,8 +313,8 @@ module Include_functor = struct let sig_item_of ~loc = function | Ifsig_include_functor incl -> (* See Note [Wrapping with make_entire_jane_syntax] *) - Signature_item.make_entire_jane_syntax ~loc extension_string (fun () -> - Ast_helper.Sig.include_ incl) + AST.make_entire_jane_syntax Signature_item ~loc extension_string + (fun () -> Ast_helper.Sig.include_ incl) let of_sig_item sigi = match sigi.psig_desc with | Psig_include incl -> Ifsig_include_functor incl @@ -306,8 +323,8 @@ module Include_functor = struct let str_item_of ~loc = function | Ifstr_include_functor incl -> (* See Note [Wrapping with make_entire_jane_syntax] *) - Structure_item.make_entire_jane_syntax ~loc extension_string (fun () -> - Ast_helper.Str.include_ incl) + AST.make_entire_jane_syntax Structure_item ~loc extension_string + (fun () -> Ast_helper.Str.include_ incl) let of_str_item stri = match stri.pstr_desc with | Pstr_include incl -> Ifstr_include_functor incl @@ -327,7 +344,7 @@ module Strengthen = struct let mty_of ~loc { mty; mod_id } = (* See Note [Wrapping with make_entire_jane_syntax] *) - Module_type.make_entire_jane_syntax ~loc extension_string (fun () -> + AST.make_entire_jane_syntax Module_type ~loc extension_string (fun () -> Ast_helper.Mty.functor_ (Named (Location.mknoloc None, mty)) (Ast_helper.Mty.alias mod_id)) @@ -348,117 +365,86 @@ module type AST = sig end module Core_type = struct - module M = struct - module AST = Jane_syntax_parsing.Core_type + type t = | - type t = | + let of_ast_internal (feat : Feature.t) _typ = match feat with + | _ -> None - let of_ast_internal (feat : Feature.t) _typ = match feat with - | _ -> None - end - - include M - include Make_of_ast(M) + let of_ast = AST.make_of_ast Core_type ~of_ast_internal end module Constructor_argument = struct - module M = struct - module AST = Jane_syntax_parsing.Constructor_argument - - type t = | + type t = | - let of_ast_internal (feat : Feature.t) _carg = match feat with - | _ -> None - end + let of_ast_internal (feat : Feature.t) _carg = match feat with + | _ -> None - include M - include Make_of_ast(M) + let of_ast = AST.make_of_ast Constructor_argument ~of_ast_internal end module Expression = struct - module M = struct - module AST = Jane_syntax_parsing.Expression - - type t = - | Jexp_comprehension of Comprehensions.expression - | Jexp_immutable_array of Immutable_arrays.expression - - let of_ast_internal (feat : Feature.t) expr = match feat with - | Language_extension Comprehensions -> - Some (Jexp_comprehension (Comprehensions.comprehension_expr_of_expr expr)) - | Language_extension Immutable_arrays -> - Some (Jexp_immutable_array (Immutable_arrays.of_expr expr)) - | _ -> None - end - - include M - include Make_of_ast(M) + type t = + | Jexp_comprehension of Comprehensions.expression + | Jexp_immutable_array of Immutable_arrays.expression + + let of_ast_internal (feat : Feature.t) expr = match feat with + | Language_extension Comprehensions -> + let expr, attrs = Comprehensions.comprehension_expr_of_expr expr in + Some (Jexp_comprehension expr, attrs) + | Language_extension Immutable_arrays -> + let expr, attrs = Immutable_arrays.of_expr expr in + Some (Jexp_immutable_array expr, attrs) + | _ -> None + + let of_ast = AST.make_of_ast Expression ~of_ast_internal end module Pattern = struct - module M = struct - module AST = Jane_syntax_parsing.Pattern + type t = + | Jpat_immutable_array of Immutable_arrays.pattern - type t = - | Jpat_immutable_array of Immutable_arrays.pattern + let of_ast_internal (feat : Feature.t) pat = match feat with + | Language_extension Immutable_arrays -> + Some (Jpat_immutable_array (Immutable_arrays.of_pat pat)) + | _ -> None - let of_ast_internal (feat : Feature.t) pat = match feat with - | Language_extension Immutable_arrays -> - Some (Jpat_immutable_array (Immutable_arrays.of_pat pat)) - | _ -> None - end - - include M - include Make_of_ast(M) + let of_ast = AST.make_of_ast Pattern ~of_ast_internal end module Module_type = struct - module M = struct - module AST = Jane_syntax_parsing.Module_type + type t = + | Jmty_strengthen of Strengthen.module_type - type t = - | Jmty_strengthen of Strengthen.module_type + let of_ast_internal (feat : Feature.t) mty = match feat with + | Language_extension Module_strengthening -> + Some (Jmty_strengthen (Strengthen.of_mty mty)) + | _ -> None - let of_ast_internal (feat : Feature.t) mty = match feat with - | Language_extension Module_strengthening -> - Some (Jmty_strengthen (Strengthen.of_mty mty)) - | _ -> None - end - - include M - include Make_of_ast(M) + let of_ast = AST.make_of_ast Module_type ~of_ast_internal end module Signature_item = struct - module M = struct - module AST = Jane_syntax_parsing.Signature_item - - type t = - | Jsig_include_functor of Include_functor.signature_item + type t = + | Jsig_include_functor of Include_functor.signature_item - let of_ast_internal (feat : Feature.t) sigi = match feat with - | Language_extension Include_functor -> - Some (Jsig_include_functor (Include_functor.of_sig_item sigi)) - | _ -> None - end + let of_ast_internal (feat : Feature.t) sigi = + match feat with + | Language_extension Include_functor -> + Some (Jsig_include_functor (Include_functor.of_sig_item sigi)) + | _ -> None - include M - include Make_of_ast(M) + let of_ast = AST.make_of_ast Signature_item ~of_ast_internal end module Structure_item = struct - module M = struct - module AST = Jane_syntax_parsing.Structure_item + type t = + | Jstr_include_functor of Include_functor.structure_item - type t = - | Jstr_include_functor of Include_functor.structure_item - - let of_ast_internal (feat : Feature.t) stri = match feat with - | Language_extension Include_functor -> - Some (Jstr_include_functor (Include_functor.of_str_item stri)) - | _ -> None - end + let of_ast_internal (feat : Feature.t) stri = + match feat with + | Language_extension Include_functor -> + Some (Jstr_include_functor (Include_functor.of_str_item stri)) + | _ -> None - include M - include Make_of_ast(M) + let of_ast = AST.make_of_ast Structure_item ~of_ast_internal end diff --git a/ocaml/parsing/jane_syntax.mli b/ocaml/parsing/jane_syntax.mli index f55fe048e92..73de2d7f0d5 100644 --- a/ocaml/parsing/jane_syntax.mli +++ b/ocaml/parsing/jane_syntax.mli @@ -61,7 +61,10 @@ module Comprehensions : sig [:BODY ...CLAUSES...:] (flag = Immutable) (only allowed with [-extension immutable_arrays]) *) - val expr_of : loc:Location.t -> expression -> Parsetree.expression_desc + val expr_of : + loc:Location.t + -> expression + -> Parsetree.expression_desc Jane_syntax_parsing.With_attributes.t end (** The ASTs for immutable arrays. When we merge this upstream, we'll merge @@ -76,7 +79,11 @@ module Immutable_arrays : sig | Iapat_immutable_array of Parsetree.pattern list (** [: P1; ...; Pn :] **) - val expr_of : loc:Location.t -> expression -> Parsetree.expression_desc + val expr_of : + loc:Location.t + -> expression + -> Parsetree.expression_desc Jane_syntax_parsing.With_attributes.t + val pat_of : loc:Location.t -> pattern -> Parsetree.pattern_desc end @@ -114,7 +121,14 @@ end module type AST = sig (** The AST for all our Jane Street syntax; one constructor per feature that extends the given syntactic category. Some extensions are handled - separately and thus are not listed here. *) + separately and thus are not listed here. + + This type will be something like [jane_syntax_ast * Parsetree.attributes] + in cases where the Jane Syntax encoding of the AST uses attributes. In + these cases, the [Parsetree.attributes] are the *rest* of the attributes + after removing Jane Syntax-related attributes. Callers of [of_ast] should + refer to these attributes rather than, for example, [pexp_attributes]. + *) type t (** The corresponding OCaml AST *) @@ -194,7 +208,9 @@ module Expression : sig | Jexp_comprehension of Comprehensions.expression | Jexp_immutable_array of Immutable_arrays.expression - include AST with type t := t and type ast := Parsetree.expression + include AST + with type t := t * Parsetree.attributes + and type ast := Parsetree.expression end (** Novel syntax in patterns *) diff --git a/ocaml/parsing/jane_syntax_parsing.ml b/ocaml/parsing/jane_syntax_parsing.ml index 94caa9d7f43..6a90df1b71f 100644 --- a/ocaml/parsing/jane_syntax_parsing.ml +++ b/ocaml/parsing/jane_syntax_parsing.ml @@ -1,25 +1,36 @@ (** As mentioned in the .mli file, there are some gory details around the particular translation scheme we adopt for moving to and from OCaml ASTs ([Parsetree.expression], etc.). The general idea is that we adopt a scheme - where each novel piece of syntax is represented as a pair of an extension - node and an AST item that serves as the "body". In particular, for an - extension named [EXTNAME] (i.e., one that is enabled by [-extension EXTNAME] - on the command line), the extension node used must be [[%jane.EXTNAME]]; for - built-in syntax, we use [_builtin] instead of an extension name. We also - provide utilities for further desugaring similar applications where the - extension nodes have the longer form [[%jane.FEATNAME.ID1.ID2.….IDn]] (with - the outermost one being the [n = 0] case), as these might be used inside the - [EXPR]. (For example, within the outermost [[%jane.comprehensions]] term - for list and array comprehensions, we can also use - [[%jane.comprehensions.list]], [[%jane.comprehensions.array]], - [[%jane.comprehensions.for.in]], etc.). + where each novel piece of syntax is represented using one of two embeddings: + + 1. As an AST item carrying an attribute. The AST item serves as the "body" + of the syntax indicated by the attribute. + 2. As a pair of an extension node and an AST item that serves as the "body". + Here, the "pair" is embedded as a pair-like construct in the relevant AST + category, e.g. [include sig [%%extension.EXTNAME];; BODY end] for + signature items. + + In particular, for an extension named [EXTNAME] (i.e., one + that is enabled by [-extension EXTNAME] on the command line), the attribute + (if used) must be [[@jane.EXTNAME]], and the extension (if used) must be + [[%jane.EXTNAME]]. For built-in syntax, we use [_builtin] + instead of an extension name. + + In the below example, we use attributes an examples, but it applies equally + to extensions. We also provide utilities for further desugaring similar + applications where the embeddings have the longer form + [[@jane.FEATNAME.ID1.ID2.….IDn]] (with the outermost one being the [n = 0] + case), as these might be used inside the [EXPR]. (For example, within the + outermost [[@jane.comprehensions]] term for list and array comprehensions, + we can also use [[@jane.comprehensions.list]], + [[@jane.comprehensions.array]], [[@jane.comprehensions.for.in]], etc.). As mentioned, we represent terms as a "pair" and don't use the extension - node payload; this is so that ppxen can see inside these extension nodes. - If we put the subexpressions inside the extension node payload, then we + node or attribute payload; this is so that ppxen can see inside these + extension nodes. If we put the subexpressions inside the payload, then we couldn't write something like [[[%string "Hello, %{x}!"] for x in names]], as [ppx_string] wouldn't traverse inside the payload to find the [[%string]] - extension point. + extension node. Our novel syntactic features are of course allowed to impose extra constraints on what legal bodies are; we're also happy for this translation @@ -27,16 +38,37 @@ writing these forms directly. They're just an implementation detail. See modules of type AST below to see how different syntactic categories - are represented. For example, expressions are rendered as an application - of the extension node to the body, i.e. [([%jane.FEATNAME] EXPR)]. + are represented. For example, expressions are rendered using an attribute. We provide one module per syntactic category (e.g., [Expression]), of module type [AST]. They also provide some simple machinery for working with the - general [%jane.FEATNAME.ID1.ID2.….IDn] wrapped forms. To construct one, we + general [@jane.FEATNAME.ID1.ID2.….IDn] wrapped forms. To construct one, we provide [make_jane_syntax]; to destructure one, we provide - [match_jane_syntax]. We still have to write the transformations in both - directions for all new syntax, lowering it to extension nodes and then - lifting it back out. *) + [match_jane_syntax] (which we expose via [make_of_ast]). Users of this + module still have to write the transformations in both directions for all + new syntax, lowering it to extension nodes or attributes and then lifting it + back out. *) + +(** How did we choose between using the attribute embedding and the extension + node embedding for a particular syntactic category? + + Generally, we prefer the attribute embedding: it's more compatible with + ppxes that aren't aware of Jane Syntax. (E.g., if a type looks like a tuple, + it truly is a tuple and not an extension node embedding.) + + We can't apply the attribute embedding everywhere because some syntactic + categories, like structure items, don't carry attributes. For these, we + use extension nodes. + + However, the attribute embedding is more inconvenient in some ways than + the extension node embedding. For example, the attribute embedding requires + callers to strip out Jane Syntax-related attributes from the attribute list + before processing it. We've tried to make this obvious from the signature + of, say, [Jane_syntax.Expression.of_ast], but this is somewhat more + inconvenient than just operating on the [expr_desc]. Nonetheless, because + of the advantages with ppxlib interoperability, we've opted for the + attribute embedding where possible. +*) open Parsetree @@ -120,10 +152,6 @@ module Embedding_syntax = struct Format.fprintf ppf "[%s%s]" sigil name end -(* FUTURE-PROOFING: We're planning to add some attribute-based encoding; delete - this ignore-only binding when we do. *) -let _ = Embedding_syntax.Attribute - (******************************************************************************) (** An AST-style representation of the names used when generating extension @@ -170,7 +198,7 @@ end = struct (** The separator between name components *) let separator = '.' - (** The leading namespace that identifies this extension point as reserved + (** The leading namespace that identifies this extension node as reserved for a modular extension *) let root = "jane" @@ -288,13 +316,12 @@ let () = patterns, etc.). *) (** The parameters that define how to look for [[%jane.FEATNAME]] and - [[@jane.FEATNAME]] inside ASTs of a certain syntactic category. See also - the [Make_AST] functor, which uses these definitions to make the - e.g. [Expression] module. - - NB: Currently, we don't do anything for attribute, but we plan to, so we're - future-proofing the names and comments. *) -module type AST_parameters = sig + [[@jane.FEATNAME]] inside ASTs of a certain syntactic category. This module + type describes the input to the [Make_with_attribute] and + [Make_with_extension_node] functors (though they stipulate additional + requirements for their inputs). +*) +module type AST_syntactic_category = sig (** The AST type (e.g., [Parsetree.expression]) *) type ast @@ -303,7 +330,7 @@ module type AST_parameters = sig type ast_desc (** The name for this syntactic category in the plural form; used for error - messages *) + messages (e.g., "expressions") *) val plural : string (** How to get the location attached to an AST node. Should just be @@ -316,46 +343,20 @@ module type AST_parameters = sig which should be [ghost]. *) val wrap_desc : ?loc:Location.t -> attrs:Parsetree.attributes -> ast_desc -> ast - - (** 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.].) *) - val make_extension_node : - ?loc:Location.t -> ?attrs:attributes -> extension -> ast - - (** Given an extension node (as created by [make_extension_node]) with an - 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 - - (** Given an AST node, check if it's of the special syntactic form indicating - that this is one of our novel syntactic features (as created by - [make_extension_node]), split it back up into the extension node and the - possible body. Doesn't do any checking about the 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 module type AST = sig - type ast + include AST_syntactic_category - type ast_desc - - val plural : string - - val location : ast -> Location.t - - val wrap_desc : - ?loc:Location.t -> attrs:Parsetree.attributes -> ast_desc -> ast + val embedding_syntax : Embedding_syntax.t val make_jane_syntax : Embedded_name.t -> ast -> ast_desc - val make_entire_jane_syntax : - loc:Location.t -> string -> (unit -> ast) -> ast_desc - + (** 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 + the body. If the embedded term is malformed in any way, raises an error; + if the input isn't an embedding of one of our novel syntactic features, + returns [None]. Partial inverse of [make_jane_syntax]. *) val match_jane_syntax : ast -> (Embedded_name.t * ast) option end @@ -366,58 +367,167 @@ let uniformly_handled_extension name = | "local"|"global"|"nonlocal"|"escape"|"curry" -> false | _ -> true -(** Given the [AST_parameters] for a syntactic category, produce the - corresponding module, of type [AST], for lowering and lifting our novel - syntax from and to it. *) -module Make_AST (AST_parameters : AST_parameters) : - AST with type ast = AST_parameters.ast - and type ast_desc = AST_parameters.ast_desc = +(* Parses the embedded name from an embedding, raising if + the embedding is malformed. Malformed means either: + + 1. The embedding has a payload; attribute payloads must + be empty, so other ppxes can traverse "into" them. + + 2. NAME is missing; e.g. the attribute is just [[@jane]]. +*) +let parse_embedding_exn ~loc ~payload ~name ~embedding_syntax = + let raise_error err = raise (Error (loc, err)) in + match Embedded_name.of_string name with + | Some (Ok (feat :: _ as name)) + when uniformly_handled_extension feat -> begin + let raise_malformed err = + raise_error (Malformed_embedding (embedding_syntax, name, err)) + in + match payload with + | PStr [] -> Some name + | _ -> raise_malformed (Has_payload payload) + end + | Some (Error ()) -> raise_error (Unnamed_embedding embedding_syntax) + | Some (Ok (_ :: _)) | None -> None + +module With_attributes = struct + type 'desc t = + { jane_syntax_attributes : Parsetree.attributes + ; desc : 'desc + } +end + +let find_and_remove_jane_syntax_attribute = + let rec loop rest ~rev_prefix = + match rest with + | [] -> None + | attr :: rest -> + let { attr_name = { txt = name; loc = attr_loc }; attr_payload } = + attr + in + begin + match + parse_embedding_exn + ~loc:attr_loc + ~payload:attr_payload + ~name + ~embedding_syntax:Attribute + with + | None -> loop rest ~rev_prefix:(attr :: rev_prefix) + | Some name -> Some (name, List.rev_append rev_prefix rest) + end + in + fun attributes -> loop attributes ~rev_prefix:[] +;; + +(** For a syntactic category, produce translations into and out of + our novel syntax, using parsetree attributes as the encoding. +*) +module Make_with_attribute + (AST_syntactic_category : sig + include AST_syntactic_category + + val desc : ast -> ast_desc + val attributes : ast -> Parsetree.attributes + val with_attributes : ast -> Parsetree.attributes -> ast + end) : + AST with type ast = AST_syntactic_category.ast + and type ast_desc = + AST_syntactic_category.ast_desc With_attributes.t += struct + include AST_syntactic_category + + let embedding_syntax = Embedding_syntax.Attribute + + type nonrec ast_desc = ast_desc With_attributes.t + + let wrap_desc ?loc ~attrs:extra_attrs with_attributes = + let { desc; jane_syntax_attributes } : _ With_attributes.t = + with_attributes + in + wrap_desc ?loc ~attrs:(jane_syntax_attributes @ extra_attrs) desc + + let make_jane_syntax name ast : _ With_attributes.t = + let original_attributes = attributes ast in + let attr = + { attr_name = + { txt = Embedded_name.to_string name + ; loc = !Ast_helper.default_loc + } + ; attr_loc = !Ast_helper.default_loc + ; attr_payload = PStr [] + } + in + { desc = desc ast; jane_syntax_attributes = attr :: original_attributes } + + let match_jane_syntax ast = + match find_and_remove_jane_syntax_attribute (attributes ast) with + | None -> None + | Some (name, attrs) -> Some (name, with_attributes ast attrs) +end + +(** 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 + + (** 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.].) *) + val make_extension_node : + ?loc:Location.t -> ?attrs:attributes -> extension -> ast + + (** Given an extension node (as created by [make_extension_node]) with an + 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 + + (** Given an AST node, check if it's of the special syntactic form + indicating that this is one of our novel syntactic features (as + created by [make_extension_node]), split it back up into the extension + node and the possible body. Doesn't do any checking about the + 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 with type ast = AST_syntactic_category.ast + and type ast_desc = AST_syntactic_category.ast_desc = struct - include AST_parameters + include AST_syntactic_category - let make_jane_syntax name = + let embedding_syntax = Embedding_syntax.Extension_node + + let make_jane_syntax name ast = make_extension_use + ast ~extension_node: (make_extension_node - ({ txt = Embedded_name.to_string name + ({ txt = Embedded_name.to_string name ; loc = !Ast_helper.default_loc }, PStr [])) - let make_entire_jane_syntax ~loc name ast = - make_jane_syntax [name] - (Ast_helper.with_default_loc (Location.ghostify loc) ast) - - (* This raises an error if the language extension node is malformed. - Malformed means either: - - 1. The [[%jane.NAME]] extension point has a payload; extensions must - be empty, so other ppxes can traverse "into" them. - - 2. The [[%jane.NAME]] extension point contains - body forms that are "shaped" incorrectly. *) let match_jane_syntax ast = match match_extension_use ast with - | Some (({txt = name; loc = ext_loc}, ext_payload), body) -> begin - let raise_error err = raise (Error(ext_loc, err)) in - match Embedded_name.of_string name with - | Some (Ok (feat :: _ as name)) - when uniformly_handled_extension feat -> begin - let raise_malformed err = - raise_error (Malformed_embedding(Extension_node, name, err)) - in - match ext_payload with - | PStr [] -> Some (name, body) - | _ -> raise_malformed (Has_payload ext_payload) - end - | Some (Error ()) -> raise_error (Unnamed_embedding Extension_node) - | Some (Ok (_ :: _)) | None -> None - end | None -> None + | Some (({txt = name; loc = ext_loc}, ext_payload), body) -> + match + parse_embedding_exn + ~loc:ext_loc + ~payload:ext_payload + ~name + ~embedding_syntax + with + | None -> None + | Some name -> Some (name, body) end (** The AST parameters for every subset of types; embedded as [[[%jane.FEATNAME] * BODY]]. *) -module Type_AST_parameters = struct +module Type_AST_syntactic_category = struct type ast = core_type type ast_desc = core_type_desc @@ -441,21 +551,21 @@ module Type_AST_parameters = struct end (** Types; embedded as [[[%jane.FEATNAME] * BODY]]. *) -module Core_type = Make_AST(struct - include Type_AST_parameters +module Core_type = Make_with_extension_node (struct + include Type_AST_syntactic_category let plural = "types" end) (** Constructor arguments; the same as types, but used in fewer places *) -module Constructor_argument = Make_AST(struct - include Type_AST_parameters +module Constructor_argument = Make_with_extension_node (struct + include Type_AST_syntactic_category let plural = "constructor arguments" end) -(** Expressions; embedded as [([%jane.FEATNAME] BODY)]. *) -module Expression = Make_AST(struct +(** Expressions; embedded using an attribute on the expression. *) +module Expression = Make_with_attribute (struct type ast = expression type ast_desc = expression_desc @@ -465,22 +575,13 @@ module Expression = Make_AST(struct let wrap_desc ?loc ~attrs = Ast_helper.Exp.mk ?loc ~attrs - let make_extension_node = Ast_helper.Exp.extension - - let make_extension_use ~extension_node expr = - Pexp_apply(extension_node, [Nolabel, expr]) - - let match_extension_use expr = - match expr.pexp_desc with - | Pexp_apply({pexp_desc = Pexp_extension ext; _}, - [Asttypes.Nolabel, body]) -> - Some (ext, body) - | _ -> - None + let desc expr = expr.pexp_desc + let attributes expr = expr.pexp_attributes + let with_attributes expr pexp_attributes = { expr with pexp_attributes } end) (** Patterns; embedded as [[%jane.FEATNAME], BODY]. *) -module Pattern = Make_AST(struct +module Pattern = Make_with_extension_node (struct type ast = pattern type ast_desc = pattern_desc @@ -498,13 +599,13 @@ module Pattern = Make_AST(struct let match_extension_use pat = match pat.ppat_desc with | Ppat_tuple([{ppat_desc = Ppat_extension ext; _}; pattern]) -> - Some (ext, pattern) + Some (ext, pattern) | _ -> - None + None end) (** Module types; embedded as [functor (_ : [%jane.FEATNAME]) -> BODY]. *) -module Module_type = Make_AST(struct +module Module_type = Make_with_extension_node (struct type ast = module_type type ast_desc = module_type_desc @@ -523,13 +624,15 @@ module Module_type = Make_AST(struct match mty.pmty_desc with | Pmty_functor(Named({txt = None}, {pmty_desc = Pmty_extension ext}), mty) -> - Some (ext, mty) + Some (ext, mty) | _ -> None end) (** Signature items; embedded as - [include sig [%%extension.EXTNAME];; BODY end]. *) -module Signature_item = Make_AST(struct + [include sig [%%extension.EXTNAME];; BODY end]. Signature items don't have + attributes or we'd use them instead. +*) +module Signature_item = Make_with_extension_node (struct type ast = signature_item type ast_desc = signature_item_desc @@ -569,8 +672,10 @@ module Signature_item = Make_AST(struct end) (** Structure items; embedded as - [include struct [%%extension.EXTNAME];; BODY end]. *) -module Structure_item = Make_AST(struct + [include struct [%%extension.EXTNAME];; BODY end]. Structure items don't + have attributes or we'd use them instead. +*) +module Structure_item = Make_with_extension_node (struct type ast = structure_item type ast_desc = structure_item_desc @@ -610,35 +715,67 @@ module Structure_item = Make_AST(struct end) (******************************************************************************) -(** Generically lift our custom ASTs for our novel syntax from OCaml ASTs. *) - -module type Of_ast_parameters = sig - module AST : AST - type t - val of_ast_internal : Feature.t -> AST.ast -> t option -end -module Make_of_ast (Params : Of_ast_parameters) : sig - val of_ast : Params.AST.ast -> Params.t option -end = struct - let of_ast ast = - let loc = Params.AST.location ast in - let raise_error err = raise (Error (loc, err)) in - match Params.AST.match_jane_syntax ast with - | Some ([name], ast) -> begin - match Feature.of_component name with - | Ok feat -> begin - match Params.of_ast_internal feat ast with - | Some ext_ast -> Some ext_ast - | None -> - raise_error (Wrong_syntactic_category(feat, Params.AST.plural)) +module AST = struct + type (_, _) t = + | Expression : + (Parsetree.expression, Parsetree.expression_desc With_attributes.t) t + | Pattern : (Parsetree.pattern, Parsetree.pattern_desc) t + | Module_type : (Parsetree.module_type, Parsetree.module_type_desc) t + | Signature_item : + (Parsetree.signature_item, Parsetree.signature_item_desc) t + | Structure_item : + (Parsetree.structure_item, Parsetree.structure_item_desc) t + | Core_type : (Parsetree.core_type, Parsetree.core_type_desc) t + | Constructor_argument : (Parsetree.core_type, Parsetree.core_type_desc) t + + let to_module (type ast ast_desc) (t : (ast, ast_desc) t) : + (module AST with type ast = ast and type ast_desc = ast_desc) = + match t with + | Expression -> (module Expression) + | Pattern -> (module Pattern) + | Module_type -> (module Module_type) + | Signature_item -> (module Signature_item) + | Structure_item -> (module Structure_item) + | Core_type -> (module Core_type) + | Constructor_argument -> (module Constructor_argument) + + let wrap_desc (type ast ast_desc) (t : (ast, ast_desc) t) = + let (module AST) = to_module t in + AST.wrap_desc + + let make_jane_syntax (type ast ast_desc) (t : (ast, ast_desc) t) = + let (module AST) = to_module t in + AST.make_jane_syntax + + let make_entire_jane_syntax t ~loc name ast = + make_jane_syntax t [name] + (Ast_helper.with_default_loc (Location.ghostify loc) ast) + + (** Generically lift our custom ASTs for our novel syntax from OCaml ASTs. *) + let make_of_ast (type ast ast_desc) (t : (ast, ast_desc) t) ~of_ast_internal = + let (module AST) = to_module t in + let of_ast ast = + let loc = AST.location ast in + let raise_error err = raise (Error (loc, err)) in + match AST.match_jane_syntax ast with + | Some ([name], ast) -> begin + match Feature.of_component name with + | Ok feat -> begin + match of_ast_internal feat ast with + | Some ext_ast -> Some ext_ast + | None -> + raise_error (Wrong_syntactic_category(feat, AST.plural)) + end + | Error err -> raise_error begin match err with + | Disabled_extension ext -> Disabled_extension ext + | Unknown_extension name -> + Unknown_extension (AST.embedding_syntax, name) end - | Error err -> raise_error begin match err with - | Disabled_extension ext -> Disabled_extension ext - | Unknown_extension name -> Unknown_extension (Extension_node, name) end - end - | Some (_ :: _ :: _ as name, _) -> - raise_error (Bad_introduction(Extension_node, name)) - | None -> None + | Some (_ :: _ :: _ as name, _) -> + raise_error (Bad_introduction(AST.embedding_syntax, name)) + | None -> None + in + of_ast end diff --git a/ocaml/parsing/jane_syntax_parsing.mli b/ocaml/parsing/jane_syntax_parsing.mli index e72402f3649..77ca131ef19 100644 --- a/ocaml/parsing/jane_syntax_parsing.mli +++ b/ocaml/parsing/jane_syntax_parsing.mli @@ -9,12 +9,10 @@ 1. We don't want to extend the AST for our fork, as we really want to make sure things like ppxen are cross-compatible between upstream and our fork. Thankfully, OCaml already provides places to add extra syntax: - extension points and annotations! Thus, we have to come up with a way of - representing our new syntactic constructs in terms of extension points - (or annotations, but we went with the former for now; we expect this to - change). + extension nodes and annotations! Thus, we have to come up with a way of + representing our new syntactic constructs in terms of these constructs. - 2. We don't want to actually match on extension points or attributes whose + 2. We don't want to actually match on extension nodes or attributes whose names are specific strings all over the compiler; that's incredibly messy, and it's easy to miss cases, etc. @@ -25,7 +23,7 @@ We have come up with a design that addresses those concerns by providing both a nice compiler-level interface for working with our syntactic extensions as first-class AST nodes, as well as a uniform scheme for - translating this to and from OCaml AST values by using extension points or + translating this to and from OCaml AST values by using extension nodes or attributes. One wrinkle is that OCaml has many ASTs, one for each syntactic category (expressions, patterns, etc.); we have to provide this facility for each syntactic category where we want to provide extensions. A smaller @@ -61,9 +59,9 @@ Then, for each syntactic category, we define a module (in [jane_syntax_parsing.ml]) that contains functions for converting between the - [Parsetree] representation and the higher-level representation. A little - functor magic (see [Make_of_ast]) then allows us to make nice functions for - export. + [Parsetree] representation and the higher-level representation. These + modules are inhabitants of [AST.t], and the [AST] module exposes operations + on them. This module contains the logic for moving to and from OCaml ASTs; the gory details of the encoding are detailed in the implementation. All the actual @@ -74,7 +72,7 @@ look like when desugared into OCaml ASTs, so that we can validate the translation code. We generally specify this as a BNF grammar, but we don't want to depend on the specific details of the desugaring. Thus, instead of - writing out extension points or attributes directly, we write the result of + writing out extension nodes or attributes directly, we write the result of [Some_ast.make_extension ~loc [name1; name2; ...; NameN] a] as the special syntax [{% 'name1.name2.....nameN' | a %}] in the BNF. Other pieces of the OCaml AST are used as normal. @@ -118,35 +116,57 @@ module Embedded_name : sig val pp_quoted_name : Format.formatter -> t -> unit end -(** The type of modules that lift and lower terms from our novel syntactic - features from and to an OCaml AST type ([ast]) *) -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 - - (** The name for this syntactic category in the plural form; used for error - messages (e.g., "expressions") *) - val plural : string +(** 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 - (** How to get the location attached to an AST node *) - val location : ast -> Location.t +(** Values that lift and lower terms from our novel syntactic + features from and to an OCaml AST type ([ast]) *) +module AST : sig + (** One [AST] value per syntactic category we currently care about; we're + adding these lazily as we need them. When you add another one, make + sure also to add special handling in [Ast_iterator] and [Ast_mapper]. + + ['ast]: The AST type (e.g., [Parsetree.expression]) + ['ast_desc]: The "AST description" type, without the location and + attributes (e.g., [Parsetree.expression_desc]) + *) + type ('ast, 'ast_desc) t = + | Expression : + (Parsetree.expression, Parsetree.expression_desc With_attributes.t) t + | Pattern : (Parsetree.pattern, Parsetree.pattern_desc) t + | Module_type : (Parsetree.module_type, Parsetree.module_type_desc) t + | Signature_item : + (Parsetree.signature_item, Parsetree.signature_item_desc) t + | Structure_item : + (Parsetree.structure_item, Parsetree.structure_item_desc) t + | Core_type : (Parsetree.core_type, Parsetree.core_type_desc) t + | Constructor_argument : (Parsetree.core_type, Parsetree.core_type_desc) 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 -> attrs:Parsetree.attributes -> ast_desc -> ast + val wrap_desc + : ('ast, 'ast_desc) t + -> ?loc:Location.t + -> attrs:Parsetree.attributes + -> '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 the generated AST will be set to [!Ast_helper.default_loc], which should - be [ghost]. Partial inverse of [match_jane_syntax]. *) - val make_jane_syntax : Embedded_name.t -> ast -> ast_desc + be [ghost]. *) + val make_jane_syntax : + ('ast, 'ast_desc) t -> Embedded_name.t -> 'ast -> 'ast_desc (** 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 @@ -154,81 +174,38 @@ module type AST = sig sets [Ast_helper.default_loc] locally to the [ghost] version of the provided location, which is why the [ast] is generated from a function call; it is during this call that the location is so set. *) - val make_entire_jane_syntax : - loc:Location.t -> string -> (unit -> ast) -> ast_desc - - (** 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 - the body. If the embedded term is malformed in any way, raises an error; - if the input isn't an embedding of one of our novel syntactic features, - returns [None]. Partial inverse of [make_jane_syntax]. *) - val match_jane_syntax : ast -> (Embedded_name.t * ast) option -end - -(** One [AST] module per syntactic category we currently care about; we're - adding these lazily as we need them. When you add another one, make - sure also to add special handling in [Ast_iterator] and [Ast_mapper]. *) - -module Core_type : AST - with type ast = Parsetree.core_type - and type ast_desc = Parsetree.core_type_desc - -module Constructor_argument : AST - with type ast = Parsetree.core_type - and type ast_desc = Parsetree.core_type_desc - -module Expression : AST - with type ast = Parsetree.expression - and type ast_desc = Parsetree.expression_desc - -module Pattern : AST - with type ast = Parsetree.pattern - and type ast_desc = Parsetree.pattern_desc - -module Module_type : AST - with type ast = Parsetree.module_type - and type ast_desc = Parsetree.module_type_desc - -module Signature_item : AST - with type ast = Parsetree.signature_item - and type ast_desc = Parsetree.signature_item_desc - -module Structure_item : AST - with type ast = Parsetree.structure_item - and type ast_desc = Parsetree.structure_item_desc - -(** Each syntactic category will include a module that meets this signature. - Then, the [Make_of_ast] functor produces the functions that actually convert - from the [Parsetree] AST to our extended one of novel syntactic features. *) -module type Of_ast_parameters = sig - (** Which syntactic category is this for? E.g., [module AST = Expression]. *) - module AST : AST - - (** The type of novel syntactic terms for this syntactic category, across all - syntax features. E.g., [Jane_syntax.Expression.t] *) - type t - - (** A function to convert [Parsetree]'s AST to our novel extended one. The - choice of feature and the piece of syntax will both be extracted from - the embedding by [Make_of_ast]'s [of_ast]. - - If the given syntax feature does not actually extend the given syntactic - category, returns [None]; this will be reported as an error. (For example: - There are no pattern comprehensions, so when building the extended pattern - AST, this function will return [None] if it spots an embedding that claims - to be from [Language_extension Comprehensions].) *) - val of_ast_internal : Feature.t -> AST.ast -> t option -end - -(** Build the [of_ast] function from [Of_ast_parameters]. The result - of this functor should be [include]d in modules implementing - [Jane_syntax.AST]. *) -module Make_of_ast (Params : Of_ast_parameters) : sig - (** Interpret an AST term in the specified syntactic category as a term of the - appropriate auxiliary extended AST if possible. Raises an error if it - finds a term from a disabled extension or if the embedding is - malformed. *) - val of_ast : Params.AST.ast -> Params.t option + val make_entire_jane_syntax + : ('ast, 'ast_desc) t + -> loc:Location.t + -> string + -> (unit -> 'ast) + -> 'ast_desc + + (** Build an [of_ast] function. The return value of this function should be + used to implement [of_ast] in modules satisfying the signature + [Jane_syntax.AST]. *) + val make_of_ast : + ('ast, _) t + (** Which syntactic category is this for? E.g., [module AST = Expression]. + 'ast is the type of novel syntactic terms for this syntactic category, + across all syntax features. E.g., [Jane_syntax.Expression.t] + *) + -> of_ast_internal:(Feature.t -> 'ast -> 'a option) + (** A function to convert [Parsetree]'s AST to our novel extended one. The + choice of feature and the piece of syntax will both be extracted from + the embedding by the first argument. + + If the given syntax feature does not actually extend the given syntactic + category, returns [None]; this will be reported as an error. (For + example: There are no pattern comprehensions, so when building the + extended pattern AST, this function will return [None] if it spots an + embedding that claims to be from [Language_extension Comprehensions].) + *) + -> ('ast -> 'a option) + (** Interprets an AST term in the specified syntactic category as a term + of the appropriate auxiliary extended AST if possible. Raises an error + if it finds a term from a disabled extension or if the embedding is + malformed. *) end (** Require that an extension is enabled, or else throw an exception (of an @@ -239,6 +216,17 @@ end [Immutable_arrays]). *) val assert_extension_enabled : loc:Location.t -> Language_extension.t -> unit +(** Extracts the first attribute (in list order) that was inserted by the + Jane Syntax framework, and returns the rest of the attributes in the + same relative order as was input. + + This can be used by [Jane_syntax] to peel off individual attributes in + order to process a Jane Syntax element that consists of multiple + nested ASTs. +*) +val find_and_remove_jane_syntax_attribute : + Parsetree.attributes -> (Embedded_name.t * Parsetree.attributes) option + (** Errors around the representation of our extended ASTs. These should mostly just be fatal, but they're needed for one test case (language-extensions/language_extensions.ml). *) diff --git a/ocaml/parsing/parser.mly b/ocaml/parsing/parser.mly index 28c0c99c096..be77a5fba2b 100644 --- a/ocaml/parsing/parser.mly +++ b/ocaml/parsing/parser.mly @@ -305,37 +305,55 @@ let unclosed opening_name opening_loc closing_name closing_loc = and (2) a function for going from that type to an AST fragment representing an array. *) module Generic_array = struct - (** The three possible ways to parse an array (writing [[? ... ?]] for either - [[| ... |]] or [[: ... :]]): *) - type (_, _) t = - | Literal : 'ast list -> ('ast, 'ast_desc) t - (** A plain array literal/pattern, [[? x; y; z ?]] *) - | Opened_literal : open_declaration * - Lexing.position * - Lexing.position * - expression list - -> (expression, expression_desc) t - (** An array literal with a local open, [Module.[? x; y; z ?]] (only valid in - expressions) *) - | Unclosed : (Lexing.position * Lexing.position) * - (Lexing.position * Lexing.position) - -> (_, _) t - (** Parse error: an unclosed array literal, [\[? x; y; z] with no closing - [?\]]. *) - - let to_ast (type ast ast_desc) - (open_ : string) (close : string) - (array : ast list -> ast_desc) - : (ast, ast_desc) t -> ast_desc = function - | Literal elts -> - array elts - | Opened_literal(od, startpos, endpos, elts) -> - (Pexp_open(od, mkexp ~loc:(startpos, endpos) (array elts)) : ast_desc) - | Unclosed(startpos, endpos) -> - unclosed open_ startpos close endpos - - let expression : _ -> _ -> _ -> (expression, expression_desc) t -> _ = to_ast - let pattern : _ -> _ -> _ -> (pattern, pattern_desc) t -> _ = to_ast + (** The possible ways of parsing an array (writing [[? ... ?]] for either + [[| ... |]] or [[: ... :]]). The set of available constructs differs + between expressions and patterns. + *) + + module Simple = struct + type 'a t = + | Literal of 'a list + (** A plain array literal/pattern, [[? x; y; z ?]] *) + | Unclosed of (Lexing.position * Lexing.position) * + (Lexing.position * Lexing.position) + (** Parse error: an unclosed array literal, [\[? x; y; z] with no closing + [?\]]. *) + + let to_ast (open_ : string) (close : string) array t = + match t with + | Literal pats -> array pats + | Unclosed (startpos, endpos) -> unclosed open_ startpos close endpos + end + + + module Expression = struct + type t = + | Simple of expression Simple.t + | Opened_literal of open_declaration * + Lexing.position * + Lexing.position * + expression list + (** An array literal with a local open, [Module.[? x; y; z ?]] (only valid + in expressions) *) + + let to_expression_desc (open_ : string) (close : string) array t = + match t with + | Simple x -> Simple.to_ast open_ close array x + | Opened_literal (od, startpos, endpos, elts) -> + Pexp_open (od, mkexp ~loc:(startpos, endpos) (array elts)) + + let to_expression (open_ : string) (close : string) array ~loc t = + match t with + | Simple x -> Simple.to_ast open_ close (array ~loc) x + | Opened_literal (od, startpos, endpos, elts) -> + mkexp ~loc (Pexp_open (od, array ~loc:(startpos, endpos) elts)) + end + + module Pattern = struct + type t = pattern Simple.t + let to_pattern_desc open_ close array (t : t) : pattern_desc = + Simple.to_ast open_ close array t + end end let ppat_iarray loc elts = @@ -753,6 +771,12 @@ let check_layout loc id = let loc = make_loc loc in Attr.mk ~loc (mkloc id loc) (PStr []) +let mkexp_jane_syntax + ~loc + { Jane_syntax_parsing.With_attributes.jane_syntax_attributes; desc } + = + mkexp_attrs ~loc desc (None, jane_syntax_attributes) + %} /* Tokens */ @@ -2550,6 +2574,21 @@ simple_expr: mkexp_attrs ~loc:$sloc desc attrs } | mkexp(simple_expr_) { $1 } + (* Jane Syntax. These rules create [expression] instead of [expression_desc] + because Jane Syntax can use attributes as part of their encoding. + *) + | array_exprs(LBRACKETCOLON, COLONRBRACKET) + { 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) + $1 + } + | comprehension_expr { $1 } ; %inline simple_expr_attrs: | BEGIN ext = ext attrs = attributes e = seq_expr END @@ -2618,29 +2657,33 @@ comprehension_clause: %inline comprehension_expr: comprehension_ext_expr - { Jane_syntax.Comprehensions.expr_of ~loc:(make_loc $sloc) $1 } + { mkexp_jane_syntax ~loc:$sloc + (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc $sloc) $1) + } ; %inline array_simple(ARR_OPEN, ARR_CLOSE, contents_semi_list): | ARR_OPEN contents_semi_list ARR_CLOSE - { Generic_array.Literal $2 } + { Generic_array.Simple.Literal $2 } | ARR_OPEN contents_semi_list error - { Generic_array.Unclosed($loc($1),$loc($3)) } + { Generic_array.Simple.Unclosed($loc($1),$loc($3)) } | ARR_OPEN ARR_CLOSE - { Generic_array.Literal [] } + { Generic_array.Simple.Literal [] } ; %inline array_exprs(ARR_OPEN, ARR_CLOSE): | array_simple(ARR_OPEN, ARR_CLOSE, expr_semi_list) - { $1 } + { Generic_array.Expression.Simple $1 } | od=open_dot_declaration DOT ARR_OPEN expr_semi_list ARR_CLOSE - { Generic_array.Opened_literal(od, $startpos($3), $endpos, $4) } + { Generic_array.Expression.Opened_literal(od, $startpos($3), $endpos, $4) + } | od=open_dot_declaration DOT ARR_OPEN ARR_CLOSE { (* TODO: review the location of Pexp_array *) - Generic_array.Opened_literal(od, $startpos($3), $endpos, []) } + Generic_array.Expression.Opened_literal(od, $startpos($3), $endpos, []) + } | mod_longident DOT ARR_OPEN expr_semi_list error - { Generic_array.Unclosed($loc($3), $loc($5)) } + { Generic_array.Expression.Simple (Unclosed($loc($3), $loc($5))) } ; %inline array_patterns(ARR_OPEN, ARR_CLOSE): @@ -2698,25 +2741,17 @@ comprehension_clause: | mod_longident DOT LBRACE record_expr_content error { unclosed "{" $loc($3) "}" $loc($5) } | array_exprs(LBRACKETBAR, BARRBRACKET) - { Generic_array.expression + { Generic_array.Expression.to_expression_desc "[|" "|]" (fun elts -> Pexp_array elts) - $1 } - | array_exprs(LBRACKETCOLON, COLONRBRACKET) - { Generic_array.expression - "[:" ":]" - (fun elts -> - Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc $sloc) - (Iaexp_immutable_array elts)) - $1 } + $1 + } | LBRACKET expr_semi_list RBRACKET { fst (mktailexp $loc($3) $2) } | LBRACKET expr_semi_list error { unclosed "[" $loc($1) "]" $loc($3) } - | comprehension_expr { $1 } | od=open_dot_declaration DOT comprehension_expr - { Pexp_open(od, mkexp ~loc:($loc($3)) $3) } + { Pexp_open(od, $3) } | od=open_dot_declaration DOT LBRACKET expr_semi_list RBRACKET { let list_exp = (* TODO: review the location of list_exp *) @@ -3124,15 +3159,17 @@ simple_delimited_pattern: | LBRACKET pattern_semi_list error { unclosed "[" $loc($1) "]" $loc($3) } | array_patterns(LBRACKETBAR, BARRBRACKET) - { Generic_array.pattern + { Generic_array.Pattern.to_pattern_desc "[|" "|]" (fun elts -> Ppat_array elts) - $1 } + $1 + } | array_patterns(LBRACKETCOLON, COLONRBRACKET) - { Generic_array.pattern + { Generic_array.Pattern.to_pattern_desc "[:" ":]" (ppat_iarray $sloc) - $1 } + $1 + } ) { $1 } pattern_comma_list(self): diff --git a/ocaml/parsing/pprintast.ml b/ocaml/parsing/pprintast.ml index 45327655b34..3d16a42f0bd 100644 --- a/ocaml/parsing/pprintast.ml +++ b/ocaml/parsing/pprintast.ml @@ -669,12 +669,13 @@ and sugar_expr ctxt f e = | _ -> false and expression ctxt f x = + match Jane_syntax.Expression.of_ast x with + | Some (jexpr, attrs) -> jane_syntax_expr ctxt attrs f jexpr + | None -> if x.pexp_attributes <> [] then pp f "((%a)@,%a)" (expression ctxt) {x with pexp_attributes=[]} (attributes ctxt) x.pexp_attributes - else match Jane_syntax.Expression.of_ast x with - | Some jexpr -> jane_syntax_expr ctxt f jexpr - | None -> match x.pexp_desc with + else match x.pexp_desc with | Pexp_function _ | Pexp_fun _ | Pexp_match _ | Pexp_try _ | Pexp_sequence _ | Pexp_newtype _ when ctxt.pipe || ctxt.semi -> @@ -1809,8 +1810,11 @@ and directive_argument f x = | Pdir_ident (li) -> pp f "@ %a" longident li | Pdir_bool (b) -> pp f "@ %s" (string_of_bool b) -and jane_syntax_expr ctxt f (jexp : Jane_syntax.Expression.t) = - match jexp with +and jane_syntax_expr ctxt attrs f (jexp : Jane_syntax.Expression.t) = + if attrs <> [] then + pp f "((%a)@,%a)" (jane_syntax_expr ctxt []) jexp + (attributes ctxt) attrs + else match jexp with | Jexp_comprehension comp -> comprehension_expr ctxt f comp | Jexp_immutable_array iaexp -> immutable_array_expr ctxt f iaexp diff --git a/ocaml/testsuite/tests/jane-modular-syntax/user_error1.compilers.reference b/ocaml/testsuite/tests/jane-modular-syntax/user_error1.compilers.reference index f7977376228..2e1ded53db9 100644 --- a/ocaml/testsuite/tests/jane-modular-syntax/user_error1.compilers.reference +++ b/ocaml/testsuite/tests/jane-modular-syntax/user_error1.compilers.reference @@ -1,5 +1,5 @@ -File "user_error1.ml", line 21, characters 41-55: -21 | let _malformed_extension_has_payload = [%jane.something "no payloads"] ();; - ^^^^^^^^^^^^^^ -Error: Modular syntax extension nodes are not allowed to have a payload, +File "user_error1.ml", line 21, characters 44-58: +21 | let _malformed_extension_has_payload = () [@jane.something "no payloads"];; + ^^^^^^^^^^^^^^ +Error: Modular syntax attributes are not allowed to have a payload, but "jane.something" does diff --git a/ocaml/testsuite/tests/jane-modular-syntax/user_error1.ml b/ocaml/testsuite/tests/jane-modular-syntax/user_error1.ml index 140f583d87d..42a47335f62 100644 --- a/ocaml/testsuite/tests/jane-modular-syntax/user_error1.ml +++ b/ocaml/testsuite/tests/jane-modular-syntax/user_error1.ml @@ -6,7 +6,7 @@ *) (* What happens if the user tries to write one of the pieces of Jane Street - syntax in terms of extension nodes but messes up? In practice we don't + syntax in concrete syntax but messes up? In practice we don't expect to ever see these errors, but one never knows (and a bug in our desugaring could cause them). The let-binding is named after the constructor in [jane_syntax_parsing.ml] representing this particular error. *) @@ -18,5 +18,5 @@ like it in separate files, because the "compile and test output" infrastructure reports only one error at a time. *) -let _malformed_extension_has_payload = [%jane.something "no payloads"] ();; +let _malformed_extension_has_payload = () [@jane.something "no payloads"];; diff --git a/ocaml/testsuite/tests/jane-modular-syntax/user_error3.compilers.reference b/ocaml/testsuite/tests/jane-modular-syntax/user_error3.compilers.reference index ce47c530594..6a01f3565b2 100644 --- a/ocaml/testsuite/tests/jane-modular-syntax/user_error3.compilers.reference +++ b/ocaml/testsuite/tests/jane-modular-syntax/user_error3.compilers.reference @@ -1,5 +1,5 @@ -File "user_error3.ml", line 21, characters 25-64: -21 | let _unknown_extension = [%jane.this_extension_doesn't_exist] ();; - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ +File "user_error3.ml", line 21, characters 25-27: +21 | let _unknown_extension = () [@jane.this_extension_doesn't_exist];; + ^^ Error: Unknown extension "this_extension_doesn't_exist" referenced via - a [%jane.this_extension_doesn't_exist] extension node + a [@jane.this_extension_doesn't_exist] attribute diff --git a/ocaml/testsuite/tests/jane-modular-syntax/user_error3.ml b/ocaml/testsuite/tests/jane-modular-syntax/user_error3.ml index f95c1f627e3..fc2584f2be3 100644 --- a/ocaml/testsuite/tests/jane-modular-syntax/user_error3.ml +++ b/ocaml/testsuite/tests/jane-modular-syntax/user_error3.ml @@ -6,7 +6,7 @@ *) (* What happens if the user tries to write one of the pieces of Jane Street - syntax in terms of extension nodes but messes up? In practice we don't + syntax in concrete syntax but messes up? In practice we don't expect to ever see these errors, but one never knows (and a bug in our desugaring could cause them). The let-binding is named after the constructor in [jane_syntax_parsing.ml] representing this particular error. *) @@ -18,4 +18,4 @@ like it in separate files, because the "compile and test output" infrastructure reports only one error at a time. *) -let _unknown_extension = [%jane.this_extension_doesn't_exist] ();; +let _unknown_extension = () [@jane.this_extension_doesn't_exist];; diff --git a/ocaml/testsuite/tests/jane-modular-syntax/user_error4.compilers.reference b/ocaml/testsuite/tests/jane-modular-syntax/user_error4.compilers.reference index 8dc84eaf44d..5c872b45ae6 100644 --- a/ocaml/testsuite/tests/jane-modular-syntax/user_error4.compilers.reference +++ b/ocaml/testsuite/tests/jane-modular-syntax/user_error4.compilers.reference @@ -1,4 +1,4 @@ -File "user_error4.ml", line 21, characters 26-51: -21 | let _disabled_extension = [%jane.comprehensions] ();; - ^^^^^^^^^^^^^^^^^^^^^^^^^ +File "user_error4.ml", line 21, characters 26-28: +21 | let _disabled_extension = () [@jane.comprehensions];; + ^^ Error: The extension "comprehensions" is disabled and cannot be used diff --git a/ocaml/testsuite/tests/jane-modular-syntax/user_error4.ml b/ocaml/testsuite/tests/jane-modular-syntax/user_error4.ml index 2fe15244266..35c6fc15bb3 100644 --- a/ocaml/testsuite/tests/jane-modular-syntax/user_error4.ml +++ b/ocaml/testsuite/tests/jane-modular-syntax/user_error4.ml @@ -6,7 +6,7 @@ *) (* What happens if the user tries to write one of the pieces of Jane Street - syntax in terms of extension nodes but messes up? In practice we don't + syntax in concrete syntax but messes up? In practice we don't expect to ever see these errors, but one never knows (and a bug in our desugaring could cause them). The let-binding is named after the constructor in [jane_syntax_parsing.ml] representing this particular error. *) @@ -18,4 +18,4 @@ like it in separate files, because the "compile and test output" infrastructure reports only one error at a time. *) -let _disabled_extension = [%jane.comprehensions] ();; +let _disabled_extension = () [@jane.comprehensions];; diff --git a/ocaml/testsuite/tests/jane-modular-syntax/user_error5.compilers.reference b/ocaml/testsuite/tests/jane-modular-syntax/user_error5.compilers.reference index 5c2c84882a4..3e2ea8644f0 100644 --- a/ocaml/testsuite/tests/jane-modular-syntax/user_error5.compilers.reference +++ b/ocaml/testsuite/tests/jane-modular-syntax/user_error5.compilers.reference @@ -1,4 +1,4 @@ -File "user_error5.ml", line 21, characters 27-31: -21 | let _unnamed_extension = [%jane] ();; - ^^^^ -Error: Cannot have an extension node named [%jane] +File "user_error5.ml", line 21, characters 30-34: +21 | let _unnamed_extension = () [@jane];; + ^^^^ +Error: Cannot have an attribute named [@jane] diff --git a/ocaml/testsuite/tests/jane-modular-syntax/user_error5.ml b/ocaml/testsuite/tests/jane-modular-syntax/user_error5.ml index 9df1620152a..fa27f2addd7 100644 --- a/ocaml/testsuite/tests/jane-modular-syntax/user_error5.ml +++ b/ocaml/testsuite/tests/jane-modular-syntax/user_error5.ml @@ -6,7 +6,7 @@ *) (* What happens if the user tries to write one of the pieces of Jane Street - syntax in terms of extension nodes but messes up? In practice we don't + syntax in concrete syntax but messes up? In practice we don't expect to ever see these errors, but one never knows (and a bug in our desugaring could cause them). The let-binding is named after the constructor in [jane_syntax_parsing.ml] representing this particular error. *) @@ -18,4 +18,4 @@ like it in separate files, because the "compile and test output" infrastructure reports only one error at a time. *) -let _unnamed_extension = [%jane] ();; +let _unnamed_extension = () [@jane];; diff --git a/ocaml/testsuite/tests/jane-modular-syntax/user_error6.compilers.reference b/ocaml/testsuite/tests/jane-modular-syntax/user_error6.compilers.reference index 40feb0eb13a..2a37167d778 100644 --- a/ocaml/testsuite/tests/jane-modular-syntax/user_error6.compilers.reference +++ b/ocaml/testsuite/tests/jane-modular-syntax/user_error6.compilers.reference @@ -1,5 +1,5 @@ -File "user_error6.ml", line 21, characters 24-51: -21 | let _bad_introduction = [%jane.something.nested] ();; - ^^^^^^^^^^^^^^^^^^^^^^^^^^^ +File "user_error6.ml", line 21, characters 24-26: +21 | let _bad_introduction = () [@jane.something.nested];; + ^^ Error: The extension "something" was referenced improperly; it started with - a [%jane.something.nested] extension node, not a [%jane.something] one + a [@jane.something.nested] attribute, not a [@jane.something] one diff --git a/ocaml/testsuite/tests/jane-modular-syntax/user_error6.ml b/ocaml/testsuite/tests/jane-modular-syntax/user_error6.ml index 698f955bd8d..55ed4f58481 100644 --- a/ocaml/testsuite/tests/jane-modular-syntax/user_error6.ml +++ b/ocaml/testsuite/tests/jane-modular-syntax/user_error6.ml @@ -6,7 +6,7 @@ *) (* What happens if the user tries to write one of the pieces of Jane Street - syntax in terms of extension nodes but messes up? In practice we don't + syntax in concrete syntax but messes up? In practice we don't expect to ever see these errors, but one never knows (and a bug in our desugaring could cause them). The let-binding is named after the constructor in [jane_syntax_parsing.ml] representing this particular error. *) @@ -18,4 +18,4 @@ like it in separate files, because the "compile and test output" infrastructure reports only one error at a time. *) -let _bad_introduction = [%jane.something.nested] ();; +let _bad_introduction = () [@jane.something.nested];; diff --git a/ocaml/testsuite/tests/jane-modular-syntax/user_error7.ml b/ocaml/testsuite/tests/jane-modular-syntax/user_error7.ml index fb7bbf5d789..02a30ee8916 100644 --- a/ocaml/testsuite/tests/jane-modular-syntax/user_error7.ml +++ b/ocaml/testsuite/tests/jane-modular-syntax/user_error7.ml @@ -2,21 +2,32 @@ * expect *) -(* If you don't use these as applications, they don't pass through the modular - extensions machinery and fail with a normal OCaml error *) +(* If we use extension nodes outside of the context they are expected, + they aren't interpreted by the modular syntax machinery and fail with + a normal OCaml error *) -let _ = [%jane];; +(* Extension node in an interpreted context would be: + +include struct + [%%jane] + let f = () +end + +We don't include this test as it's a parsing error. +*) + +[%%jane];; [%%expect{| -Line 1, characters 10-14: -1 | let _ = [%jane];; - ^^^^ +Line 1, characters 3-7: +1 | [%%jane];; + ^^^^ Error: Uninterpreted extension 'jane'. |}];; -let _ = [%jane "payload"];; +[%%jane "payload"];; [%%expect{| -Line 1, characters 10-14: -1 | let _ = [%jane "payload"];; - ^^^^ +Line 1, characters 3-7: +1 | [%%jane "payload"];; + ^^^^ Error: Uninterpreted extension 'jane'. |}];; diff --git a/ocaml/typing/typecore.ml b/ocaml/typing/typecore.ml index 14e5572638b..8e246187f5f 100644 --- a/ocaml/typing/typecore.ml +++ b/ocaml/typing/typecore.ml @@ -3378,7 +3378,7 @@ let is_local_returning_expr e = in let rec loop e = match Jane_syntax.Expression.of_ast e with - | Some jexp -> begin + | Some (jexp, _attrs) -> begin match jexp with | Jexp_comprehension _ -> false, e.pexp_loc | Jexp_immutable_array _ -> false, e.pexp_loc @@ -3575,7 +3575,7 @@ let rec type_function_approx env loc label spato sexp in_function ty_expected = and type_approx_aux env sexp in_function ty_expected = match Jane_syntax.Expression.of_ast sexp with - | Some jexp -> type_approx_aux_jane_syntax jexp + | Some (jexp, _attrs) -> type_approx_aux_jane_syntax jexp | None -> match sexp.pexp_desc with Pexp_let (_, _, e) -> type_approx_aux env e None ty_expected | Pexp_fun (l, _, p, e) -> @@ -3979,7 +3979,7 @@ let unify_exp env exp expected_ty = let rec is_inferred sexp = match Jane_syntax.Expression.of_ast sexp with - | Some jexp -> is_inferred_jane_syntax jexp + | Some (jexp, _attrs) -> is_inferred_jane_syntax jexp | None -> match sexp.pexp_desc with | Pexp_ident _ | Pexp_apply _ | Pexp_field _ | Pexp_constraint _ | Pexp_coerce _ | Pexp_send _ | Pexp_new _ -> true @@ -4073,14 +4073,14 @@ and type_expect_ exp in match Jane_syntax.Expression.of_ast sexp with - | Some jexp -> + | Some (jexp, attributes) -> type_expect_jane_syntax ~loc ~env ~expected_mode ~ty_expected ~explanation - ~attributes:sexp.pexp_attributes + ~attributes jexp | None -> match sexp.pexp_desc with | Pexp_ident lid -> @@ -6832,7 +6832,7 @@ and type_let in let rec sexp_is_fun sexp = match Jane_syntax.Expression.of_ast sexp with - | Some jexp -> jexp_is_fun jexp + | Some (jexp, _attrs) -> jexp_is_fun jexp | None -> match sexp.pexp_desc with | Pexp_fun _ | Pexp_function _ -> true | Pexp_constraint (e, _) diff --git a/ocaml/typing/untypeast.ml b/ocaml/typing/untypeast.ml index abca6fc05f1..07422d9556e 100644 --- a/ocaml/typing/untypeast.ml +++ b/ocaml/typing/untypeast.ml @@ -442,6 +442,17 @@ let comprehension sub comp_type comp = let expression sub exp = let loc = sub.location sub exp.exp_loc in let attrs = sub.attributes sub exp.exp_attributes in + let attrs = ref attrs in + (* Hack so we can return an extra value out of the [match] expression for Jane + 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 + in let desc = match exp.exp_desc with Texp_ident (_path, lid, _, _) -> Pexp_ident (map_loc sub lid) @@ -511,13 +522,16 @@ let expression sub exp = | Immutable -> Jane_syntax.Immutable_arrays.expr_of ~loc (Iaexp_immutable_array plist) + |> add_jane_syntax_attributes end | Texp_list_comprehension comp -> comprehension ~loc sub (fun comp -> Cexp_list_comprehension comp) comp + |> add_jane_syntax_attributes | Texp_array_comprehension (amut, comp) -> comprehension ~loc sub (fun comp -> Cexp_array_comprehension (amut, comp)) comp + |> add_jane_syntax_attributes | Texp_ifthenelse (exp1, exp2, expo) -> Pexp_ifthenelse (sub.expr sub exp1, sub.expr sub exp2, @@ -621,7 +635,7 @@ let expression sub exp = }, [Nolabel, sub.expr sub exp]) in List.fold_right (exp_extra sub) exp.exp_extra - (Exp.mk ~loc ~attrs desc) + (Exp.mk ~loc ~attrs:!attrs desc) let binding_op sub bop pat = let pbop_op = bop.bop_op_name in From b74a297cca32764e6fe23ce379822ed0b6e18dc0 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 23 May 2023 17:47:14 -0400 Subject: [PATCH 02/18] Convert types to use attributes --- ocaml/parsing/ast_iterator.ml | 6 ++++-- ocaml/parsing/ast_mapper.ml | 5 +++-- ocaml/parsing/depend.ml | 2 +- ocaml/parsing/jane_syntax.mli | 8 ++++++-- ocaml/parsing/jane_syntax_parsing.ml | 24 +++++++++--------------- ocaml/parsing/jane_syntax_parsing.mli | 6 ++++-- ocaml/parsing/pprintast.ml | 16 ++++++++++++---- ocaml/typing/typecore.ml | 4 ++-- ocaml/typing/typetexp.ml | 4 ++-- 9 files changed, 43 insertions(+), 32 deletions(-) diff --git a/ocaml/parsing/ast_iterator.ml b/ocaml/parsing/ast_iterator.ml index 9ca76ed182e..2856af1285e 100644 --- a/ocaml/parsing/ast_iterator.ml +++ b/ocaml/parsing/ast_iterator.ml @@ -122,10 +122,12 @@ module T = struct let iter sub ({ptyp_desc = desc; ptyp_loc = loc; ptyp_attributes = attrs} as typ) = sub.location sub loc; - sub.attributes sub attrs; match Jane_syntax.Core_type.of_ast typ with - | Some jtyp -> sub.typ_jane_syntax sub jtyp + | Some (jtyp, attrs) -> + sub.attributes sub attrs; + sub.typ_jane_syntax sub jtyp | None -> + sub.attributes sub attrs; match desc with | Ptyp_any | Ptyp_var _ -> () diff --git a/ocaml/parsing/ast_mapper.ml b/ocaml/parsing/ast_mapper.ml index 045c265a436..df6c18f3147 100644 --- a/ocaml/parsing/ast_mapper.ml +++ b/ocaml/parsing/ast_mapper.ml @@ -146,14 +146,15 @@ module T = struct as typ) = let open Typ in let loc = sub.location sub loc in - let attrs = sub.attributes sub attrs in match Jane_syntax.Core_type.of_ast typ with - | Some jtyp -> begin + | Some (jtyp, attrs) -> begin + let attrs = sub.attributes sub attrs in Jane_syntax_parsing.AST.wrap_desc Core_type ~loc ~attrs @@ match sub.typ_jane_syntax sub jtyp with | _ -> . end | None -> + let attrs = sub.attributes sub attrs in match desc with | Ptyp_any -> any ~loc ~attrs () | Ptyp_var s -> var ~loc ~attrs s diff --git a/ocaml/parsing/depend.ml b/ocaml/parsing/depend.ml index 24013f4e2b1..9c496f00fbc 100644 --- a/ocaml/parsing/depend.ml +++ b/ocaml/parsing/depend.ml @@ -97,7 +97,7 @@ let handle_extension ext = let rec add_type bv ty = match Jane_syntax.Core_type.of_ast ty with - | Some jty -> add_type_jst bv jty + | Some (jty, _attrs) -> add_type_jst bv jty | None -> match ty.ptyp_desc with Ptyp_any -> () diff --git a/ocaml/parsing/jane_syntax.mli b/ocaml/parsing/jane_syntax.mli index 73de2d7f0d5..ec668985fb0 100644 --- a/ocaml/parsing/jane_syntax.mli +++ b/ocaml/parsing/jane_syntax.mli @@ -191,7 +191,9 @@ end module Core_type : sig type t = | - include AST with type t := t and type ast := Parsetree.core_type + include AST + with type t := t * Parsetree.attributes + and type ast := Parsetree.core_type end (** Novel syntax in constructor arguments; this isn't a core AST type, @@ -199,7 +201,9 @@ end module Constructor_argument : sig type t = | - include AST with type t := t and type ast := Parsetree.core_type + include AST + with type t := t * Parsetree.attributes + and type ast := Parsetree.core_type end (** Novel syntax in expressions *) diff --git a/ocaml/parsing/jane_syntax_parsing.ml b/ocaml/parsing/jane_syntax_parsing.ml index 6a90df1b71f..7749682aa50 100644 --- a/ocaml/parsing/jane_syntax_parsing.ml +++ b/ocaml/parsing/jane_syntax_parsing.ml @@ -537,28 +537,20 @@ module Type_AST_syntactic_category = struct let wrap_desc ?loc ~attrs = Ast_helper.Typ.mk ?loc ~attrs - let make_extension_node = Ast_helper.Typ.extension - - let make_extension_use ~extension_node typ = - Ptyp_tuple [extension_node; typ] - - let match_extension_use typ = - match typ.ptyp_desc with - | Ptyp_tuple([{ptyp_desc = Ptyp_extension ext; _}; typ]) -> - Some (ext, typ) - | _ -> - None + 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]]. *) -module Core_type = Make_with_extension_node (struct +module Core_type = Make_with_attribute (struct include Type_AST_syntactic_category let plural = "types" end) (** Constructor arguments; the same as types, but used in fewer places *) -module Constructor_argument = Make_with_extension_node (struct +module Constructor_argument = Make_with_attribute (struct include Type_AST_syntactic_category let plural = "constructor arguments" @@ -726,8 +718,10 @@ module AST = struct (Parsetree.signature_item, Parsetree.signature_item_desc) t | Structure_item : (Parsetree.structure_item, Parsetree.structure_item_desc) t - | Core_type : (Parsetree.core_type, Parsetree.core_type_desc) t - | Constructor_argument : (Parsetree.core_type, Parsetree.core_type_desc) t + | Core_type : + (Parsetree.core_type, Parsetree.core_type_desc With_attributes.t) t + | Constructor_argument : + (Parsetree.core_type, Parsetree.core_type_desc With_attributes.t) t let to_module (type ast ast_desc) (t : (ast, ast_desc) t) : (module AST with type ast = ast and type ast_desc = ast_desc) = diff --git a/ocaml/parsing/jane_syntax_parsing.mli b/ocaml/parsing/jane_syntax_parsing.mli index 77ca131ef19..47e2956afe9 100644 --- a/ocaml/parsing/jane_syntax_parsing.mli +++ b/ocaml/parsing/jane_syntax_parsing.mli @@ -147,8 +147,10 @@ module AST : sig (Parsetree.signature_item, Parsetree.signature_item_desc) t | Structure_item : (Parsetree.structure_item, Parsetree.structure_item_desc) t - | Core_type : (Parsetree.core_type, Parsetree.core_type_desc) t - | Constructor_argument : (Parsetree.core_type, Parsetree.core_type_desc) t + | Core_type : + (Parsetree.core_type, Parsetree.core_type_desc With_attributes.t) t + | Constructor_argument : + (Parsetree.core_type, Parsetree.core_type_desc With_attributes.t) 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 diff --git a/ocaml/parsing/pprintast.ml b/ocaml/parsing/pprintast.ml index 3d16a42f0bd..c89c3b9e8fd 100644 --- a/ocaml/parsing/pprintast.ml +++ b/ocaml/parsing/pprintast.ml @@ -319,6 +319,9 @@ and type_with_label ctxt f (label, c) = | Optional s -> pp f "?%s:%a" s (maybe_local_type core_type1 ctxt) c and core_type ctxt f x = + match Jane_syntax.Core_type.of_ast x with + | Some (jtyp, attrs) -> core_type_jane_syntax ctxt attrs f jtyp + | None -> let filtered_attrs = filter_curry_attrs x.ptyp_attributes in if filtered_attrs <> [] then begin pp f "((%a)%a)" (core_type ctxt) {x with ptyp_attributes=[]} @@ -343,11 +346,11 @@ and core_type ctxt f x = | _ -> pp f "@[<2>%a@]" (core_type1 ctxt) x and core_type1 ctxt f x = + match Jane_syntax.Core_type.of_ast x with + | Some (jtyp, attrs) -> core_type1_jane_syntax ctxt attrs f jtyp + | None -> if has_non_curry_attr x.ptyp_attributes then core_type ctxt f x else - match Jane_syntax.Core_type.of_ast x with - | Some jtyp -> core_type1_jane_syntax ctxt f jtyp - | None -> match x.ptyp_desc with | Ptyp_any -> pp f "_"; | Ptyp_var s -> tyvar f s; @@ -424,7 +427,12 @@ and core_type1 ctxt f x = | Ptyp_extension e -> extension ctxt f e | _ -> paren true (core_type ctxt) f x -and core_type1_jane_syntax _ctxt _f : Jane_syntax.Core_type.t -> _ = function +and core_type1_jane_syntax _ctxt _attrs _f : Jane_syntax.Core_type.t -> _ = + function + | _ -> . + +and core_type_jane_syntax _ctxt _attrs _f : Jane_syntax.Core_type.t -> _ = + function | _ -> . and return_type ctxt f x = diff --git a/ocaml/typing/typecore.ml b/ocaml/typing/typecore.ml index 8e246187f5f..872689d832a 100644 --- a/ocaml/typing/typecore.ml +++ b/ocaml/typing/typecore.ml @@ -3461,7 +3461,7 @@ let is_local_returning_function cases = let rec approx_type env sty = match Jane_syntax.Core_type.of_ast sty with - | Some jty -> approx_type_jst env jty + | Some (jty, attrs) -> approx_type_jst env attrs jty | None -> match sty.ptyp_desc with | Ptyp_arrow (p, ({ ptyp_desc = Ptyp_poly _ } as arg_sty), sty) -> @@ -3505,7 +3505,7 @@ let rec approx_type env sty = (which mentions approx_type) for why it can't be value. *) | _ -> newvar Layout.any -and approx_type_jst _env : Jane_syntax.Core_type.t -> _ = function +and approx_type_jst _env _attrs : Jane_syntax.Core_type.t -> _ = function | _ -> . let type_pattern_approx_jane_syntax : Jane_syntax.Pattern.t -> _ = function diff --git a/ocaml/typing/typetexp.ml b/ocaml/typing/typetexp.ml index 5ef0c0710b1..9f0e46a163a 100644 --- a/ocaml/typing/typetexp.ml +++ b/ocaml/typing/typetexp.ml @@ -432,7 +432,7 @@ and transl_type_aux env policy mode styp = ctyp_loc = loc; ctyp_attributes = styp.ptyp_attributes } in match Jane_syntax.Core_type.of_ast styp with - | Some etyp -> transl_type_aux_jst env policy mode etyp + | Some (etyp, attrs) -> transl_type_aux_jst env policy mode attrs etyp | None -> match styp.ptyp_desc with Ptyp_any -> @@ -825,7 +825,7 @@ and transl_type_aux env policy mode styp = | Ptyp_extension ext -> raise (Error_forward (Builtin_attributes.error_of_extension ext)) -and transl_type_aux_jst _env _policy _mode +and transl_type_aux_jst _env _policy _mode _attrs : Jane_syntax.Core_type.t -> _ = function | _ -> . From d7f39bf7ce87e30b2447452d4addeb3e5529fdba Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 23 May 2023 18:04:01 -0400 Subject: [PATCH 03/18] Convert module types to use attributes --- ocaml/ocamldoc/odoc_sig.ml | 6 ++++-- ocaml/parsing/ast_iterator.ml | 6 ++++-- ocaml/parsing/ast_mapper.ml | 5 +++-- ocaml/parsing/depend.ml | 4 ++-- ocaml/parsing/jane_syntax.ml | 6 ++++-- ocaml/parsing/jane_syntax.mli | 9 ++++++-- ocaml/parsing/jane_syntax_parsing.ml | 21 ++++++------------ ocaml/parsing/jane_syntax_parsing.mli | 3 ++- ocaml/parsing/pprintast.ml | 31 ++++++++++++++++----------- ocaml/typing/typemod.ml | 11 ++++++---- 10 files changed, 59 insertions(+), 43 deletions(-) diff --git a/ocaml/ocamldoc/odoc_sig.ml b/ocaml/ocamldoc/odoc_sig.ml index ceca4aab910..c087051e252 100644 --- a/ocaml/ocamldoc/odoc_sig.ml +++ b/ocaml/ocamldoc/odoc_sig.ml @@ -1556,7 +1556,8 @@ module Analyser = and analyse_module_type_kind ?(erased = Name.Map.empty) env current_module_name module_type sig_module_type = match Jane_syntax.Module_type.of_ast module_type with - | Some (Jmty_strengthen _) -> failwith "strengthen not implemented yet" + | Some (Jmty_strengthen _, _attrs) -> + failwith "strengthen not implemented yet" | None -> match module_type.Parsetree.pmty_desc with Parsetree.Pmty_ident longident -> @@ -1657,7 +1658,8 @@ module Analyser = and analyse_module_kind ?(erased = Name.Map.empty) env current_module_name module_type sig_module_type = match Jane_syntax.Module_type.of_ast module_type with - | Some (Jmty_strengthen _) -> failwith "strengthen not implemented yet" + | Some (Jmty_strengthen _, _attrs) -> + failwith "strengthen not implemented yet" | None -> match module_type.Parsetree.pmty_desc with | Parsetree.Pmty_ident _longident -> diff --git a/ocaml/parsing/ast_iterator.ml b/ocaml/parsing/ast_iterator.ml index 2856af1285e..cd57c96de5e 100644 --- a/ocaml/parsing/ast_iterator.ml +++ b/ocaml/parsing/ast_iterator.ml @@ -262,10 +262,12 @@ module MT = struct let iter sub ({pmty_desc = desc; pmty_loc = loc; pmty_attributes = attrs} as mty) = sub.location sub loc; - sub.attributes sub attrs; match Jane_syntax.Module_type.of_ast mty with - | Some jmty -> sub.module_type_jane_syntax sub jmty + | Some (jmty, attrs) -> + sub.attributes sub attrs; + sub.module_type_jane_syntax sub jmty | None -> + sub.attributes sub attrs; match desc with | Pmty_ident s -> iter_loc sub s | Pmty_alias s -> iter_loc sub s diff --git a/ocaml/parsing/ast_mapper.ml b/ocaml/parsing/ast_mapper.ml index df6c18f3147..940791bc7f5 100644 --- a/ocaml/parsing/ast_mapper.ml +++ b/ocaml/parsing/ast_mapper.ml @@ -299,14 +299,15 @@ module MT = struct ({pmty_desc = desc; pmty_loc = loc; pmty_attributes = attrs} as mty) = let open Mty in let loc = sub.location sub loc in - let attrs = sub.attributes sub attrs in match Jane_syntax.Module_type.of_ast mty with - | Some jmty -> begin + | Some (jmty, attrs) -> begin + let attrs = sub.attributes sub attrs in Jane_syntax_parsing.AST.wrap_desc Module_type ~loc ~attrs @@ match sub.module_type_jane_syntax sub jmty with | Jmty_strengthen smty -> Jane_syntax.Strengthen.mty_of ~loc smty end | None -> + let attrs = sub.attributes sub attrs in match desc with | Pmty_ident s -> ident ~loc ~attrs (map_loc sub s) | Pmty_alias s -> alias ~loc ~attrs (map_loc sub s) diff --git a/ocaml/parsing/depend.ml b/ocaml/parsing/depend.ml index 9c496f00fbc..be4959182d7 100644 --- a/ocaml/parsing/depend.ml +++ b/ocaml/parsing/depend.ml @@ -347,7 +347,7 @@ and add_binding_op bv bv' pbop = and add_modtype bv mty = match Jane_syntax.Module_type.of_ast mty with - | Some jmty -> add_modtype_jane_syntax bv jmty + | Some (jmty, _attrs) -> add_modtype_jane_syntax bv jmty | None -> match mty.pmty_desc with Pmty_ident l -> add bv l @@ -397,7 +397,7 @@ and add_module_alias bv l = and add_modtype_binding bv mty = match Jane_syntax.Module_type.of_ast mty with - | Some jmty -> add_modtype_jane_syntax_binding bv jmty + | Some (jmty, _attrs) -> add_modtype_jane_syntax_binding bv jmty | None -> match mty.pmty_desc with Pmty_alias l -> diff --git a/ocaml/parsing/jane_syntax.ml b/ocaml/parsing/jane_syntax.ml index 6b85494826e..95046226b4d 100644 --- a/ocaml/parsing/jane_syntax.ml +++ b/ocaml/parsing/jane_syntax.ml @@ -348,9 +348,10 @@ module Strengthen = struct Ast_helper.Mty.functor_ (Named (Location.mknoloc None, mty)) (Ast_helper.Mty.alias mod_id)) + (* Returns remaining unconsumed attributes *) let of_mty mty = match mty.pmty_desc with | Pmty_functor(Named(_, mty), {pmty_desc = Pmty_alias mod_id}) -> - { mty; mod_id } + { mty; mod_id }, mty.pmty_attributes | _ -> failwith "Malformed strengthened module type" end @@ -417,7 +418,8 @@ module Module_type = struct let of_ast_internal (feat : Feature.t) mty = match feat with | Language_extension Module_strengthening -> - Some (Jmty_strengthen (Strengthen.of_mty mty)) + let mty, attrs = Strengthen.of_mty mty in + Some (Jmty_strengthen mty, attrs) | _ -> None let of_ast = AST.make_of_ast Module_type ~of_ast_internal diff --git a/ocaml/parsing/jane_syntax.mli b/ocaml/parsing/jane_syntax.mli index ec668985fb0..3069a3a8609 100644 --- a/ocaml/parsing/jane_syntax.mli +++ b/ocaml/parsing/jane_syntax.mli @@ -108,7 +108,10 @@ module Strengthen : sig type module_type = { mty : Parsetree.module_type; mod_id : Longident.t Location.loc } - val mty_of : loc:Location.t -> module_type -> Parsetree.module_type_desc + val mty_of : + loc:Location.t + -> module_type + -> Parsetree.module_type_desc Jane_syntax_parsing.With_attributes.t end (******************************************) @@ -230,7 +233,9 @@ module Module_type : sig type t = | Jmty_strengthen of Strengthen.module_type - include AST with type t := t and type ast := Parsetree.module_type + include AST + with type t := t * Parsetree.attributes + and type ast := Parsetree.module_type end (** Novel syntax in signature items *) diff --git a/ocaml/parsing/jane_syntax_parsing.ml b/ocaml/parsing/jane_syntax_parsing.ml index 7749682aa50..670b5770617 100644 --- a/ocaml/parsing/jane_syntax_parsing.ml +++ b/ocaml/parsing/jane_syntax_parsing.ml @@ -596,8 +596,8 @@ module Pattern = Make_with_extension_node (struct None end) -(** Module types; embedded as [functor (_ : [%jane.FEATNAME]) -> BODY]. *) -module Module_type = Make_with_extension_node (struct +(** Module types; embedded using an attribute on the module type. *) +module Module_type = Make_with_attribute (struct type ast = module_type type ast_desc = module_type_desc @@ -607,17 +607,9 @@ module Module_type = Make_with_extension_node (struct let wrap_desc ?loc ~attrs = Ast_helper.Mty.mk ?loc ~attrs - let make_extension_node = Ast_helper.Mty.extension - - let make_extension_use ~extension_node mty = - Pmty_functor(Named(Location.mknoloc None, extension_node), mty) - - let match_extension_use mty = - match mty.pmty_desc with - | Pmty_functor(Named({txt = None}, - {pmty_desc = Pmty_extension ext}), mty) -> - Some (ext, mty) - | _ -> None + let desc mty = mty.pmty_desc + let attributes mty = mty.pmty_attributes + let with_attributes mty pmty_attributes = { mty with pmty_attributes } end) (** Signature items; embedded as @@ -713,7 +705,8 @@ module AST = struct | Expression : (Parsetree.expression, Parsetree.expression_desc With_attributes.t) t | Pattern : (Parsetree.pattern, Parsetree.pattern_desc) t - | Module_type : (Parsetree.module_type, Parsetree.module_type_desc) t + | Module_type : + (Parsetree.module_type, Parsetree.module_type_desc With_attributes.t) t | Signature_item : (Parsetree.signature_item, Parsetree.signature_item_desc) t | Structure_item : diff --git a/ocaml/parsing/jane_syntax_parsing.mli b/ocaml/parsing/jane_syntax_parsing.mli index 47e2956afe9..c8b42fc8758 100644 --- a/ocaml/parsing/jane_syntax_parsing.mli +++ b/ocaml/parsing/jane_syntax_parsing.mli @@ -142,7 +142,8 @@ module AST : sig | Expression : (Parsetree.expression, Parsetree.expression_desc With_attributes.t) t | Pattern : (Parsetree.pattern, Parsetree.pattern_desc) t - | Module_type : (Parsetree.module_type, Parsetree.module_type_desc) t + | Module_type : + (Parsetree.module_type, Parsetree.module_type_desc With_attributes.t) t | Signature_item : (Parsetree.signature_item, Parsetree.signature_item_desc) t | Structure_item : diff --git a/ocaml/parsing/pprintast.ml b/ocaml/parsing/pprintast.ml index c89c3b9e8fd..4407b33f928 100644 --- a/ocaml/parsing/pprintast.ml +++ b/ocaml/parsing/pprintast.ml @@ -1134,7 +1134,7 @@ and module_type ctxt f x = (attributes ctxt) x.pmty_attributes end else match Jane_syntax.Module_type.of_ast x with - | Some jmty -> module_type_jane_syntax ctxt f jmty + | Some (jmty, attrs) -> module_type_jane_syntax ctxt attrs f jmty | None -> match x.pmty_desc with | Pmty_functor (Unit, mt2) -> @@ -1155,11 +1155,17 @@ and module_type ctxt f x = (list (with_constraint ctxt) ~sep:"@ and@ ") l | _ -> module_type1 ctxt f x -and module_type_jane_syntax ctxt f : Jane_syntax.Module_type.t -> _ = function - | Jmty_strengthen { mty; mod_id } -> - pp f "@[%a@ with@ %a@]" - (module_type1 ctxt) mty - longident_loc mod_id +and module_type_jane_syntax ctxt attrs f (mty : Jane_syntax.Module_type.t) = + if attrs <> [] then + pp f "((%a)%a)" + (module_type_jane_syntax ctxt []) mty + (attributes ctxt) attrs + else + match mty with + | Jmty_strengthen { mty; mod_id } -> + pp f "@[%a@ with@ %a@]" + (module_type1 ctxt) mty + longident_loc mod_id and with_constraint ctxt f = function | Pwith_type (li, ({ptype_params= ls ;_} as td)) -> @@ -1184,11 +1190,11 @@ and with_constraint ctxt f = function and module_type1 ctxt f x = + match Jane_syntax.Module_type.of_ast x with + | Some (jmty, attrs) -> module_type_jane_syntax1 ctxt attrs f jmty + | None -> if x.pmty_attributes <> [] then module_type ctxt f x - else match Jane_syntax.Module_type.of_ast x with - | Some jmty -> module_type_jane_syntax1 ctxt f jmty - | None -> - match x.pmty_desc with + else match x.pmty_desc with | Pmty_ident li -> pp f "%a" longident_loc li; | Pmty_alias li -> @@ -1201,9 +1207,10 @@ and module_type1 ctxt f x = | Pmty_extension e -> extension ctxt f e | _ -> paren true (module_type ctxt) f x -and module_type_jane_syntax1 ctxt f : Jane_syntax.Module_type.t -> _ = function +and module_type_jane_syntax1 ctxt attrs f : Jane_syntax.Module_type.t -> _ = + function | Jmty_strengthen _ as jmty -> - paren true (module_type_jane_syntax ctxt) f jmty + paren true (module_type_jane_syntax ctxt attrs) f jmty and signature ctxt f x = list ~sep:"@\n" (signature_item ctxt) f x diff --git a/ocaml/typing/typemod.ml b/ocaml/typing/typemod.ml index 01e1de7c8e1..e989591a211 100644 --- a/ocaml/typing/typemod.ml +++ b/ocaml/typing/typemod.ml @@ -831,7 +831,7 @@ let map_ext fn exts = let rec approx_modtype env smty = match Jane_syntax.Module_type.of_ast smty with - | Some jmty -> approx_modtype_jane_syntax env jmty + | Some (jmty, attrs) -> approx_modtype_jane_syntax env attrs jmty | None -> match smty.pmty_desc with Pmty_ident lid -> @@ -890,7 +890,8 @@ let rec approx_modtype env smty = | Pmty_extension ext -> raise (Error_forward (Builtin_attributes.error_of_extension ext)) -and approx_modtype_jane_syntax _env : Jane_syntax.Module_type.t -> _ = function +and approx_modtype_jane_syntax _env _attrs : Jane_syntax.Module_type.t -> _ = + function | Jmty_strengthen { mty=_; mod_id=_ } -> failwith "strengthen not yet implemented" and approx_module_declaration env pmd = @@ -1382,7 +1383,7 @@ and transl_modtype_functor_arg env sarg = and transl_modtype_aux env smty = let loc = smty.pmty_loc in match Jane_syntax.Module_type.of_ast smty with - | Some jmty -> transl_modtype_jane_syntax_aux env jmty + | Some (jmty, attrs) -> transl_modtype_jane_syntax_aux env attrs jmty | None -> match smty.pmty_desc with Pmty_ident lid -> @@ -1445,7 +1446,9 @@ and transl_modtype_aux env smty = | Pmty_extension ext -> raise (Error_forward (Builtin_attributes.error_of_extension ext)) -and transl_modtype_jane_syntax_aux _env : Jane_syntax.Module_type.t -> _ = function +and transl_modtype_jane_syntax_aux _env _attrs + : Jane_syntax.Module_type.t -> _ = + function | Jmty_strengthen { mty=_ ; mod_id=_ } -> failwith "Strengthen not yet implemented" and transl_with ~loc env remove_aliases (rev_tcstrs,sg) constr = From 6950825c9b2c576715959020f1dfa9e4494a6b05 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 23 May 2023 18:08:16 -0400 Subject: [PATCH 04/18] Switch pattern modular syntax to use attributes --- ocaml/boot/menhir/parser.ml | 13077 ++++++++++++------------ ocaml/parsing/ast_iterator.ml | 6 +- ocaml/parsing/ast_mapper.ml | 5 +- ocaml/parsing/depend.ml | 2 +- ocaml/parsing/jane_syntax.ml | 6 +- ocaml/parsing/jane_syntax.mli | 9 +- ocaml/parsing/jane_syntax_parsing.ml | 20 +- ocaml/parsing/jane_syntax_parsing.mli | 2 +- ocaml/parsing/parser.mly | 21 +- ocaml/parsing/pprintast.ml | 21 +- ocaml/typing/parmatch.ml | 15 +- ocaml/typing/typecore.ml | 18 +- ocaml/typing/untypeast.ml | 17 +- 13 files changed, 6602 insertions(+), 6617 deletions(-) diff --git a/ocaml/boot/menhir/parser.ml b/ocaml/boot/menhir/parser.ml index dc5a1c5cfd8..025677e1b37 100644 --- a/ocaml/boot/menhir/parser.ml +++ b/ocaml/boot/menhir/parser.ml @@ -16,7 +16,7 @@ module MenhirBasics = struct | VAL | UNDERSCORE | UIDENT of ( -# 913 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string) # 22 "parsing/parser.ml" ) @@ -28,7 +28,7 @@ module MenhirBasics = struct | THEN | STRUCT | STRING of ( -# 900 "parsing/parser.mly" +# 906 "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 ( -# 904 "parsing/parser.mly" +# 910 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 47 "parsing/parser.ml" ) | QUOTED_STRING_EXPR of ( -# 902 "parsing/parser.mly" +# 908 "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 ( -# 886 "parsing/parser.mly" +# 892 "parsing/parser.mly" (string) # 60 "parsing/parser.ml" ) @@ -64,7 +64,7 @@ module MenhirBasics = struct | PERCENT | OR | OPTLABEL of ( -# 879 "parsing/parser.mly" +# 885 "parsing/parser.mly" (string) # 70 "parsing/parser.ml" ) @@ -84,12 +84,12 @@ module MenhirBasics = struct | LPAREN | LOCAL | LIDENT of ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) # 90 "parsing/parser.ml" ) | LETOP of ( -# 841 "parsing/parser.mly" +# 847 "parsing/parser.mly" (string) # 95 "parsing/parser.ml" ) @@ -110,39 +110,39 @@ module MenhirBasics = struct | LBRACE | LAZY | LABEL of ( -# 846 "parsing/parser.mly" +# 852 "parsing/parser.mly" (string) # 116 "parsing/parser.ml" ) | INT of ( -# 845 "parsing/parser.mly" +# 851 "parsing/parser.mly" (string * char option) # 121 "parsing/parser.ml" ) | INITIALIZER | INHERIT | INFIXOP4 of ( -# 839 "parsing/parser.mly" +# 845 "parsing/parser.mly" (string) # 128 "parsing/parser.ml" ) | INFIXOP3 of ( -# 838 "parsing/parser.mly" +# 844 "parsing/parser.mly" (string) # 133 "parsing/parser.ml" ) | INFIXOP2 of ( -# 837 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) # 138 "parsing/parser.ml" ) | INFIXOP1 of ( -# 836 "parsing/parser.mly" +# 842 "parsing/parser.mly" (string) # 143 "parsing/parser.ml" ) | INFIXOP0 of ( -# 835 "parsing/parser.mly" +# 841 "parsing/parser.mly" (string) # 148 "parsing/parser.ml" ) @@ -150,7 +150,7 @@ module MenhirBasics = struct | IN | IF | HASHOP of ( -# 897 "parsing/parser.mly" +# 903 "parsing/parser.mly" (string) # 156 "parsing/parser.ml" ) @@ -164,7 +164,7 @@ module MenhirBasics = struct | FUN | FOR | FLOAT of ( -# 823 "parsing/parser.mly" +# 829 "parsing/parser.mly" (string * char option) # 170 "parsing/parser.ml" ) @@ -178,7 +178,7 @@ module MenhirBasics = struct | ELSE | DOWNTO | DOTOP of ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) # 184 "parsing/parser.ml" ) @@ -186,14 +186,14 @@ module MenhirBasics = struct | DOT | DONE | DOCSTRING of ( -# 921 "parsing/parser.mly" +# 927 "parsing/parser.mly" (Docstrings.docstring) # 192 "parsing/parser.ml" ) | DO | CONSTRAINT | COMMENT of ( -# 920 "parsing/parser.mly" +# 926 "parsing/parser.mly" (string * Location.t) # 199 "parsing/parser.ml" ) @@ -205,7 +205,7 @@ module MenhirBasics = struct | COLON | CLASS | CHAR of ( -# 802 "parsing/parser.mly" +# 808 "parsing/parser.mly" (char) # 211 "parsing/parser.ml" ) @@ -218,7 +218,7 @@ module MenhirBasics = struct | ASSERT | AS | ANDOP of ( -# 842 "parsing/parser.mly" +# 848 "parsing/parser.mly" (string) # 224 "parsing/parser.ml" ) @@ -561,7 +561,7 @@ module Generic_array = struct module Pattern = struct type t = pattern Simple.t - let to_pattern_desc open_ close array (t : t) : pattern_desc = + let to_ast open_ close array (t : t) = Simple.to_ast open_ close array t end end @@ -987,8 +987,14 @@ let mkexp_jane_syntax = 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) -# 992 "parsing/parser.ml" + +# 998 "parsing/parser.ml" module Tables = struct @@ -1551,9 +1557,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4171 "parsing/parser.mly" +# 4178 "parsing/parser.mly" ( "+" ) -# 1557 "parsing/parser.ml" +# 1563 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1576,9 +1582,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4172 "parsing/parser.mly" +# 4179 "parsing/parser.mly" ( "+." ) -# 1582 "parsing/parser.ml" +# 1588 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1601,9 +1607,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 3678 "parsing/parser.mly" +# 3685 "parsing/parser.mly" ( _1 ) -# 1607 "parsing/parser.ml" +# 1613 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1648,24 +1654,24 @@ module Tables = struct let _endpos = _endpos_tyvar_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3681 "parsing/parser.mly" +# 3688 "parsing/parser.mly" ( Ptyp_alias(ty, tyvar) ) -# 1654 "parsing/parser.ml" +# 1660 "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 -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1663 "parsing/parser.ml" +# 1669 "parsing/parser.ml" in -# 3683 "parsing/parser.mly" +# 3690 "parsing/parser.mly" ( _1 ) -# 1669 "parsing/parser.ml" +# 1675 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1711,30 +1717,30 @@ module Tables = struct let _v : (let_binding) = let attrs2 = let _1 = _1_inlined2 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 1717 "parsing/parser.ml" +# 1723 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 1726 "parsing/parser.ml" +# 1732 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2881 "parsing/parser.mly" +# 2887 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklb ~loc:_sloc false body attrs ) -# 1738 "parsing/parser.ml" +# 1744 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1757,9 +1763,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4044 "parsing/parser.mly" +# 4051 "parsing/parser.mly" ( _1 ) -# 1763 "parsing/parser.ml" +# 1769 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1782,9 +1788,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4045 "parsing/parser.mly" +# 4052 "parsing/parser.mly" ( Lident _1 ) -# 1788 "parsing/parser.ml" +# 1794 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1821,9 +1827,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = -# 3774 "parsing/parser.mly" +# 3781 "parsing/parser.mly" ( _2 ) -# 1827 "parsing/parser.ml" +# 1833 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1886,11 +1892,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3834 "parsing/parser.mly" +# 3841 "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 ) -# 1894 "parsing/parser.ml" +# 1900 "parsing/parser.ml" in let _3 = @@ -1898,24 +1904,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 1904 "parsing/parser.ml" +# 1910 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 1910 "parsing/parser.ml" +# 1916 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3776 "parsing/parser.mly" +# 3783 "parsing/parser.mly" ( wrap_typ_attrs ~loc:_sloc (reloc_typ ~loc:_sloc _4) _3 ) -# 1919 "parsing/parser.ml" +# 1925 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1946,24 +1952,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3779 "parsing/parser.mly" +# 3786 "parsing/parser.mly" ( Ptyp_var _2 ) -# 1952 "parsing/parser.ml" +# 1958 "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 -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1961 "parsing/parser.ml" +# 1967 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 1967 "parsing/parser.ml" +# 1973 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1987,23 +1993,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3781 "parsing/parser.mly" +# 3788 "parsing/parser.mly" ( Ptyp_any ) -# 1993 "parsing/parser.ml" +# 1999 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2001 "parsing/parser.ml" +# 2007 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2007 "parsing/parser.ml" +# 2013 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2032,35 +2038,35 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2038 "parsing/parser.ml" +# 2044 "parsing/parser.ml" in let tys = -# 3826 "parsing/parser.mly" +# 3833 "parsing/parser.mly" ( [] ) -# 2044 "parsing/parser.ml" +# 2050 "parsing/parser.ml" in -# 3784 "parsing/parser.mly" +# 3791 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2049 "parsing/parser.ml" +# 2055 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2058 "parsing/parser.ml" +# 2064 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2064 "parsing/parser.ml" +# 2070 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2096,20 +2102,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2102 "parsing/parser.ml" +# 2108 "parsing/parser.ml" in let tys = -# 3828 "parsing/parser.mly" +# 3835 "parsing/parser.mly" ( [ty] ) -# 2108 "parsing/parser.ml" +# 2114 "parsing/parser.ml" in -# 3784 "parsing/parser.mly" +# 3791 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2113 "parsing/parser.ml" +# 2119 "parsing/parser.ml" in let _startpos__1_ = _startpos_ty_ in @@ -2117,15 +2123,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2123 "parsing/parser.ml" +# 2129 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2129 "parsing/parser.ml" +# 2135 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2176,9 +2182,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2182 "parsing/parser.ml" +# 2188 "parsing/parser.ml" in let tys = @@ -2186,24 +2192,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2190 "parsing/parser.ml" +# 2196 "parsing/parser.ml" in -# 1208 "parsing/parser.mly" +# 1214 "parsing/parser.mly" ( xs ) -# 2195 "parsing/parser.ml" +# 2201 "parsing/parser.ml" in -# 3830 "parsing/parser.mly" +# 3837 "parsing/parser.mly" ( tys ) -# 2201 "parsing/parser.ml" +# 2207 "parsing/parser.ml" in -# 3784 "parsing/parser.mly" +# 3791 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2207 "parsing/parser.ml" +# 2213 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -2211,15 +2217,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2217 "parsing/parser.ml" +# 2223 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2223 "parsing/parser.ml" +# 2229 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2257,24 +2263,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3786 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( let (f, c) = _2 in Ptyp_object (f, c) ) -# 2263 "parsing/parser.ml" +# 2269 "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 -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2272 "parsing/parser.ml" +# 2278 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2278 "parsing/parser.ml" +# 2284 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2305,24 +2311,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3788 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( Ptyp_object ([], Closed) ) -# 2311 "parsing/parser.ml" +# 2317 "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 -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2320 "parsing/parser.ml" +# 2326 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2326 "parsing/parser.ml" +# 2332 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2358,20 +2364,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2364 "parsing/parser.ml" +# 2370 "parsing/parser.ml" in let tys = -# 3826 "parsing/parser.mly" +# 3833 "parsing/parser.mly" ( [] ) -# 2370 "parsing/parser.ml" +# 2376 "parsing/parser.ml" in -# 3792 "parsing/parser.mly" +# 3799 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2375 "parsing/parser.ml" +# 2381 "parsing/parser.ml" in let _startpos__1_ = _startpos__2_ in @@ -2379,15 +2385,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2385 "parsing/parser.ml" +# 2391 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2391 "parsing/parser.ml" +# 2397 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2430,20 +2436,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2436 "parsing/parser.ml" +# 2442 "parsing/parser.ml" in let tys = -# 3828 "parsing/parser.mly" +# 3835 "parsing/parser.mly" ( [ty] ) -# 2442 "parsing/parser.ml" +# 2448 "parsing/parser.ml" in -# 3792 "parsing/parser.mly" +# 3799 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2447 "parsing/parser.ml" +# 2453 "parsing/parser.ml" in let _startpos__1_ = _startpos_ty_ in @@ -2451,15 +2457,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2457 "parsing/parser.ml" +# 2463 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2463 "parsing/parser.ml" +# 2469 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2517,9 +2523,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2523 "parsing/parser.ml" +# 2529 "parsing/parser.ml" in let tys = @@ -2527,24 +2533,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2531 "parsing/parser.ml" +# 2537 "parsing/parser.ml" in -# 1208 "parsing/parser.mly" +# 1214 "parsing/parser.mly" ( xs ) -# 2536 "parsing/parser.ml" +# 2542 "parsing/parser.ml" in -# 3830 "parsing/parser.mly" +# 3837 "parsing/parser.mly" ( tys ) -# 2542 "parsing/parser.ml" +# 2548 "parsing/parser.ml" in -# 3792 "parsing/parser.mly" +# 3799 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2548 "parsing/parser.ml" +# 2554 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -2552,15 +2558,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2558 "parsing/parser.ml" +# 2564 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2564 "parsing/parser.ml" +# 2570 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2598,24 +2604,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3795 "parsing/parser.mly" +# 3802 "parsing/parser.mly" ( Ptyp_variant([_2], Closed, None) ) -# 2604 "parsing/parser.ml" +# 2610 "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 -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2613 "parsing/parser.ml" +# 2619 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2619 "parsing/parser.ml" +# 2625 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2665,24 +2671,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2669 "parsing/parser.ml" +# 2675 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 2674 "parsing/parser.ml" +# 2680 "parsing/parser.ml" in -# 3840 "parsing/parser.mly" +# 3847 "parsing/parser.mly" ( _1 ) -# 2680 "parsing/parser.ml" +# 2686 "parsing/parser.ml" in -# 3797 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, None) ) -# 2686 "parsing/parser.ml" +# 2692 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -2690,15 +2696,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2696 "parsing/parser.ml" +# 2702 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2702 "parsing/parser.ml" +# 2708 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2755,24 +2761,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2759 "parsing/parser.ml" +# 2765 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 2764 "parsing/parser.ml" +# 2770 "parsing/parser.ml" in -# 3840 "parsing/parser.mly" +# 3847 "parsing/parser.mly" ( _1 ) -# 2770 "parsing/parser.ml" +# 2776 "parsing/parser.ml" in -# 3799 "parsing/parser.mly" +# 3806 "parsing/parser.mly" ( Ptyp_variant(_2 :: _4, Closed, None) ) -# 2776 "parsing/parser.ml" +# 2782 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -2780,15 +2786,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2786 "parsing/parser.ml" +# 2792 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2792 "parsing/parser.ml" +# 2798 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2838,24 +2844,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2842 "parsing/parser.ml" +# 2848 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 2847 "parsing/parser.ml" +# 2853 "parsing/parser.ml" in -# 3840 "parsing/parser.mly" +# 3847 "parsing/parser.mly" ( _1 ) -# 2853 "parsing/parser.ml" +# 2859 "parsing/parser.ml" in -# 3801 "parsing/parser.mly" +# 3808 "parsing/parser.mly" ( Ptyp_variant(_3, Open, None) ) -# 2859 "parsing/parser.ml" +# 2865 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -2863,15 +2869,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2869 "parsing/parser.ml" +# 2875 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2875 "parsing/parser.ml" +# 2881 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2902,24 +2908,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3803 "parsing/parser.mly" +# 3810 "parsing/parser.mly" ( Ptyp_variant([], Open, None) ) -# 2908 "parsing/parser.ml" +# 2914 "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 -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2917 "parsing/parser.ml" +# 2923 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 2923 "parsing/parser.ml" +# 2929 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2969,24 +2975,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2973 "parsing/parser.ml" +# 2979 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 2978 "parsing/parser.ml" +# 2984 "parsing/parser.ml" in -# 3840 "parsing/parser.mly" +# 3847 "parsing/parser.mly" ( _1 ) -# 2984 "parsing/parser.ml" +# 2990 "parsing/parser.ml" in -# 3805 "parsing/parser.mly" +# 3812 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some []) ) -# 2990 "parsing/parser.ml" +# 2996 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -2994,15 +3000,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3000 "parsing/parser.ml" +# 3006 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 3006 "parsing/parser.ml" +# 3012 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3067,18 +3073,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3071 "parsing/parser.ml" +# 3077 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 3076 "parsing/parser.ml" +# 3082 "parsing/parser.ml" in -# 3868 "parsing/parser.mly" +# 3875 "parsing/parser.mly" ( _1 ) -# 3082 "parsing/parser.ml" +# 3088 "parsing/parser.ml" in let _3 = @@ -3086,24 +3092,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3090 "parsing/parser.ml" +# 3096 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 3095 "parsing/parser.ml" +# 3101 "parsing/parser.ml" in -# 3840 "parsing/parser.mly" +# 3847 "parsing/parser.mly" ( _1 ) -# 3101 "parsing/parser.ml" +# 3107 "parsing/parser.ml" in -# 3807 "parsing/parser.mly" +# 3814 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some _5) ) -# 3107 "parsing/parser.ml" +# 3113 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -3111,15 +3117,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3117 "parsing/parser.ml" +# 3123 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 3123 "parsing/parser.ml" +# 3129 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3143,23 +3149,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3809 "parsing/parser.mly" +# 3816 "parsing/parser.mly" ( Ptyp_extension _1 ) -# 3149 "parsing/parser.ml" +# 3155 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3157 "parsing/parser.ml" +# 3163 "parsing/parser.ml" in -# 3811 "parsing/parser.mly" +# 3818 "parsing/parser.mly" ( _1 ) -# 3163 "parsing/parser.ml" +# 3169 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3183,23 +3189,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string Asttypes.loc) = let _1 = let _1 = -# 4240 "parsing/parser.mly" +# 4247 "parsing/parser.mly" ( _1 ) -# 3189 "parsing/parser.ml" +# 3195 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1076 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) -# 3197 "parsing/parser.ml" +# 3203 "parsing/parser.ml" in -# 4242 "parsing/parser.mly" +# 4249 "parsing/parser.mly" ( _1 ) -# 3203 "parsing/parser.ml" +# 3209 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3237,24 +3243,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (string Asttypes.loc) = let _1 = let _1 = -# 4241 "parsing/parser.mly" +# 4248 "parsing/parser.mly" ( _1 ^ "." ^ _3.txt ) -# 3243 "parsing/parser.ml" +# 3249 "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 -# 1076 "parsing/parser.mly" +# 1082 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) -# 3252 "parsing/parser.ml" +# 3258 "parsing/parser.ml" in -# 4242 "parsing/parser.mly" +# 4249 "parsing/parser.mly" ( _1 ) -# 3258 "parsing/parser.ml" +# 3264 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3277,11 +3283,11 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = -# 4297 "parsing/parser.mly" +# 4304 "parsing/parser.mly" ( Builtin_attributes.mark_payload_attrs_used _1; _1 ) -# 3285 "parsing/parser.ml" +# 3291 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3328,9 +3334,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4246 "parsing/parser.mly" +# 4253 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 3334 "parsing/parser.ml" +# 3340 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3353,9 +3359,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_expr) = -# 2049 "parsing/parser.mly" +# 2055 "parsing/parser.mly" ( _1 ) -# 3359 "parsing/parser.ml" +# 3365 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3394,18 +3400,18 @@ module Tables = struct let _v : (Parsetree.class_expr) = let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 3400 "parsing/parser.ml" +# 3406 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2051 "parsing/parser.mly" +# 2057 "parsing/parser.mly" ( wrap_class_attrs ~loc:_sloc _3 _2 ) -# 3409 "parsing/parser.ml" +# 3415 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3445,9 +3451,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2053 "parsing/parser.mly" +# 2059 "parsing/parser.mly" ( class_of_let_bindings ~loc:_sloc _1 _3 ) -# 3451 "parsing/parser.ml" +# 3457 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3510,34 +3516,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 3516 "parsing/parser.ml" +# 3522 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 3525 "parsing/parser.ml" +# 3531 "parsing/parser.ml" in let _3 = -# 4163 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Fresh ) -# 3531 "parsing/parser.ml" +# 3537 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2055 "parsing/parser.mly" +# 2061 "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)) ) -# 3541 "parsing/parser.ml" +# 3547 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3607,34 +3613,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 3613 "parsing/parser.ml" +# 3619 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 3622 "parsing/parser.ml" +# 3628 "parsing/parser.ml" in let _3 = -# 4164 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Override ) -# 3628 "parsing/parser.ml" +# 3634 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2055 "parsing/parser.mly" +# 2061 "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)) ) -# 3638 "parsing/parser.ml" +# 3644 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3664,9 +3670,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = -# 2059 "parsing/parser.mly" +# 2065 "parsing/parser.mly" ( Cl.attr _1 _2 ) -# 3670 "parsing/parser.ml" +# 3676 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3701,18 +3707,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3705 "parsing/parser.ml" +# 3711 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 3710 "parsing/parser.ml" +# 3716 "parsing/parser.ml" in -# 2062 "parsing/parser.mly" +# 2068 "parsing/parser.mly" ( Pcl_apply(_1, _2) ) -# 3716 "parsing/parser.ml" +# 3722 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -3720,15 +3726,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1099 "parsing/parser.mly" +# 1105 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 3726 "parsing/parser.ml" +# 3732 "parsing/parser.ml" in -# 2065 "parsing/parser.mly" +# 2071 "parsing/parser.mly" ( _1 ) -# 3732 "parsing/parser.ml" +# 3738 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3752,23 +3758,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2064 "parsing/parser.mly" +# 2070 "parsing/parser.mly" ( Pcl_extension _1 ) -# 3758 "parsing/parser.ml" +# 3764 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1099 "parsing/parser.mly" +# 1105 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 3766 "parsing/parser.ml" +# 3772 "parsing/parser.ml" in -# 2065 "parsing/parser.mly" +# 2071 "parsing/parser.mly" ( _1 ) -# 3772 "parsing/parser.ml" +# 3778 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3821,33 +3827,33 @@ module Tables = struct let _v : (Parsetree.class_field) = let _6 = let _1 = _1_inlined2 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 3827 "parsing/parser.ml" +# 3833 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 3836 "parsing/parser.ml" +# 3842 "parsing/parser.ml" in let _2 = -# 4163 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Fresh ) -# 3842 "parsing/parser.ml" +# 3848 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2114 "parsing/parser.mly" +# 2120 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 3851 "parsing/parser.ml" +# 3857 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3907,33 +3913,33 @@ module Tables = struct let _v : (Parsetree.class_field) = let _6 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 3913 "parsing/parser.ml" +# 3919 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _3 = let _1 = _1_inlined2 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 3922 "parsing/parser.ml" +# 3928 "parsing/parser.ml" in let _2 = -# 4164 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Override ) -# 3928 "parsing/parser.ml" +# 3934 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2114 "parsing/parser.mly" +# 2120 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 3937 "parsing/parser.ml" +# 3943 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3974,9 +3980,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 3980 "parsing/parser.ml" +# 3986 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -3984,11 +3990,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2117 "parsing/parser.mly" +# 2123 "parsing/parser.mly" ( let v, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_val v) ~attrs:(attrs@_3) ~docs ) -# 3992 "parsing/parser.ml" +# 3998 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4029,9 +4035,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 4035 "parsing/parser.ml" +# 4041 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -4039,11 +4045,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2121 "parsing/parser.mly" +# 2127 "parsing/parser.mly" ( let meth, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_method meth) ~attrs:(attrs@_3) ~docs ) -# 4047 "parsing/parser.ml" +# 4053 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4089,28 +4095,28 @@ module Tables = struct let _v : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 4095 "parsing/parser.ml" +# 4101 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 4104 "parsing/parser.ml" +# 4110 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2125 "parsing/parser.mly" +# 2131 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 4114 "parsing/parser.ml" +# 4120 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4156,28 +4162,28 @@ module Tables = struct let _v : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 4162 "parsing/parser.ml" +# 4168 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 4171 "parsing/parser.ml" +# 4177 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2128 "parsing/parser.mly" +# 2134 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_initializer _3) ~attrs:(_2@_4) ~docs ) -# 4181 "parsing/parser.ml" +# 4187 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4209,9 +4215,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _2 = let _1 = _1_inlined1 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 4215 "parsing/parser.ml" +# 4221 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -4219,10 +4225,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2131 "parsing/parser.mly" +# 2137 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_extension _1) ~attrs:_2 ~docs ) -# 4226 "parsing/parser.ml" +# 4232 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4246,23 +4252,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_field) = let _1 = let _1 = -# 2134 "parsing/parser.mly" +# 2140 "parsing/parser.mly" ( Pcf_attribute _1 ) -# 4252 "parsing/parser.ml" +# 4258 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1097 "parsing/parser.mly" +# 1103 "parsing/parser.mly" ( mkcf ~loc:_sloc _1 ) -# 4260 "parsing/parser.ml" +# 4266 "parsing/parser.ml" in -# 2135 "parsing/parser.mly" +# 2141 "parsing/parser.mly" ( _1 ) -# 4266 "parsing/parser.ml" +# 4272 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4292,9 +4298,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = -# 2029 "parsing/parser.mly" +# 2035 "parsing/parser.mly" ( _2 ) -# 4298 "parsing/parser.ml" +# 4304 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4339,24 +4345,24 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2032 "parsing/parser.mly" +# 2038 "parsing/parser.mly" ( Pcl_constraint(_4, _2) ) -# 4345 "parsing/parser.ml" +# 4351 "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 -# 1099 "parsing/parser.mly" +# 1105 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4354 "parsing/parser.ml" +# 4360 "parsing/parser.ml" in -# 2035 "parsing/parser.mly" +# 2041 "parsing/parser.mly" ( _1 ) -# 4360 "parsing/parser.ml" +# 4366 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4387,24 +4393,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2034 "parsing/parser.mly" +# 2040 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, _2) ) -# 4393 "parsing/parser.ml" +# 4399 "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 -# 1099 "parsing/parser.mly" +# 1105 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4402 "parsing/parser.ml" +# 4408 "parsing/parser.ml" in -# 2035 "parsing/parser.mly" +# 2041 "parsing/parser.mly" ( _1 ) -# 4408 "parsing/parser.ml" +# 4414 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4442,24 +4448,24 @@ module Tables = struct let _endpos = _endpos_e_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2090 "parsing/parser.mly" +# 2096 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 4448 "parsing/parser.ml" +# 4454 "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 -# 1099 "parsing/parser.mly" +# 1105 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4457 "parsing/parser.ml" +# 4463 "parsing/parser.ml" in -# 2091 "parsing/parser.mly" +# 2097 "parsing/parser.mly" ( _1 ) -# 4463 "parsing/parser.ml" +# 4469 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4490,24 +4496,24 @@ module Tables = struct let _endpos = _endpos_e_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2090 "parsing/parser.mly" +# 2096 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 4496 "parsing/parser.ml" +# 4502 "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 -# 1099 "parsing/parser.mly" +# 1105 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4505 "parsing/parser.ml" +# 4511 "parsing/parser.ml" in -# 2091 "parsing/parser.mly" +# 2097 "parsing/parser.mly" ( _1 ) -# 4511 "parsing/parser.ml" +# 4517 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4530,9 +4536,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4034 "parsing/parser.mly" +# 4041 "parsing/parser.mly" ( _1 ) -# 4536 "parsing/parser.ml" +# 4542 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4572,9 +4578,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2099 "parsing/parser.mly" +# 2105 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) -# 4578 "parsing/parser.ml" +# 4584 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4626,24 +4632,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2101 "parsing/parser.mly" +# 2107 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) -# 4632 "parsing/parser.ml" +# 4638 "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 -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 4641 "parsing/parser.ml" +# 4647 "parsing/parser.ml" in -# 2102 "parsing/parser.mly" +# 2108 "parsing/parser.mly" ( _1 ) -# 4647 "parsing/parser.ml" +# 4653 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4662,9 +4668,9 @@ module Tables = struct let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in -# 2104 "parsing/parser.mly" +# 2110 "parsing/parser.mly" ( ghpat ~loc:_sloc Ppat_any ) -# 4668 "parsing/parser.ml" +# 4674 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4701,9 +4707,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = -# 2229 "parsing/parser.mly" +# 2235 "parsing/parser.mly" ( _2 ) -# 4707 "parsing/parser.ml" +# 4713 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4720,24 +4726,24 @@ module Tables = struct let _endpos = _startpos in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 2230 "parsing/parser.mly" +# 2236 "parsing/parser.mly" ( Ptyp_any ) -# 4726 "parsing/parser.ml" +# 4732 "parsing/parser.ml" in let _endpos__1_ = _endpos__0_ in let _endpos = _endpos__1_ in let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 4735 "parsing/parser.ml" +# 4741 "parsing/parser.ml" in -# 2231 "parsing/parser.mly" +# 2237 "parsing/parser.mly" ( _1 ) -# 4741 "parsing/parser.ml" +# 4747 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4783,28 +4789,28 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 4789 "parsing/parser.ml" +# 4795 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 4798 "parsing/parser.ml" +# 4804 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2239 "parsing/parser.mly" +# 2245 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_inherit _3) ~attrs:(_2@_4) ~docs ) -# 4808 "parsing/parser.ml" +# 4814 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4862,9 +4868,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _3 : unit = Obj.magic _3 in let _1_inlined2 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 4868 "parsing/parser.ml" +# 4874 "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 @@ -4875,9 +4881,9 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 4881 "parsing/parser.ml" +# 4887 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined3_ in @@ -4885,44 +4891,44 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let label = let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 4891 "parsing/parser.ml" +# 4897 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 4899 "parsing/parser.ml" +# 4905 "parsing/parser.ml" in -# 2264 "parsing/parser.mly" +# 2270 "parsing/parser.mly" ( let mut, virt = flags in label, mut, virt, ty ) -# 4908 "parsing/parser.ml" +# 4914 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 4916 "parsing/parser.ml" +# 4922 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2242 "parsing/parser.mly" +# 2248 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_val _3) ~attrs:(_2@_4) ~docs ) -# 4926 "parsing/parser.ml" +# 4932 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4980,9 +4986,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 4986 "parsing/parser.ml" +# 4992 "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 @@ -4993,53 +4999,53 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _7 = let _1 = _1_inlined4 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 4999 "parsing/parser.ml" +# 5005 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _6 = let _1 = _1_inlined3 in -# 3644 "parsing/parser.mly" +# 3651 "parsing/parser.mly" ( _1 ) -# 5008 "parsing/parser.ml" +# 5014 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 5016 "parsing/parser.ml" +# 5022 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5024 "parsing/parser.ml" +# 5030 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 5032 "parsing/parser.ml" +# 5038 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2246 "parsing/parser.mly" +# 2252 "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 ) -# 5043 "parsing/parser.ml" +# 5049 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5085,28 +5091,28 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 5091 "parsing/parser.ml" +# 5097 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 5100 "parsing/parser.ml" +# 5106 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2250 "parsing/parser.mly" +# 2256 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 5110 "parsing/parser.ml" +# 5116 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5138,9 +5144,9 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _2 = let _1 = _1_inlined1 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 5144 "parsing/parser.ml" +# 5150 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -5148,10 +5154,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2253 "parsing/parser.mly" +# 2259 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_extension _1) ~attrs:_2 ~docs ) -# 5155 "parsing/parser.ml" +# 5161 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5175,23 +5181,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_type_field) = let _1 = let _1 = -# 2256 "parsing/parser.mly" +# 2262 "parsing/parser.mly" ( Pctf_attribute _1 ) -# 5181 "parsing/parser.ml" +# 5187 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1095 "parsing/parser.mly" +# 1101 "parsing/parser.mly" ( mkctf ~loc:_sloc _1 ) -# 5189 "parsing/parser.ml" +# 5195 "parsing/parser.ml" in -# 2257 "parsing/parser.mly" +# 2263 "parsing/parser.mly" ( _1 ) -# 5195 "parsing/parser.ml" +# 5201 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5220,42 +5226,42 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5226 "parsing/parser.ml" +# 5232 "parsing/parser.ml" in let tys = let tys = -# 2215 "parsing/parser.mly" +# 2221 "parsing/parser.mly" ( [] ) -# 5233 "parsing/parser.ml" +# 5239 "parsing/parser.ml" in -# 2221 "parsing/parser.mly" +# 2227 "parsing/parser.mly" ( tys ) -# 5238 "parsing/parser.ml" +# 5244 "parsing/parser.ml" in -# 2198 "parsing/parser.mly" +# 2204 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) -# 5244 "parsing/parser.ml" +# 5250 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1093 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5253 "parsing/parser.ml" +# 5259 "parsing/parser.ml" in -# 2201 "parsing/parser.mly" +# 2207 "parsing/parser.mly" ( _1 ) -# 5259 "parsing/parser.ml" +# 5265 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5306,9 +5312,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5312 "parsing/parser.ml" +# 5318 "parsing/parser.ml" in let tys = @@ -5317,30 +5323,30 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 5321 "parsing/parser.ml" +# 5327 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 5326 "parsing/parser.ml" +# 5332 "parsing/parser.ml" in -# 2217 "parsing/parser.mly" +# 2223 "parsing/parser.mly" ( params ) -# 5332 "parsing/parser.ml" +# 5338 "parsing/parser.ml" in -# 2221 "parsing/parser.mly" +# 2227 "parsing/parser.mly" ( tys ) -# 5338 "parsing/parser.ml" +# 5344 "parsing/parser.ml" in -# 2198 "parsing/parser.mly" +# 2204 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) -# 5344 "parsing/parser.ml" +# 5350 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -5348,15 +5354,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1093 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5354 "parsing/parser.ml" +# 5360 "parsing/parser.ml" in -# 2201 "parsing/parser.mly" +# 2207 "parsing/parser.mly" ( _1 ) -# 5360 "parsing/parser.ml" +# 5366 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5380,23 +5386,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_type) = let _1 = let _1 = -# 2200 "parsing/parser.mly" +# 2206 "parsing/parser.mly" ( Pcty_extension _1 ) -# 5386 "parsing/parser.ml" +# 5392 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1093 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5394 "parsing/parser.ml" +# 5400 "parsing/parser.ml" in -# 2201 "parsing/parser.mly" +# 2207 "parsing/parser.mly" ( _1 ) -# 5400 "parsing/parser.ml" +# 5406 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5453,44 +5459,44 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 5457 "parsing/parser.ml" +# 5463 "parsing/parser.ml" in -# 2235 "parsing/parser.mly" +# 2241 "parsing/parser.mly" ( _1 ) -# 5462 "parsing/parser.ml" +# 5468 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1041 "parsing/parser.mly" +# 1047 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) -# 5471 "parsing/parser.ml" +# 5477 "parsing/parser.ml" in -# 2225 "parsing/parser.mly" +# 2231 "parsing/parser.mly" ( Csig.mk _1 _2 ) -# 5477 "parsing/parser.ml" +# 5483 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 5485 "parsing/parser.ml" +# 5491 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2203 "parsing/parser.mly" +# 2209 "parsing/parser.mly" ( mkcty ~loc:_sloc ~attrs:_2 (Pcty_signature _3) ) -# 5494 "parsing/parser.ml" +# 5500 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5547,43 +5553,43 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 5551 "parsing/parser.ml" +# 5557 "parsing/parser.ml" in -# 2235 "parsing/parser.mly" +# 2241 "parsing/parser.mly" ( _1 ) -# 5556 "parsing/parser.ml" +# 5562 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1041 "parsing/parser.mly" +# 1047 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) -# 5565 "parsing/parser.ml" +# 5571 "parsing/parser.ml" in -# 2225 "parsing/parser.mly" +# 2231 "parsing/parser.mly" ( Csig.mk _1 _2 ) -# 5571 "parsing/parser.ml" +# 5577 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 5579 "parsing/parser.ml" +# 5585 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2205 "parsing/parser.mly" +# 2211 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 5587 "parsing/parser.ml" +# 5593 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5613,9 +5619,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_type) = -# 2207 "parsing/parser.mly" +# 2213 "parsing/parser.mly" ( Cty.attr _1 _2 ) -# 5619 "parsing/parser.ml" +# 5625 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5678,34 +5684,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5684 "parsing/parser.ml" +# 5690 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 5693 "parsing/parser.ml" +# 5699 "parsing/parser.ml" in let _3 = -# 4163 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Fresh ) -# 5699 "parsing/parser.ml" +# 5705 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2209 "parsing/parser.mly" +# 2215 "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)) ) -# 5709 "parsing/parser.ml" +# 5715 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5775,34 +5781,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5781 "parsing/parser.ml" +# 5787 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 5790 "parsing/parser.ml" +# 5796 "parsing/parser.ml" in let _3 = -# 4164 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Override ) -# 5796 "parsing/parser.ml" +# 5802 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2209 "parsing/parser.mly" +# 2215 "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)) ) -# 5806 "parsing/parser.ml" +# 5812 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5839,9 +5845,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.class_expr) = -# 2069 "parsing/parser.mly" +# 2075 "parsing/parser.mly" ( _2 ) -# 5845 "parsing/parser.ml" +# 5851 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5880,9 +5886,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 -# 2071 "parsing/parser.mly" +# 2077 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 5886 "parsing/parser.ml" +# 5892 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5911,42 +5917,42 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5917 "parsing/parser.ml" +# 5923 "parsing/parser.ml" in let tys = let tys = -# 2215 "parsing/parser.mly" +# 2221 "parsing/parser.mly" ( [] ) -# 5924 "parsing/parser.ml" +# 5930 "parsing/parser.ml" in -# 2221 "parsing/parser.mly" +# 2227 "parsing/parser.mly" ( tys ) -# 5929 "parsing/parser.ml" +# 5935 "parsing/parser.ml" in -# 2074 "parsing/parser.mly" +# 2080 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) -# 5935 "parsing/parser.ml" +# 5941 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1099 "parsing/parser.mly" +# 1105 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 5944 "parsing/parser.ml" +# 5950 "parsing/parser.ml" in -# 2081 "parsing/parser.mly" +# 2087 "parsing/parser.mly" ( _1 ) -# 5950 "parsing/parser.ml" +# 5956 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5997,9 +6003,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 6003 "parsing/parser.ml" +# 6009 "parsing/parser.ml" in let tys = @@ -6008,30 +6014,30 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 6012 "parsing/parser.ml" +# 6018 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 6017 "parsing/parser.ml" +# 6023 "parsing/parser.ml" in -# 2217 "parsing/parser.mly" +# 2223 "parsing/parser.mly" ( params ) -# 6023 "parsing/parser.ml" +# 6029 "parsing/parser.ml" in -# 2221 "parsing/parser.mly" +# 2227 "parsing/parser.mly" ( tys ) -# 6029 "parsing/parser.ml" +# 6035 "parsing/parser.ml" in -# 2074 "parsing/parser.mly" +# 2080 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) -# 6035 "parsing/parser.ml" +# 6041 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -6039,15 +6045,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1099 "parsing/parser.mly" +# 1105 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6045 "parsing/parser.ml" +# 6051 "parsing/parser.ml" in -# 2081 "parsing/parser.mly" +# 2087 "parsing/parser.mly" ( _1 ) -# 6051 "parsing/parser.ml" +# 6057 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6106,43 +6112,43 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 6110 "parsing/parser.ml" +# 6116 "parsing/parser.ml" in -# 2108 "parsing/parser.mly" +# 2114 "parsing/parser.mly" ( _1 ) -# 6115 "parsing/parser.ml" +# 6121 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1040 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 6124 "parsing/parser.ml" +# 6130 "parsing/parser.ml" in -# 2095 "parsing/parser.mly" +# 2101 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 6130 "parsing/parser.ml" +# 6136 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 6138 "parsing/parser.ml" +# 6144 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2076 "parsing/parser.mly" +# 2082 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 6146 "parsing/parser.ml" +# 6152 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -6150,15 +6156,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1099 "parsing/parser.mly" +# 1105 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6156 "parsing/parser.ml" +# 6162 "parsing/parser.ml" in -# 2081 "parsing/parser.mly" +# 2087 "parsing/parser.mly" ( _1 ) -# 6162 "parsing/parser.ml" +# 6168 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6210,24 +6216,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2078 "parsing/parser.mly" +# 2084 "parsing/parser.mly" ( Pcl_constraint(_2, _4) ) -# 6216 "parsing/parser.ml" +# 6222 "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 -# 1099 "parsing/parser.mly" +# 1105 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6225 "parsing/parser.ml" +# 6231 "parsing/parser.ml" in -# 2081 "parsing/parser.mly" +# 2087 "parsing/parser.mly" ( _1 ) -# 6231 "parsing/parser.ml" +# 6237 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6282,9 +6288,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2080 "parsing/parser.mly" +# 2086 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 6288 "parsing/parser.ml" +# 6294 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -6292,15 +6298,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1099 "parsing/parser.mly" +# 1105 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6298 "parsing/parser.ml" +# 6304 "parsing/parser.ml" in -# 2081 "parsing/parser.mly" +# 2087 "parsing/parser.mly" ( _1 ) -# 6304 "parsing/parser.ml" +# 6310 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6357,44 +6363,44 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 6361 "parsing/parser.ml" +# 6367 "parsing/parser.ml" in -# 2108 "parsing/parser.mly" +# 2114 "parsing/parser.mly" ( _1 ) -# 6366 "parsing/parser.ml" +# 6372 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1040 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 6375 "parsing/parser.ml" +# 6381 "parsing/parser.ml" in -# 2095 "parsing/parser.mly" +# 2101 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 6381 "parsing/parser.ml" +# 6387 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 6389 "parsing/parser.ml" +# 6395 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2083 "parsing/parser.mly" +# 2089 "parsing/parser.mly" ( mkclass ~loc:_sloc ~attrs:_2 (Pcl_structure _3) ) -# 6398 "parsing/parser.ml" +# 6404 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6417,9 +6423,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_type) = -# 2186 "parsing/parser.mly" +# 2192 "parsing/parser.mly" ( _1 ) -# 6423 "parsing/parser.ml" +# 6429 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6465,14 +6471,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 6471 "parsing/parser.ml" +# 6477 "parsing/parser.ml" in -# 2192 "parsing/parser.mly" +# 2198 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 6476 "parsing/parser.ml" +# 6482 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -6480,15 +6486,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1093 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 6486 "parsing/parser.ml" +# 6492 "parsing/parser.ml" in -# 2193 "parsing/parser.mly" +# 2199 "parsing/parser.mly" ( _1 ) -# 6492 "parsing/parser.ml" +# 6498 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6535,9 +6541,9 @@ module Tables = struct let domain : (Parsetree.core_type) = Obj.magic domain in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 6541 "parsing/parser.ml" +# 6547 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -6545,14 +6551,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 6551 "parsing/parser.ml" +# 6557 "parsing/parser.ml" in -# 2192 "parsing/parser.mly" +# 2198 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 6556 "parsing/parser.ml" +# 6562 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -6560,15 +6566,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1093 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 6566 "parsing/parser.ml" +# 6572 "parsing/parser.ml" in -# 2193 "parsing/parser.mly" +# 2199 "parsing/parser.mly" ( _1 ) -# 6572 "parsing/parser.ml" +# 6578 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6607,14 +6613,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 6613 "parsing/parser.ml" +# 6619 "parsing/parser.ml" in -# 2192 "parsing/parser.mly" +# 2198 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 6618 "parsing/parser.ml" +# 6624 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_domain_) in @@ -6622,15 +6628,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1093 "parsing/parser.mly" +# 1099 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 6628 "parsing/parser.ml" +# 6634 "parsing/parser.ml" in -# 2193 "parsing/parser.mly" +# 2199 "parsing/parser.mly" ( _1 ) -# 6634 "parsing/parser.ml" +# 6640 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6713,9 +6719,9 @@ module Tables = struct let csig : (Parsetree.class_type) = Obj.magic csig in let _8 : unit = Obj.magic _8 in let _1_inlined2 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 6719 "parsing/parser.ml" +# 6725 "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 @@ -6731,9 +6737,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 6737 "parsing/parser.ml" +# 6743 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -6743,24 +6749,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 6749 "parsing/parser.ml" +# 6755 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 6757 "parsing/parser.ml" +# 6763 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2331 "parsing/parser.mly" +# 2337 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -6768,19 +6774,19 @@ module Tables = struct ext, Ci.mk id csig ~virt ~params ~attrs ~loc ~docs ) -# 6772 "parsing/parser.ml" +# 6778 "parsing/parser.ml" in -# 1277 "parsing/parser.mly" +# 1283 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 6778 "parsing/parser.ml" +# 6784 "parsing/parser.ml" in -# 2319 "parsing/parser.mly" +# 2325 "parsing/parser.mly" ( _1 ) -# 6784 "parsing/parser.ml" +# 6790 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6803,9 +6809,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4031 "parsing/parser.mly" +# 4038 "parsing/parser.mly" ( _1 ) -# 6809 "parsing/parser.ml" +# 6815 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6838,18 +6844,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 6842 "parsing/parser.ml" +# 6848 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 6847 "parsing/parser.ml" +# 6853 "parsing/parser.ml" in -# 2638 "parsing/parser.mly" +# 2644 "parsing/parser.mly" ( Jane_syntax.Comprehensions.For _2 ) -# 6853 "parsing/parser.ml" +# 6859 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6879,9 +6885,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Jane_syntax.Comprehensions.clause) = -# 2640 "parsing/parser.mly" +# 2646 "parsing/parser.mly" ( Jane_syntax.Comprehensions.When _2 ) -# 6885 "parsing/parser.ml" +# 6891 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6918,14 +6924,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Jane_syntax.Comprehensions.clause_binding) = let _1 = -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 6924 "parsing/parser.ml" +# 6930 "parsing/parser.ml" in -# 2621 "parsing/parser.mly" +# 2627 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ pattern = _2 ; iterator = _3 ; attributes = _1 } ) -# 6929 "parsing/parser.ml" +# 6935 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6976,9 +6982,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Jane_syntax.Comprehensions.clause_binding) = let _1 = -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 6982 "parsing/parser.ml" +# 6988 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -6988,14 +6994,14 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 2628 "parsing/parser.mly" +# 2634 "parsing/parser.mly" ( Jane_syntax.Comprehensions. { pattern = _3 ; iterator = In (mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__2_) _5) ; attributes = _1 } ) -# 6999 "parsing/parser.ml" +# 7005 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7039,9 +7045,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Jane_syntax.Comprehensions.iterator) = -# 2614 "parsing/parser.mly" +# 2620 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Range { start = _2 ; stop = _4 ; direction = _3 } ) -# 7045 "parsing/parser.ml" +# 7051 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7071,9 +7077,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Jane_syntax.Comprehensions.iterator) = -# 2616 "parsing/parser.mly" +# 2622 "parsing/parser.mly" ( Jane_syntax.Comprehensions.In _2 ) -# 7077 "parsing/parser.ml" +# 7083 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7092,17 +7098,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 845 "parsing/parser.mly" +# 851 "parsing/parser.mly" (string * char option) -# 7098 "parsing/parser.ml" +# 7104 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3914 "parsing/parser.mly" +# 3921 "parsing/parser.mly" ( let (n, m) = _1 in Pconst_integer (n, m) ) -# 7106 "parsing/parser.ml" +# 7112 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7121,17 +7127,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 802 "parsing/parser.mly" +# 808 "parsing/parser.mly" (char) -# 7127 "parsing/parser.ml" +# 7133 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3915 "parsing/parser.mly" +# 3922 "parsing/parser.mly" ( Pconst_char _1 ) -# 7135 "parsing/parser.ml" +# 7141 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7150,17 +7156,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 900 "parsing/parser.mly" +# 906 "parsing/parser.mly" (string * Location.t * string option) -# 7156 "parsing/parser.ml" +# 7162 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3916 "parsing/parser.mly" +# 3923 "parsing/parser.mly" ( let (s, strloc, d) = _1 in Pconst_string (s, strloc, d) ) -# 7164 "parsing/parser.ml" +# 7170 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7179,17 +7185,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 823 "parsing/parser.mly" +# 829 "parsing/parser.mly" (string * char option) -# 7185 "parsing/parser.ml" +# 7191 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3917 "parsing/parser.mly" +# 3924 "parsing/parser.mly" ( let (f, m) = _1 in Pconst_float (f, m) ) -# 7193 "parsing/parser.ml" +# 7199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7219,9 +7225,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 3988 "parsing/parser.mly" +# 3995 "parsing/parser.mly" ( "[]" ) -# 7225 "parsing/parser.ml" +# 7231 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7251,9 +7257,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 3989 "parsing/parser.mly" +# 3996 "parsing/parser.mly" ( "()" ) -# 7257 "parsing/parser.ml" +# 7263 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7276,9 +7282,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3990 "parsing/parser.mly" +# 3997 "parsing/parser.mly" ( "false" ) -# 7282 "parsing/parser.ml" +# 7288 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7301,9 +7307,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3991 "parsing/parser.mly" +# 3998 "parsing/parser.mly" ( "true" ) -# 7307 "parsing/parser.ml" +# 7313 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7322,17 +7328,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 913 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string) -# 7328 "parsing/parser.ml" +# 7334 "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) = -# 3994 "parsing/parser.mly" +# 4001 "parsing/parser.mly" ( _1 ) -# 7336 "parsing/parser.ml" +# 7342 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7369,14 +7375,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = let _1 = -# 3985 "parsing/parser.mly" +# 3992 "parsing/parser.mly" ( "::" ) -# 7375 "parsing/parser.ml" +# 7381 "parsing/parser.ml" in -# 3995 "parsing/parser.mly" +# 4002 "parsing/parser.mly" ( _1 ) -# 7380 "parsing/parser.ml" +# 7386 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7399,9 +7405,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3996 "parsing/parser.mly" +# 4003 "parsing/parser.mly" ( _1 ) -# 7405 "parsing/parser.ml" +# 7411 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7424,9 +7430,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3999 "parsing/parser.mly" +# 4006 "parsing/parser.mly" ( _1 ) -# 7430 "parsing/parser.ml" +# 7436 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7477,14 +7483,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = let _3 = -# 3985 "parsing/parser.mly" +# 3992 "parsing/parser.mly" ( "::" ) -# 7483 "parsing/parser.ml" +# 7489 "parsing/parser.ml" in -# 4000 "parsing/parser.mly" +# 4007 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 7488 "parsing/parser.ml" +# 7494 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7521,14 +7527,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = let _1 = -# 3985 "parsing/parser.mly" +# 3992 "parsing/parser.mly" ( "::" ) -# 7527 "parsing/parser.ml" +# 7533 "parsing/parser.ml" in -# 4001 "parsing/parser.mly" +# 4008 "parsing/parser.mly" ( Lident _1 ) -# 7532 "parsing/parser.ml" +# 7538 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7551,9 +7557,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4002 "parsing/parser.mly" +# 4009 "parsing/parser.mly" ( Lident _1 ) -# 7557 "parsing/parser.ml" +# 7563 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7590,9 +7596,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type * Parsetree.core_type) = -# 2275 "parsing/parser.mly" +# 2281 "parsing/parser.mly" ( _1, _3 ) -# 7596 "parsing/parser.ml" +# 7602 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7619,42 +7625,42 @@ module Tables = struct let xs = let x = let gbl = -# 4119 "parsing/parser.mly" +# 4126 "parsing/parser.mly" ( Nothing ) -# 7625 "parsing/parser.ml" +# 7631 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7634 "parsing/parser.ml" +# 7640 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 7640 "parsing/parser.ml" +# 7646 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7646 "parsing/parser.ml" +# 7652 "parsing/parser.ml" in -# 1184 "parsing/parser.mly" +# 1190 "parsing/parser.mly" ( xs ) -# 7652 "parsing/parser.ml" +# 7658 "parsing/parser.ml" in -# 3503 "parsing/parser.mly" +# 3510 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7658 "parsing/parser.ml" +# 7664 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7688,42 +7694,42 @@ module Tables = struct let xs = let x = let gbl = -# 4120 "parsing/parser.mly" +# 4127 "parsing/parser.mly" ( Global ) -# 7694 "parsing/parser.ml" +# 7700 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7703 "parsing/parser.ml" +# 7709 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 7709 "parsing/parser.ml" +# 7715 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7715 "parsing/parser.ml" +# 7721 "parsing/parser.ml" in -# 1184 "parsing/parser.mly" +# 1190 "parsing/parser.mly" ( xs ) -# 7721 "parsing/parser.ml" +# 7727 "parsing/parser.ml" in -# 3503 "parsing/parser.mly" +# 3510 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7727 "parsing/parser.ml" +# 7733 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7757,42 +7763,42 @@ module Tables = struct let xs = let x = let gbl = -# 4121 "parsing/parser.mly" +# 4128 "parsing/parser.mly" ( Nonlocal ) -# 7763 "parsing/parser.ml" +# 7769 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7772 "parsing/parser.ml" +# 7778 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 7778 "parsing/parser.ml" +# 7784 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7784 "parsing/parser.ml" +# 7790 "parsing/parser.ml" in -# 1184 "parsing/parser.mly" +# 1190 "parsing/parser.mly" ( xs ) -# 7790 "parsing/parser.ml" +# 7796 "parsing/parser.ml" in -# 3503 "parsing/parser.mly" +# 3510 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7796 "parsing/parser.ml" +# 7802 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7834,42 +7840,42 @@ module Tables = struct let x = let _endpos__0_ = _endpos__2_ in let gbl = -# 4119 "parsing/parser.mly" +# 4126 "parsing/parser.mly" ( Nothing ) -# 7840 "parsing/parser.ml" +# 7846 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7849 "parsing/parser.ml" +# 7855 "parsing/parser.ml" in -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 7855 "parsing/parser.ml" +# 7861 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7861 "parsing/parser.ml" +# 7867 "parsing/parser.ml" in -# 1184 "parsing/parser.mly" +# 1190 "parsing/parser.mly" ( xs ) -# 7867 "parsing/parser.ml" +# 7873 "parsing/parser.ml" in -# 3503 "parsing/parser.mly" +# 3510 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7873 "parsing/parser.ml" +# 7879 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7917,42 +7923,42 @@ module Tables = struct let xs = let x = let gbl = -# 4120 "parsing/parser.mly" +# 4127 "parsing/parser.mly" ( Global ) -# 7923 "parsing/parser.ml" +# 7929 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 7932 "parsing/parser.ml" +# 7938 "parsing/parser.ml" in -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 7938 "parsing/parser.ml" +# 7944 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 7944 "parsing/parser.ml" +# 7950 "parsing/parser.ml" in -# 1184 "parsing/parser.mly" +# 1190 "parsing/parser.mly" ( xs ) -# 7950 "parsing/parser.ml" +# 7956 "parsing/parser.ml" in -# 3503 "parsing/parser.mly" +# 3510 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 7956 "parsing/parser.ml" +# 7962 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8000,42 +8006,42 @@ module Tables = struct let xs = let x = let gbl = -# 4121 "parsing/parser.mly" +# 4128 "parsing/parser.mly" ( Nonlocal ) -# 8006 "parsing/parser.ml" +# 8012 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 8015 "parsing/parser.ml" +# 8021 "parsing/parser.ml" in -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 8021 "parsing/parser.ml" +# 8027 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 8027 "parsing/parser.ml" +# 8033 "parsing/parser.ml" in -# 1184 "parsing/parser.mly" +# 1190 "parsing/parser.mly" ( xs ) -# 8033 "parsing/parser.ml" +# 8039 "parsing/parser.ml" in -# 3503 "parsing/parser.mly" +# 3510 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 8039 "parsing/parser.ml" +# 8045 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8072,9 +8078,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.constructor_arguments) = -# 3505 "parsing/parser.mly" +# 3512 "parsing/parser.mly" ( Pcstr_record _2 ) -# 8078 "parsing/parser.ml" +# 8084 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8097,9 +8103,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constructor_declaration list) = -# 3413 "parsing/parser.mly" +# 3420 "parsing/parser.mly" ( [] ) -# 8103 "parsing/parser.ml" +# 8109 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8122,14 +8128,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.constructor_declaration list) = let cs = -# 1269 "parsing/parser.mly" +# 1275 "parsing/parser.mly" ( List.rev xs ) -# 8128 "parsing/parser.ml" +# 8134 "parsing/parser.ml" in -# 3415 "parsing/parser.mly" +# 3422 "parsing/parser.mly" ( cs ) -# 8133 "parsing/parser.ml" +# 8139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8152,14 +8158,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = -# 3669 "parsing/parser.mly" +# 3676 "parsing/parser.mly" ( _1 ) -# 8158 "parsing/parser.ml" +# 8164 "parsing/parser.ml" in -# 3659 "parsing/parser.mly" +# 3666 "parsing/parser.mly" ( _1 ) -# 8163 "parsing/parser.ml" +# 8169 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8189,9 +8195,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = -# 3661 "parsing/parser.mly" +# 3668 "parsing/parser.mly" ( Typ.attr _1 _2 ) -# 8195 "parsing/parser.ml" +# 8201 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8214,9 +8220,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 4097 "parsing/parser.mly" +# 4104 "parsing/parser.mly" ( Upto ) -# 8220 "parsing/parser.ml" +# 8226 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8239,9 +8245,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 4098 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( Downto ) -# 8245 "parsing/parser.ml" +# 8251 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8264,9 +8270,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2469 "parsing/parser.mly" +# 2475 "parsing/parser.mly" ( _1 ) -# 8270 "parsing/parser.ml" +# 8276 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8344,9 +8350,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 8350 "parsing/parser.ml" +# 8356 "parsing/parser.ml" in let _3 = @@ -8354,21 +8360,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 8360 "parsing/parser.ml" +# 8366 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 8366 "parsing/parser.ml" +# 8372 "parsing/parser.ml" in -# 2504 "parsing/parser.mly" +# 2510 "parsing/parser.mly" ( Pexp_letmodule(_4, _5, _7), _3 ) -# 8372 "parsing/parser.ml" +# 8378 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8376,10 +8382,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8383 "parsing/parser.ml" +# 8389 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8464,9 +8470,9 @@ module Tables = struct let _3 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 8470 "parsing/parser.ml" +# 8476 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -8475,19 +8481,19 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 8481 "parsing/parser.ml" +# 8487 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3477 "parsing/parser.mly" +# 3484 "parsing/parser.mly" ( let vars, args, res = _2 in Te.decl _1 ~vars ~args ?res ~attrs:_3 ~loc:(make_loc _sloc) ) -# 8491 "parsing/parser.ml" +# 8497 "parsing/parser.ml" in let _3 = @@ -8495,21 +8501,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 8501 "parsing/parser.ml" +# 8507 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 8507 "parsing/parser.ml" +# 8513 "parsing/parser.ml" in -# 2506 "parsing/parser.mly" +# 2512 "parsing/parser.mly" ( Pexp_letexception(_4, _6), _3 ) -# 8513 "parsing/parser.ml" +# 8519 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -8517,10 +8523,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8524 "parsing/parser.ml" +# 8530 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8590,28 +8596,28 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 8596 "parsing/parser.ml" +# 8602 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 8602 "parsing/parser.ml" +# 8608 "parsing/parser.ml" in let _3 = -# 4163 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Fresh ) -# 8608 "parsing/parser.ml" +# 8614 "parsing/parser.ml" in -# 2508 "parsing/parser.mly" +# 2514 "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 ) -# 8615 "parsing/parser.ml" +# 8621 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8619,10 +8625,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8626 "parsing/parser.ml" +# 8632 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8699,28 +8705,28 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 8705 "parsing/parser.ml" +# 8711 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 8711 "parsing/parser.ml" +# 8717 "parsing/parser.ml" in let _3 = -# 4164 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Override ) -# 8717 "parsing/parser.ml" +# 8723 "parsing/parser.ml" in -# 2508 "parsing/parser.mly" +# 2514 "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 ) -# 8724 "parsing/parser.ml" +# 8730 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8728,10 +8734,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8735 "parsing/parser.ml" +# 8741 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8780,18 +8786,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 8784 "parsing/parser.ml" +# 8790 "parsing/parser.ml" in -# 1241 "parsing/parser.mly" +# 1247 "parsing/parser.mly" ( xs ) -# 8789 "parsing/parser.ml" +# 8795 "parsing/parser.ml" in -# 2939 "parsing/parser.mly" +# 2945 "parsing/parser.mly" ( xs ) -# 8795 "parsing/parser.ml" +# 8801 "parsing/parser.ml" in let _2 = @@ -8799,21 +8805,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 8805 "parsing/parser.ml" +# 8811 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 8811 "parsing/parser.ml" +# 8817 "parsing/parser.ml" in -# 2512 "parsing/parser.mly" +# 2518 "parsing/parser.mly" ( Pexp_function _3, _2 ) -# 8817 "parsing/parser.ml" +# 8823 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -8821,10 +8827,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8828 "parsing/parser.ml" +# 8834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8880,22 +8886,22 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 8886 "parsing/parser.ml" +# 8892 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 8892 "parsing/parser.ml" +# 8898 "parsing/parser.ml" in -# 2514 "parsing/parser.mly" +# 2520 "parsing/parser.mly" ( let (l,o,p) = _3 in Pexp_fun(l, o, p, _4), _2 ) -# 8899 "parsing/parser.ml" +# 8905 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -8903,10 +8909,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8910 "parsing/parser.ml" +# 8916 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8979,33 +8985,33 @@ module Tables = struct let _endpos = _endpos__7_ in let _v : (Parsetree.expression) = let _1 = let _5 = -# 2793 "parsing/parser.mly" +# 2799 "parsing/parser.mly" ( xs ) -# 8985 "parsing/parser.ml" +# 8991 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 8994 "parsing/parser.ml" +# 9000 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 9000 "parsing/parser.ml" +# 9006 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2517 "parsing/parser.mly" +# 2523 "parsing/parser.mly" ( (mk_newtypes ~loc:_sloc _5 _7).pexp_desc, _2 ) -# 9009 "parsing/parser.ml" +# 9015 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -9013,10 +9019,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9020 "parsing/parser.ml" +# 9026 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9079,18 +9085,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9083 "parsing/parser.ml" +# 9089 "parsing/parser.ml" in -# 1241 "parsing/parser.mly" +# 1247 "parsing/parser.mly" ( xs ) -# 9088 "parsing/parser.ml" +# 9094 "parsing/parser.ml" in -# 2939 "parsing/parser.mly" +# 2945 "parsing/parser.mly" ( xs ) -# 9094 "parsing/parser.ml" +# 9100 "parsing/parser.ml" in let _2 = @@ -9098,21 +9104,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 9104 "parsing/parser.ml" +# 9110 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 9110 "parsing/parser.ml" +# 9116 "parsing/parser.ml" in -# 2519 "parsing/parser.mly" +# 2525 "parsing/parser.mly" ( Pexp_match(_3, _5), _2 ) -# 9116 "parsing/parser.ml" +# 9122 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9120,10 +9126,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9127 "parsing/parser.ml" +# 9133 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9186,18 +9192,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9190 "parsing/parser.ml" +# 9196 "parsing/parser.ml" in -# 1241 "parsing/parser.mly" +# 1247 "parsing/parser.mly" ( xs ) -# 9195 "parsing/parser.ml" +# 9201 "parsing/parser.ml" in -# 2939 "parsing/parser.mly" +# 2945 "parsing/parser.mly" ( xs ) -# 9201 "parsing/parser.ml" +# 9207 "parsing/parser.ml" in let _2 = @@ -9205,21 +9211,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 9211 "parsing/parser.ml" +# 9217 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 9217 "parsing/parser.ml" +# 9223 "parsing/parser.ml" in -# 2521 "parsing/parser.mly" +# 2527 "parsing/parser.mly" ( Pexp_try(_3, _5), _2 ) -# 9223 "parsing/parser.ml" +# 9229 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9227,10 +9233,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9234 "parsing/parser.ml" +# 9240 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9293,21 +9299,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 9299 "parsing/parser.ml" +# 9305 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 9305 "parsing/parser.ml" +# 9311 "parsing/parser.ml" in -# 2523 "parsing/parser.mly" +# 2529 "parsing/parser.mly" ( syntax_error() ) -# 9311 "parsing/parser.ml" +# 9317 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -9315,10 +9321,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9322 "parsing/parser.ml" +# 9328 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9395,21 +9401,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 9401 "parsing/parser.ml" +# 9407 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 9407 "parsing/parser.ml" +# 9413 "parsing/parser.ml" in -# 2525 "parsing/parser.mly" +# 2531 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, Some _7), _2 ) -# 9413 "parsing/parser.ml" +# 9419 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -9417,10 +9423,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9424 "parsing/parser.ml" +# 9430 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9483,21 +9489,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 9489 "parsing/parser.ml" +# 9495 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 9495 "parsing/parser.ml" +# 9501 "parsing/parser.ml" in -# 2527 "parsing/parser.mly" +# 2533 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, None), _2 ) -# 9501 "parsing/parser.ml" +# 9507 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -9505,10 +9511,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9512 "parsing/parser.ml" +# 9518 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9578,21 +9584,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 9584 "parsing/parser.ml" +# 9590 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 9590 "parsing/parser.ml" +# 9596 "parsing/parser.ml" in -# 2529 "parsing/parser.mly" +# 2535 "parsing/parser.mly" ( Pexp_while(_3, _5), _2 ) -# 9596 "parsing/parser.ml" +# 9602 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -9600,10 +9606,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9607 "parsing/parser.ml" +# 9613 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9701,21 +9707,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 9707 "parsing/parser.ml" +# 9713 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 9713 "parsing/parser.ml" +# 9719 "parsing/parser.ml" in -# 2532 "parsing/parser.mly" +# 2538 "parsing/parser.mly" ( Pexp_for(_3, _5, _7, _6, _9), _2 ) -# 9719 "parsing/parser.ml" +# 9725 "parsing/parser.ml" in let _endpos__1_ = _endpos__10_ in @@ -9723,10 +9729,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9730 "parsing/parser.ml" +# 9736 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9775,21 +9781,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 9781 "parsing/parser.ml" +# 9787 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 9787 "parsing/parser.ml" +# 9793 "parsing/parser.ml" in -# 2534 "parsing/parser.mly" +# 2540 "parsing/parser.mly" ( Pexp_assert _3, _2 ) -# 9793 "parsing/parser.ml" +# 9799 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -9797,10 +9803,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9804 "parsing/parser.ml" +# 9810 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9849,21 +9855,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 9855 "parsing/parser.ml" +# 9861 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 9861 "parsing/parser.ml" +# 9867 "parsing/parser.ml" in -# 2536 "parsing/parser.mly" +# 2542 "parsing/parser.mly" ( Pexp_lazy _3, _2 ) -# 9867 "parsing/parser.ml" +# 9873 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -9871,10 +9877,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2471 "parsing/parser.mly" +# 2477 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9878 "parsing/parser.ml" +# 9884 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9909,18 +9915,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9913 "parsing/parser.ml" +# 9919 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 9918 "parsing/parser.ml" +# 9924 "parsing/parser.ml" in -# 2540 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( Pexp_apply(_1, _2) ) -# 9924 "parsing/parser.ml" +# 9930 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9928,15 +9934,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 9934 "parsing/parser.ml" +# 9940 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 9940 "parsing/parser.ml" +# 9946 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9965,24 +9971,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9969 "parsing/parser.ml" +# 9975 "parsing/parser.ml" in -# 1208 "parsing/parser.mly" +# 1214 "parsing/parser.mly" ( xs ) -# 9974 "parsing/parser.ml" +# 9980 "parsing/parser.ml" in -# 2966 "parsing/parser.mly" +# 2972 "parsing/parser.mly" ( es ) -# 9980 "parsing/parser.ml" +# 9986 "parsing/parser.ml" in -# 2542 "parsing/parser.mly" +# 2548 "parsing/parser.mly" ( Pexp_tuple(_1) ) -# 9986 "parsing/parser.ml" +# 9992 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in @@ -9990,15 +9996,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 9996 "parsing/parser.ml" +# 10002 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10002 "parsing/parser.ml" +# 10008 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10034,15 +10040,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 10040 "parsing/parser.ml" +# 10046 "parsing/parser.ml" in -# 2544 "parsing/parser.mly" +# 2550 "parsing/parser.mly" ( Pexp_construct(_1, Some _2) ) -# 10046 "parsing/parser.ml" +# 10052 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -10050,15 +10056,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10056 "parsing/parser.ml" +# 10062 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10062 "parsing/parser.ml" +# 10068 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10089,24 +10095,101 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2546 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( Pexp_variant(_1, Some _2) ) -# 10095 "parsing/parser.ml" +# 10101 "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 +# 1085 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10110 "parsing/parser.ml" + + in + +# 2480 "parsing/parser.mly" + ( _1 ) +# 10116 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = e2; + MenhirLib.EngineTypes.startp = _startpos_e2_; + MenhirLib.EngineTypes.endp = _endpos_e2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = op; + MenhirLib.EngineTypes.startp = _startpos_op_; + MenhirLib.EngineTypes.endp = _endpos_op_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = e1; + MenhirLib.EngineTypes.startp = _startpos_e1_; + MenhirLib.EngineTypes.endp = _endpos_e1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + } = _menhir_stack in + let e2 : (Parsetree.expression) = Obj.magic e2 in + let op : ( +# 841 "parsing/parser.mly" + (string) +# 10150 "parsing/parser.ml" + ) = Obj.magic op in + let e1 : (Parsetree.expression) = Obj.magic e1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos_e1_ in + let _endpos = _endpos_e2_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let op = + let _1 = +# 3965 "parsing/parser.mly" + ( op ) +# 10162 "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 + # 1079 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 10171 "parsing/parser.ml" + + in + +# 2554 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 10177 "parsing/parser.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10104 "parsing/parser.ml" +# 10187 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10110 "parsing/parser.ml" +# 10193 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10138,9 +10221,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 835 "parsing/parser.mly" +# 842 "parsing/parser.mly" (string) -# 10144 "parsing/parser.ml" +# 10227 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10150,24 +10233,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3958 "parsing/parser.mly" +# 3966 "parsing/parser.mly" ( op ) -# 10156 "parsing/parser.ml" +# 10239 "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 -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10165 "parsing/parser.ml" +# 10248 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10171 "parsing/parser.ml" +# 10254 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10175,15 +10258,92 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in +# 1085 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10264 "parsing/parser.ml" + + in + +# 2480 "parsing/parser.mly" + ( _1 ) +# 10270 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = e2; + MenhirLib.EngineTypes.startp = _startpos_e2_; + MenhirLib.EngineTypes.endp = _endpos_e2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = op; + MenhirLib.EngineTypes.startp = _startpos_op_; + MenhirLib.EngineTypes.endp = _endpos_op_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = e1; + MenhirLib.EngineTypes.startp = _startpos_e1_; + MenhirLib.EngineTypes.endp = _endpos_e1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + } = _menhir_stack in + let e2 : (Parsetree.expression) = Obj.magic e2 in + let op : ( +# 843 "parsing/parser.mly" + (string) +# 10304 "parsing/parser.ml" + ) = Obj.magic op in + let e1 : (Parsetree.expression) = Obj.magic e1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos_e1_ in + let _endpos = _endpos_e2_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let op = + let _1 = +# 3967 "parsing/parser.mly" + ( op ) +# 10316 "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 + # 1079 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 10325 "parsing/parser.ml" + + in + +# 2554 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 10331 "parsing/parser.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10181 "parsing/parser.ml" +# 10341 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10187 "parsing/parser.ml" +# 10347 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10215,9 +10375,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 836 "parsing/parser.mly" +# 844 "parsing/parser.mly" (string) -# 10221 "parsing/parser.ml" +# 10381 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10227,24 +10387,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3959 "parsing/parser.mly" +# 3968 "parsing/parser.mly" ( op ) -# 10233 "parsing/parser.ml" +# 10393 "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 -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10242 "parsing/parser.ml" +# 10402 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10248 "parsing/parser.ml" +# 10408 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10252,15 +10412,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10258 "parsing/parser.ml" +# 10418 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10264 "parsing/parser.ml" +# 10424 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10292,9 +10452,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 837 "parsing/parser.mly" +# 845 "parsing/parser.mly" (string) -# 10298 "parsing/parser.ml" +# 10458 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10304,24 +10464,24 @@ module Tables = struct let _1 = let op = let _1 = -# 3960 "parsing/parser.mly" +# 3969 "parsing/parser.mly" ( op ) -# 10310 "parsing/parser.ml" +# 10470 "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 -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10319 "parsing/parser.ml" +# 10479 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10325 "parsing/parser.ml" +# 10485 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10329,15 +10489,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10335 "parsing/parser.ml" +# 10495 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10341 "parsing/parser.ml" +# 10501 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10355,9 +10515,9 @@ module Tables = struct MenhirLib.EngineTypes.endp = _endpos_e2_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = op; - MenhirLib.EngineTypes.startp = _startpos_op_; - MenhirLib.EngineTypes.endp = _endpos_op_; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = e1; @@ -10368,11 +10528,7 @@ module Tables = struct }; } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in - let op : ( -# 838 "parsing/parser.mly" - (string) -# 10375 "parsing/parser.ml" - ) = Obj.magic op in + let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in @@ -10381,24 +10537,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3961 "parsing/parser.mly" - ( op ) -# 10387 "parsing/parser.ml" +# 3970 "parsing/parser.mly" + ("+") +# 10543 "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 -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10396 "parsing/parser.ml" +# 10551 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10402 "parsing/parser.ml" +# 10557 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10406,15 +10561,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10412 "parsing/parser.ml" +# 10567 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10418 "parsing/parser.ml" +# 10573 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10432,9 +10587,9 @@ module Tables = struct MenhirLib.EngineTypes.endp = _endpos_e2_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = op; - MenhirLib.EngineTypes.startp = _startpos_op_; - MenhirLib.EngineTypes.endp = _endpos_op_; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; MenhirLib.EngineTypes.next = { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = e1; @@ -10445,11 +10600,7 @@ module Tables = struct }; } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in - let op : ( -# 839 "parsing/parser.mly" - (string) -# 10452 "parsing/parser.ml" - ) = Obj.magic op in + let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in @@ -10458,24 +10609,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3962 "parsing/parser.mly" - ( op ) -# 10464 "parsing/parser.ml" +# 3971 "parsing/parser.mly" + ("+.") +# 10615 "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 -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10473 "parsing/parser.ml" +# 10623 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10479 "parsing/parser.ml" +# 10629 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10483,15 +10633,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10489 "parsing/parser.ml" +# 10639 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10495 "parsing/parser.ml" +# 10645 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10531,23 +10681,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3963 "parsing/parser.mly" - ("+") -# 10537 "parsing/parser.ml" +# 3972 "parsing/parser.mly" + ("+=") +# 10687 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10545 "parsing/parser.ml" +# 10695 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10551 "parsing/parser.ml" +# 10701 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10555,15 +10705,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10561 "parsing/parser.ml" +# 10711 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10567 "parsing/parser.ml" +# 10717 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10603,23 +10753,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3964 "parsing/parser.mly" - ("+.") -# 10609 "parsing/parser.ml" +# 3973 "parsing/parser.mly" + ("-") +# 10759 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10617 "parsing/parser.ml" +# 10767 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10623 "parsing/parser.ml" +# 10773 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10627,15 +10777,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10633 "parsing/parser.ml" +# 10783 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10639 "parsing/parser.ml" +# 10789 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10675,23 +10825,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3965 "parsing/parser.mly" - ("+=") -# 10681 "parsing/parser.ml" +# 3974 "parsing/parser.mly" + ("-.") +# 10831 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10689 "parsing/parser.ml" +# 10839 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10695 "parsing/parser.ml" +# 10845 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10699,15 +10849,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10705 "parsing/parser.ml" +# 10855 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10711 "parsing/parser.ml" +# 10861 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10747,23 +10897,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3966 "parsing/parser.mly" - ("-") -# 10753 "parsing/parser.ml" +# 3975 "parsing/parser.mly" + ("*") +# 10903 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10761 "parsing/parser.ml" +# 10911 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10767 "parsing/parser.ml" +# 10917 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10771,15 +10921,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10777 "parsing/parser.ml" +# 10927 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10783 "parsing/parser.ml" +# 10933 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10819,23 +10969,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3967 "parsing/parser.mly" - ("-.") -# 10825 "parsing/parser.ml" +# 3976 "parsing/parser.mly" + ("%") +# 10975 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10833 "parsing/parser.ml" +# 10983 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10839 "parsing/parser.ml" +# 10989 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10843,15 +10993,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10849 "parsing/parser.ml" +# 10999 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10855 "parsing/parser.ml" +# 11005 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10891,23 +11041,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3968 "parsing/parser.mly" - ("*") -# 10897 "parsing/parser.ml" +# 3977 "parsing/parser.mly" + ("=") +# 11047 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10905 "parsing/parser.ml" +# 11055 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10911 "parsing/parser.ml" +# 11061 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10915,15 +11065,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10921 "parsing/parser.ml" +# 11071 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10927 "parsing/parser.ml" +# 11077 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10963,23 +11113,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3969 "parsing/parser.mly" - ("%") -# 10969 "parsing/parser.ml" +# 3978 "parsing/parser.mly" + ("<") +# 11119 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10977 "parsing/parser.ml" +# 11127 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10983 "parsing/parser.ml" +# 11133 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10987,15 +11137,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10993 "parsing/parser.ml" +# 11143 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 10999 "parsing/parser.ml" +# 11149 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11035,23 +11185,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3970 "parsing/parser.mly" - ("=") -# 11041 "parsing/parser.ml" +# 3979 "parsing/parser.mly" + (">") +# 11191 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11049 "parsing/parser.ml" +# 11199 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11055 "parsing/parser.ml" +# 11205 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11059,15 +11209,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11065 "parsing/parser.ml" +# 11215 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 11071 "parsing/parser.ml" +# 11221 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11107,23 +11257,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3971 "parsing/parser.mly" - ("<") -# 11113 "parsing/parser.ml" +# 3980 "parsing/parser.mly" + ("or") +# 11263 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11121 "parsing/parser.ml" +# 11271 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11127 "parsing/parser.ml" +# 11277 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11131,15 +11281,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11137 "parsing/parser.ml" +# 11287 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 11143 "parsing/parser.ml" +# 11293 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11179,23 +11329,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3972 "parsing/parser.mly" - (">") -# 11185 "parsing/parser.ml" +# 3981 "parsing/parser.mly" + ("||") +# 11335 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11193 "parsing/parser.ml" +# 11343 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11199 "parsing/parser.ml" +# 11349 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11203,15 +11353,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11209 "parsing/parser.ml" +# 11359 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 11215 "parsing/parser.ml" +# 11365 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11251,23 +11401,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3973 "parsing/parser.mly" - ("or") -# 11257 "parsing/parser.ml" +# 3982 "parsing/parser.mly" + ("&") +# 11407 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11265 "parsing/parser.ml" +# 11415 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11271 "parsing/parser.ml" +# 11421 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11275,15 +11425,87 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in +# 1085 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11431 "parsing/parser.ml" + + in + +# 2480 "parsing/parser.mly" + ( _1 ) +# 11437 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = e2; + MenhirLib.EngineTypes.startp = _startpos_e2_; + MenhirLib.EngineTypes.endp = _endpos_e2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = e1; + MenhirLib.EngineTypes.startp = _startpos_e1_; + MenhirLib.EngineTypes.endp = _endpos_e1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + } = _menhir_stack in + let e2 : (Parsetree.expression) = Obj.magic e2 in + let _1 : unit = Obj.magic _1 in + let e1 : (Parsetree.expression) = Obj.magic e1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos_e1_ in + let _endpos = _endpos_e2_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let op = + let _1 = +# 3983 "parsing/parser.mly" + ("&&") +# 11479 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1079 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11487 "parsing/parser.ml" + + in + +# 2554 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11493 "parsing/parser.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11281 "parsing/parser.ml" +# 11503 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 11287 "parsing/parser.ml" +# 11509 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11323,239 +11545,23 @@ module Tables = struct let _1 = let op = let _1 = -# 3974 "parsing/parser.mly" - ("||") -# 11329 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1073 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11337 "parsing/parser.ml" - - in - -# 2548 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11343 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1079 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11353 "parsing/parser.ml" - - in - -# 2474 "parsing/parser.mly" - ( _1 ) -# 11359 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = e2; - MenhirLib.EngineTypes.startp = _startpos_e2_; - MenhirLib.EngineTypes.endp = _endpos_e2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = e1; - MenhirLib.EngineTypes.startp = _startpos_e1_; - MenhirLib.EngineTypes.endp = _endpos_e1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - } = _menhir_stack in - let e2 : (Parsetree.expression) = Obj.magic e2 in - let _1 : unit = Obj.magic _1 in - let e1 : (Parsetree.expression) = Obj.magic e1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos_e1_ in - let _endpos = _endpos_e2_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = - let op = - let _1 = -# 3975 "parsing/parser.mly" - ("&") -# 11401 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1073 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11409 "parsing/parser.ml" - - in - -# 2548 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11415 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1079 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11425 "parsing/parser.ml" - - in - -# 2474 "parsing/parser.mly" - ( _1 ) -# 11431 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = e2; - MenhirLib.EngineTypes.startp = _startpos_e2_; - MenhirLib.EngineTypes.endp = _endpos_e2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = e1; - MenhirLib.EngineTypes.startp = _startpos_e1_; - MenhirLib.EngineTypes.endp = _endpos_e1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - } = _menhir_stack in - let e2 : (Parsetree.expression) = Obj.magic e2 in - let _1 : unit = Obj.magic _1 in - let e1 : (Parsetree.expression) = Obj.magic e1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos_e1_ in - let _endpos = _endpos_e2_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = - let op = - let _1 = -# 3976 "parsing/parser.mly" - ("&&") -# 11473 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1073 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11481 "parsing/parser.ml" - - in - -# 2548 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11487 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1079 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11497 "parsing/parser.ml" - - in - -# 2474 "parsing/parser.mly" - ( _1 ) -# 11503 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = e2; - MenhirLib.EngineTypes.startp = _startpos_e2_; - MenhirLib.EngineTypes.endp = _endpos_e2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = e1; - MenhirLib.EngineTypes.startp = _startpos_e1_; - MenhirLib.EngineTypes.endp = _endpos_e1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - } = _menhir_stack in - let e2 : (Parsetree.expression) = Obj.magic e2 in - let _1 : unit = Obj.magic _1 in - let e1 : (Parsetree.expression) = Obj.magic e1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos_e1_ in - let _endpos = _endpos_e2_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = - let op = - let _1 = -# 3977 "parsing/parser.mly" +# 3984 "parsing/parser.mly" (":=") -# 11545 "parsing/parser.ml" +# 11551 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11553 "parsing/parser.ml" +# 11559 "parsing/parser.ml" in -# 2548 "parsing/parser.mly" +# 2554 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11559 "parsing/parser.ml" +# 11565 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11563,15 +11569,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11569 "parsing/parser.ml" +# 11575 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 11575 "parsing/parser.ml" +# 11581 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11604,9 +11610,9 @@ module Tables = struct let _1 = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2550 "parsing/parser.mly" +# 2556 "parsing/parser.mly" ( mkuminus ~oploc:_loc__1_ _1 _2 ) -# 11610 "parsing/parser.ml" +# 11616 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -11614,15 +11620,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11620 "parsing/parser.ml" +# 11626 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 11626 "parsing/parser.ml" +# 11632 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11655,9 +11661,9 @@ module Tables = struct let _1 = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2552 "parsing/parser.mly" +# 2558 "parsing/parser.mly" ( mkuplus ~oploc:_loc__1_ _1 _2 ) -# 11661 "parsing/parser.ml" +# 11667 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -11665,15 +11671,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11671 "parsing/parser.ml" +# 11677 "parsing/parser.ml" in -# 2474 "parsing/parser.mly" +# 2480 "parsing/parser.mly" ( _1 ) -# 11677 "parsing/parser.ml" +# 11683 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11713,9 +11719,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2476 "parsing/parser.mly" +# 2482 "parsing/parser.mly" ( expr_of_let_bindings ~loc:_sloc _1 _3 ) -# 11719 "parsing/parser.ml" +# 11725 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11755,9 +11761,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 : ( -# 841 "parsing/parser.mly" +# 847 "parsing/parser.mly" (string) -# 11761 "parsing/parser.ml" +# 11767 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -11767,9 +11773,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 11773 "parsing/parser.ml" +# 11779 "parsing/parser.ml" in let _startpos_pbop_op_ = _startpos__1_ in @@ -11777,13 +11783,13 @@ module Tables = struct let _symbolstartpos = _startpos_pbop_op_ in let _sloc = (_symbolstartpos, _endpos) in -# 2478 "parsing/parser.mly" +# 2484 "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}) ) -# 11787 "parsing/parser.ml" +# 11793 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11824,9 +11830,9 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 2484 "parsing/parser.mly" +# 2490 "parsing/parser.mly" ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[_1;_3])) ) -# 11830 "parsing/parser.ml" +# 11836 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11859,35 +11865,35 @@ module Tables = struct let _3 : (Parsetree.expression) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 11865 "parsing/parser.ml" +# 11871 "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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 11874 "parsing/parser.ml" +# 11880 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 11882 "parsing/parser.ml" +# 11888 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2486 "parsing/parser.mly" +# 2492 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) ) -# 11891 "parsing/parser.ml" +# 11897 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11943,18 +11949,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 11949 "parsing/parser.ml" +# 11955 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2488 "parsing/parser.mly" +# 2494 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) ) -# 11958 "parsing/parser.ml" +# 11964 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12020,14 +12026,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2489 "parsing/parser.mly" +# 2495 "parsing/parser.mly" (Some v) -# 12026 "parsing/parser.ml" +# 12032 "parsing/parser.ml" in -# 2449 "parsing/parser.mly" +# 2455 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12031 "parsing/parser.ml" +# 12037 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12035,9 +12041,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2490 "parsing/parser.mly" +# 2496 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12041 "parsing/parser.ml" +# 12047 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12103,14 +12109,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2489 "parsing/parser.mly" +# 2495 "parsing/parser.mly" (Some v) -# 12109 "parsing/parser.ml" +# 12115 "parsing/parser.ml" in -# 2451 "parsing/parser.mly" +# 2457 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12114 "parsing/parser.ml" +# 12120 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12118,9 +12124,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2490 "parsing/parser.mly" +# 2496 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12124 "parsing/parser.ml" +# 12130 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12186,14 +12192,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2489 "parsing/parser.mly" +# 2495 "parsing/parser.mly" (Some v) -# 12192 "parsing/parser.ml" +# 12198 "parsing/parser.ml" in -# 2453 "parsing/parser.mly" +# 2459 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 12197 "parsing/parser.ml" +# 12203 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12201,9 +12207,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2490 "parsing/parser.mly" +# 2496 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12207 "parsing/parser.ml" +# 12213 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12263,9 +12269,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 12269 "parsing/parser.ml" +# 12275 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -12273,31 +12279,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2491 "parsing/parser.mly" +# 2497 "parsing/parser.mly" (Some v) -# 12279 "parsing/parser.ml" +# 12285 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 12284 "parsing/parser.ml" +# 12290 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 12290 "parsing/parser.ml" +# 12296 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 12295 "parsing/parser.ml" +# 12301 "parsing/parser.ml" in -# 2449 "parsing/parser.mly" +# 2455 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12301 "parsing/parser.ml" +# 12307 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12305,9 +12311,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2492 "parsing/parser.mly" +# 2498 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12311 "parsing/parser.ml" +# 12317 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12379,9 +12385,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 12385 "parsing/parser.ml" +# 12391 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12391,39 +12397,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2491 "parsing/parser.mly" +# 2497 "parsing/parser.mly" (Some v) -# 12397 "parsing/parser.ml" +# 12403 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 12402 "parsing/parser.ml" +# 12408 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" (_2) -# 12410 "parsing/parser.ml" +# 12416 "parsing/parser.ml" in # 126 "" ( Some x ) -# 12415 "parsing/parser.ml" +# 12421 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 12421 "parsing/parser.ml" +# 12427 "parsing/parser.ml" in -# 2449 "parsing/parser.mly" +# 2455 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12427 "parsing/parser.ml" +# 12433 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12431,9 +12437,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2492 "parsing/parser.mly" +# 2498 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12437 "parsing/parser.ml" +# 12443 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12493,9 +12499,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 12499 "parsing/parser.ml" +# 12505 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -12503,31 +12509,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2491 "parsing/parser.mly" +# 2497 "parsing/parser.mly" (Some v) -# 12509 "parsing/parser.ml" +# 12515 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 12514 "parsing/parser.ml" +# 12520 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 12520 "parsing/parser.ml" +# 12526 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 12525 "parsing/parser.ml" +# 12531 "parsing/parser.ml" in -# 2451 "parsing/parser.mly" +# 2457 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12531 "parsing/parser.ml" +# 12537 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12535,9 +12541,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2492 "parsing/parser.mly" +# 2498 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12541 "parsing/parser.ml" +# 12547 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12609,9 +12615,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 12615 "parsing/parser.ml" +# 12621 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12621,39 +12627,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2491 "parsing/parser.mly" +# 2497 "parsing/parser.mly" (Some v) -# 12627 "parsing/parser.ml" +# 12633 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 12632 "parsing/parser.ml" +# 12638 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" (_2) -# 12640 "parsing/parser.ml" +# 12646 "parsing/parser.ml" in # 126 "" ( Some x ) -# 12645 "parsing/parser.ml" +# 12651 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 12651 "parsing/parser.ml" +# 12657 "parsing/parser.ml" in -# 2451 "parsing/parser.mly" +# 2457 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12657 "parsing/parser.ml" +# 12663 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12661,9 +12667,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2492 "parsing/parser.mly" +# 2498 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12667 "parsing/parser.ml" +# 12673 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12723,9 +12729,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 12729 "parsing/parser.ml" +# 12735 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -12733,31 +12739,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2491 "parsing/parser.mly" +# 2497 "parsing/parser.mly" (Some v) -# 12739 "parsing/parser.ml" +# 12745 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 12744 "parsing/parser.ml" +# 12750 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 12750 "parsing/parser.ml" +# 12756 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 12755 "parsing/parser.ml" +# 12761 "parsing/parser.ml" in -# 2453 "parsing/parser.mly" +# 2459 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 12761 "parsing/parser.ml" +# 12767 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12765,9 +12771,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2492 "parsing/parser.mly" +# 2498 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12771 "parsing/parser.ml" +# 12777 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12839,9 +12845,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 12845 "parsing/parser.ml" +# 12851 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12851,39 +12857,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2491 "parsing/parser.mly" +# 2497 "parsing/parser.mly" (Some v) -# 12857 "parsing/parser.ml" +# 12863 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 12862 "parsing/parser.ml" +# 12868 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" (_2) -# 12870 "parsing/parser.ml" +# 12876 "parsing/parser.ml" in # 126 "" ( Some x ) -# 12875 "parsing/parser.ml" +# 12881 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 12881 "parsing/parser.ml" +# 12887 "parsing/parser.ml" in -# 2453 "parsing/parser.mly" +# 2459 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 12887 "parsing/parser.ml" +# 12893 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12891,9 +12897,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2492 "parsing/parser.mly" +# 2498 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12897 "parsing/parser.ml" +# 12903 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12923,9 +12929,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2494 "parsing/parser.mly" +# 2500 "parsing/parser.mly" ( Exp.attr _1 _2 ) -# 12929 "parsing/parser.ml" +# 12935 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12949,9 +12955,9 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2497 "parsing/parser.mly" +# 2503 "parsing/parser.mly" ( not_expecting _loc__1_ "wildcard \"_\"" ) -# 12955 "parsing/parser.ml" +# 12961 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12985,9 +12991,9 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2500 "parsing/parser.mly" +# 2506 "parsing/parser.mly" ( mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__1_) _2 ) -# 12991 "parsing/parser.ml" +# 12997 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13003,9 +13009,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string Asttypes.loc option) = -# 4266 "parsing/parser.mly" +# 4273 "parsing/parser.mly" ( None ) -# 13009 "parsing/parser.ml" +# 13015 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13035,9 +13041,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string Asttypes.loc option) = -# 4267 "parsing/parser.mly" +# 4274 "parsing/parser.mly" ( Some _2 ) -# 13041 "parsing/parser.ml" +# 13047 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13081,9 +13087,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 4279 "parsing/parser.mly" +# 4286 "parsing/parser.mly" ( (_2, _3) ) -# 13087 "parsing/parser.ml" +# 13093 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13102,9 +13108,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 902 "parsing/parser.mly" +# 908 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 13108 "parsing/parser.ml" +# 13114 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -13113,9 +13119,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4281 "parsing/parser.mly" +# 4288 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 13119 "parsing/parser.ml" +# 13125 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13168,9 +13174,9 @@ module Tables = struct let _v : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined3 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 13174 "parsing/parser.ml" +# 13180 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined3_ in @@ -13180,9 +13186,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13186 "parsing/parser.ml" +# 13192 "parsing/parser.ml" in let cid = @@ -13191,19 +13197,19 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13197 "parsing/parser.ml" +# 13203 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3579 "parsing/parser.mly" +# 3586 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 13207 "parsing/parser.ml" +# 13213 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13249,9 +13255,9 @@ module Tables = struct let _v : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined2 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 13255 "parsing/parser.ml" +# 13261 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined2_ in @@ -13261,9 +13267,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13267 "parsing/parser.ml" +# 13273 "parsing/parser.ml" in let cid = @@ -13271,25 +13277,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13277 "parsing/parser.ml" +# 13283 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = -# 4071 "parsing/parser.mly" +# 4078 "parsing/parser.mly" ( () ) -# 13284 "parsing/parser.ml" +# 13290 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in -# 3579 "parsing/parser.mly" +# 3586 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 13293 "parsing/parser.ml" +# 13299 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13336,10 +13342,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4254 "parsing/parser.mly" +# 4261 "parsing/parser.mly" ( mark_symbol_docs _sloc; mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 13343 "parsing/parser.ml" +# 13349 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13355,14 +13361,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 = -# 2215 "parsing/parser.mly" +# 2221 "parsing/parser.mly" ( [] ) -# 13361 "parsing/parser.ml" +# 13367 "parsing/parser.ml" in -# 2040 "parsing/parser.mly" +# 2046 "parsing/parser.mly" ( params ) -# 13366 "parsing/parser.ml" +# 13372 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13403,24 +13409,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 13407 "parsing/parser.ml" +# 13413 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 13412 "parsing/parser.ml" +# 13418 "parsing/parser.ml" in -# 2217 "parsing/parser.mly" +# 2223 "parsing/parser.mly" ( params ) -# 13418 "parsing/parser.ml" +# 13424 "parsing/parser.ml" in -# 2040 "parsing/parser.mly" +# 2046 "parsing/parser.mly" ( params ) -# 13424 "parsing/parser.ml" +# 13430 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13443,9 +13449,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2911 "parsing/parser.mly" +# 2917 "parsing/parser.mly" ( _1 ) -# 13449 "parsing/parser.ml" +# 13455 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13485,9 +13491,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2913 "parsing/parser.mly" +# 2919 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _3 _1 ) -# 13491 "parsing/parser.ml" +# 13497 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13517,9 +13523,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2951 "parsing/parser.mly" +# 2957 "parsing/parser.mly" ( _2 ) -# 13523 "parsing/parser.ml" +# 13529 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13564,24 +13570,24 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2953 "parsing/parser.mly" +# 2959 "parsing/parser.mly" ( Pexp_constraint (_4, _2) ) -# 13570 "parsing/parser.ml" +# 13576 "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 -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 13579 "parsing/parser.ml" +# 13585 "parsing/parser.ml" in -# 2954 "parsing/parser.mly" +# 2960 "parsing/parser.mly" ( _1 ) -# 13585 "parsing/parser.ml" +# 13591 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13614,12 +13620,12 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2957 "parsing/parser.mly" +# 2963 "parsing/parser.mly" ( let (l,o,p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 13623 "parsing/parser.ml" +# 13629 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13670,17 +13676,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2793 "parsing/parser.mly" +# 2799 "parsing/parser.mly" ( xs ) -# 13676 "parsing/parser.ml" +# 13682 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2962 "parsing/parser.mly" +# 2968 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 13684 "parsing/parser.ml" +# 13690 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13703,9 +13709,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3695 "parsing/parser.mly" +# 3702 "parsing/parser.mly" ( ty ) -# 13709 "parsing/parser.ml" +# 13715 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13728,9 +13734,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3697 "parsing/parser.mly" +# 3704 "parsing/parser.mly" ( ty ) -# 13734 "parsing/parser.ml" +# 13740 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13761,9 +13767,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Lexing.position * Parsetree.functor_parameter) = let _startpos = _startpos__1_ in -# 1434 "parsing/parser.mly" +# 1440 "parsing/parser.mly" ( _startpos, Unit ) -# 13767 "parsing/parser.ml" +# 13773 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13819,16 +13825,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13825 "parsing/parser.ml" +# 13831 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1437 "parsing/parser.mly" +# 1443 "parsing/parser.mly" ( _startpos, Named (x, mty) ) -# 13832 "parsing/parser.ml" +# 13838 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13845,9 +13851,9 @@ module Tables = struct let _endpos = _startpos in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3481 "parsing/parser.mly" +# 3488 "parsing/parser.mly" ( ([],Pcstr_tuple [],None) ) -# 13851 "parsing/parser.ml" +# 13857 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13878,9 +13884,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3482 "parsing/parser.mly" +# 3489 "parsing/parser.mly" ( ([],_2,None) ) -# 13884 "parsing/parser.ml" +# 13890 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13925,9 +13931,9 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3484 "parsing/parser.mly" +# 3491 "parsing/parser.mly" ( ([],_2,Some _4) ) -# 13931 "parsing/parser.ml" +# 13937 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13990,24 +13996,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 13994 "parsing/parser.ml" +# 14000 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 13999 "parsing/parser.ml" +# 14005 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 14005 "parsing/parser.ml" +# 14011 "parsing/parser.ml" in -# 3487 "parsing/parser.mly" +# 3494 "parsing/parser.mly" ( (_2,_4,Some _6) ) -# 14011 "parsing/parser.ml" +# 14017 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14038,9 +14044,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3489 "parsing/parser.mly" +# 3496 "parsing/parser.mly" ( ([],Pcstr_tuple [],Some _2) ) -# 14044 "parsing/parser.ml" +# 14050 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14089,24 +14095,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14093 "parsing/parser.ml" +# 14099 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 14098 "parsing/parser.ml" +# 14104 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 14104 "parsing/parser.ml" +# 14110 "parsing/parser.ml" in -# 3491 "parsing/parser.mly" +# 3498 "parsing/parser.mly" ( (_2,Pcstr_tuple [],Some _4) ) -# 14110 "parsing/parser.ml" +# 14116 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14155,9 +14161,9 @@ module Tables = struct Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined2 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 14161 "parsing/parser.ml" +# 14167 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined2_ in @@ -14167,23 +14173,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14173 "parsing/parser.ml" +# 14179 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3429 "parsing/parser.mly" +# 3436 "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 ) -# 14187 "parsing/parser.ml" +# 14193 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14225,9 +14231,9 @@ module Tables = struct Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 14231 "parsing/parser.ml" +# 14237 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined1_ in @@ -14236,29 +14242,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14242 "parsing/parser.ml" +# 14248 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = -# 4071 "parsing/parser.mly" +# 4078 "parsing/parser.mly" ( () ) -# 14249 "parsing/parser.ml" +# 14255 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in -# 3429 "parsing/parser.mly" +# 3436 "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 ) -# 14262 "parsing/parser.ml" +# 14268 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14329,9 +14335,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 14335 "parsing/parser.ml" +# 14341 "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 @@ -14344,9 +14350,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 14350 "parsing/parser.ml" +# 14356 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -14355,24 +14361,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14359 "parsing/parser.ml" +# 14365 "parsing/parser.ml" in -# 1130 "parsing/parser.mly" +# 1136 "parsing/parser.mly" ( xs ) -# 14364 "parsing/parser.ml" +# 14370 "parsing/parser.ml" in -# 3319 "parsing/parser.mly" +# 3326 "parsing/parser.mly" ( _1 ) -# 14370 "parsing/parser.ml" +# 14376 "parsing/parser.ml" in let kind_priv_manifest = -# 3354 "parsing/parser.mly" +# 3361 "parsing/parser.mly" ( _2 ) -# 14376 "parsing/parser.ml" +# 14382 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -14380,29 +14386,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14386 "parsing/parser.ml" +# 14392 "parsing/parser.ml" in let flag = -# 4091 "parsing/parser.mly" +# 4098 "parsing/parser.mly" ( Recursive ) -# 14392 "parsing/parser.ml" +# 14398 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 14399 "parsing/parser.ml" +# 14405 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3291 "parsing/parser.mly" +# 3298 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14411,7 +14417,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14415 "parsing/parser.ml" +# 14421 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14488,9 +14494,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 14494 "parsing/parser.ml" +# 14500 "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 @@ -14504,9 +14510,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined5 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 14510 "parsing/parser.ml" +# 14516 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined5_ in @@ -14515,24 +14521,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14519 "parsing/parser.ml" +# 14525 "parsing/parser.ml" in -# 1130 "parsing/parser.mly" +# 1136 "parsing/parser.mly" ( xs ) -# 14524 "parsing/parser.ml" +# 14530 "parsing/parser.ml" in -# 3319 "parsing/parser.mly" +# 3326 "parsing/parser.mly" ( _1 ) -# 14530 "parsing/parser.ml" +# 14536 "parsing/parser.ml" in let kind_priv_manifest = -# 3354 "parsing/parser.mly" +# 3361 "parsing/parser.mly" ( _2 ) -# 14536 "parsing/parser.ml" +# 14542 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -14540,9 +14546,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14546 "parsing/parser.ml" +# 14552 "parsing/parser.ml" in let flag = @@ -14551,24 +14557,24 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4093 "parsing/parser.mly" +# 4100 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 14557 "parsing/parser.ml" +# 14563 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 14565 "parsing/parser.ml" +# 14571 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3291 "parsing/parser.mly" +# 3298 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14577,7 +14583,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14581 "parsing/parser.ml" +# 14587 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14641,9 +14647,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 14647 "parsing/parser.ml" +# 14653 "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 @@ -14656,9 +14662,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 14662 "parsing/parser.ml" +# 14668 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -14667,18 +14673,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14671 "parsing/parser.ml" +# 14677 "parsing/parser.ml" in -# 1130 "parsing/parser.mly" +# 1136 "parsing/parser.mly" ( xs ) -# 14676 "parsing/parser.ml" +# 14682 "parsing/parser.ml" in -# 3319 "parsing/parser.mly" +# 3326 "parsing/parser.mly" ( _1 ) -# 14682 "parsing/parser.ml" +# 14688 "parsing/parser.ml" in let id = @@ -14687,29 +14693,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14693 "parsing/parser.ml" +# 14699 "parsing/parser.ml" in let flag = -# 4087 "parsing/parser.mly" +# 4094 "parsing/parser.mly" ( Recursive ) -# 14699 "parsing/parser.ml" +# 14705 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 14706 "parsing/parser.ml" +# 14712 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3291 "parsing/parser.mly" +# 3298 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14718,7 +14724,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14722 "parsing/parser.ml" +# 14728 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14788,9 +14794,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 14794 "parsing/parser.ml" +# 14800 "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 @@ -14804,9 +14810,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 14810 "parsing/parser.ml" +# 14816 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -14815,18 +14821,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14819 "parsing/parser.ml" +# 14825 "parsing/parser.ml" in -# 1130 "parsing/parser.mly" +# 1136 "parsing/parser.mly" ( xs ) -# 14824 "parsing/parser.ml" +# 14830 "parsing/parser.ml" in -# 3319 "parsing/parser.mly" +# 3326 "parsing/parser.mly" ( _1 ) -# 14830 "parsing/parser.ml" +# 14836 "parsing/parser.ml" in let id = @@ -14835,29 +14841,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14841 "parsing/parser.ml" +# 14847 "parsing/parser.ml" in let flag = -# 4088 "parsing/parser.mly" +# 4095 "parsing/parser.mly" ( Nonrecursive ) -# 14847 "parsing/parser.ml" +# 14853 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 14854 "parsing/parser.ml" +# 14860 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3291 "parsing/parser.mly" +# 3298 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14866,7 +14872,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14870 "parsing/parser.ml" +# 14876 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14885,17 +14891,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 913 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string) -# 14891 "parsing/parser.ml" +# 14897 "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) = -# 3930 "parsing/parser.mly" +# 3937 "parsing/parser.mly" ( _1 ) -# 14899 "parsing/parser.ml" +# 14905 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14914,17 +14920,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 14920 "parsing/parser.ml" +# 14926 "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) = -# 3931 "parsing/parser.mly" +# 3938 "parsing/parser.mly" ( _1 ) -# 14928 "parsing/parser.ml" +# 14934 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14954,9 +14960,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.structure) = -# 1301 "parsing/parser.mly" +# 1307 "parsing/parser.mly" ( _1 ) -# 14960 "parsing/parser.ml" +# 14966 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14979,9 +14985,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (bool) = -# 1680 "parsing/parser.mly" +# 1686 "parsing/parser.mly" ( false ) -# 14985 "parsing/parser.ml" +# 14991 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15011,9 +15017,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (bool) = -# 1682 "parsing/parser.mly" +# 1688 "parsing/parser.mly" ( true ) -# 15017 "parsing/parser.ml" +# 15023 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15029,9 +15035,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string) = -# 3980 "parsing/parser.mly" +# 3987 "parsing/parser.mly" ( "" ) -# 15035 "parsing/parser.ml" +# 15041 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15061,9 +15067,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string) = -# 3981 "parsing/parser.mly" +# 3988 "parsing/parser.mly" ( ";.." ) -# 15067 "parsing/parser.ml" +# 15073 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15093,9 +15099,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.signature) = -# 1308 "parsing/parser.mly" +# 1314 "parsing/parser.mly" ( _1 ) -# 15099 "parsing/parser.ml" +# 15105 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15139,9 +15145,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 4284 "parsing/parser.mly" +# 4291 "parsing/parser.mly" ( (_2, _3) ) -# 15145 "parsing/parser.ml" +# 15151 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15160,9 +15166,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 904 "parsing/parser.mly" +# 910 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 15166 "parsing/parser.ml" +# 15172 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15171,9 +15177,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4286 "parsing/parser.mly" +# 4293 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 15177 "parsing/parser.ml" +# 15183 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15219,9 +15225,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 15225 "parsing/parser.ml" +# 15231 "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 @@ -15230,34 +15236,34 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let _5 = let _1 = _1_inlined3 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 15236 "parsing/parser.ml" +# 15242 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 3648 "parsing/parser.mly" +# 3655 "parsing/parser.mly" ( _1 ) -# 15245 "parsing/parser.ml" +# 15251 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 15253 "parsing/parser.ml" +# 15259 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15261 "parsing/parser.ml" +# 15267 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -15269,13 +15275,13 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 3514 "parsing/parser.mly" +# 3521 "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_) ) -# 15279 "parsing/parser.ml" +# 15285 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15335,9 +15341,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 15341 "parsing/parser.ml" +# 15347 "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 @@ -15346,43 +15352,43 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let _7 = let _1 = _1_inlined4 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 15352 "parsing/parser.ml" +# 15358 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _5 = let _1 = _1_inlined3 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 15361 "parsing/parser.ml" +# 15367 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 3648 "parsing/parser.mly" +# 3655 "parsing/parser.mly" ( _1 ) -# 15370 "parsing/parser.ml" +# 15376 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 15378 "parsing/parser.ml" +# 15384 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15386 "parsing/parser.ml" +# 15392 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -15394,7 +15400,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 3523 "parsing/parser.mly" +# 3530 "parsing/parser.mly" ( let info = match rhs_info _endpos__5_ with | Some _ as info_before_semi -> info_before_semi @@ -15404,7 +15410,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_) ) -# 15408 "parsing/parser.ml" +# 15414 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15427,9 +15433,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 3508 "parsing/parser.mly" +# 3515 "parsing/parser.mly" ( [_1] ) -# 15433 "parsing/parser.ml" +# 15439 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15452,9 +15458,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 3509 "parsing/parser.mly" +# 3516 "parsing/parser.mly" ( [_1] ) -# 15458 "parsing/parser.ml" +# 15464 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15484,9 +15490,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.label_declaration list) = -# 3510 "parsing/parser.mly" +# 3517 "parsing/parser.mly" ( _1 :: _2 ) -# 15490 "parsing/parser.ml" +# 15496 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15505,9 +15511,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 15511 "parsing/parser.ml" +# 15517 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15518,24 +15524,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15524 "parsing/parser.ml" +# 15530 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2426 "parsing/parser.mly" +# 2432 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 15533 "parsing/parser.ml" +# 15539 "parsing/parser.ml" in -# 2413 "parsing/parser.mly" +# 2419 "parsing/parser.mly" ( x ) -# 15539 "parsing/parser.ml" +# 15545 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15568,9 +15574,9 @@ module Tables = struct let cty : (Parsetree.core_type) = Obj.magic cty in let _2 : unit = Obj.magic _2 in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 15574 "parsing/parser.ml" +# 15580 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15581,18 +15587,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15587 "parsing/parser.ml" +# 15593 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2426 "parsing/parser.mly" +# 2432 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 15596 "parsing/parser.ml" +# 15602 "parsing/parser.ml" in let _startpos_x_ = _startpos__1_ in @@ -15600,11 +15606,11 @@ module Tables = struct let _symbolstartpos = _startpos_x_ in let _sloc = (_symbolstartpos, _endpos) in -# 2415 "parsing/parser.mly" +# 2421 "parsing/parser.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) -# 15608 "parsing/parser.ml" +# 15614 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15651,9 +15657,9 @@ module Tables = struct let xs : (Asttypes.label Asttypes.loc list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 15657 "parsing/parser.ml" +# 15663 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15665,24 +15671,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 15669 "parsing/parser.ml" +# 15675 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 15674 "parsing/parser.ml" +# 15680 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 15680 "parsing/parser.ml" +# 15686 "parsing/parser.ml" in -# 2419 "parsing/parser.mly" +# 2425 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 15686 "parsing/parser.ml" +# 15692 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -15690,9 +15696,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 15696 "parsing/parser.ml" +# 15702 "parsing/parser.ml" in let _endpos_cty_ = _endpos_ty_ in @@ -15702,18 +15708,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15708 "parsing/parser.ml" +# 15714 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2426 "parsing/parser.mly" +# 2432 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 15717 "parsing/parser.ml" +# 15723 "parsing/parser.ml" in let _startpos_x_ = _startpos__1_ in @@ -15721,11 +15727,11 @@ module Tables = struct let _symbolstartpos = _startpos_x_ in let _sloc = (_symbolstartpos, _endpos) in -# 2420 "parsing/parser.mly" +# 2426 "parsing/parser.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) -# 15729 "parsing/parser.ml" +# 15735 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15748,9 +15754,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4012 "parsing/parser.mly" +# 4019 "parsing/parser.mly" ( _1 ) -# 15754 "parsing/parser.ml" +# 15760 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15773,9 +15779,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression) = -# 2776 "parsing/parser.mly" +# 2782 "parsing/parser.mly" ( (Nolabel, _1) ) -# 15779 "parsing/parser.ml" +# 15785 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15801,17 +15807,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 846 "parsing/parser.mly" +# 852 "parsing/parser.mly" (string) -# 15807 "parsing/parser.ml" +# 15813 "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) = -# 2778 "parsing/parser.mly" +# 2784 "parsing/parser.mly" ( (Labelled _1, _2) ) -# 15815 "parsing/parser.ml" +# 15821 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15836,9 +15842,9 @@ module Tables = struct }; } = _menhir_stack in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 15842 "parsing/parser.ml" +# 15848 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -15846,10 +15852,10 @@ module Tables = struct let _endpos = _endpos_label_ in let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2780 "parsing/parser.mly" +# 2786 "parsing/parser.mly" ( let loc = _loc_label_ in (Labelled label, mkexpvar ~loc label) ) -# 15853 "parsing/parser.ml" +# 15859 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15894,9 +15900,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 15900 "parsing/parser.ml" +# 15906 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in @@ -15906,10 +15912,10 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression) = let _endpos = _endpos__5_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2783 "parsing/parser.mly" +# 2789 "parsing/parser.mly" ( (Labelled label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty) ) -# 15913 "parsing/parser.ml" +# 15919 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15934,9 +15940,9 @@ module Tables = struct }; } = _menhir_stack in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 15940 "parsing/parser.ml" +# 15946 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -15944,10 +15950,10 @@ module Tables = struct let _endpos = _endpos_label_ in let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2786 "parsing/parser.mly" +# 2792 "parsing/parser.mly" ( let loc = _loc_label_ in (Optional label, mkexpvar ~loc label) ) -# 15951 "parsing/parser.ml" +# 15957 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15973,17 +15979,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 879 "parsing/parser.mly" +# 885 "parsing/parser.mly" (string) -# 15979 "parsing/parser.ml" +# 15985 "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) = -# 2789 "parsing/parser.mly" +# 2795 "parsing/parser.mly" ( (Optional _1, _2) ) -# 15987 "parsing/parser.ml" +# 15993 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16036,22 +16042,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined1 in -# 2409 "parsing/parser.mly" +# 2415 "parsing/parser.mly" ( _1 ) -# 16042 "parsing/parser.ml" +# 16048 "parsing/parser.ml" in let _3 = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 16048 "parsing/parser.ml" +# 16054 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2372 "parsing/parser.mly" +# 2378 "parsing/parser.mly" ( (Optional (fst _4), _5, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16055 "parsing/parser.ml" +# 16061 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16111,22 +16117,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined2 in -# 2409 "parsing/parser.mly" +# 2415 "parsing/parser.mly" ( _1 ) -# 16117 "parsing/parser.ml" +# 16123 "parsing/parser.ml" in let _3 = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 16123 "parsing/parser.ml" +# 16129 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2372 "parsing/parser.mly" +# 2378 "parsing/parser.mly" ( (Optional (fst _4), _5, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16130 "parsing/parser.ml" +# 16136 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16151,9 +16157,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 16157 "parsing/parser.ml" +# 16163 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -16166,24 +16172,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 16172 "parsing/parser.ml" +# 16178 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2426 "parsing/parser.mly" +# 2432 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16181 "parsing/parser.ml" +# 16187 "parsing/parser.ml" in -# 2374 "parsing/parser.mly" +# 2380 "parsing/parser.mly" ( (Optional (fst _2), None, snd _2) ) -# 16187 "parsing/parser.ml" +# 16193 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16230,9 +16236,9 @@ module Tables = struct let _4 : (Parsetree.pattern) = Obj.magic _4 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 879 "parsing/parser.mly" +# 885 "parsing/parser.mly" (string) -# 16236 "parsing/parser.ml" +# 16242 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16240,22 +16246,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined1 in -# 2409 "parsing/parser.mly" +# 2415 "parsing/parser.mly" ( _1 ) -# 16246 "parsing/parser.ml" +# 16252 "parsing/parser.ml" in let _3 = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 16252 "parsing/parser.ml" +# 16258 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2376 "parsing/parser.mly" +# 2382 "parsing/parser.mly" ( (Optional _1, _5, mkpat_local_if _3 _4 _loc__3_) ) -# 16259 "parsing/parser.ml" +# 16265 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16309,9 +16315,9 @@ module Tables = struct let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 879 "parsing/parser.mly" +# 885 "parsing/parser.mly" (string) -# 16315 "parsing/parser.ml" +# 16321 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16319,22 +16325,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined2 in -# 2409 "parsing/parser.mly" +# 2415 "parsing/parser.mly" ( _1 ) -# 16325 "parsing/parser.ml" +# 16331 "parsing/parser.ml" in let _3 = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 16331 "parsing/parser.ml" +# 16337 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2376 "parsing/parser.mly" +# 2382 "parsing/parser.mly" ( (Optional _1, _5, mkpat_local_if _3 _4 _loc__3_) ) -# 16338 "parsing/parser.ml" +# 16344 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16360,17 +16366,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( -# 879 "parsing/parser.mly" +# 885 "parsing/parser.mly" (string) -# 16366 "parsing/parser.ml" +# 16372 "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) = -# 2378 "parsing/parser.mly" +# 2384 "parsing/parser.mly" ( (Optional _1, None, _2) ) -# 16374 "parsing/parser.ml" +# 16380 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16414,17 +16420,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 = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 16420 "parsing/parser.ml" +# 16426 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2380 "parsing/parser.mly" +# 2386 "parsing/parser.mly" ( (Labelled (fst _4), None, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16428 "parsing/parser.ml" +# 16434 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16475,17 +16481,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 = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 16481 "parsing/parser.ml" +# 16487 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2380 "parsing/parser.mly" +# 2386 "parsing/parser.mly" ( (Labelled (fst _4), None, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16489 "parsing/parser.ml" +# 16495 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16510,9 +16516,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 16516 "parsing/parser.ml" +# 16522 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -16525,24 +16531,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 16531 "parsing/parser.ml" +# 16537 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2426 "parsing/parser.mly" +# 2432 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16540 "parsing/parser.ml" +# 16546 "parsing/parser.ml" in -# 2383 "parsing/parser.mly" +# 2389 "parsing/parser.mly" ( (Labelled (fst _2), None, snd _2) ) -# 16546 "parsing/parser.ml" +# 16552 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16568,17 +16574,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( -# 846 "parsing/parser.mly" +# 852 "parsing/parser.mly" (string) -# 16574 "parsing/parser.ml" +# 16580 "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) = -# 2385 "parsing/parser.mly" +# 2391 "parsing/parser.mly" ( (Labelled _1, None, _2) ) -# 16582 "parsing/parser.ml" +# 16588 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16625,18 +16631,18 @@ module Tables = struct let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 846 "parsing/parser.mly" +# 852 "parsing/parser.mly" (string) -# 16631 "parsing/parser.ml" +# 16637 "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 -# 2387 "parsing/parser.mly" +# 2393 "parsing/parser.mly" ( (Labelled _1, None, mkpat_stack _4 (make_loc _loc__3_)) ) -# 16640 "parsing/parser.ml" +# 16646 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16659,9 +16665,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = -# 2389 "parsing/parser.mly" +# 2395 "parsing/parser.mly" ( (Nolabel, None, _1) ) -# 16665 "parsing/parser.ml" +# 16671 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16706,9 +16712,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 -# 2391 "parsing/parser.mly" +# 2397 "parsing/parser.mly" ( (Nolabel, None, mkpat_stack _3 (make_loc _loc__2_)) ) -# 16712 "parsing/parser.ml" +# 16718 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16776,9 +16782,9 @@ module Tables = struct let pat : (Parsetree.pattern) = Obj.magic pat in let _2 : unit = Obj.magic _2 in let _1 : ( -# 846 "parsing/parser.mly" +# 852 "parsing/parser.mly" (string) -# 16782 "parsing/parser.ml" +# 16788 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16793,24 +16799,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 16797 "parsing/parser.ml" +# 16803 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 16802 "parsing/parser.ml" +# 16808 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 16808 "parsing/parser.ml" +# 16814 "parsing/parser.ml" in -# 2442 "parsing/parser.mly" +# 2448 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 16814 "parsing/parser.ml" +# 16820 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -16818,15 +16824,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 16824 "parsing/parser.ml" +# 16830 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2449 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 16830 "parsing/parser.ml" +# 16836 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -16834,21 +16840,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 16840 "parsing/parser.ml" +# 16846 "parsing/parser.ml" in -# 2444 "parsing/parser.mly" +# 2450 "parsing/parser.mly" ( _1 ) -# 16846 "parsing/parser.ml" +# 16852 "parsing/parser.ml" in -# 2393 "parsing/parser.mly" +# 2399 "parsing/parser.mly" ( (Labelled _1, None, _3) ) -# 16852 "parsing/parser.ml" +# 16858 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16923,9 +16929,9 @@ module Tables = struct let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 846 "parsing/parser.mly" +# 852 "parsing/parser.mly" (string) -# 16929 "parsing/parser.ml" +# 16935 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16940,24 +16946,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 16944 "parsing/parser.ml" +# 16950 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 16949 "parsing/parser.ml" +# 16955 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 16955 "parsing/parser.ml" +# 16961 "parsing/parser.ml" in -# 2442 "parsing/parser.mly" +# 2448 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 16961 "parsing/parser.ml" +# 16967 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -16965,15 +16971,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 16971 "parsing/parser.ml" +# 16977 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2449 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 16977 "parsing/parser.ml" +# 16983 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -16981,22 +16987,22 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 16987 "parsing/parser.ml" +# 16993 "parsing/parser.ml" in -# 2444 "parsing/parser.mly" +# 2450 "parsing/parser.mly" ( _1 ) -# 16993 "parsing/parser.ml" +# 16999 "parsing/parser.ml" in let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 2395 "parsing/parser.mly" +# 2401 "parsing/parser.mly" ( (Labelled _1, None, mkpat_stack _4 (make_loc _loc__2_)) ) -# 17000 "parsing/parser.ml" +# 17006 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17070,24 +17076,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17074 "parsing/parser.ml" +# 17080 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 17079 "parsing/parser.ml" +# 17085 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 17085 "parsing/parser.ml" +# 17091 "parsing/parser.ml" in -# 2442 "parsing/parser.mly" +# 2448 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 17091 "parsing/parser.ml" +# 17097 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -17095,15 +17101,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 17101 "parsing/parser.ml" +# 17107 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2449 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 17107 "parsing/parser.ml" +# 17113 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -17111,21 +17117,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 17117 "parsing/parser.ml" +# 17123 "parsing/parser.ml" in -# 2444 "parsing/parser.mly" +# 2450 "parsing/parser.mly" ( _1 ) -# 17123 "parsing/parser.ml" +# 17129 "parsing/parser.ml" in -# 2397 "parsing/parser.mly" +# 2403 "parsing/parser.mly" ( (Nolabel, None, _2) ) -# 17129 "parsing/parser.ml" +# 17135 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17149,9 +17155,9 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.attribute) = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3368 "parsing/parser.mly" +# 3375 "parsing/parser.mly" ( check_layout _loc__1_ _1 ) -# 17155 "parsing/parser.ml" +# 17161 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17174,9 +17180,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern * Parsetree.expression * bool) = -# 2848 "parsing/parser.mly" +# 2854 "parsing/parser.mly" ( let p,e = _1 in (p,e,false) ) -# 17180 "parsing/parser.ml" +# 17186 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17202,9 +17208,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 2851 "parsing/parser.mly" +# 2857 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1, true) ) -# 17208 "parsing/parser.ml" +# 17214 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17238,15 +17244,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2796 "parsing/parser.mly" +# 2802 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17244 "parsing/parser.ml" +# 17250 "parsing/parser.ml" in -# 2800 "parsing/parser.mly" +# 2806 "parsing/parser.mly" ( (_1, _2) ) -# 17250 "parsing/parser.ml" +# 17256 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17294,16 +17300,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2796 "parsing/parser.mly" +# 2802 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17300 "parsing/parser.ml" +# 17306 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let _1 = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 17307 "parsing/parser.ml" +# 17313 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__5_ in @@ -17314,7 +17320,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2802 "parsing/parser.mly" +# 2808 "parsing/parser.mly" ( let v = _2 in (* PR#7344 *) let t = match _3 with @@ -17336,7 +17342,7 @@ module Tables = struct local_loc) in (pat, exp) ) -# 17340 "parsing/parser.ml" +# 17346 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17392,16 +17398,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2796 "parsing/parser.mly" +# 2802 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17398 "parsing/parser.ml" +# 17404 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 17405 "parsing/parser.ml" +# 17411 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -17411,7 +17417,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2802 "parsing/parser.mly" +# 2808 "parsing/parser.mly" ( let v = _2 in (* PR#7344 *) let t = match _3 with @@ -17433,7 +17439,7 @@ module Tables = struct local_loc) in (pat, exp) ) -# 17437 "parsing/parser.ml" +# 17443 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17504,24 +17510,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17508 "parsing/parser.ml" +# 17514 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 17513 "parsing/parser.ml" +# 17519 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 17519 "parsing/parser.ml" +# 17525 "parsing/parser.ml" in -# 3634 "parsing/parser.mly" +# 3641 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 17525 "parsing/parser.ml" +# 17531 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -17530,16 +17536,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2796 "parsing/parser.mly" +# 2802 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17536 "parsing/parser.ml" +# 17542 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let _1 = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 17543 "parsing/parser.ml" +# 17549 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__6_ in @@ -17551,7 +17557,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2824 "parsing/parser.mly" +# 2830 "parsing/parser.mly" ( let patloc = (_startpos__2_, _endpos__4_) in let pat = mkpat_local_if _1 @@ -17561,7 +17567,7 @@ module Tables = struct in let exp = mkexp_local_if _1 ~loc:_sloc ~kwd_loc:(_loc__1_) _6 in (pat, exp) ) -# 17565 "parsing/parser.ml" +# 17571 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17639,24 +17645,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17643 "parsing/parser.ml" +# 17649 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 17648 "parsing/parser.ml" +# 17654 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 17654 "parsing/parser.ml" +# 17660 "parsing/parser.ml" in -# 3634 "parsing/parser.mly" +# 3641 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 17660 "parsing/parser.ml" +# 17666 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -17666,16 +17672,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2796 "parsing/parser.mly" +# 2802 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17672 "parsing/parser.ml" +# 17678 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 17679 "parsing/parser.ml" +# 17685 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -17686,7 +17692,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2824 "parsing/parser.mly" +# 2830 "parsing/parser.mly" ( let patloc = (_startpos__2_, _endpos__4_) in let pat = mkpat_local_if _1 @@ -17696,7 +17702,7 @@ module Tables = struct in let exp = mkexp_local_if _1 ~loc:_sloc ~kwd_loc:(_loc__1_) _6 in (pat, exp) ) -# 17700 "parsing/parser.ml" +# 17706 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17768,30 +17774,30 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in let _v : (Parsetree.pattern * Parsetree.expression) = let _4 = -# 2793 "parsing/parser.mly" +# 2799 "parsing/parser.mly" ( xs ) -# 17774 "parsing/parser.ml" +# 17780 "parsing/parser.ml" in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2796 "parsing/parser.mly" +# 2802 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17783 "parsing/parser.ml" +# 17789 "parsing/parser.ml" in let _endpos = _endpos__8_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2834 "parsing/parser.mly" +# 2840 "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) ) -# 17795 "parsing/parser.ml" +# 17801 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17828,9 +17834,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2839 "parsing/parser.mly" +# 2845 "parsing/parser.mly" ( (_1, _3) ) -# 17834 "parsing/parser.ml" +# 17840 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17881,10 +17887,10 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2841 "parsing/parser.mly" +# 2847 "parsing/parser.mly" ( let loc = (_startpos__1_, _endpos__3_) in (ghpat ~loc (Ppat_constraint(_1, _3)), _5) ) -# 17888 "parsing/parser.ml" +# 17894 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17926,9 +17932,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2796 "parsing/parser.mly" +# 2802 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17932 "parsing/parser.ml" +# 17938 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -17936,9 +17942,9 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2844 "parsing/parser.mly" +# 2850 "parsing/parser.mly" ( (_2, mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__1_) _3) ) -# 17942 "parsing/parser.ml" +# 17948 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17999,36 +18005,36 @@ module Tables = struct let attrs2 = let _1 = _1_inlined2 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 18005 "parsing/parser.ml" +# 18011 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 18014 "parsing/parser.ml" +# 18020 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2871 "parsing/parser.mly" +# 2877 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18026 "parsing/parser.ml" +# 18032 "parsing/parser.ml" in -# 2861 "parsing/parser.mly" +# 2867 "parsing/parser.mly" ( _1 ) -# 18032 "parsing/parser.ml" +# 18038 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18058,9 +18064,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = -# 2862 "parsing/parser.mly" +# 2868 "parsing/parser.mly" ( addlb _1 _2 ) -# 18064 "parsing/parser.ml" +# 18070 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18114,41 +18120,41 @@ module Tables = struct let attrs2 = let _1 = _1_inlined2 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 18120 "parsing/parser.ml" +# 18126 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 18129 "parsing/parser.ml" +# 18135 "parsing/parser.ml" in let ext = -# 4270 "parsing/parser.mly" +# 4277 "parsing/parser.mly" ( None ) -# 18135 "parsing/parser.ml" +# 18141 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2871 "parsing/parser.mly" +# 2877 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18146 "parsing/parser.ml" +# 18152 "parsing/parser.ml" in -# 2861 "parsing/parser.mly" +# 2867 "parsing/parser.mly" ( _1 ) -# 18152 "parsing/parser.ml" +# 18158 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18216,18 +18222,18 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 18222 "parsing/parser.ml" +# 18228 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 18231 "parsing/parser.ml" +# 18237 "parsing/parser.ml" in let ext = @@ -18236,27 +18242,27 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4272 "parsing/parser.mly" +# 4279 "parsing/parser.mly" ( not_expecting _loc "extension" ) -# 18242 "parsing/parser.ml" +# 18248 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2871 "parsing/parser.mly" +# 2877 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18254 "parsing/parser.ml" +# 18260 "parsing/parser.ml" in -# 2861 "parsing/parser.mly" +# 2867 "parsing/parser.mly" ( _1 ) -# 18260 "parsing/parser.ml" +# 18266 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18286,9 +18292,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = -# 2862 "parsing/parser.mly" +# 2868 "parsing/parser.mly" ( addlb _1 _2 ) -# 18292 "parsing/parser.ml" +# 18298 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18311,9 +18317,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 2430 "parsing/parser.mly" +# 2436 "parsing/parser.mly" ( _1 ) -# 18317 "parsing/parser.ml" +# 18323 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18351,24 +18357,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2432 "parsing/parser.mly" +# 2438 "parsing/parser.mly" ( Ppat_constraint(_1, _3) ) -# 18357 "parsing/parser.ml" +# 18363 "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 -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 18366 "parsing/parser.ml" +# 18372 "parsing/parser.ml" in -# 2433 "parsing/parser.mly" +# 2439 "parsing/parser.mly" ( _1 ) -# 18372 "parsing/parser.ml" +# 18378 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18428,24 +18434,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 18432 "parsing/parser.ml" +# 18438 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 18437 "parsing/parser.ml" +# 18443 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 18443 "parsing/parser.ml" +# 18449 "parsing/parser.ml" in -# 2442 "parsing/parser.mly" +# 2448 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 18449 "parsing/parser.ml" +# 18455 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -18453,15 +18459,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 18459 "parsing/parser.ml" +# 18465 "parsing/parser.ml" in -# 2443 "parsing/parser.mly" +# 2449 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 18465 "parsing/parser.ml" +# 18471 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -18469,21 +18475,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 18475 "parsing/parser.ml" +# 18481 "parsing/parser.ml" in -# 2444 "parsing/parser.mly" +# 2450 "parsing/parser.mly" ( _1 ) -# 18481 "parsing/parser.ml" +# 18487 "parsing/parser.ml" in -# 2435 "parsing/parser.mly" +# 2441 "parsing/parser.mly" ( _1 ) -# 18487 "parsing/parser.ml" +# 18493 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18517,15 +18523,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2796 "parsing/parser.mly" +# 2802 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 18523 "parsing/parser.ml" +# 18529 "parsing/parser.ml" in -# 2888 "parsing/parser.mly" +# 2894 "parsing/parser.mly" ( (pat, exp) ) -# 18529 "parsing/parser.ml" +# 18535 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18551,9 +18557,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 2891 "parsing/parser.mly" +# 2897 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1) ) -# 18557 "parsing/parser.ml" +# 18563 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18604,10 +18610,10 @@ module Tables = struct let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2893 "parsing/parser.mly" +# 2899 "parsing/parser.mly" ( let loc = (_startpos_pat_, _endpos_typ_) in (ghpat ~loc (Ppat_constraint(pat, typ)), exp) ) -# 18611 "parsing/parser.ml" +# 18617 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18644,9 +18650,9 @@ module Tables = struct let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2896 "parsing/parser.mly" +# 2902 "parsing/parser.mly" ( (pat, exp) ) -# 18650 "parsing/parser.ml" +# 18656 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18669,10 +18675,10 @@ module Tables = struct let _startpos = _startpos_body_ in let _endpos = _endpos_body_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = -# 2900 "parsing/parser.mly" +# 2906 "parsing/parser.mly" ( let let_pat, let_exp = body in let_pat, let_exp, [] ) -# 18676 "parsing/parser.ml" +# 18682 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18704,9 +18710,9 @@ module Tables = struct } = _menhir_stack in let body : (Parsetree.pattern * Parsetree.expression) = Obj.magic body in let _1 : ( -# 842 "parsing/parser.mly" +# 848 "parsing/parser.mly" (string) -# 18710 "parsing/parser.ml" +# 18716 "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 @@ -18717,22 +18723,22 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 18723 "parsing/parser.ml" +# 18729 "parsing/parser.ml" in let _endpos = _endpos_body_ in let _symbolstartpos = _startpos_bindings_ in let _sloc = (_symbolstartpos, _endpos) in -# 2903 "parsing/parser.mly" +# 2909 "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 ) -# 18736 "parsing/parser.ml" +# 18742 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18750,7 +18756,7 @@ module Tables = struct let _v : (Parsetree.class_declaration list) = # 211 "" ( [] ) -# 18754 "parsing/parser.ml" +# 18760 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18814,9 +18820,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 18820 "parsing/parser.ml" +# 18826 "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 @@ -18829,9 +18835,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 18835 "parsing/parser.ml" +# 18841 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -18841,24 +18847,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 18847 "parsing/parser.ml" +# 18853 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 18855 "parsing/parser.ml" +# 18861 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2018 "parsing/parser.mly" +# 2024 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -18866,13 +18872,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id body ~virt ~params ~attrs ~loc ~text ~docs ) -# 18870 "parsing/parser.ml" +# 18876 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 18876 "parsing/parser.ml" +# 18882 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18890,7 +18896,7 @@ module Tables = struct let _v : (Parsetree.class_description list) = # 211 "" ( [] ) -# 18894 "parsing/parser.ml" +# 18900 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18961,9 +18967,9 @@ module Tables = struct let cty : (Parsetree.class_type) = Obj.magic cty in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 18967 "parsing/parser.ml" +# 18973 "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 @@ -18976,9 +18982,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 18982 "parsing/parser.ml" +# 18988 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -18988,24 +18994,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 18994 "parsing/parser.ml" +# 19000 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 19002 "parsing/parser.ml" +# 19008 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2309 "parsing/parser.mly" +# 2315 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -19013,13 +19019,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id cty ~virt ~params ~attrs ~loc ~text ~docs ) -# 19017 "parsing/parser.ml" +# 19023 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19023 "parsing/parser.ml" +# 19029 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19037,7 +19043,7 @@ module Tables = struct let _v : (Parsetree.class_type_declaration list) = # 211 "" ( [] ) -# 19041 "parsing/parser.ml" +# 19047 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19108,9 +19114,9 @@ module Tables = struct let csig : (Parsetree.class_type) = Obj.magic csig in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 19114 "parsing/parser.ml" +# 19120 "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 @@ -19123,9 +19129,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 19129 "parsing/parser.ml" +# 19135 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19135,24 +19141,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19141 "parsing/parser.ml" +# 19147 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 19149 "parsing/parser.ml" +# 19155 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2348 "parsing/parser.mly" +# 2354 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -19160,13 +19166,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id csig ~virt ~params ~attrs ~loc ~text ~docs ) -# 19164 "parsing/parser.ml" +# 19170 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19170 "parsing/parser.ml" +# 19176 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19184,7 +19190,7 @@ module Tables = struct let _v : (Parsetree.module_binding list) = # 211 "" ( [] ) -# 19188 "parsing/parser.ml" +# 19194 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19245,9 +19251,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 19251 "parsing/parser.ml" +# 19257 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19257,24 +19263,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19263 "parsing/parser.ml" +# 19269 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 19271 "parsing/parser.ml" +# 19277 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1665 "parsing/parser.mly" +# 1671 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in @@ -19282,13 +19288,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Mb.mk name body ~attrs ~loc ~text ~docs ) -# 19286 "parsing/parser.ml" +# 19292 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19292 "parsing/parser.ml" +# 19298 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19306,7 +19312,7 @@ module Tables = struct let _v : (Parsetree.module_declaration list) = # 211 "" ( [] ) -# 19310 "parsing/parser.ml" +# 19316 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19374,9 +19380,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 19380 "parsing/parser.ml" +# 19386 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19386,24 +19392,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19392 "parsing/parser.ml" +# 19398 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 19400 "parsing/parser.ml" +# 19406 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1959 "parsing/parser.mly" +# 1965 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let docs = symbol_docs _sloc in @@ -19411,13 +19417,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Md.mk name mty ~attrs ~loc ~text ~docs ) -# 19415 "parsing/parser.ml" +# 19421 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19421 "parsing/parser.ml" +# 19427 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19435,7 +19441,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 211 "" ( [] ) -# 19439 "parsing/parser.ml" +# 19445 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19467,7 +19473,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 213 "" ( x :: xs ) -# 19471 "parsing/parser.ml" +# 19477 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19485,7 +19491,7 @@ module Tables = struct let _v : (Parsetree.type_declaration list) = # 211 "" ( [] ) -# 19489 "parsing/parser.ml" +# 19495 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19550,9 +19556,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 19556 "parsing/parser.ml" +# 19562 "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 @@ -19565,9 +19571,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 19571 "parsing/parser.ml" +# 19577 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19576,18 +19582,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 19580 "parsing/parser.ml" +# 19586 "parsing/parser.ml" in -# 1130 "parsing/parser.mly" +# 1136 "parsing/parser.mly" ( xs ) -# 19585 "parsing/parser.ml" +# 19591 "parsing/parser.ml" in -# 3319 "parsing/parser.mly" +# 3326 "parsing/parser.mly" ( _1 ) -# 19591 "parsing/parser.ml" +# 19597 "parsing/parser.ml" in let id = @@ -19596,24 +19602,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19602 "parsing/parser.ml" +# 19608 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 19610 "parsing/parser.ml" +# 19616 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3308 "parsing/parser.mly" +# 3315 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -19622,13 +19628,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 19626 "parsing/parser.ml" +# 19632 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19632 "parsing/parser.ml" +# 19638 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19646,7 +19652,7 @@ module Tables = struct let _v : (Parsetree.type_declaration list) = # 211 "" ( [] ) -# 19650 "parsing/parser.ml" +# 19656 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19718,9 +19724,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 19724 "parsing/parser.ml" +# 19730 "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 @@ -19733,9 +19739,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 19739 "parsing/parser.ml" +# 19745 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -19744,24 +19750,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 19748 "parsing/parser.ml" +# 19754 "parsing/parser.ml" in -# 1130 "parsing/parser.mly" +# 1136 "parsing/parser.mly" ( xs ) -# 19753 "parsing/parser.ml" +# 19759 "parsing/parser.ml" in -# 3319 "parsing/parser.mly" +# 3326 "parsing/parser.mly" ( _1 ) -# 19759 "parsing/parser.ml" +# 19765 "parsing/parser.ml" in let kind_priv_manifest = -# 3354 "parsing/parser.mly" +# 3361 "parsing/parser.mly" ( _2 ) -# 19765 "parsing/parser.ml" +# 19771 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -19769,24 +19775,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19775 "parsing/parser.ml" +# 19781 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 19783 "parsing/parser.ml" +# 19789 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3308 "parsing/parser.mly" +# 3315 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -19795,13 +19801,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 19799 "parsing/parser.ml" +# 19805 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19805 "parsing/parser.ml" +# 19811 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19819,7 +19825,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 211 "" ( [] ) -# 19823 "parsing/parser.ml" +# 19829 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19851,7 +19857,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 213 "" ( x :: xs ) -# 19855 "parsing/parser.ml" +# 19861 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19869,7 +19875,7 @@ module Tables = struct let _v : (Parsetree.signature_item list list) = # 211 "" ( [] ) -# 19873 "parsing/parser.ml" +# 19879 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19902,21 +19908,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1056 "parsing/parser.mly" +# 1062 "parsing/parser.mly" ( text_sig _startpos ) -# 19908 "parsing/parser.ml" +# 19914 "parsing/parser.ml" in -# 1815 "parsing/parser.mly" +# 1821 "parsing/parser.mly" ( _1 ) -# 19914 "parsing/parser.ml" +# 19920 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19920 "parsing/parser.ml" +# 19926 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19949,21 +19955,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1054 "parsing/parser.mly" +# 1060 "parsing/parser.mly" ( text_sig _startpos @ [_1] ) -# 19955 "parsing/parser.ml" +# 19961 "parsing/parser.ml" in -# 1815 "parsing/parser.mly" +# 1821 "parsing/parser.mly" ( _1 ) -# 19961 "parsing/parser.ml" +# 19967 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19967 "parsing/parser.ml" +# 19973 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19981,7 +19987,7 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = # 211 "" ( [] ) -# 19985 "parsing/parser.ml" +# 19991 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20014,40 +20020,40 @@ module Tables = struct let _1 = let ys = let items = -# 1116 "parsing/parser.mly" +# 1122 "parsing/parser.mly" ( [] ) -# 20020 "parsing/parser.ml" +# 20026 "parsing/parser.ml" in -# 1545 "parsing/parser.mly" +# 1551 "parsing/parser.mly" ( items ) -# 20025 "parsing/parser.ml" +# 20031 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in -# 1052 "parsing/parser.mly" +# 1058 "parsing/parser.mly" ( text_str _startpos ) -# 20033 "parsing/parser.ml" +# 20039 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 20039 "parsing/parser.ml" +# 20045 "parsing/parser.ml" in -# 1561 "parsing/parser.mly" +# 1567 "parsing/parser.mly" ( _1 ) -# 20045 "parsing/parser.ml" +# 20051 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20051 "parsing/parser.ml" +# 20057 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20099,70 +20105,70 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 20105 "parsing/parser.ml" +# 20111 "parsing/parser.ml" in -# 1552 "parsing/parser.mly" +# 1558 "parsing/parser.mly" ( mkstrexp e attrs ) -# 20110 "parsing/parser.ml" +# 20116 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1050 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20118 "parsing/parser.ml" +# 20124 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1069 "parsing/parser.mly" +# 1075 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 20128 "parsing/parser.ml" +# 20134 "parsing/parser.ml" in -# 1118 "parsing/parser.mly" +# 1124 "parsing/parser.mly" ( x ) -# 20134 "parsing/parser.ml" +# 20140 "parsing/parser.ml" in -# 1545 "parsing/parser.mly" +# 1551 "parsing/parser.mly" ( items ) -# 20140 "parsing/parser.ml" +# 20146 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in -# 1052 "parsing/parser.mly" +# 1058 "parsing/parser.mly" ( text_str _startpos ) -# 20148 "parsing/parser.ml" +# 20154 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 20154 "parsing/parser.ml" +# 20160 "parsing/parser.ml" in -# 1561 "parsing/parser.mly" +# 1567 "parsing/parser.mly" ( _1 ) -# 20160 "parsing/parser.ml" +# 20166 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20166 "parsing/parser.ml" +# 20172 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20195,21 +20201,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1050 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20201 "parsing/parser.ml" +# 20207 "parsing/parser.ml" in -# 1561 "parsing/parser.mly" +# 1567 "parsing/parser.mly" ( _1 ) -# 20207 "parsing/parser.ml" +# 20213 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20213 "parsing/parser.ml" +# 20219 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20227,7 +20233,7 @@ module Tables = struct let _v : (Parsetree.class_type_field list list) = # 211 "" ( [] ) -# 20231 "parsing/parser.ml" +# 20237 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20259,15 +20265,15 @@ module Tables = struct let _v : (Parsetree.class_type_field list list) = let x = let _startpos = _startpos__1_ in -# 1064 "parsing/parser.mly" +# 1070 "parsing/parser.mly" ( text_csig _startpos @ [_1] ) -# 20265 "parsing/parser.ml" +# 20271 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20271 "parsing/parser.ml" +# 20277 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20285,7 +20291,7 @@ module Tables = struct let _v : (Parsetree.class_field list list) = # 211 "" ( [] ) -# 20289 "parsing/parser.ml" +# 20295 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20317,15 +20323,15 @@ module Tables = struct let _v : (Parsetree.class_field list list) = let x = let _startpos = _startpos__1_ in -# 1062 "parsing/parser.mly" +# 1068 "parsing/parser.mly" ( text_cstr _startpos @ [_1] ) -# 20323 "parsing/parser.ml" +# 20329 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20329 "parsing/parser.ml" +# 20335 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20343,7 +20349,7 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = # 211 "" ( [] ) -# 20347 "parsing/parser.ml" +# 20353 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20375,15 +20381,15 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = let x = let _startpos = _startpos__1_ in -# 1050 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20381 "parsing/parser.ml" +# 20387 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20387 "parsing/parser.ml" +# 20393 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20401,7 +20407,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase list list) = # 211 "" ( [] ) -# 20405 "parsing/parser.ml" +# 20411 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20434,32 +20440,32 @@ module Tables = struct let _1 = let x = let _1 = -# 1116 "parsing/parser.mly" +# 1122 "parsing/parser.mly" ( [] ) -# 20440 "parsing/parser.ml" +# 20446 "parsing/parser.ml" in -# 1348 "parsing/parser.mly" +# 1354 "parsing/parser.mly" ( _1 ) -# 20445 "parsing/parser.ml" +# 20451 "parsing/parser.ml" in # 183 "" ( x ) -# 20451 "parsing/parser.ml" +# 20457 "parsing/parser.ml" in -# 1360 "parsing/parser.mly" +# 1366 "parsing/parser.mly" ( _1 ) -# 20457 "parsing/parser.ml" +# 20463 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20463 "parsing/parser.ml" +# 20469 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20511,58 +20517,58 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 20517 "parsing/parser.ml" +# 20523 "parsing/parser.ml" in -# 1552 "parsing/parser.mly" +# 1558 "parsing/parser.mly" ( mkstrexp e attrs ) -# 20522 "parsing/parser.ml" +# 20528 "parsing/parser.ml" in -# 1060 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( Ptop_def [_1] ) -# 20528 "parsing/parser.ml" +# 20534 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1058 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 20536 "parsing/parser.ml" +# 20542 "parsing/parser.ml" in -# 1118 "parsing/parser.mly" +# 1124 "parsing/parser.mly" ( x ) -# 20542 "parsing/parser.ml" +# 20548 "parsing/parser.ml" in -# 1348 "parsing/parser.mly" +# 1354 "parsing/parser.mly" ( _1 ) -# 20548 "parsing/parser.ml" +# 20554 "parsing/parser.ml" in # 183 "" ( x ) -# 20554 "parsing/parser.ml" +# 20560 "parsing/parser.ml" in -# 1360 "parsing/parser.mly" +# 1366 "parsing/parser.mly" ( _1 ) -# 20560 "parsing/parser.ml" +# 20566 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20566 "parsing/parser.ml" +# 20572 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20594,27 +20600,27 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase list list) = let x = let _1 = let _1 = -# 1060 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( Ptop_def [_1] ) -# 20600 "parsing/parser.ml" +# 20606 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1058 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 20606 "parsing/parser.ml" +# 20612 "parsing/parser.ml" in -# 1360 "parsing/parser.mly" +# 1366 "parsing/parser.mly" ( _1 ) -# 20612 "parsing/parser.ml" +# 20618 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20618 "parsing/parser.ml" +# 20624 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20649,29 +20655,29 @@ module Tables = struct let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1069 "parsing/parser.mly" +# 1075 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 20656 "parsing/parser.ml" +# 20662 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1058 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 20663 "parsing/parser.ml" +# 20669 "parsing/parser.ml" in -# 1360 "parsing/parser.mly" +# 1366 "parsing/parser.mly" ( _1 ) -# 20669 "parsing/parser.ml" +# 20675 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20675 "parsing/parser.ml" +# 20681 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20710,7 +20716,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 124 "" ( None ) -# 20714 "parsing/parser.ml" +# 20720 "parsing/parser.ml" in let x = let label = @@ -20718,9 +20724,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20724 "parsing/parser.ml" +# 20730 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20728,7 +20734,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3194 "parsing/parser.mly" +# 3201 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20742,13 +20748,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20746 "parsing/parser.ml" +# 20752 "parsing/parser.ml" in -# 1285 "parsing/parser.mly" +# 1291 "parsing/parser.mly" ( [x], None ) -# 20752 "parsing/parser.ml" +# 20758 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20794,7 +20800,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 126 "" ( Some x ) -# 20798 "parsing/parser.ml" +# 20804 "parsing/parser.ml" in let x = let label = @@ -20802,9 +20808,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20808 "parsing/parser.ml" +# 20814 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20812,7 +20818,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3194 "parsing/parser.mly" +# 3201 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20826,13 +20832,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20830 "parsing/parser.ml" +# 20836 "parsing/parser.ml" in -# 1285 "parsing/parser.mly" +# 1291 "parsing/parser.mly" ( [x], None ) -# 20836 "parsing/parser.ml" +# 20842 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20895,9 +20901,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20901 "parsing/parser.ml" +# 20907 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20905,7 +20911,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3194 "parsing/parser.mly" +# 3201 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20919,13 +20925,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20923 "parsing/parser.ml" +# 20929 "parsing/parser.ml" in -# 1287 "parsing/parser.mly" +# 1293 "parsing/parser.mly" ( [x], Some y ) -# 20929 "parsing/parser.ml" +# 20935 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20981,9 +20987,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20987 "parsing/parser.ml" +# 20993 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -20991,7 +20997,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3194 "parsing/parser.mly" +# 3201 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -21005,14 +21011,14 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 21009 "parsing/parser.ml" +# 21015 "parsing/parser.ml" in -# 1291 "parsing/parser.mly" +# 1297 "parsing/parser.mly" ( let xs, y = tail in x :: xs, y ) -# 21016 "parsing/parser.ml" +# 21022 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21035,9 +21041,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2925 "parsing/parser.mly" +# 2931 "parsing/parser.mly" ( _1 ) -# 21041 "parsing/parser.ml" +# 21047 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21077,9 +21083,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2927 "parsing/parser.mly" +# 2933 "parsing/parser.mly" ( wrap_exp_stack (mkexp_constraint ~loc:_sloc _3 _1) (make_loc _sloc) ) -# 21083 "parsing/parser.ml" +# 21089 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21109,9 +21115,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2931 "parsing/parser.mly" +# 2937 "parsing/parser.mly" ( _2 ) -# 21115 "parsing/parser.ml" +# 21121 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21144,9 +21150,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2933 "parsing/parser.mly" +# 2939 "parsing/parser.mly" ( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 21150 "parsing/parser.ml" +# 21156 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21197,17 +21203,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2793 "parsing/parser.mly" +# 2799 "parsing/parser.mly" ( xs ) -# 21203 "parsing/parser.ml" +# 21209 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2935 "parsing/parser.mly" +# 2941 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 21211 "parsing/parser.ml" +# 21217 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21244,9 +21250,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.case) = -# 2943 "parsing/parser.mly" +# 2949 "parsing/parser.mly" ( Exp.case _1 _3 ) -# 21250 "parsing/parser.ml" +# 21256 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21297,9 +21303,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.case) = -# 2945 "parsing/parser.mly" +# 2951 "parsing/parser.mly" ( Exp.case _1 ~guard:_3 _5 ) -# 21303 "parsing/parser.ml" +# 21309 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21337,9 +21343,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.case) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2947 "parsing/parser.mly" +# 2953 "parsing/parser.mly" ( Exp.case _1 (Exp.unreachable ~loc:(make_loc _loc__3_) ()) ) -# 21343 "parsing/parser.ml" +# 21349 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21400,9 +21406,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 21406 "parsing/parser.ml" +# 21412 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21411,49 +21417,49 @@ module Tables = struct let _6 = let _1 = _1_inlined3 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 21417 "parsing/parser.ml" +# 21423 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 21426 "parsing/parser.ml" +# 21432 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3648 "parsing/parser.mly" +# 3655 "parsing/parser.mly" ( _1 ) -# 21435 "parsing/parser.ml" +# 21441 "parsing/parser.ml" in let _1 = let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 21442 "parsing/parser.ml" +# 21448 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21450 "parsing/parser.ml" +# 21456 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3893 "parsing/parser.mly" +# 3900 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -21461,13 +21467,13 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 21465 "parsing/parser.ml" +# 21471 "parsing/parser.ml" in -# 3874 "parsing/parser.mly" +# 3881 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) -# 21471 "parsing/parser.ml" +# 21477 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21508,15 +21514,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 3904 "parsing/parser.mly" +# 3911 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21514 "parsing/parser.ml" +# 21520 "parsing/parser.ml" in -# 3874 "parsing/parser.mly" +# 3881 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) -# 21520 "parsing/parser.ml" +# 21526 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21570,9 +21576,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 21576 "parsing/parser.ml" +# 21582 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21581,49 +21587,49 @@ module Tables = struct let _6 = let _1 = _1_inlined3 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 21587 "parsing/parser.ml" +# 21593 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 21596 "parsing/parser.ml" +# 21602 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3648 "parsing/parser.mly" +# 3655 "parsing/parser.mly" ( _1 ) -# 21605 "parsing/parser.ml" +# 21611 "parsing/parser.ml" in let _1 = let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 21612 "parsing/parser.ml" +# 21618 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21620 "parsing/parser.ml" +# 21626 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3893 "parsing/parser.mly" +# 3900 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -21631,13 +21637,13 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 21635 "parsing/parser.ml" +# 21641 "parsing/parser.ml" in -# 3877 "parsing/parser.mly" +# 3884 "parsing/parser.mly" ( [head], Closed ) -# 21641 "parsing/parser.ml" +# 21647 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21671,15 +21677,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 3904 "parsing/parser.mly" +# 3911 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21677 "parsing/parser.ml" +# 21683 "parsing/parser.ml" in -# 3877 "parsing/parser.mly" +# 3884 "parsing/parser.mly" ( [head], Closed ) -# 21683 "parsing/parser.ml" +# 21689 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21719,9 +21725,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 21725 "parsing/parser.ml" +# 21731 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21730,50 +21736,50 @@ module Tables = struct let _4 = let _1 = _1_inlined2 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 21736 "parsing/parser.ml" +# 21742 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3648 "parsing/parser.mly" +# 3655 "parsing/parser.mly" ( _1 ) -# 21745 "parsing/parser.ml" +# 21751 "parsing/parser.ml" in let _1 = let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 21752 "parsing/parser.ml" +# 21758 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21760 "parsing/parser.ml" +# 21766 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3886 "parsing/parser.mly" +# 3893 "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 ) -# 21771 "parsing/parser.ml" +# 21777 "parsing/parser.ml" in -# 3880 "parsing/parser.mly" +# 3887 "parsing/parser.mly" ( [head], Closed ) -# 21777 "parsing/parser.ml" +# 21783 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21800,15 +21806,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 3904 "parsing/parser.mly" +# 3911 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21806 "parsing/parser.ml" +# 21812 "parsing/parser.ml" in -# 3880 "parsing/parser.mly" +# 3887 "parsing/parser.mly" ( [head], Closed ) -# 21812 "parsing/parser.ml" +# 21818 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21831,9 +21837,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.object_field list * Asttypes.closed_flag) = -# 3882 "parsing/parser.mly" +# 3889 "parsing/parser.mly" ( [], Open ) -# 21837 "parsing/parser.ml" +# 21843 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21878,9 +21884,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 21884 "parsing/parser.ml" +# 21890 "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 @@ -21892,41 +21898,41 @@ module Tables = struct Parsetree.attributes) = let ty = let _1 = _1_inlined2 in -# 3644 "parsing/parser.mly" +# 3651 "parsing/parser.mly" ( _1 ) -# 21898 "parsing/parser.ml" +# 21904 "parsing/parser.ml" in let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 21906 "parsing/parser.ml" +# 21912 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21914 "parsing/parser.ml" +# 21920 "parsing/parser.ml" in let attrs = -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 21920 "parsing/parser.ml" +# 21926 "parsing/parser.ml" in let _1 = -# 4160 "parsing/parser.mly" +# 4167 "parsing/parser.mly" ( Fresh ) -# 21925 "parsing/parser.ml" +# 21931 "parsing/parser.ml" in -# 2156 "parsing/parser.mly" +# 2162 "parsing/parser.mly" ( (label, private_, Cfk_virtual ty), attrs ) -# 21930 "parsing/parser.ml" +# 21936 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21964,9 +21970,9 @@ module Tables = struct } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 21970 "parsing/parser.ml" +# 21976 "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 @@ -21978,36 +21984,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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 21984 "parsing/parser.ml" +# 21990 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21992 "parsing/parser.ml" +# 21998 "parsing/parser.ml" in let _2 = -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 21998 "parsing/parser.ml" +# 22004 "parsing/parser.ml" in let _1 = -# 4163 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Fresh ) -# 22003 "parsing/parser.ml" +# 22009 "parsing/parser.ml" in -# 2158 "parsing/parser.mly" +# 2164 "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 ) -# 22011 "parsing/parser.ml" +# 22017 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22051,9 +22057,9 @@ module Tables = struct } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined2 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 22057 "parsing/parser.ml" +# 22063 "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 @@ -22066,39 +22072,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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 22072 "parsing/parser.ml" +# 22078 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22080 "parsing/parser.ml" +# 22086 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 22088 "parsing/parser.ml" +# 22094 "parsing/parser.ml" in let _1 = -# 4164 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Override ) -# 22094 "parsing/parser.ml" +# 22100 "parsing/parser.ml" in -# 2158 "parsing/parser.mly" +# 2164 "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 ) -# 22102 "parsing/parser.ml" +# 22108 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22157,9 +22163,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 22163 "parsing/parser.ml" +# 22169 "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 @@ -22171,45 +22177,45 @@ module Tables = struct Parsetree.attributes) = let _6 = let _1 = _1_inlined2 in -# 3644 "parsing/parser.mly" +# 3651 "parsing/parser.mly" ( _1 ) -# 22177 "parsing/parser.ml" +# 22183 "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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 22186 "parsing/parser.ml" +# 22192 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22194 "parsing/parser.ml" +# 22200 "parsing/parser.ml" in let _2 = -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 22200 "parsing/parser.ml" +# 22206 "parsing/parser.ml" in let _1 = -# 4163 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Fresh ) -# 22205 "parsing/parser.ml" +# 22211 "parsing/parser.ml" in -# 2164 "parsing/parser.mly" +# 2170 "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 ) -# 22213 "parsing/parser.ml" +# 22219 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22274,9 +22280,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 22280 "parsing/parser.ml" +# 22286 "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 @@ -22289,48 +22295,48 @@ module Tables = struct Parsetree.attributes) = let _6 = let _1 = _1_inlined3 in -# 3644 "parsing/parser.mly" +# 3651 "parsing/parser.mly" ( _1 ) -# 22295 "parsing/parser.ml" +# 22301 "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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 22304 "parsing/parser.ml" +# 22310 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22312 "parsing/parser.ml" +# 22318 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 22320 "parsing/parser.ml" +# 22326 "parsing/parser.ml" in let _1 = -# 4164 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Override ) -# 22326 "parsing/parser.ml" +# 22332 "parsing/parser.ml" in -# 2164 "parsing/parser.mly" +# 2170 "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 ) -# 22334 "parsing/parser.ml" +# 22340 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22410,9 +22416,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 22416 "parsing/parser.ml" +# 22422 "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 @@ -22422,38 +22428,38 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _7 = -# 2793 "parsing/parser.mly" +# 2799 "parsing/parser.mly" ( xs ) -# 22428 "parsing/parser.ml" +# 22434 "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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 22436 "parsing/parser.ml" +# 22442 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22444 "parsing/parser.ml" +# 22450 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 22451 "parsing/parser.ml" +# 22457 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = -# 4163 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Fresh ) -# 22457 "parsing/parser.ml" +# 22463 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__11_ in @@ -22469,7 +22475,7 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2170 "parsing/parser.mly" +# 2176 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = @@ -22480,7 +22486,7 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22484 "parsing/parser.ml" +# 22490 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22566,9 +22572,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 22572 "parsing/parser.ml" +# 22578 "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 @@ -22579,41 +22585,41 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _7 = -# 2793 "parsing/parser.mly" +# 2799 "parsing/parser.mly" ( xs ) -# 22585 "parsing/parser.ml" +# 22591 "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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 22593 "parsing/parser.ml" +# 22599 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22601 "parsing/parser.ml" +# 22607 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 22610 "parsing/parser.ml" +# 22616 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = -# 4164 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Override ) -# 22617 "parsing/parser.ml" +# 22623 "parsing/parser.ml" in let _endpos = _endpos__11_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -22628,7 +22634,7 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2170 "parsing/parser.mly" +# 2176 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = @@ -22639,7 +22645,7 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22643 "parsing/parser.ml" +# 22649 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22658,17 +22664,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 22664 "parsing/parser.ml" +# 22670 "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) = -# 4005 "parsing/parser.mly" +# 4012 "parsing/parser.mly" ( Lident _1 ) -# 22672 "parsing/parser.ml" +# 22678 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22699,9 +22705,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 22705 "parsing/parser.ml" +# 22711 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -22709,9 +22715,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4006 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22715 "parsing/parser.ml" +# 22721 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22730,17 +22736,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 913 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string) -# 22736 "parsing/parser.ml" +# 22742 "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) = -# 4005 "parsing/parser.mly" +# 4012 "parsing/parser.mly" ( Lident _1 ) -# 22744 "parsing/parser.ml" +# 22750 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22771,9 +22777,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 913 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string) -# 22777 "parsing/parser.ml" +# 22783 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -22781,9 +22787,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4006 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22787 "parsing/parser.ml" +# 22793 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22806,14 +22812,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = let _1 = -# 4043 "parsing/parser.mly" +# 4050 "parsing/parser.mly" ( _1 ) -# 22812 "parsing/parser.ml" +# 22818 "parsing/parser.ml" in -# 4005 "parsing/parser.mly" +# 4012 "parsing/parser.mly" ( Lident _1 ) -# 22817 "parsing/parser.ml" +# 22823 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22851,20 +22857,20 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _1 = let _1 = -# 3985 "parsing/parser.mly" +# 3992 "parsing/parser.mly" ( "::" ) -# 22857 "parsing/parser.ml" +# 22863 "parsing/parser.ml" in -# 4043 "parsing/parser.mly" +# 4050 "parsing/parser.mly" ( _1 ) -# 22862 "parsing/parser.ml" +# 22868 "parsing/parser.ml" in -# 4005 "parsing/parser.mly" +# 4012 "parsing/parser.mly" ( Lident _1 ) -# 22868 "parsing/parser.ml" +# 22874 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22887,14 +22893,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = let _1 = -# 4043 "parsing/parser.mly" +# 4050 "parsing/parser.mly" ( _1 ) -# 22893 "parsing/parser.ml" +# 22899 "parsing/parser.ml" in -# 4005 "parsing/parser.mly" +# 4012 "parsing/parser.mly" ( Lident _1 ) -# 22898 "parsing/parser.ml" +# 22904 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22933,15 +22939,15 @@ module Tables = struct let _v : (Longident.t) = let _3 = let _1 = _1_inlined1 in -# 4043 "parsing/parser.mly" +# 4050 "parsing/parser.mly" ( _1 ) -# 22939 "parsing/parser.ml" +# 22945 "parsing/parser.ml" in -# 4006 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22945 "parsing/parser.ml" +# 22951 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22993,20 +22999,20 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _3 = let _1 = -# 3985 "parsing/parser.mly" +# 3992 "parsing/parser.mly" ( "::" ) -# 22999 "parsing/parser.ml" +# 23005 "parsing/parser.ml" in -# 4043 "parsing/parser.mly" +# 4050 "parsing/parser.mly" ( _1 ) -# 23004 "parsing/parser.ml" +# 23010 "parsing/parser.ml" in -# 4006 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23010 "parsing/parser.ml" +# 23016 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23045,15 +23051,15 @@ module Tables = struct let _v : (Longident.t) = let _3 = let _1 = _1_inlined1 in -# 4043 "parsing/parser.mly" +# 4050 "parsing/parser.mly" ( _1 ) -# 23051 "parsing/parser.ml" +# 23057 "parsing/parser.ml" in -# 4006 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23057 "parsing/parser.ml" +# 23063 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23076,9 +23082,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4005 "parsing/parser.mly" +# 4012 "parsing/parser.mly" ( Lident _1 ) -# 23082 "parsing/parser.ml" +# 23088 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23115,9 +23121,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4006 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23121 "parsing/parser.ml" +# 23127 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23136,17 +23142,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 23142 "parsing/parser.ml" +# 23148 "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) = -# 4005 "parsing/parser.mly" +# 4012 "parsing/parser.mly" ( Lident _1 ) -# 23150 "parsing/parser.ml" +# 23156 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23177,9 +23183,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 23183 "parsing/parser.ml" +# 23189 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23187,9 +23193,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4006 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23193 "parsing/parser.ml" +# 23199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23208,17 +23214,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 913 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string) -# 23214 "parsing/parser.ml" +# 23220 "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) = -# 4005 "parsing/parser.mly" +# 4012 "parsing/parser.mly" ( Lident _1 ) -# 23222 "parsing/parser.ml" +# 23228 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23249,9 +23255,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 913 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string) -# 23255 "parsing/parser.ml" +# 23261 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23259,9 +23265,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4006 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23265 "parsing/parser.ml" +# 23271 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23284,9 +23290,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4005 "parsing/parser.mly" +# 4012 "parsing/parser.mly" ( Lident _1 ) -# 23290 "parsing/parser.ml" +# 23296 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23323,9 +23329,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4006 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23329 "parsing/parser.ml" +# 23335 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23348,9 +23354,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4021 "parsing/parser.mly" +# 4028 "parsing/parser.mly" ( _1 ) -# 23354 "parsing/parser.ml" +# 23360 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23397,9 +23403,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4023 "parsing/parser.mly" +# 4030 "parsing/parser.mly" ( lapply ~loc:_sloc _1 _3 ) -# 23403 "parsing/parser.ml" +# 23409 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23437,9 +23443,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 4025 "parsing/parser.mly" +# 4032 "parsing/parser.mly" ( expecting _loc__3_ "module path" ) -# 23443 "parsing/parser.ml" +# 23449 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23462,9 +23468,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4018 "parsing/parser.mly" +# 4025 "parsing/parser.mly" ( _1 ) -# 23468 "parsing/parser.ml" +# 23474 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23494,9 +23500,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = -# 1624 "parsing/parser.mly" +# 1630 "parsing/parser.mly" ( me ) -# 23500 "parsing/parser.ml" +# 23506 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23541,24 +23547,24 @@ module Tables = struct let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1627 "parsing/parser.mly" +# 1633 "parsing/parser.mly" ( Pmod_constraint(me, mty) ) -# 23547 "parsing/parser.ml" +# 23553 "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 -# 1089 "parsing/parser.mly" +# 1095 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23556 "parsing/parser.ml" +# 23562 "parsing/parser.ml" in -# 1631 "parsing/parser.mly" +# 1637 "parsing/parser.mly" ( _1 ) -# 23562 "parsing/parser.ml" +# 23568 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23589,25 +23595,25 @@ module Tables = struct let _endpos = _endpos_body_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1629 "parsing/parser.mly" +# 1635 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmod_functor(arg, body) ) -# 23596 "parsing/parser.ml" +# 23602 "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 -# 1089 "parsing/parser.mly" +# 1095 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23605 "parsing/parser.ml" +# 23611 "parsing/parser.ml" in -# 1631 "parsing/parser.mly" +# 1637 "parsing/parser.mly" ( _1 ) -# 23611 "parsing/parser.ml" +# 23617 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23637,9 +23643,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_mty_ in let _v : (Parsetree.module_type) = -# 1885 "parsing/parser.mly" +# 1891 "parsing/parser.mly" ( mty ) -# 23643 "parsing/parser.ml" +# 23649 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23670,25 +23676,25 @@ module Tables = struct let _endpos = _endpos_body_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1888 "parsing/parser.mly" +# 1894 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmty_functor(arg, body) ) -# 23677 "parsing/parser.ml" +# 23683 "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 -# 1091 "parsing/parser.mly" +# 1097 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 23686 "parsing/parser.ml" +# 23692 "parsing/parser.ml" in -# 1891 "parsing/parser.mly" +# 1897 "parsing/parser.mly" ( _1 ) -# 23692 "parsing/parser.ml" +# 23698 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23734,18 +23740,18 @@ module Tables = struct let _v : (Parsetree.module_expr) = let attrs = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 23740 "parsing/parser.ml" +# 23746 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1460 "parsing/parser.mly" +# 1466 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_structure s) ) -# 23749 "parsing/parser.ml" +# 23755 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23791,17 +23797,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 23797 "parsing/parser.ml" +# 23803 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1462 "parsing/parser.mly" +# 1468 "parsing/parser.mly" ( unclosed "struct" _loc__1_ "end" _loc__4_ ) -# 23805 "parsing/parser.ml" +# 23811 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23854,30 +23860,30 @@ module Tables = struct let _v : (Parsetree.module_expr) = let args = let _1 = _1_inlined2 in -# 1426 "parsing/parser.mly" +# 1432 "parsing/parser.mly" ( _1 ) -# 23860 "parsing/parser.ml" +# 23866 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 23868 "parsing/parser.ml" +# 23874 "parsing/parser.ml" in let _endpos = _endpos_me_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1464 "parsing/parser.mly" +# 1470 "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 ) ) -# 23881 "parsing/parser.ml" +# 23887 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23900,9 +23906,9 @@ module Tables = struct let _startpos = _startpos_me_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = -# 1470 "parsing/parser.mly" +# 1476 "parsing/parser.mly" ( me ) -# 23906 "parsing/parser.ml" +# 23912 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23932,9 +23938,9 @@ module Tables = struct let _startpos = _startpos_me_ in let _endpos = _endpos_attr_ in let _v : (Parsetree.module_expr) = -# 1472 "parsing/parser.mly" +# 1478 "parsing/parser.mly" ( Mod.attr me attr ) -# 23938 "parsing/parser.ml" +# 23944 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23963,30 +23969,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 23969 "parsing/parser.ml" +# 23975 "parsing/parser.ml" in -# 1476 "parsing/parser.mly" +# 1482 "parsing/parser.mly" ( Pmod_ident x ) -# 23975 "parsing/parser.ml" +# 23981 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1089 "parsing/parser.mly" +# 1095 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23984 "parsing/parser.ml" +# 23990 "parsing/parser.ml" in -# 1488 "parsing/parser.mly" +# 1494 "parsing/parser.mly" ( _1 ) -# 23990 "parsing/parser.ml" +# 23996 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24017,24 +24023,24 @@ module Tables = struct let _endpos = _endpos_me2_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1479 "parsing/parser.mly" +# 1485 "parsing/parser.mly" ( Pmod_apply(me1, me2) ) -# 24023 "parsing/parser.ml" +# 24029 "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 -# 1089 "parsing/parser.mly" +# 1095 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24032 "parsing/parser.ml" +# 24038 "parsing/parser.ml" in -# 1488 "parsing/parser.mly" +# 1494 "parsing/parser.mly" ( _1 ) -# 24038 "parsing/parser.ml" +# 24044 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24076,10 +24082,10 @@ module Tables = struct let _symbolstartpos = _startpos_me1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1482 "parsing/parser.mly" +# 1488 "parsing/parser.mly" ( (* TODO review mkmod location *) Pmod_apply(me1, mkmod ~loc:_sloc (Pmod_structure [])) ) -# 24083 "parsing/parser.ml" +# 24089 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me1_) in @@ -24087,15 +24093,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1089 "parsing/parser.mly" +# 1095 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24093 "parsing/parser.ml" +# 24099 "parsing/parser.ml" in -# 1488 "parsing/parser.mly" +# 1494 "parsing/parser.mly" ( _1 ) -# 24099 "parsing/parser.ml" +# 24105 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24119,24 +24125,24 @@ module Tables = struct let _endpos = _endpos_ex_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1486 "parsing/parser.mly" +# 1492 "parsing/parser.mly" ( Pmod_extension ex ) -# 24125 "parsing/parser.ml" +# 24131 "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 -# 1089 "parsing/parser.mly" +# 1095 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24134 "parsing/parser.ml" +# 24140 "parsing/parser.ml" in -# 1488 "parsing/parser.mly" +# 1494 "parsing/parser.mly" ( _1 ) -# 24140 "parsing/parser.ml" +# 24146 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24155,17 +24161,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : ( -# 913 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string) -# 24161 "parsing/parser.ml" +# 24167 "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) = -# 1443 "parsing/parser.mly" +# 1449 "parsing/parser.mly" ( Some x ) -# 24169 "parsing/parser.ml" +# 24175 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24188,9 +24194,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string option) = -# 1446 "parsing/parser.mly" +# 1452 "parsing/parser.mly" ( None ) -# 24194 "parsing/parser.ml" +# 24200 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24248,9 +24254,9 @@ module Tables = struct let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 913 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string) -# 24254 "parsing/parser.ml" +# 24260 "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 @@ -24261,9 +24267,9 @@ module Tables = struct let _v : (Parsetree.module_substitution * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 24267 "parsing/parser.ml" +# 24273 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -24273,9 +24279,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24279 "parsing/parser.ml" +# 24285 "parsing/parser.ml" in let uid = @@ -24284,31 +24290,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24290 "parsing/parser.ml" +# 24296 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 24298 "parsing/parser.ml" +# 24304 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1921 "parsing/parser.mly" +# 1927 "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 ) -# 24312 "parsing/parser.ml" +# 24318 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24359,9 +24365,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 913 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string) -# 24365 "parsing/parser.ml" +# 24371 "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 @@ -24375,24 +24381,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24381 "parsing/parser.ml" +# 24387 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 24389 "parsing/parser.ml" +# 24395 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in -# 1928 "parsing/parser.mly" +# 1934 "parsing/parser.mly" ( expecting _loc__6_ "module path" ) -# 24396 "parsing/parser.ml" +# 24402 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24438,18 +24444,18 @@ module Tables = struct let _v : (Parsetree.module_type) = let attrs = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 24444 "parsing/parser.ml" +# 24450 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1768 "parsing/parser.mly" +# 1774 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs (Pmty_signature s) ) -# 24453 "parsing/parser.ml" +# 24459 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24495,17 +24501,17 @@ module Tables = struct let _v : (Parsetree.module_type) = let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 24501 "parsing/parser.ml" +# 24507 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1770 "parsing/parser.mly" +# 1776 "parsing/parser.mly" ( unclosed "sig" _loc__1_ "end" _loc__4_ ) -# 24509 "parsing/parser.ml" +# 24515 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24558,30 +24564,30 @@ module Tables = struct let _v : (Parsetree.module_type) = let args = let _1 = _1_inlined2 in -# 1426 "parsing/parser.mly" +# 1432 "parsing/parser.mly" ( _1 ) -# 24564 "parsing/parser.ml" +# 24570 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 24572 "parsing/parser.ml" +# 24578 "parsing/parser.ml" in let _endpos = _endpos_mty_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1774 "parsing/parser.mly" +# 1780 "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 ) ) -# 24585 "parsing/parser.ml" +# 24591 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24634,18 +24640,18 @@ module Tables = struct let _v : (Parsetree.module_type) = let _4 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 24640 "parsing/parser.ml" +# 24646 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1780 "parsing/parser.mly" +# 1786 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) ) -# 24649 "parsing/parser.ml" +# 24655 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24682,9 +24688,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_type) = -# 1782 "parsing/parser.mly" +# 1788 "parsing/parser.mly" ( _2 ) -# 24688 "parsing/parser.ml" +# 24694 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24723,9 +24729,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 -# 1784 "parsing/parser.mly" +# 1790 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 24729 "parsing/parser.ml" +# 24735 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24755,9 +24761,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = -# 1786 "parsing/parser.mly" +# 1792 "parsing/parser.mly" ( Mty.attr _1 _2 ) -# 24761 "parsing/parser.ml" +# 24767 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24786,30 +24792,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24792 "parsing/parser.ml" +# 24798 "parsing/parser.ml" in -# 1789 "parsing/parser.mly" +# 1795 "parsing/parser.mly" ( Pmty_ident _1 ) -# 24798 "parsing/parser.ml" +# 24804 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1091 "parsing/parser.mly" +# 1097 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24807 "parsing/parser.ml" +# 24813 "parsing/parser.ml" in -# 1800 "parsing/parser.mly" +# 1806 "parsing/parser.mly" ( _1 ) -# 24813 "parsing/parser.ml" +# 24819 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24847,24 +24853,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1792 "parsing/parser.mly" +# 1798 "parsing/parser.mly" ( Pmty_functor(Named (mknoloc None, _1), _3) ) -# 24853 "parsing/parser.ml" +# 24859 "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 -# 1091 "parsing/parser.mly" +# 1097 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24862 "parsing/parser.ml" +# 24868 "parsing/parser.ml" in -# 1800 "parsing/parser.mly" +# 1806 "parsing/parser.mly" ( _1 ) -# 24868 "parsing/parser.ml" +# 24874 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24906,18 +24912,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 24910 "parsing/parser.ml" +# 24916 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 24915 "parsing/parser.ml" +# 24921 "parsing/parser.ml" in -# 1794 "parsing/parser.mly" +# 1800 "parsing/parser.mly" ( Pmty_with(_1, _3) ) -# 24921 "parsing/parser.ml" +# 24927 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -24925,15 +24931,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1091 "parsing/parser.mly" +# 1097 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24931 "parsing/parser.ml" +# 24937 "parsing/parser.ml" in -# 1800 "parsing/parser.mly" +# 1806 "parsing/parser.mly" ( _1 ) -# 24937 "parsing/parser.ml" +# 24943 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24957,23 +24963,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1798 "parsing/parser.mly" +# 1804 "parsing/parser.mly" ( Pmty_extension _1 ) -# 24963 "parsing/parser.ml" +# 24969 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1091 "parsing/parser.mly" +# 1097 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24971 "parsing/parser.ml" +# 24977 "parsing/parser.ml" in -# 1800 "parsing/parser.mly" +# 1806 "parsing/parser.mly" ( _1 ) -# 24977 "parsing/parser.ml" +# 24983 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25040,9 +25046,9 @@ module Tables = struct let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 25046 "parsing/parser.ml" +# 25052 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -25052,31 +25058,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25058 "parsing/parser.ml" +# 25064 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 25066 "parsing/parser.ml" +# 25072 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1714 "parsing/parser.mly" +# 1720 "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 ) -# 25080 "parsing/parser.ml" +# 25086 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25150,9 +25156,9 @@ module Tables = struct let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 25156 "parsing/parser.ml" +# 25162 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -25162,31 +25168,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25168 "parsing/parser.ml" +# 25174 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 25176 "parsing/parser.ml" +# 25182 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1977 "parsing/parser.mly" +# 1983 "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 ) -# 25190 "parsing/parser.ml" +# 25196 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25209,9 +25215,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4028 "parsing/parser.mly" +# 4035 "parsing/parser.mly" ( _1 ) -# 25215 "parsing/parser.ml" +# 25221 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25227,9 +25233,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag) = -# 4109 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Immutable ) -# 25233 "parsing/parser.ml" +# 25239 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25252,9 +25258,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 4110 "parsing/parser.mly" +# 4117 "parsing/parser.mly" ( Mutable ) -# 25258 "parsing/parser.ml" +# 25264 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25270,9 +25276,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4113 "parsing/parser.mly" +# 4120 "parsing/parser.mly" ( Immutable, Nothing ) -# 25276 "parsing/parser.ml" +# 25282 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25295,9 +25301,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4114 "parsing/parser.mly" +# 4121 "parsing/parser.mly" ( Mutable, Nothing ) -# 25301 "parsing/parser.ml" +# 25307 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25320,9 +25326,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4115 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( Immutable, Global ) -# 25326 "parsing/parser.ml" +# 25332 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25345,9 +25351,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4116 "parsing/parser.mly" +# 4123 "parsing/parser.mly" ( Immutable, Nonlocal ) -# 25351 "parsing/parser.ml" +# 25357 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25363,9 +25369,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4129 "parsing/parser.mly" +# 4136 "parsing/parser.mly" ( Immutable, Concrete ) -# 25369 "parsing/parser.ml" +# 25375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25388,9 +25394,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4131 "parsing/parser.mly" +# 4138 "parsing/parser.mly" ( Mutable, Concrete ) -# 25394 "parsing/parser.ml" +# 25400 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25413,9 +25419,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4133 "parsing/parser.mly" +# 4140 "parsing/parser.mly" ( Immutable, Virtual ) -# 25419 "parsing/parser.ml" +# 25425 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25445,9 +25451,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4136 "parsing/parser.mly" +# 4143 "parsing/parser.mly" ( Mutable, Virtual ) -# 25451 "parsing/parser.ml" +# 25457 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25477,9 +25483,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4136 "parsing/parser.mly" +# 4143 "parsing/parser.mly" ( Mutable, Virtual ) -# 25483 "parsing/parser.ml" +# 25489 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25509,9 +25515,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 4080 "parsing/parser.mly" +# 4087 "parsing/parser.mly" ( _2 ) -# 25515 "parsing/parser.ml" +# 25521 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25530,9 +25536,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 25536 "parsing/parser.ml" +# 25542 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -25542,15 +25548,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25548 "parsing/parser.ml" +# 25554 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 25554 "parsing/parser.ml" +# 25560 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25576,9 +25582,9 @@ module Tables = struct } = _menhir_stack in let xs : (string Asttypes.loc list) = Obj.magic xs in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 25582 "parsing/parser.ml" +# 25588 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -25588,15 +25594,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25594 "parsing/parser.ml" +# 25600 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 25600 "parsing/parser.ml" +# 25606 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25615,22 +25621,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let s : ( -# 900 "parsing/parser.mly" +# 906 "parsing/parser.mly" (string * Location.t * string option) -# 25621 "parsing/parser.ml" +# 25627 "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 = -# 4076 "parsing/parser.mly" +# 4083 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 25629 "parsing/parser.ml" +# 25635 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 25634 "parsing/parser.ml" +# 25640 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25656,22 +25662,22 @@ module Tables = struct } = _menhir_stack in let xs : (string list) = Obj.magic xs in let s : ( -# 900 "parsing/parser.mly" +# 906 "parsing/parser.mly" (string * Location.t * string option) -# 25662 "parsing/parser.ml" +# 25668 "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 = -# 4076 "parsing/parser.mly" +# 4083 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 25670 "parsing/parser.ml" +# 25676 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 25675 "parsing/parser.ml" +# 25681 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25694,14 +25700,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 = -# 4105 "parsing/parser.mly" +# 4112 "parsing/parser.mly" ( Public ) -# 25700 "parsing/parser.ml" +# 25706 "parsing/parser.ml" in -# 3328 "parsing/parser.mly" +# 3335 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 25705 "parsing/parser.ml" +# 25711 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25731,14 +25737,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 = -# 4106 "parsing/parser.mly" +# 4113 "parsing/parser.mly" ( Private ) -# 25737 "parsing/parser.ml" +# 25743 "parsing/parser.ml" in -# 3328 "parsing/parser.mly" +# 3335 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 25742 "parsing/parser.ml" +# 25748 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25761,26 +25767,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 = -# 4105 "parsing/parser.mly" +# 4112 "parsing/parser.mly" ( Public ) -# 25767 "parsing/parser.ml" +# 25773 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 25773 "parsing/parser.ml" +# 25779 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 25778 "parsing/parser.ml" +# 25784 "parsing/parser.ml" in -# 3332 "parsing/parser.mly" +# 3339 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25784 "parsing/parser.ml" +# 25790 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25810,26 +25816,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 = -# 4106 "parsing/parser.mly" +# 4113 "parsing/parser.mly" ( Private ) -# 25816 "parsing/parser.ml" +# 25822 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 25822 "parsing/parser.ml" +# 25828 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 25827 "parsing/parser.ml" +# 25833 "parsing/parser.ml" in -# 3332 "parsing/parser.mly" +# 3339 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25833 "parsing/parser.ml" +# 25839 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25866,33 +25872,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 = -# 4105 "parsing/parser.mly" +# 4112 "parsing/parser.mly" ( Public ) -# 25872 "parsing/parser.ml" +# 25878 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 25879 "parsing/parser.ml" +# 25885 "parsing/parser.ml" in # 126 "" ( Some x ) -# 25884 "parsing/parser.ml" +# 25890 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 25890 "parsing/parser.ml" +# 25896 "parsing/parser.ml" in -# 3332 "parsing/parser.mly" +# 3339 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25896 "parsing/parser.ml" +# 25902 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25936,33 +25942,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 = -# 4106 "parsing/parser.mly" +# 4113 "parsing/parser.mly" ( Private ) -# 25942 "parsing/parser.ml" +# 25948 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 25949 "parsing/parser.ml" +# 25955 "parsing/parser.ml" in # 126 "" ( Some x ) -# 25954 "parsing/parser.ml" +# 25960 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 25960 "parsing/parser.ml" +# 25966 "parsing/parser.ml" in -# 3332 "parsing/parser.mly" +# 3339 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 25966 "parsing/parser.ml" +# 25972 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25985,26 +25991,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 = -# 4105 "parsing/parser.mly" +# 4112 "parsing/parser.mly" ( Public ) -# 25991 "parsing/parser.ml" +# 25997 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 25997 "parsing/parser.ml" +# 26003 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 26002 "parsing/parser.ml" +# 26008 "parsing/parser.ml" in -# 3336 "parsing/parser.mly" +# 3343 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26008 "parsing/parser.ml" +# 26014 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26034,26 +26040,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 = -# 4106 "parsing/parser.mly" +# 4113 "parsing/parser.mly" ( Private ) -# 26040 "parsing/parser.ml" +# 26046 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26046 "parsing/parser.ml" +# 26052 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 26051 "parsing/parser.ml" +# 26057 "parsing/parser.ml" in -# 3336 "parsing/parser.mly" +# 3343 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26057 "parsing/parser.ml" +# 26063 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26090,33 +26096,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 = -# 4105 "parsing/parser.mly" +# 4112 "parsing/parser.mly" ( Public ) -# 26096 "parsing/parser.ml" +# 26102 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26103 "parsing/parser.ml" +# 26109 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26108 "parsing/parser.ml" +# 26114 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 26114 "parsing/parser.ml" +# 26120 "parsing/parser.ml" in -# 3336 "parsing/parser.mly" +# 3343 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26120 "parsing/parser.ml" +# 26126 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26160,33 +26166,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 = -# 4106 "parsing/parser.mly" +# 4113 "parsing/parser.mly" ( Private ) -# 26166 "parsing/parser.ml" +# 26172 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26173 "parsing/parser.ml" +# 26179 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26178 "parsing/parser.ml" +# 26184 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 26184 "parsing/parser.ml" +# 26190 "parsing/parser.ml" in -# 3336 "parsing/parser.mly" +# 3343 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26190 "parsing/parser.ml" +# 26196 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26223,26 +26229,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 = -# 4105 "parsing/parser.mly" +# 4112 "parsing/parser.mly" ( Public ) -# 26229 "parsing/parser.ml" +# 26235 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26235 "parsing/parser.ml" +# 26241 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 26240 "parsing/parser.ml" +# 26246 "parsing/parser.ml" in -# 3340 "parsing/parser.mly" +# 3347 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26246 "parsing/parser.ml" +# 26252 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26286,26 +26292,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 = -# 4106 "parsing/parser.mly" +# 4113 "parsing/parser.mly" ( Private ) -# 26292 "parsing/parser.ml" +# 26298 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26298 "parsing/parser.ml" +# 26304 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 26303 "parsing/parser.ml" +# 26309 "parsing/parser.ml" in -# 3340 "parsing/parser.mly" +# 3347 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26309 "parsing/parser.ml" +# 26315 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26356,33 +26362,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 = -# 4105 "parsing/parser.mly" +# 4112 "parsing/parser.mly" ( Public ) -# 26362 "parsing/parser.ml" +# 26368 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26369 "parsing/parser.ml" +# 26375 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26374 "parsing/parser.ml" +# 26380 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 26380 "parsing/parser.ml" +# 26386 "parsing/parser.ml" in -# 3340 "parsing/parser.mly" +# 3347 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26386 "parsing/parser.ml" +# 26392 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26440,33 +26446,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 = -# 4106 "parsing/parser.mly" +# 4113 "parsing/parser.mly" ( Private ) -# 26446 "parsing/parser.ml" +# 26452 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26453 "parsing/parser.ml" +# 26459 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26458 "parsing/parser.ml" +# 26464 "parsing/parser.ml" in -# 3344 "parsing/parser.mly" +# 3351 "parsing/parser.mly" ( _1 ) -# 26464 "parsing/parser.ml" +# 26470 "parsing/parser.ml" in -# 3340 "parsing/parser.mly" +# 3347 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26470 "parsing/parser.ml" +# 26476 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26519,37 +26525,37 @@ module Tables = struct let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined2 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 26525 "parsing/parser.ml" +# 26531 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 26534 "parsing/parser.ml" +# 26540 "parsing/parser.ml" in let override = -# 4163 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Fresh ) -# 26540 "parsing/parser.ml" +# 26546 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1733 "parsing/parser.mly" +# 1739 "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 ) -# 26553 "parsing/parser.ml" +# 26559 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26609,37 +26615,37 @@ module Tables = struct let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 26615 "parsing/parser.ml" +# 26621 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 26624 "parsing/parser.ml" +# 26630 "parsing/parser.ml" in let override = -# 4164 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Override ) -# 26630 "parsing/parser.ml" +# 26636 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1733 "parsing/parser.mly" +# 1739 "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 ) -# 26643 "parsing/parser.ml" +# 26649 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26692,9 +26698,9 @@ module Tables = struct let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 26698 "parsing/parser.ml" +# 26704 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -26704,36 +26710,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 26710 "parsing/parser.ml" +# 26716 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 26718 "parsing/parser.ml" +# 26724 "parsing/parser.ml" in let override = -# 4163 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Fresh ) -# 26724 "parsing/parser.ml" +# 26730 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1748 "parsing/parser.mly" +# 1754 "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 ) -# 26737 "parsing/parser.ml" +# 26743 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26793,9 +26799,9 @@ module Tables = struct let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 26799 "parsing/parser.ml" +# 26805 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -26805,36 +26811,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 26811 "parsing/parser.ml" +# 26817 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined2 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 26819 "parsing/parser.ml" +# 26825 "parsing/parser.ml" in let override = -# 4164 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Override ) -# 26825 "parsing/parser.ml" +# 26831 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1748 "parsing/parser.mly" +# 1754 "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 ) -# 26838 "parsing/parser.ml" +# 26844 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26853,17 +26859,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 886 "parsing/parser.mly" +# 892 "parsing/parser.mly" (string) -# 26859 "parsing/parser.ml" +# 26865 "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) = -# 3944 "parsing/parser.mly" +# 3951 "parsing/parser.mly" ( _1 ) -# 26867 "parsing/parser.ml" +# 26873 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26882,17 +26888,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 841 "parsing/parser.mly" +# 847 "parsing/parser.mly" (string) -# 26888 "parsing/parser.ml" +# 26894 "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) = -# 3945 "parsing/parser.mly" +# 3952 "parsing/parser.mly" ( _1 ) -# 26896 "parsing/parser.ml" +# 26902 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26911,17 +26917,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 842 "parsing/parser.mly" +# 848 "parsing/parser.mly" (string) -# 26917 "parsing/parser.ml" +# 26923 "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) = -# 3946 "parsing/parser.mly" +# 3953 "parsing/parser.mly" ( _1 ) -# 26925 "parsing/parser.ml" +# 26931 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26961,17 +26967,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 26967 "parsing/parser.ml" +# 26973 "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) = -# 3947 "parsing/parser.mly" +# 3954 "parsing/parser.mly" ( "."^ _1 ^"(" ^ _3 ^ ")" ) -# 26975 "parsing/parser.ml" +# 26981 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27018,17 +27024,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 27024 "parsing/parser.ml" +# 27030 "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) = -# 3948 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( "."^ _1 ^ "(" ^ _3 ^ ")<-" ) -# 27032 "parsing/parser.ml" +# 27038 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27068,17 +27074,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 27074 "parsing/parser.ml" +# 27080 "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) = -# 3949 "parsing/parser.mly" +# 3956 "parsing/parser.mly" ( "."^ _1 ^"[" ^ _3 ^ "]" ) -# 27082 "parsing/parser.ml" +# 27088 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27125,17 +27131,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 27131 "parsing/parser.ml" +# 27137 "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) = -# 3950 "parsing/parser.mly" +# 3957 "parsing/parser.mly" ( "."^ _1 ^ "[" ^ _3 ^ "]<-" ) -# 27139 "parsing/parser.ml" +# 27145 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27175,17 +27181,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 27181 "parsing/parser.ml" +# 27187 "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) = -# 3951 "parsing/parser.mly" +# 3958 "parsing/parser.mly" ( "."^ _1 ^"{" ^ _3 ^ "}" ) -# 27189 "parsing/parser.ml" +# 27195 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27232,17 +27238,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 27238 "parsing/parser.ml" +# 27244 "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) = -# 3952 "parsing/parser.mly" +# 3959 "parsing/parser.mly" ( "."^ _1 ^ "{" ^ _3 ^ "}<-" ) -# 27246 "parsing/parser.ml" +# 27252 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27261,17 +27267,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 897 "parsing/parser.mly" +# 903 "parsing/parser.mly" (string) -# 27267 "parsing/parser.ml" +# 27273 "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) = -# 3953 "parsing/parser.mly" +# 3960 "parsing/parser.mly" ( _1 ) -# 27275 "parsing/parser.ml" +# 27281 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27294,9 +27300,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3954 "parsing/parser.mly" +# 3961 "parsing/parser.mly" ( "!" ) -# 27300 "parsing/parser.ml" +# 27306 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27315,22 +27321,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 835 "parsing/parser.mly" +# 841 "parsing/parser.mly" (string) -# 27321 "parsing/parser.ml" +# 27327 "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 = -# 3958 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( op ) -# 27329 "parsing/parser.ml" +# 27335 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27334 "parsing/parser.ml" +# 27340 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27349,22 +27355,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 836 "parsing/parser.mly" +# 842 "parsing/parser.mly" (string) -# 27355 "parsing/parser.ml" +# 27361 "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 = -# 3959 "parsing/parser.mly" +# 3966 "parsing/parser.mly" ( op ) -# 27363 "parsing/parser.ml" +# 27369 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27368 "parsing/parser.ml" +# 27374 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27383,22 +27389,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 837 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 27389 "parsing/parser.ml" +# 27395 "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 = -# 3960 "parsing/parser.mly" +# 3967 "parsing/parser.mly" ( op ) -# 27397 "parsing/parser.ml" +# 27403 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27402 "parsing/parser.ml" +# 27408 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27417,22 +27423,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 838 "parsing/parser.mly" +# 844 "parsing/parser.mly" (string) -# 27423 "parsing/parser.ml" +# 27429 "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 = -# 3961 "parsing/parser.mly" +# 3968 "parsing/parser.mly" ( op ) -# 27431 "parsing/parser.ml" +# 27437 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27436 "parsing/parser.ml" +# 27442 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27451,22 +27457,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 839 "parsing/parser.mly" +# 845 "parsing/parser.mly" (string) -# 27457 "parsing/parser.ml" +# 27463 "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 = -# 3962 "parsing/parser.mly" +# 3969 "parsing/parser.mly" ( op ) -# 27465 "parsing/parser.ml" +# 27471 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27470 "parsing/parser.ml" +# 27476 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27489,14 +27495,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3963 "parsing/parser.mly" +# 3970 "parsing/parser.mly" ("+") -# 27495 "parsing/parser.ml" +# 27501 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27500 "parsing/parser.ml" +# 27506 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27519,14 +27525,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3964 "parsing/parser.mly" +# 3971 "parsing/parser.mly" ("+.") -# 27525 "parsing/parser.ml" +# 27531 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27530 "parsing/parser.ml" +# 27536 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27549,14 +27555,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3965 "parsing/parser.mly" +# 3972 "parsing/parser.mly" ("+=") -# 27555 "parsing/parser.ml" +# 27561 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27560 "parsing/parser.ml" +# 27566 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27579,14 +27585,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3966 "parsing/parser.mly" +# 3973 "parsing/parser.mly" ("-") -# 27585 "parsing/parser.ml" +# 27591 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27590 "parsing/parser.ml" +# 27596 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27609,14 +27615,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3967 "parsing/parser.mly" +# 3974 "parsing/parser.mly" ("-.") -# 27615 "parsing/parser.ml" +# 27621 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27620 "parsing/parser.ml" +# 27626 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27639,14 +27645,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3968 "parsing/parser.mly" +# 3975 "parsing/parser.mly" ("*") -# 27645 "parsing/parser.ml" +# 27651 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27650 "parsing/parser.ml" +# 27656 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27669,14 +27675,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3969 "parsing/parser.mly" +# 3976 "parsing/parser.mly" ("%") -# 27675 "parsing/parser.ml" +# 27681 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27680 "parsing/parser.ml" +# 27686 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27699,14 +27705,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3970 "parsing/parser.mly" +# 3977 "parsing/parser.mly" ("=") -# 27705 "parsing/parser.ml" +# 27711 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27710 "parsing/parser.ml" +# 27716 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27729,14 +27735,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3971 "parsing/parser.mly" +# 3978 "parsing/parser.mly" ("<") -# 27735 "parsing/parser.ml" +# 27741 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27740 "parsing/parser.ml" +# 27746 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27759,14 +27765,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3972 "parsing/parser.mly" +# 3979 "parsing/parser.mly" (">") -# 27765 "parsing/parser.ml" +# 27771 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27770 "parsing/parser.ml" +# 27776 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27789,14 +27795,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3973 "parsing/parser.mly" +# 3980 "parsing/parser.mly" ("or") -# 27795 "parsing/parser.ml" +# 27801 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27800 "parsing/parser.ml" +# 27806 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27819,14 +27825,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3974 "parsing/parser.mly" +# 3981 "parsing/parser.mly" ("||") -# 27825 "parsing/parser.ml" +# 27831 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27830 "parsing/parser.ml" +# 27836 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27849,14 +27855,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3975 "parsing/parser.mly" +# 3982 "parsing/parser.mly" ("&") -# 27855 "parsing/parser.ml" +# 27861 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27860 "parsing/parser.ml" +# 27866 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27879,14 +27885,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3976 "parsing/parser.mly" +# 3983 "parsing/parser.mly" ("&&") -# 27885 "parsing/parser.ml" +# 27891 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27890 "parsing/parser.ml" +# 27896 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27909,14 +27915,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 3977 "parsing/parser.mly" +# 3984 "parsing/parser.mly" (":=") -# 27915 "parsing/parser.ml" +# 27921 "parsing/parser.ml" in -# 3955 "parsing/parser.mly" +# 3962 "parsing/parser.mly" ( _1 ) -# 27920 "parsing/parser.ml" +# 27926 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27939,9 +27945,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (bool) = -# 3859 "parsing/parser.mly" +# 3866 "parsing/parser.mly" ( true ) -# 27945 "parsing/parser.ml" +# 27951 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27957,9 +27963,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (bool) = -# 3860 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( false ) -# 27963 "parsing/parser.ml" +# 27969 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27977,7 +27983,7 @@ module Tables = struct let _v : (unit option) = # 114 "" ( None ) -# 27981 "parsing/parser.ml" +# 27987 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28002,7 +28008,7 @@ module Tables = struct let _v : (unit option) = # 116 "" ( Some x ) -# 28006 "parsing/parser.ml" +# 28012 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28020,7 +28026,7 @@ module Tables = struct let _v : (unit option) = # 114 "" ( None ) -# 28024 "parsing/parser.ml" +# 28030 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28045,7 +28051,7 @@ module Tables = struct let _v : (unit option) = # 116 "" ( Some x ) -# 28049 "parsing/parser.ml" +# 28055 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28063,7 +28069,7 @@ module Tables = struct let _v : (string Asttypes.loc option) = # 114 "" ( None ) -# 28067 "parsing/parser.ml" +# 28073 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28088,9 +28094,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 28094 "parsing/parser.ml" +# 28100 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -28103,21 +28109,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 28109 "parsing/parser.ml" +# 28115 "parsing/parser.ml" in # 183 "" ( x ) -# 28115 "parsing/parser.ml" +# 28121 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28121 "parsing/parser.ml" +# 28127 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28135,7 +28141,7 @@ module Tables = struct let _v : (Parsetree.core_type option) = # 114 "" ( None ) -# 28139 "parsing/parser.ml" +# 28145 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28167,12 +28173,12 @@ module Tables = struct let _v : (Parsetree.core_type option) = let x = # 183 "" ( x ) -# 28171 "parsing/parser.ml" +# 28177 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28176 "parsing/parser.ml" +# 28182 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28190,7 +28196,7 @@ module Tables = struct let _v : (Parsetree.expression option) = # 114 "" ( None ) -# 28194 "parsing/parser.ml" +# 28200 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28222,12 +28228,12 @@ module Tables = struct let _v : (Parsetree.expression option) = let x = # 183 "" ( x ) -# 28226 "parsing/parser.ml" +# 28232 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28231 "parsing/parser.ml" +# 28237 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28245,7 +28251,7 @@ module Tables = struct let _v : (Parsetree.module_type option) = # 114 "" ( None ) -# 28249 "parsing/parser.ml" +# 28255 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28277,12 +28283,12 @@ module Tables = struct let _v : (Parsetree.module_type option) = let x = # 183 "" ( x ) -# 28281 "parsing/parser.ml" +# 28287 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28286 "parsing/parser.ml" +# 28292 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28300,7 +28306,7 @@ module Tables = struct let _v : (Parsetree.pattern option) = # 114 "" ( None ) -# 28304 "parsing/parser.ml" +# 28310 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28332,12 +28338,12 @@ module Tables = struct let _v : (Parsetree.pattern option) = let x = # 183 "" ( x ) -# 28336 "parsing/parser.ml" +# 28342 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28341 "parsing/parser.ml" +# 28347 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28355,7 +28361,7 @@ module Tables = struct let _v : (Parsetree.expression option) = # 114 "" ( None ) -# 28359 "parsing/parser.ml" +# 28365 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28387,12 +28393,12 @@ module Tables = struct let _v : (Parsetree.expression option) = let x = # 183 "" ( x ) -# 28391 "parsing/parser.ml" +# 28397 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28396 "parsing/parser.ml" +# 28402 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28410,7 +28416,7 @@ module Tables = struct let _v : ((Parsetree.core_type option * Parsetree.core_type option) option) = # 114 "" ( None ) -# 28414 "parsing/parser.ml" +# 28420 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28435,7 +28441,7 @@ module Tables = struct let _v : ((Parsetree.core_type option * Parsetree.core_type option) option) = # 116 "" ( Some x ) -# 28439 "parsing/parser.ml" +# 28445 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28454,17 +28460,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 879 "parsing/parser.mly" +# 885 "parsing/parser.mly" (string) -# 28460 "parsing/parser.ml" +# 28466 "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) = -# 4175 "parsing/parser.mly" +# 4182 "parsing/parser.mly" ( _1 ) -# 28468 "parsing/parser.ml" +# 28474 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28496,18 +28502,18 @@ module Tables = struct } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 28502 "parsing/parser.ml" +# 28508 "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) = -# 4176 "parsing/parser.mly" +# 4183 "parsing/parser.mly" ( _2 ) -# 28511 "parsing/parser.ml" +# 28517 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28561,9 +28567,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1497 "parsing/parser.mly" +# 1503 "parsing/parser.mly" ( mkmod ~loc:_sloc (Pmod_constraint(me, mty)) ) -# 28567 "parsing/parser.ml" +# 28573 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28616,9 +28622,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 -# 1499 "parsing/parser.mly" +# 1505 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 28622 "parsing/parser.ml" +# 28628 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28655,9 +28661,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_expr) = -# 1502 "parsing/parser.mly" +# 1508 "parsing/parser.mly" ( me (* TODO consider reloc *) ) -# 28661 "parsing/parser.ml" +# 28667 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28696,9 +28702,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 -# 1504 "parsing/parser.mly" +# 1510 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 28702 "parsing/parser.ml" +# 28708 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28749,25 +28755,25 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.module_expr) = let e = -# 1521 "parsing/parser.mly" +# 1527 "parsing/parser.mly" ( e ) -# 28755 "parsing/parser.ml" +# 28761 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 28762 "parsing/parser.ml" +# 28768 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1508 "parsing/parser.mly" +# 1514 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 28771 "parsing/parser.ml" +# 28777 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28838,11 +28844,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3834 "parsing/parser.mly" +# 3841 "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 ) -# 28846 "parsing/parser.ml" +# 28852 "parsing/parser.ml" in let _endpos_ty_ = _endpos__1_ in @@ -28850,26 +28856,26 @@ module Tables = struct let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1523 "parsing/parser.mly" +# 1529 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) -# 28856 "parsing/parser.ml" +# 28862 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 28864 "parsing/parser.ml" +# 28870 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1508 "parsing/parser.mly" +# 1514 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 28873 "parsing/parser.ml" +# 28879 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28955,11 +28961,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3834 "parsing/parser.mly" +# 3841 "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 ) -# 28963 "parsing/parser.ml" +# 28969 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined1_ in @@ -28968,37 +28974,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3834 "parsing/parser.mly" +# 3841 "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 ) -# 28976 "parsing/parser.ml" +# 28982 "parsing/parser.ml" in let _endpos = _endpos_ty2_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1525 "parsing/parser.mly" +# 1531 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) -# 28985 "parsing/parser.ml" +# 28991 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 28993 "parsing/parser.ml" +# 28999 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1508 "parsing/parser.mly" +# 1514 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 29002 "parsing/parser.ml" +# 29008 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29069,11 +29075,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3834 "parsing/parser.mly" +# 3841 "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 ) -# 29077 "parsing/parser.ml" +# 29083 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_ in @@ -29081,26 +29087,26 @@ module Tables = struct let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1527 "parsing/parser.mly" +# 1533 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) -# 29087 "parsing/parser.ml" +# 29093 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 29095 "parsing/parser.ml" +# 29101 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1508 "parsing/parser.mly" +# 1514 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 29104 "parsing/parser.ml" +# 29110 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29160,17 +29166,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 29166 "parsing/parser.ml" +# 29172 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1510 "parsing/parser.mly" +# 1516 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 29174 "parsing/parser.ml" +# 29180 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29230,17 +29236,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 29236 "parsing/parser.ml" +# 29242 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1512 "parsing/parser.mly" +# 1518 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 29244 "parsing/parser.ml" +# 29250 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29293,17 +29299,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 29299 "parsing/parser.ml" +# 29305 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1514 "parsing/parser.mly" +# 1520 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 29307 "parsing/parser.ml" +# 29313 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29326,9 +29332,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = -# 3372 "parsing/parser.mly" +# 3379 "parsing/parser.mly" ( _1 ) -# 29332 "parsing/parser.ml" +# 29338 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29372,9 +29378,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = -# 3374 "parsing/parser.mly" +# 3381 "parsing/parser.mly" ( {_2 with ptyp_attributes = [_4]}, _1 ) -# 29378 "parsing/parser.ml" +# 29384 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29404,9 +29410,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1416 "parsing/parser.mly" +# 1422 "parsing/parser.mly" ( _1 ) -# 29410 "parsing/parser.ml" +# 29416 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29436,9 +29442,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1401 "parsing/parser.mly" +# 1407 "parsing/parser.mly" ( _1 ) -# 29442 "parsing/parser.ml" +# 29448 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29468,9 +29474,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = -# 1376 "parsing/parser.mly" +# 1382 "parsing/parser.mly" ( _1 ) -# 29474 "parsing/parser.ml" +# 29480 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29500,9 +29506,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 1381 "parsing/parser.mly" +# 1387 "parsing/parser.mly" ( _1 ) -# 29506 "parsing/parser.ml" +# 29512 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29532,9 +29538,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1406 "parsing/parser.mly" +# 1412 "parsing/parser.mly" ( _1 ) -# 29538 "parsing/parser.ml" +# 29544 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29564,9 +29570,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1411 "parsing/parser.mly" +# 1417 "parsing/parser.mly" ( _1 ) -# 29570 "parsing/parser.ml" +# 29576 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29596,9 +29602,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_expr) = -# 1371 "parsing/parser.mly" +# 1377 "parsing/parser.mly" ( _1 ) -# 29602 "parsing/parser.ml" +# 29608 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29628,9 +29634,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = -# 1366 "parsing/parser.mly" +# 1372 "parsing/parser.mly" ( _1 ) -# 29634 "parsing/parser.ml" +# 29640 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29660,9 +29666,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1391 "parsing/parser.mly" +# 1397 "parsing/parser.mly" ( _1 ) -# 29666 "parsing/parser.ml" +# 29672 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29692,9 +29698,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = -# 1386 "parsing/parser.mly" +# 1392 "parsing/parser.mly" ( _1 ) -# 29698 "parsing/parser.ml" +# 29704 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29724,9 +29730,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1396 "parsing/parser.mly" +# 1402 "parsing/parser.mly" ( _1 ) -# 29730 "parsing/parser.ml" +# 29736 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29768,15 +29774,15 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 3051 "parsing/parser.mly" +# 3057 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 29774 "parsing/parser.ml" +# 29780 "parsing/parser.ml" in -# 3039 "parsing/parser.mly" +# 3045 "parsing/parser.mly" ( _1 ) -# 29780 "parsing/parser.ml" +# 29786 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29806,14 +29812,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = -# 3053 "parsing/parser.mly" +# 3059 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 29812 "parsing/parser.ml" +# 29818 "parsing/parser.ml" in -# 3039 "parsing/parser.mly" +# 3045 "parsing/parser.mly" ( _1 ) -# 29817 "parsing/parser.ml" +# 29823 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29836,14 +29842,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = -# 3055 "parsing/parser.mly" +# 3061 "parsing/parser.mly" ( _1 ) -# 29842 "parsing/parser.ml" +# 29848 "parsing/parser.ml" in -# 3039 "parsing/parser.mly" +# 3045 "parsing/parser.mly" ( _1 ) -# 29847 "parsing/parser.ml" +# 29853 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29888,15 +29894,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 29894 "parsing/parser.ml" +# 29900 "parsing/parser.ml" in -# 3058 "parsing/parser.mly" +# 3064 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) -# 29900 "parsing/parser.ml" +# 29906 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -29904,21 +29910,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 29910 "parsing/parser.ml" +# 29916 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 29916 "parsing/parser.ml" +# 29922 "parsing/parser.ml" in -# 3039 "parsing/parser.mly" +# 3045 "parsing/parser.mly" ( _1 ) -# 29922 "parsing/parser.ml" +# 29928 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29959,9 +29965,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3060 "parsing/parser.mly" +# 3066 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) -# 29965 "parsing/parser.ml" +# 29971 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -29969,21 +29975,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 29975 "parsing/parser.ml" +# 29981 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 29981 "parsing/parser.ml" +# 29987 "parsing/parser.ml" in -# 3039 "parsing/parser.mly" +# 3045 "parsing/parser.mly" ( _1 ) -# 29987 "parsing/parser.ml" +# 29993 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30008,29 +30014,29 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3062 "parsing/parser.mly" +# 3068 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) -# 30014 "parsing/parser.ml" +# 30020 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30022 "parsing/parser.ml" +# 30028 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 30028 "parsing/parser.ml" +# 30034 "parsing/parser.ml" in -# 3039 "parsing/parser.mly" +# 3045 "parsing/parser.mly" ( _1 ) -# 30034 "parsing/parser.ml" +# 30040 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30071,9 +30077,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3064 "parsing/parser.mly" +# 3070 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30077 "parsing/parser.ml" +# 30083 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -30081,21 +30087,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30087 "parsing/parser.ml" +# 30093 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 30093 "parsing/parser.ml" +# 30099 "parsing/parser.ml" in -# 3039 "parsing/parser.mly" +# 3045 "parsing/parser.mly" ( _1 ) -# 30099 "parsing/parser.ml" +# 30105 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30134,30 +30140,30 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3066 "parsing/parser.mly" +# 3072 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 30140 "parsing/parser.ml" +# 30146 "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 -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30149 "parsing/parser.ml" +# 30155 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 30155 "parsing/parser.ml" +# 30161 "parsing/parser.ml" in -# 3039 "parsing/parser.mly" +# 3045 "parsing/parser.mly" ( _1 ) -# 30161 "parsing/parser.ml" +# 30167 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30198,9 +30204,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3068 "parsing/parser.mly" +# 3074 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30204 "parsing/parser.ml" +# 30210 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -30208,21 +30214,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30214 "parsing/parser.ml" +# 30220 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 30220 "parsing/parser.ml" +# 30226 "parsing/parser.ml" in -# 3039 "parsing/parser.mly" +# 3045 "parsing/parser.mly" ( _1 ) -# 30226 "parsing/parser.ml" +# 30232 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30270,24 +30276,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 30276 "parsing/parser.ml" +# 30282 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 30282 "parsing/parser.ml" +# 30288 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3041 "parsing/parser.mly" +# 3047 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2) -# 30291 "parsing/parser.ml" +# 30297 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30324,9 +30330,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3174 "parsing/parser.mly" +# 3181 "parsing/parser.mly" ( _3 :: _1 ) -# 30330 "parsing/parser.ml" +# 30336 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30363,9 +30369,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3175 "parsing/parser.mly" +# 3182 "parsing/parser.mly" ( [_3; _1] ) -# 30369 "parsing/parser.ml" +# 30375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30403,9 +30409,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3176 "parsing/parser.mly" +# 3183 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30409 "parsing/parser.ml" +# 30415 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30442,9 +30448,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3174 "parsing/parser.mly" +# 3181 "parsing/parser.mly" ( _3 :: _1 ) -# 30448 "parsing/parser.ml" +# 30454 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30481,9 +30487,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3175 "parsing/parser.mly" +# 3182 "parsing/parser.mly" ( [_3; _1] ) -# 30487 "parsing/parser.ml" +# 30493 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30521,9 +30527,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3176 "parsing/parser.mly" +# 3183 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30527 "parsing/parser.ml" +# 30533 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30546,9 +30552,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3074 "parsing/parser.mly" +# 3080 "parsing/parser.mly" ( _1 ) -# 30552 "parsing/parser.ml" +# 30558 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30584,15 +30590,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 30590 "parsing/parser.ml" +# 30596 "parsing/parser.ml" in -# 3077 "parsing/parser.mly" +# 3083 "parsing/parser.mly" ( Ppat_construct(_1, Some ([], _2)) ) -# 30596 "parsing/parser.ml" +# 30602 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -30600,15 +30606,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30606 "parsing/parser.ml" +# 30612 "parsing/parser.ml" in -# 3083 "parsing/parser.mly" +# 3089 "parsing/parser.mly" ( _1 ) -# 30612 "parsing/parser.ml" +# 30618 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30668,24 +30674,24 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let newtypes = -# 2793 "parsing/parser.mly" +# 2799 "parsing/parser.mly" ( xs ) -# 30674 "parsing/parser.ml" +# 30680 "parsing/parser.ml" in let constr = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 30683 "parsing/parser.ml" +# 30689 "parsing/parser.ml" in -# 3080 "parsing/parser.mly" +# 3086 "parsing/parser.mly" ( Ppat_construct(constr, Some (newtypes, pat)) ) -# 30689 "parsing/parser.ml" +# 30695 "parsing/parser.ml" in let _endpos__1_ = _endpos_pat_ in @@ -30693,15 +30699,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30699 "parsing/parser.ml" +# 30705 "parsing/parser.ml" in -# 3083 "parsing/parser.mly" +# 3089 "parsing/parser.mly" ( _1 ) -# 30705 "parsing/parser.ml" +# 30711 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30732,24 +30738,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3082 "parsing/parser.mly" +# 3088 "parsing/parser.mly" ( Ppat_variant(_1, Some _2) ) -# 30738 "parsing/parser.ml" +# 30744 "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 -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30747 "parsing/parser.ml" +# 30753 "parsing/parser.ml" in -# 3083 "parsing/parser.mly" +# 3089 "parsing/parser.mly" ( _1 ) -# 30753 "parsing/parser.ml" +# 30759 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30797,24 +30803,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 30803 "parsing/parser.ml" +# 30809 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 30809 "parsing/parser.ml" +# 30815 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3085 "parsing/parser.mly" +# 3091 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2) -# 30818 "parsing/parser.ml" +# 30824 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30856,15 +30862,15 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 3051 "parsing/parser.mly" +# 3057 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 30862 "parsing/parser.ml" +# 30868 "parsing/parser.ml" in -# 3046 "parsing/parser.mly" +# 3052 "parsing/parser.mly" ( _1 ) -# 30868 "parsing/parser.ml" +# 30874 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30894,14 +30900,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = -# 3053 "parsing/parser.mly" +# 3059 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 30900 "parsing/parser.ml" +# 30906 "parsing/parser.ml" in -# 3046 "parsing/parser.mly" +# 3052 "parsing/parser.mly" ( _1 ) -# 30905 "parsing/parser.ml" +# 30911 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30924,14 +30930,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = -# 3055 "parsing/parser.mly" +# 3061 "parsing/parser.mly" ( _1 ) -# 30930 "parsing/parser.ml" +# 30936 "parsing/parser.ml" in -# 3046 "parsing/parser.mly" +# 3052 "parsing/parser.mly" ( _1 ) -# 30935 "parsing/parser.ml" +# 30941 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30976,15 +30982,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 30982 "parsing/parser.ml" +# 30988 "parsing/parser.ml" in -# 3058 "parsing/parser.mly" +# 3064 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) -# 30988 "parsing/parser.ml" +# 30994 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -30992,21 +30998,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30998 "parsing/parser.ml" +# 31004 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 31004 "parsing/parser.ml" +# 31010 "parsing/parser.ml" in -# 3046 "parsing/parser.mly" +# 3052 "parsing/parser.mly" ( _1 ) -# 31010 "parsing/parser.ml" +# 31016 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31047,9 +31053,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3060 "parsing/parser.mly" +# 3066 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) -# 31053 "parsing/parser.ml" +# 31059 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31057,21 +31063,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31063 "parsing/parser.ml" +# 31069 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 31069 "parsing/parser.ml" +# 31075 "parsing/parser.ml" in -# 3046 "parsing/parser.mly" +# 3052 "parsing/parser.mly" ( _1 ) -# 31075 "parsing/parser.ml" +# 31081 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31096,29 +31102,29 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3062 "parsing/parser.mly" +# 3068 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) -# 31102 "parsing/parser.ml" +# 31108 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31110 "parsing/parser.ml" +# 31116 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 31116 "parsing/parser.ml" +# 31122 "parsing/parser.ml" in -# 3046 "parsing/parser.mly" +# 3052 "parsing/parser.mly" ( _1 ) -# 31122 "parsing/parser.ml" +# 31128 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31159,9 +31165,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3064 "parsing/parser.mly" +# 3070 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 31165 "parsing/parser.ml" +# 31171 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31169,21 +31175,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31175 "parsing/parser.ml" +# 31181 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 31181 "parsing/parser.ml" +# 31187 "parsing/parser.ml" in -# 3046 "parsing/parser.mly" +# 3052 "parsing/parser.mly" ( _1 ) -# 31187 "parsing/parser.ml" +# 31193 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31222,30 +31228,30 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3066 "parsing/parser.mly" +# 3072 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 31228 "parsing/parser.ml" +# 31234 "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 -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31237 "parsing/parser.ml" +# 31243 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 31243 "parsing/parser.ml" +# 31249 "parsing/parser.ml" in -# 3046 "parsing/parser.mly" +# 3052 "parsing/parser.mly" ( _1 ) -# 31249 "parsing/parser.ml" +# 31255 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31286,9 +31292,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3068 "parsing/parser.mly" +# 3074 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 31292 "parsing/parser.ml" +# 31298 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31296,21 +31302,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31302 "parsing/parser.ml" +# 31308 "parsing/parser.ml" in -# 3069 "parsing/parser.mly" +# 3075 "parsing/parser.mly" ( _1 ) -# 31308 "parsing/parser.ml" +# 31314 "parsing/parser.ml" in -# 3046 "parsing/parser.mly" +# 3052 "parsing/parser.mly" ( _1 ) -# 31314 "parsing/parser.ml" +# 31320 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31329,9 +31335,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 31335 "parsing/parser.ml" +# 31341 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31343,30 +31349,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 31349 "parsing/parser.ml" +# 31355 "parsing/parser.ml" in -# 2402 "parsing/parser.mly" +# 2408 "parsing/parser.mly" ( Ppat_var _1 ) -# 31355 "parsing/parser.ml" +# 31361 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31364 "parsing/parser.ml" +# 31370 "parsing/parser.ml" in -# 2404 "parsing/parser.mly" +# 2410 "parsing/parser.mly" ( _1 ) -# 31370 "parsing/parser.ml" +# 31376 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31390,23 +31396,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2403 "parsing/parser.mly" +# 2409 "parsing/parser.mly" ( Ppat_any ) -# 31396 "parsing/parser.ml" +# 31402 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31404 "parsing/parser.ml" +# 31410 "parsing/parser.ml" in -# 2404 "parsing/parser.mly" +# 2410 "parsing/parser.mly" ( _1 ) -# 31410 "parsing/parser.ml" +# 31416 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31429,9 +31435,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = -# 4289 "parsing/parser.mly" +# 4296 "parsing/parser.mly" ( PStr _1 ) -# 31435 "parsing/parser.ml" +# 31441 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31461,9 +31467,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4290 "parsing/parser.mly" +# 4297 "parsing/parser.mly" ( PSig _2 ) -# 31467 "parsing/parser.ml" +# 31473 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31493,9 +31499,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4291 "parsing/parser.mly" +# 4298 "parsing/parser.mly" ( PTyp _2 ) -# 31499 "parsing/parser.ml" +# 31505 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31525,9 +31531,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4292 "parsing/parser.mly" +# 4299 "parsing/parser.mly" ( PPat (_2, None) ) -# 31531 "parsing/parser.ml" +# 31537 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31571,9 +31577,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.payload) = -# 4293 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( PPat (_2, Some _4) ) -# 31577 "parsing/parser.ml" +# 31583 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31596,9 +31602,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 3638 "parsing/parser.mly" +# 3645 "parsing/parser.mly" ( _1 ) -# 31602 "parsing/parser.ml" +# 31608 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31641,24 +31647,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 31645 "parsing/parser.ml" +# 31651 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 31650 "parsing/parser.ml" +# 31656 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 31656 "parsing/parser.ml" +# 31662 "parsing/parser.ml" in -# 3634 "parsing/parser.mly" +# 3641 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 31662 "parsing/parser.ml" +# 31668 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_xs_) in @@ -31666,15 +31672,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 31672 "parsing/parser.ml" +# 31678 "parsing/parser.ml" in -# 3640 "parsing/parser.mly" +# 3647 "parsing/parser.mly" ( _1 ) -# 31678 "parsing/parser.ml" +# 31684 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31697,14 +31703,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = -# 3669 "parsing/parser.mly" +# 3676 "parsing/parser.mly" ( _1 ) -# 31703 "parsing/parser.ml" +# 31709 "parsing/parser.ml" in -# 3638 "parsing/parser.mly" +# 3645 "parsing/parser.mly" ( _1 ) -# 31708 "parsing/parser.ml" +# 31714 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31743,33 +31749,33 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let _3 = -# 3669 "parsing/parser.mly" +# 3676 "parsing/parser.mly" ( _1 ) -# 31749 "parsing/parser.ml" +# 31755 "parsing/parser.ml" in let _1 = let _1 = let xs = # 253 "" ( List.rev xs ) -# 31756 "parsing/parser.ml" +# 31762 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 31761 "parsing/parser.ml" +# 31767 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 31767 "parsing/parser.ml" +# 31773 "parsing/parser.ml" in -# 3634 "parsing/parser.mly" +# 3641 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 31773 "parsing/parser.ml" +# 31779 "parsing/parser.ml" in let _startpos__1_ = _startpos_xs_ in @@ -31777,15 +31783,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 31783 "parsing/parser.ml" +# 31789 "parsing/parser.ml" in -# 3640 "parsing/parser.mly" +# 3647 "parsing/parser.mly" ( _1 ) -# 31789 "parsing/parser.ml" +# 31795 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31832,9 +31838,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4250 "parsing/parser.mly" +# 4257 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 31838 "parsing/parser.ml" +# 31844 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31915,9 +31921,9 @@ module Tables = struct let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 31921 "parsing/parser.ml" +# 31927 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -31927,30 +31933,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 31933 "parsing/parser.ml" +# 31939 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 31941 "parsing/parser.ml" +# 31947 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3238 "parsing/parser.mly" +# 3245 "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 ) -# 31954 "parsing/parser.ml" +# 31960 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31966,14 +31972,14 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag) = let _1 = -# 4105 "parsing/parser.mly" +# 4112 "parsing/parser.mly" ( Public ) -# 31972 "parsing/parser.ml" +# 31978 "parsing/parser.ml" in -# 4102 "parsing/parser.mly" +# 4109 "parsing/parser.mly" ( _1 ) -# 31977 "parsing/parser.ml" +# 31983 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31996,14 +32002,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = let _1 = -# 4106 "parsing/parser.mly" +# 4113 "parsing/parser.mly" ( Private ) -# 32002 "parsing/parser.ml" +# 32008 "parsing/parser.ml" in -# 4102 "parsing/parser.mly" +# 4109 "parsing/parser.mly" ( _1 ) -# 32007 "parsing/parser.ml" +# 32013 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32019,9 +32025,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4139 "parsing/parser.mly" +# 4146 "parsing/parser.mly" ( Public, Concrete ) -# 32025 "parsing/parser.ml" +# 32031 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32044,9 +32050,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4140 "parsing/parser.mly" +# 4147 "parsing/parser.mly" ( Private, Concrete ) -# 32050 "parsing/parser.ml" +# 32056 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32069,9 +32075,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4141 "parsing/parser.mly" +# 4148 "parsing/parser.mly" ( Public, Virtual ) -# 32075 "parsing/parser.ml" +# 32081 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32101,9 +32107,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4142 "parsing/parser.mly" +# 4149 "parsing/parser.mly" ( Private, Virtual ) -# 32107 "parsing/parser.ml" +# 32113 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32133,9 +32139,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4143 "parsing/parser.mly" +# 4150 "parsing/parser.mly" ( Private, Virtual ) -# 32139 "parsing/parser.ml" +# 32145 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32151,9 +32157,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.rec_flag) = -# 4083 "parsing/parser.mly" +# 4090 "parsing/parser.mly" ( Nonrecursive ) -# 32157 "parsing/parser.ml" +# 32163 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32176,9 +32182,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.rec_flag) = -# 4084 "parsing/parser.mly" +# 4091 "parsing/parser.mly" ( Recursive ) -# 32182 "parsing/parser.ml" +# 32188 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32204,12 +32210,12 @@ module Tables = struct (Longident.t Asttypes.loc * Parsetree.expression) list) = let eo = # 124 "" ( None ) -# 32208 "parsing/parser.ml" +# 32214 "parsing/parser.ml" in -# 2971 "parsing/parser.mly" +# 2977 "parsing/parser.mly" ( eo, fields ) -# 32213 "parsing/parser.ml" +# 32219 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32250,18 +32256,18 @@ module Tables = struct let x = # 191 "" ( x ) -# 32254 "parsing/parser.ml" +# 32260 "parsing/parser.ml" in # 126 "" ( Some x ) -# 32259 "parsing/parser.ml" +# 32265 "parsing/parser.ml" in -# 2971 "parsing/parser.mly" +# 2977 "parsing/parser.mly" ( eo, fields ) -# 32265 "parsing/parser.ml" +# 32271 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32286,17 +32292,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3438 "parsing/parser.mly" +# 3445 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32295 "parsing/parser.ml" +# 32301 "parsing/parser.ml" in -# 1258 "parsing/parser.mly" +# 1264 "parsing/parser.mly" ( [x] ) -# 32300 "parsing/parser.ml" +# 32306 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32321,17 +32327,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3438 "parsing/parser.mly" +# 3445 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32330 "parsing/parser.ml" +# 32336 "parsing/parser.ml" in -# 1261 "parsing/parser.mly" +# 1267 "parsing/parser.mly" ( [x] ) -# 32335 "parsing/parser.ml" +# 32341 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32363,17 +32369,17 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3438 "parsing/parser.mly" +# 3445 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32372 "parsing/parser.ml" +# 32378 "parsing/parser.ml" in -# 1265 "parsing/parser.mly" +# 1271 "parsing/parser.mly" ( x :: xs ) -# 32377 "parsing/parser.ml" +# 32383 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32399,23 +32405,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3568 "parsing/parser.mly" +# 3575 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32408 "parsing/parser.ml" +# 32414 "parsing/parser.ml" in -# 3562 "parsing/parser.mly" +# 3569 "parsing/parser.mly" ( _1 ) -# 32413 "parsing/parser.ml" +# 32419 "parsing/parser.ml" in -# 1258 "parsing/parser.mly" +# 1264 "parsing/parser.mly" ( [x] ) -# 32419 "parsing/parser.ml" +# 32425 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32438,14 +32444,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3564 "parsing/parser.mly" +# 3571 "parsing/parser.mly" ( _1 ) -# 32444 "parsing/parser.ml" +# 32450 "parsing/parser.ml" in -# 1258 "parsing/parser.mly" +# 1264 "parsing/parser.mly" ( [x] ) -# 32449 "parsing/parser.ml" +# 32455 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32471,23 +32477,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3568 "parsing/parser.mly" +# 3575 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32480 "parsing/parser.ml" +# 32486 "parsing/parser.ml" in -# 3562 "parsing/parser.mly" +# 3569 "parsing/parser.mly" ( _1 ) -# 32485 "parsing/parser.ml" +# 32491 "parsing/parser.ml" in -# 1261 "parsing/parser.mly" +# 1267 "parsing/parser.mly" ( [x] ) -# 32491 "parsing/parser.ml" +# 32497 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32510,14 +32516,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3564 "parsing/parser.mly" +# 3571 "parsing/parser.mly" ( _1 ) -# 32516 "parsing/parser.ml" +# 32522 "parsing/parser.ml" in -# 1261 "parsing/parser.mly" +# 1267 "parsing/parser.mly" ( [x] ) -# 32521 "parsing/parser.ml" +# 32527 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32550,23 +32556,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3568 "parsing/parser.mly" +# 3575 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32559 "parsing/parser.ml" +# 32565 "parsing/parser.ml" in -# 3562 "parsing/parser.mly" +# 3569 "parsing/parser.mly" ( _1 ) -# 32564 "parsing/parser.ml" +# 32570 "parsing/parser.ml" in -# 1265 "parsing/parser.mly" +# 1271 "parsing/parser.mly" ( x :: xs ) -# 32570 "parsing/parser.ml" +# 32576 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32596,14 +32602,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3564 "parsing/parser.mly" +# 3571 "parsing/parser.mly" ( _1 ) -# 32602 "parsing/parser.ml" +# 32608 "parsing/parser.ml" in -# 1265 "parsing/parser.mly" +# 1271 "parsing/parser.mly" ( x :: xs ) -# 32607 "parsing/parser.ml" +# 32613 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32628,17 +32634,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3568 "parsing/parser.mly" +# 3575 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32637 "parsing/parser.ml" +# 32643 "parsing/parser.ml" in -# 1258 "parsing/parser.mly" +# 1264 "parsing/parser.mly" ( [x] ) -# 32642 "parsing/parser.ml" +# 32648 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32663,17 +32669,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3568 "parsing/parser.mly" +# 3575 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32672 "parsing/parser.ml" +# 32678 "parsing/parser.ml" in -# 1261 "parsing/parser.mly" +# 1267 "parsing/parser.mly" ( [x] ) -# 32677 "parsing/parser.ml" +# 32683 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32705,17 +32711,17 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3568 "parsing/parser.mly" +# 3575 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32714 "parsing/parser.ml" +# 32720 "parsing/parser.ml" in -# 1265 "parsing/parser.mly" +# 1271 "parsing/parser.mly" ( x :: xs ) -# 32719 "parsing/parser.ml" +# 32725 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32731,9 +32737,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) = -# 1124 "parsing/parser.mly" +# 1130 "parsing/parser.mly" ( [] ) -# 32737 "parsing/parser.ml" +# 32743 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32790,21 +32796,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2271 "parsing/parser.mly" +# 2277 "parsing/parser.mly" ( _1, _3, make_loc _sloc ) -# 32796 "parsing/parser.ml" +# 32802 "parsing/parser.ml" in # 183 "" ( x ) -# 32802 "parsing/parser.ml" +# 32808 "parsing/parser.ml" in -# 1126 "parsing/parser.mly" +# 1132 "parsing/parser.mly" ( x :: xs ) -# 32808 "parsing/parser.ml" +# 32814 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32827,9 +32833,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause list) = -# 1138 "parsing/parser.mly" +# 1144 "parsing/parser.mly" ( [ x ] ) -# 32833 "parsing/parser.ml" +# 32839 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32859,9 +32865,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause list) = -# 1140 "parsing/parser.mly" +# 1146 "parsing/parser.mly" ( x :: xs ) -# 32865 "parsing/parser.ml" +# 32871 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32884,9 +32890,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = -# 1138 "parsing/parser.mly" +# 1144 "parsing/parser.mly" ( [ x ] ) -# 32890 "parsing/parser.ml" +# 32896 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32916,9 +32922,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = -# 1140 "parsing/parser.mly" +# 1146 "parsing/parser.mly" ( x :: xs ) -# 32922 "parsing/parser.ml" +# 32928 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32941,9 +32947,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = -# 1138 "parsing/parser.mly" +# 1144 "parsing/parser.mly" ( [ x ] ) -# 32947 "parsing/parser.ml" +# 32953 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32973,9 +32979,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = -# 1140 "parsing/parser.mly" +# 1146 "parsing/parser.mly" ( x :: xs ) -# 32979 "parsing/parser.ml" +# 32985 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32998,9 +33004,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = -# 1138 "parsing/parser.mly" +# 1144 "parsing/parser.mly" ( [ x ] ) -# 33004 "parsing/parser.ml" +# 33010 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33030,9 +33036,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = -# 1140 "parsing/parser.mly" +# 1146 "parsing/parser.mly" ( x :: xs ) -# 33036 "parsing/parser.ml" +# 33042 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33068,21 +33074,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 33074 "parsing/parser.ml" +# 33080 "parsing/parser.ml" in -# 3626 "parsing/parser.mly" +# 3633 "parsing/parser.mly" ( _2 ) -# 33080 "parsing/parser.ml" +# 33086 "parsing/parser.ml" in -# 1138 "parsing/parser.mly" +# 1144 "parsing/parser.mly" ( [ x ] ) -# 33086 "parsing/parser.ml" +# 33092 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33125,21 +33131,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 33131 "parsing/parser.ml" +# 33137 "parsing/parser.ml" in -# 3626 "parsing/parser.mly" +# 3633 "parsing/parser.mly" ( _2 ) -# 33137 "parsing/parser.ml" +# 33143 "parsing/parser.ml" in -# 1140 "parsing/parser.mly" +# 1146 "parsing/parser.mly" ( x :: xs ) -# 33143 "parsing/parser.ml" +# 33149 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33164,12 +33170,12 @@ module Tables = struct let _v : (Parsetree.case list) = let _1 = # 124 "" ( None ) -# 33168 "parsing/parser.ml" +# 33174 "parsing/parser.ml" in -# 1229 "parsing/parser.mly" +# 1235 "parsing/parser.mly" ( [x] ) -# 33173 "parsing/parser.ml" +# 33179 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33203,13 +33209,13 @@ module Tables = struct # 126 "" ( Some x ) -# 33207 "parsing/parser.ml" +# 33213 "parsing/parser.ml" in -# 1229 "parsing/parser.mly" +# 1235 "parsing/parser.mly" ( [x] ) -# 33213 "parsing/parser.ml" +# 33219 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33246,9 +33252,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.case list) = -# 1233 "parsing/parser.mly" +# 1239 "parsing/parser.mly" ( x :: xs ) -# 33252 "parsing/parser.ml" +# 33258 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33272,20 +33278,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type list) = let xs = let x = -# 3669 "parsing/parser.mly" +# 3676 "parsing/parser.mly" ( _1 ) -# 33278 "parsing/parser.ml" +# 33284 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 33283 "parsing/parser.ml" +# 33289 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33289 "parsing/parser.ml" +# 33295 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33323,20 +33329,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type list) = let xs = let x = -# 3669 "parsing/parser.mly" +# 3676 "parsing/parser.mly" ( _1 ) -# 33329 "parsing/parser.ml" +# 33335 "parsing/parser.ml" in -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 33334 "parsing/parser.ml" +# 33340 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33340 "parsing/parser.ml" +# 33346 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33359,14 +33365,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause_binding list) = let xs = -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 33365 "parsing/parser.ml" +# 33371 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33370 "parsing/parser.ml" +# 33376 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33403,14 +33409,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause_binding list) = let xs = -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 33409 "parsing/parser.ml" +# 33415 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33414 "parsing/parser.ml" +# 33420 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33433,14 +33439,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.with_constraint list) = let xs = -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 33439 "parsing/parser.ml" +# 33445 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33444 "parsing/parser.ml" +# 33450 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33477,14 +33483,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.with_constraint list) = let xs = -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 33483 "parsing/parser.ml" +# 33489 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33488 "parsing/parser.ml" +# 33494 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33507,14 +33513,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.row_field list) = let xs = -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 33513 "parsing/parser.ml" +# 33519 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33518 "parsing/parser.ml" +# 33524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33551,14 +33557,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.row_field list) = let xs = -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 33557 "parsing/parser.ml" +# 33563 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33562 "parsing/parser.ml" +# 33568 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33581,14 +33587,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = let xs = -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 33587 "parsing/parser.ml" +# 33593 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33592 "parsing/parser.ml" +# 33598 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33625,14 +33631,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = let xs = -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 33631 "parsing/parser.ml" +# 33637 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33636 "parsing/parser.ml" +# 33642 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33655,14 +33661,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 = -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 33661 "parsing/parser.ml" +# 33667 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33666 "parsing/parser.ml" +# 33672 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33699,14 +33705,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 = -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 33705 "parsing/parser.ml" +# 33711 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33710 "parsing/parser.ml" +# 33716 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33729,14 +33735,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 = -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 33735 "parsing/parser.ml" +# 33741 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33740 "parsing/parser.ml" +# 33746 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33773,14 +33779,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 = -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 33779 "parsing/parser.ml" +# 33785 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33784 "parsing/parser.ml" +# 33790 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33805,30 +33811,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4119 "parsing/parser.mly" +# 4126 "parsing/parser.mly" ( Nothing ) -# 33811 "parsing/parser.ml" +# 33817 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33820 "parsing/parser.ml" +# 33826 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 33826 "parsing/parser.ml" +# 33832 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33832 "parsing/parser.ml" +# 33838 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33860,30 +33866,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4120 "parsing/parser.mly" +# 4127 "parsing/parser.mly" ( Global ) -# 33866 "parsing/parser.ml" +# 33872 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33875 "parsing/parser.ml" +# 33881 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 33881 "parsing/parser.ml" +# 33887 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33887 "parsing/parser.ml" +# 33893 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33915,30 +33921,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4121 "parsing/parser.mly" +# 4128 "parsing/parser.mly" ( Nonlocal ) -# 33921 "parsing/parser.ml" +# 33927 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33930 "parsing/parser.ml" +# 33936 "parsing/parser.ml" in -# 1164 "parsing/parser.mly" +# 1170 "parsing/parser.mly" ( [ x ] ) -# 33936 "parsing/parser.ml" +# 33942 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 33942 "parsing/parser.ml" +# 33948 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33978,30 +33984,30 @@ module Tables = struct let x = let _endpos__0_ = _endpos__2_ in let gbl = -# 4119 "parsing/parser.mly" +# 4126 "parsing/parser.mly" ( Nothing ) -# 33984 "parsing/parser.ml" +# 33990 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33993 "parsing/parser.ml" +# 33999 "parsing/parser.ml" in -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 33999 "parsing/parser.ml" +# 34005 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 34005 "parsing/parser.ml" +# 34011 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34047,30 +34053,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4120 "parsing/parser.mly" +# 4127 "parsing/parser.mly" ( Global ) -# 34053 "parsing/parser.ml" +# 34059 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34062 "parsing/parser.ml" +# 34068 "parsing/parser.ml" in -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 34068 "parsing/parser.ml" +# 34074 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 34074 "parsing/parser.ml" +# 34080 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34116,30 +34122,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4121 "parsing/parser.mly" +# 4128 "parsing/parser.mly" ( Nonlocal ) -# 34122 "parsing/parser.ml" +# 34128 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3495 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34131 "parsing/parser.ml" +# 34137 "parsing/parser.ml" in -# 1168 "parsing/parser.mly" +# 1174 "parsing/parser.mly" ( x :: xs ) -# 34137 "parsing/parser.ml" +# 34143 "parsing/parser.ml" in -# 1172 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( xs ) -# 34143 "parsing/parser.ml" +# 34149 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34176,9 +34182,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = -# 1195 "parsing/parser.mly" +# 1201 "parsing/parser.mly" ( x :: xs ) -# 34182 "parsing/parser.ml" +# 34188 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34215,9 +34221,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.core_type list) = -# 1199 "parsing/parser.mly" +# 1205 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34221 "parsing/parser.ml" +# 34227 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34254,9 +34260,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.expression list) = -# 1195 "parsing/parser.mly" +# 1201 "parsing/parser.mly" ( x :: xs ) -# 34260 "parsing/parser.ml" +# 34266 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34293,9 +34299,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.expression list) = -# 1199 "parsing/parser.mly" +# 1205 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34299 "parsing/parser.ml" +# 34305 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34332,9 +34338,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = -# 1195 "parsing/parser.mly" +# 1201 "parsing/parser.mly" ( x :: xs ) -# 34338 "parsing/parser.ml" +# 34344 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34371,9 +34377,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.core_type list) = -# 1199 "parsing/parser.mly" +# 1205 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34377 "parsing/parser.ml" +# 34383 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34396,9 +34402,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.row_field) = -# 3844 "parsing/parser.mly" +# 3851 "parsing/parser.mly" ( _1 ) -# 34402 "parsing/parser.ml" +# 34408 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34424,9 +34430,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3846 "parsing/parser.mly" +# 3853 "parsing/parser.mly" ( Rf.inherit_ ~loc:(make_loc _sloc) _1 ) -# 34430 "parsing/parser.ml" +# 34436 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34451,12 +34457,12 @@ module Tables = struct let _v : (Parsetree.expression list) = let _2 = # 124 "" ( None ) -# 34455 "parsing/parser.ml" +# 34461 "parsing/parser.ml" in -# 1216 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( [x] ) -# 34460 "parsing/parser.ml" +# 34466 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34490,13 +34496,13 @@ module Tables = struct # 126 "" ( Some x ) -# 34494 "parsing/parser.ml" +# 34500 "parsing/parser.ml" in -# 1216 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( [x] ) -# 34500 "parsing/parser.ml" +# 34506 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34533,9 +34539,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.expression list) = -# 1220 "parsing/parser.mly" +# 1226 "parsing/parser.mly" ( x :: xs ) -# 34539 "parsing/parser.ml" +# 34545 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34561,9 +34567,9 @@ module Tables = struct } = _menhir_stack in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 34567 "parsing/parser.ml" +# 34573 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34571,26 +34577,26 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) -# 34575 "parsing/parser.ml" +# 34581 "parsing/parser.ml" in let x = let label = let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 34582 "parsing/parser.ml" +# 34588 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34590 "parsing/parser.ml" +# 34596 "parsing/parser.ml" in -# 2994 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34600,13 +34606,13 @@ module Tables = struct label, e in label, e ) -# 34604 "parsing/parser.ml" +# 34610 "parsing/parser.ml" in -# 1216 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( [x] ) -# 34610 "parsing/parser.ml" +# 34616 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34639,9 +34645,9 @@ module Tables = struct let x : unit = Obj.magic x in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 34645 "parsing/parser.ml" +# 34651 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34649,26 +34655,26 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) -# 34653 "parsing/parser.ml" +# 34659 "parsing/parser.ml" in let x = let label = let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 34660 "parsing/parser.ml" +# 34666 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34668 "parsing/parser.ml" +# 34674 "parsing/parser.ml" in -# 2994 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34678,13 +34684,13 @@ module Tables = struct label, e in label, e ) -# 34682 "parsing/parser.ml" +# 34688 "parsing/parser.ml" in -# 1216 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( [x] ) -# 34688 "parsing/parser.ml" +# 34694 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34724,9 +34730,9 @@ module Tables = struct let _2 : unit = Obj.magic _2 in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 34730 "parsing/parser.ml" +# 34736 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34734,21 +34740,21 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let x = let label = let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 34740 "parsing/parser.ml" +# 34746 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34748 "parsing/parser.ml" +# 34754 "parsing/parser.ml" in -# 2994 "parsing/parser.mly" +# 3000 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34758,13 +34764,13 @@ module Tables = struct label, e in label, e ) -# 34762 "parsing/parser.ml" +# 34768 "parsing/parser.ml" in -# 1220 "parsing/parser.mly" +# 1226 "parsing/parser.mly" ( x :: xs ) -# 34768 "parsing/parser.ml" +# 34774 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34789,12 +34795,12 @@ module Tables = struct let _v : (Parsetree.pattern list) = let _2 = # 124 "" ( None ) -# 34793 "parsing/parser.ml" +# 34799 "parsing/parser.ml" in -# 1216 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( [x] ) -# 34798 "parsing/parser.ml" +# 34804 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34828,13 +34834,13 @@ module Tables = struct # 126 "" ( Some x ) -# 34832 "parsing/parser.ml" +# 34838 "parsing/parser.ml" in -# 1216 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( [x] ) -# 34838 "parsing/parser.ml" +# 34844 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34871,9 +34877,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.pattern list) = -# 1220 "parsing/parser.mly" +# 1226 "parsing/parser.mly" ( x :: xs ) -# 34877 "parsing/parser.ml" +# 34883 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34912,7 +34918,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) -# 34916 "parsing/parser.ml" +# 34922 "parsing/parser.ml" in let x = let label = @@ -34920,9 +34926,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34926 "parsing/parser.ml" +# 34932 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -34930,7 +34936,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 2977 "parsing/parser.mly" +# 2983 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -34940,13 +34946,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 34944 "parsing/parser.ml" +# 34950 "parsing/parser.ml" in -# 1216 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( [x] ) -# 34950 "parsing/parser.ml" +# 34956 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34992,7 +34998,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) -# 34996 "parsing/parser.ml" +# 35002 "parsing/parser.ml" in let x = let label = @@ -35000,9 +35006,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35006 "parsing/parser.ml" +# 35012 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -35010,7 +35016,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 2977 "parsing/parser.mly" +# 2983 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -35020,13 +35026,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35024 "parsing/parser.ml" +# 35030 "parsing/parser.ml" in -# 1216 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( [x] ) -# 35030 "parsing/parser.ml" +# 35036 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35082,9 +35088,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35088 "parsing/parser.ml" +# 35094 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -35092,7 +35098,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 2977 "parsing/parser.mly" +# 2983 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -35102,13 +35108,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35106 "parsing/parser.ml" +# 35112 "parsing/parser.ml" in -# 1220 "parsing/parser.mly" +# 1226 "parsing/parser.mly" ( x :: xs ) -# 35112 "parsing/parser.ml" +# 35118 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35131,9 +35137,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2360 "parsing/parser.mly" +# 2366 "parsing/parser.mly" ( _1 ) -# 35137 "parsing/parser.ml" +# 35143 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35163,9 +35169,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2361 "parsing/parser.mly" +# 2367 "parsing/parser.mly" ( _1 ) -# 35169 "parsing/parser.ml" +# 35175 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35203,24 +35209,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2363 "parsing/parser.mly" +# 2369 "parsing/parser.mly" ( Pexp_sequence(_1, _3) ) -# 35209 "parsing/parser.ml" +# 35215 "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 -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 35218 "parsing/parser.ml" +# 35224 "parsing/parser.ml" in -# 2364 "parsing/parser.mly" +# 2370 "parsing/parser.mly" ( _1 ) -# 35224 "parsing/parser.ml" +# 35230 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35274,11 +35280,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2366 "parsing/parser.mly" +# 2372 "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)) ) -# 35282 "parsing/parser.ml" +# 35288 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35346,18 +35352,18 @@ module Tables = struct let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined4 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 35352 "parsing/parser.ml" +# 35358 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined4_ in let attrs2 = let _1 = _1_inlined3 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 35361 "parsing/parser.ml" +# 35367 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -35367,17 +35373,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35373 "parsing/parser.ml" +# 35379 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 35381 "parsing/parser.ml" +# 35387 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in @@ -35385,14 +35391,14 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3468 "parsing/parser.mly" +# 3475 "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 ) -# 35396 "parsing/parser.ml" +# 35402 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35418,21 +35424,21 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 35422 "parsing/parser.ml" +# 35428 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1039 "parsing/parser.mly" +# 1045 "parsing/parser.mly" ( extra_sig _startpos _endpos _1 ) -# 35430 "parsing/parser.ml" +# 35436 "parsing/parser.ml" in -# 1806 "parsing/parser.mly" +# 1812 "parsing/parser.mly" ( _1 ) -# 35436 "parsing/parser.ml" +# 35442 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35464,9 +35470,9 @@ module Tables = struct let _v : (Parsetree.signature_item) = let _2 = let _1 = _1_inlined1 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 35470 "parsing/parser.ml" +# 35476 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -35474,10 +35480,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1821 "parsing/parser.mly" +# 1827 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mksig ~loc:_sloc (Psig_extension (_1, (add_docs_attrs docs _2))) ) -# 35481 "parsing/parser.ml" +# 35487 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35501,23 +35507,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1825 "parsing/parser.mly" +# 1831 "parsing/parser.mly" ( Psig_attribute _1 ) -# 35507 "parsing/parser.ml" +# 35513 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1087 "parsing/parser.mly" +# 1093 "parsing/parser.mly" ( mksig ~loc:_sloc _1 ) -# 35515 "parsing/parser.ml" +# 35521 "parsing/parser.ml" in -# 1827 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( _1 ) -# 35521 "parsing/parser.ml" +# 35527 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35541,23 +35547,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1830 "parsing/parser.mly" +# 1836 "parsing/parser.mly" ( psig_value _1 ) -# 35547 "parsing/parser.ml" +# 35553 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35555 "parsing/parser.ml" +# 35561 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 35561 "parsing/parser.ml" +# 35567 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35581,23 +35587,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1832 "parsing/parser.mly" +# 1838 "parsing/parser.mly" ( psig_value _1 ) -# 35587 "parsing/parser.ml" +# 35593 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35595 "parsing/parser.ml" +# 35601 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 35601 "parsing/parser.ml" +# 35607 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35632,26 +35638,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1277 "parsing/parser.mly" +# 1283 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 35638 "parsing/parser.ml" +# 35644 "parsing/parser.ml" in -# 3274 "parsing/parser.mly" +# 3281 "parsing/parser.mly" ( _1 ) -# 35643 "parsing/parser.ml" +# 35649 "parsing/parser.ml" in -# 3257 "parsing/parser.mly" +# 3264 "parsing/parser.mly" ( _1 ) -# 35649 "parsing/parser.ml" +# 35655 "parsing/parser.ml" in -# 1834 "parsing/parser.mly" +# 1840 "parsing/parser.mly" ( psig_type _1 ) -# 35655 "parsing/parser.ml" +# 35661 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -35659,15 +35665,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35665 "parsing/parser.ml" +# 35671 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 35671 "parsing/parser.ml" +# 35677 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35702,26 +35708,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1277 "parsing/parser.mly" +# 1283 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 35708 "parsing/parser.ml" +# 35714 "parsing/parser.ml" in -# 3274 "parsing/parser.mly" +# 3281 "parsing/parser.mly" ( _1 ) -# 35713 "parsing/parser.ml" +# 35719 "parsing/parser.ml" in -# 3262 "parsing/parser.mly" +# 3269 "parsing/parser.mly" ( _1 ) -# 35719 "parsing/parser.ml" +# 35725 "parsing/parser.ml" in -# 1836 "parsing/parser.mly" +# 1842 "parsing/parser.mly" ( psig_typesubst _1 ) -# 35725 "parsing/parser.ml" +# 35731 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -35729,15 +35735,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35735 "parsing/parser.ml" +# 35741 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 35741 "parsing/parser.ml" +# 35747 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35822,16 +35828,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 35828 "parsing/parser.ml" +# 35834 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = -# 1269 "parsing/parser.mly" +# 1275 "parsing/parser.mly" ( List.rev xs ) -# 35835 "parsing/parser.ml" +# 35841 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -35839,46 +35845,46 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35845 "parsing/parser.ml" +# 35851 "parsing/parser.ml" in let _4 = -# 4091 "parsing/parser.mly" +# 4098 "parsing/parser.mly" ( Recursive ) -# 35851 "parsing/parser.ml" +# 35857 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 35858 "parsing/parser.ml" +# 35864 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3555 "parsing/parser.mly" +# 3562 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 35870 "parsing/parser.ml" +# 35876 "parsing/parser.ml" in -# 3542 "parsing/parser.mly" +# 3549 "parsing/parser.mly" ( _1 ) -# 35876 "parsing/parser.ml" +# 35882 "parsing/parser.ml" in -# 1838 "parsing/parser.mly" +# 1844 "parsing/parser.mly" ( psig_typext _1 ) -# 35882 "parsing/parser.ml" +# 35888 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -35886,15 +35892,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35892 "parsing/parser.ml" +# 35898 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 35898 "parsing/parser.ml" +# 35904 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35986,16 +35992,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 35992 "parsing/parser.ml" +# 35998 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = -# 1269 "parsing/parser.mly" +# 1275 "parsing/parser.mly" ( List.rev xs ) -# 35999 "parsing/parser.ml" +# 36005 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -36003,9 +36009,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36009 "parsing/parser.ml" +# 36015 "parsing/parser.ml" in let _4 = @@ -36014,41 +36020,41 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4093 "parsing/parser.mly" +# 4100 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 36020 "parsing/parser.ml" +# 36026 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 36028 "parsing/parser.ml" +# 36034 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3555 "parsing/parser.mly" +# 3562 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 36040 "parsing/parser.ml" +# 36046 "parsing/parser.ml" in -# 3542 "parsing/parser.mly" +# 3549 "parsing/parser.mly" ( _1 ) -# 36046 "parsing/parser.ml" +# 36052 "parsing/parser.ml" in -# 1838 "parsing/parser.mly" +# 1844 "parsing/parser.mly" ( psig_typext _1 ) -# 36052 "parsing/parser.ml" +# 36058 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -36056,15 +36062,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36062 "parsing/parser.ml" +# 36068 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 36068 "parsing/parser.ml" +# 36074 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36088,23 +36094,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1840 "parsing/parser.mly" +# 1846 "parsing/parser.mly" ( psig_exception _1 ) -# 36094 "parsing/parser.ml" +# 36100 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36102 "parsing/parser.ml" +# 36108 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 36108 "parsing/parser.ml" +# 36114 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36167,9 +36173,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 36173 "parsing/parser.ml" +# 36179 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -36179,37 +36185,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36185 "parsing/parser.ml" +# 36191 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 36193 "parsing/parser.ml" +# 36199 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1874 "parsing/parser.mly" +# 1880 "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 ) -# 36207 "parsing/parser.ml" +# 36213 "parsing/parser.ml" in -# 1842 "parsing/parser.mly" +# 1848 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 36213 "parsing/parser.ml" +# 36219 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -36217,15 +36223,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36223 "parsing/parser.ml" +# 36229 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 36229 "parsing/parser.ml" +# 36235 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36295,9 +36301,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 36301 "parsing/parser.ml" +# 36307 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -36308,9 +36314,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36314 "parsing/parser.ml" +# 36320 "parsing/parser.ml" in let (_endpos_id_, _startpos_id_) = (_endpos__1_, _startpos__1_) in @@ -36318,9 +36324,9 @@ module Tables = struct let _symbolstartpos = _startpos_id_ in let _sloc = (_symbolstartpos, _endpos) in -# 1911 "parsing/parser.mly" +# 1917 "parsing/parser.mly" ( Mty.alias ~loc:(make_loc _sloc) id ) -# 36324 "parsing/parser.ml" +# 36330 "parsing/parser.ml" in let name = @@ -36329,37 +36335,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36335 "parsing/parser.ml" +# 36341 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 36343 "parsing/parser.ml" +# 36349 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1902 "parsing/parser.mly" +# 1908 "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 ) -# 36357 "parsing/parser.ml" +# 36363 "parsing/parser.ml" in -# 1844 "parsing/parser.mly" +# 1850 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 36363 "parsing/parser.ml" +# 36369 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -36367,15 +36373,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36373 "parsing/parser.ml" +# 36379 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 36379 "parsing/parser.ml" +# 36385 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36399,23 +36405,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1846 "parsing/parser.mly" +# 1852 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modsubst body, ext) ) -# 36405 "parsing/parser.ml" +# 36411 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36413 "parsing/parser.ml" +# 36419 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 36419 "parsing/parser.ml" +# 36425 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36501,9 +36507,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 36507 "parsing/parser.ml" +# 36513 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -36513,49 +36519,49 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36519 "parsing/parser.ml" +# 36525 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 36527 "parsing/parser.ml" +# 36533 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1945 "parsing/parser.mly" +# 1951 "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 ) -# 36541 "parsing/parser.ml" +# 36547 "parsing/parser.ml" in -# 1277 "parsing/parser.mly" +# 1283 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 36547 "parsing/parser.ml" +# 36553 "parsing/parser.ml" in -# 1934 "parsing/parser.mly" +# 1940 "parsing/parser.mly" ( _1 ) -# 36553 "parsing/parser.ml" +# 36559 "parsing/parser.ml" in -# 1848 "parsing/parser.mly" +# 1854 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_recmodule l, ext) ) -# 36559 "parsing/parser.ml" +# 36565 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -36563,15 +36569,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36569 "parsing/parser.ml" +# 36575 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 36575 "parsing/parser.ml" +# 36581 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36595,23 +36601,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1850 "parsing/parser.mly" +# 1856 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtype body, ext) ) -# 36601 "parsing/parser.ml" +# 36607 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36609 "parsing/parser.ml" +# 36615 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 36615 "parsing/parser.ml" +# 36621 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36635,23 +36641,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1852 "parsing/parser.mly" +# 1858 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtypesubst body, ext) ) -# 36641 "parsing/parser.ml" +# 36647 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36649 "parsing/parser.ml" +# 36655 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 36655 "parsing/parser.ml" +# 36661 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36675,23 +36681,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1854 "parsing/parser.mly" +# 1860 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_open body, ext) ) -# 36681 "parsing/parser.ml" +# 36687 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36689 "parsing/parser.ml" +# 36695 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 36695 "parsing/parser.ml" +# 36701 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36747,22 +36753,22 @@ module Tables = struct let attrs2 = let _1 = _1_inlined1 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 36753 "parsing/parser.ml" +# 36759 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined1_ in let attrs1 = -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 36760 "parsing/parser.ml" +# 36766 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos_is_functor_ in let _sloc = (_symbolstartpos, _endpos) in -# 1693 "parsing/parser.mly" +# 1699 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -36774,16 +36780,16 @@ module Tables = struct else wrap (incl, ext) ) -# 36778 "parsing/parser.ml" +# 36784 "parsing/parser.ml" in -# 1856 "parsing/parser.mly" +# 1862 "parsing/parser.mly" ( _1 psig_include (fun ~loc incl -> Jane_syntax.Include_functor.sig_item_of ~loc (Ifsig_include_functor incl)) ) -# 36787 "parsing/parser.ml" +# 36793 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in @@ -36791,15 +36797,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36797 "parsing/parser.ml" +# 36803 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 36803 "parsing/parser.ml" +# 36809 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36876,9 +36882,9 @@ module Tables = struct let cty : (Parsetree.class_type) = Obj.magic cty in let _7 : unit = Obj.magic _7 in let _1_inlined2 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 36882 "parsing/parser.ml" +# 36888 "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 @@ -36896,9 +36902,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 36902 "parsing/parser.ml" +# 36908 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -36908,24 +36914,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36914 "parsing/parser.ml" +# 36920 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 36922 "parsing/parser.ml" +# 36928 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2292 "parsing/parser.mly" +# 2298 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -36933,25 +36939,25 @@ module Tables = struct ext, Ci.mk id cty ~virt ~params ~attrs ~loc ~docs ) -# 36937 "parsing/parser.ml" +# 36943 "parsing/parser.ml" in -# 1277 "parsing/parser.mly" +# 1283 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 36943 "parsing/parser.ml" +# 36949 "parsing/parser.ml" in -# 2280 "parsing/parser.mly" +# 2286 "parsing/parser.mly" ( _1 ) -# 36949 "parsing/parser.ml" +# 36955 "parsing/parser.ml" in -# 1861 "parsing/parser.mly" +# 1867 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class l, ext) ) -# 36955 "parsing/parser.ml" +# 36961 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -36959,15 +36965,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36965 "parsing/parser.ml" +# 36971 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 36971 "parsing/parser.ml" +# 36977 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36991,23 +36997,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1863 "parsing/parser.mly" +# 1869 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class_type l, ext) ) -# 36997 "parsing/parser.ml" +# 37003 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1104 "parsing/parser.mly" +# 1110 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 37005 "parsing/parser.ml" +# 37011 "parsing/parser.ml" in -# 1865 "parsing/parser.mly" +# 1871 "parsing/parser.mly" ( _1 ) -# 37011 "parsing/parser.ml" +# 37017 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37030,9 +37036,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3920 "parsing/parser.mly" +# 3927 "parsing/parser.mly" ( _1 ) -# 37036 "parsing/parser.ml" +# 37042 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37057,18 +37063,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 845 "parsing/parser.mly" +# 851 "parsing/parser.mly" (string * char option) -# 37063 "parsing/parser.ml" +# 37069 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 3921 "parsing/parser.mly" +# 3928 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer("-" ^ n, m) ) -# 37072 "parsing/parser.ml" +# 37078 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37093,18 +37099,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 823 "parsing/parser.mly" +# 829 "parsing/parser.mly" (string * char option) -# 37099 "parsing/parser.ml" +# 37105 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 3922 "parsing/parser.mly" +# 3929 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float("-" ^ f, m) ) -# 37108 "parsing/parser.ml" +# 37114 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37129,18 +37135,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 845 "parsing/parser.mly" +# 851 "parsing/parser.mly" (string * char option) -# 37135 "parsing/parser.ml" +# 37141 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 3923 "parsing/parser.mly" +# 3930 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer (n, m) ) -# 37144 "parsing/parser.ml" +# 37150 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37165,18 +37171,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 823 "parsing/parser.mly" +# 829 "parsing/parser.mly" (string * char option) -# 37171 "parsing/parser.ml" +# 37177 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.constant) = -# 3924 "parsing/parser.mly" +# 3931 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float(f, m) ) -# 37180 "parsing/parser.ml" +# 37186 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37217,18 +37223,18 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 3186 "parsing/parser.mly" +# 3193 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 37225 "parsing/parser.ml" +# 37231 "parsing/parser.ml" in -# 3151 "parsing/parser.mly" +# 3157 "parsing/parser.mly" ( let (fields, closed) = _2 in Ppat_record(fields, closed) ) -# 37232 "parsing/parser.ml" +# 37238 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37236,15 +37242,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37242 "parsing/parser.ml" +# 37248 "parsing/parser.ml" in # 3171 "parsing/parser.mly" ( _1 ) -# 37248 "parsing/parser.ml" +# 37254 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37285,19 +37291,19 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 3186 "parsing/parser.mly" +# 3193 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 37293 "parsing/parser.ml" +# 37299 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3154 "parsing/parser.mly" +# 3160 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 37301 "parsing/parser.ml" +# 37307 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37305,15 +37311,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37311 "parsing/parser.ml" +# 37317 "parsing/parser.ml" in # 3171 "parsing/parser.mly" ( _1 ) -# 37317 "parsing/parser.ml" +# 37323 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37352,15 +37358,15 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3180 "parsing/parser.mly" +# 3187 "parsing/parser.mly" ( ps ) -# 37358 "parsing/parser.ml" +# 37364 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3156 "parsing/parser.mly" +# 3162 "parsing/parser.mly" ( fst (mktailpat _loc__3_ _2) ) -# 37364 "parsing/parser.ml" +# 37370 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37368,15 +37374,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37374 "parsing/parser.ml" +# 37380 "parsing/parser.ml" in # 3171 "parsing/parser.mly" ( _1 ) -# 37380 "parsing/parser.ml" +# 37386 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37415,16 +37421,16 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3180 "parsing/parser.mly" +# 3187 "parsing/parser.mly" ( ps ) -# 37421 "parsing/parser.ml" +# 37427 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3158 "parsing/parser.mly" +# 3164 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 37428 "parsing/parser.ml" +# 37434 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37432,15 +37438,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37438 "parsing/parser.ml" +# 37444 "parsing/parser.ml" in # 3171 "parsing/parser.mly" ( _1 ) -# 37444 "parsing/parser.ml" +# 37450 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37481,30 +37487,30 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3180 "parsing/parser.mly" +# 3187 "parsing/parser.mly" ( ps ) -# 37487 "parsing/parser.ml" +# 37493 "parsing/parser.ml" in -# 2665 "parsing/parser.mly" +# 2671 "parsing/parser.mly" ( Generic_array.Simple.Literal _2 ) -# 37492 "parsing/parser.ml" +# 37498 "parsing/parser.ml" in -# 2689 "parsing/parser.mly" +# 2695 "parsing/parser.mly" ( _1 ) -# 37498 "parsing/parser.ml" +# 37504 "parsing/parser.ml" in -# 3160 "parsing/parser.mly" - ( Generic_array.Pattern.to_pattern_desc +# 3166 "parsing/parser.mly" + ( Generic_array.Pattern.to_ast "[|" "|]" (fun elts -> Ppat_array elts) _1 ) -# 37508 "parsing/parser.ml" +# 37514 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37512,15 +37518,163 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37518 "parsing/parser.ml" +# 37524 "parsing/parser.ml" in # 3171 "parsing/parser.mly" ( _1 ) -# 37524 "parsing/parser.ml" +# 37530 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = ps; + MenhirLib.EngineTypes.startp = _startpos_ps_; + MenhirLib.EngineTypes.endp = _endpos_ps_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + } = _menhir_stack in + let _3 : unit = Obj.magic _3 in + let ps : (Parsetree.pattern list) = Obj.magic ps in + let _1 : unit = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__3_ in + let _v : (Parsetree.pattern) = let _1 = + let _1 = + let _1 = + let _1 = + let _2 = +# 3187 "parsing/parser.mly" + ( ps ) +# 37573 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 2673 "parsing/parser.mly" + ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) +# 37580 "parsing/parser.ml" + + in + +# 2695 "parsing/parser.mly" + ( _1 ) +# 37586 "parsing/parser.ml" + + in + +# 3166 "parsing/parser.mly" + ( Generic_array.Pattern.to_ast + "[|" "|]" + (fun elts -> Ppat_array elts) + _1 + ) +# 37596 "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 + +# 1087 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 37606 "parsing/parser.ml" + + in + +# 3171 "parsing/parser.mly" + ( _1 ) +# 37612 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + } = _menhir_stack in + let _2 : unit = Obj.magic _2 in + let _1 : unit = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__2_ in + let _v : (Parsetree.pattern) = let _1 = + let _1 = + let _1 = + let _1 = +# 2675 "parsing/parser.mly" + ( Generic_array.Simple.Literal [] ) +# 37647 "parsing/parser.ml" + in + +# 2695 "parsing/parser.mly" + ( _1 ) +# 37652 "parsing/parser.ml" + + in + +# 3166 "parsing/parser.mly" + ( Generic_array.Pattern.to_ast + "[|" "|]" + (fun elts -> Ppat_array elts) + _1 + ) +# 37662 "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 + +# 1087 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 37672 "parsing/parser.ml" + + in + +# 3171 "parsing/parser.mly" + ( _1 ) +# 37678 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37558,201 +37712,36 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _1 = - let _2 = -# 3180 "parsing/parser.mly" + let _2 = +# 3187 "parsing/parser.mly" ( ps ) -# 37567 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2667 "parsing/parser.mly" - ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 37574 "parsing/parser.ml" - - in - -# 2689 "parsing/parser.mly" - ( _1 ) -# 37580 "parsing/parser.ml" - - in +# 37719 "parsing/parser.ml" + in -# 3160 "parsing/parser.mly" - ( Generic_array.Pattern.to_pattern_desc - "[|" "|]" - (fun elts -> Ppat_array elts) - _1 - ) -# 37590 "parsing/parser.ml" +# 2671 "parsing/parser.mly" + ( Generic_array.Simple.Literal _2 ) +# 37724 "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 - -# 1081 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 37600 "parsing/parser.ml" - in - -# 3171 "parsing/parser.mly" - ( _1 ) -# 37606 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - } = _menhir_stack in - let _2 : unit = Obj.magic _2 in - let _1 : unit = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__2_ in - let _v : (Parsetree.pattern) = let _1 = - let _1 = - let _1 = - let _1 = -# 2669 "parsing/parser.mly" - ( Generic_array.Simple.Literal [] ) -# 37641 "parsing/parser.ml" - in - -# 2689 "parsing/parser.mly" +# 2695 "parsing/parser.mly" ( _1 ) -# 37646 "parsing/parser.ml" - - in - -# 3160 "parsing/parser.mly" - ( Generic_array.Pattern.to_pattern_desc - "[|" "|]" - (fun elts -> Ppat_array elts) - _1 - ) -# 37656 "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 - -# 1081 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 37666 "parsing/parser.ml" +# 37730 "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 -# 3171 "parsing/parser.mly" - ( _1 ) -# 37672 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = ps; - MenhirLib.EngineTypes.startp = _startpos_ps_; - MenhirLib.EngineTypes.endp = _endpos_ps_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - } = _menhir_stack in - let _3 : unit = Obj.magic _3 in - let ps : (Parsetree.pattern list) = Obj.magic ps in - let _1 : unit = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__3_ in - let _v : (Parsetree.pattern) = let _1 = - let _1 = - let _1 = - let _1 = - let _2 = -# 3180 "parsing/parser.mly" - ( ps ) -# 37715 "parsing/parser.ml" - in - -# 2665 "parsing/parser.mly" - ( Generic_array.Simple.Literal _2 ) -# 37720 "parsing/parser.ml" - - in - -# 2689 "parsing/parser.mly" - ( _1 ) -# 37726 "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 - -# 3166 "parsing/parser.mly" - ( Generic_array.Pattern.to_pattern_desc +# 3173 "parsing/parser.mly" + ( mkpat_jane_syntax ~loc:_sloc + (Generic_array.Pattern.to_ast "[:" ":]" (ppat_iarray _sloc) - _1 - ) -# 37740 "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 - -# 1081 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 37750 "parsing/parser.ml" - - in - -# 3171 "parsing/parser.mly" - ( _1 ) -# 37756 "parsing/parser.ml" + _1) + ) +# 37745 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37790,55 +37779,38 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _1 = - let _2 = -# 3180 "parsing/parser.mly" + let _2 = +# 3187 "parsing/parser.mly" ( ps ) -# 37799 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2667 "parsing/parser.mly" - ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 37806 "parsing/parser.ml" - - in - -# 2689 "parsing/parser.mly" - ( _1 ) -# 37812 "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 +# 37786 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3166 "parsing/parser.mly" - ( Generic_array.Pattern.to_pattern_desc - "[:" ":]" - (ppat_iarray _sloc) - _1 - ) -# 37826 "parsing/parser.ml" +# 2673 "parsing/parser.mly" + ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) +# 37793 "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 -# 1081 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 37836 "parsing/parser.ml" +# 2695 "parsing/parser.mly" + ( _1 ) +# 37799 "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 -# 3171 "parsing/parser.mly" - ( _1 ) -# 37842 "parsing/parser.ml" +# 3173 "parsing/parser.mly" + ( mkpat_jane_syntax ~loc:_sloc + (Generic_array.Pattern.to_ast + "[:" ":]" + (ppat_iarray _sloc) + _1) + ) +# 37814 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37868,47 +37840,30 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = - let _1 = - let _1 = - let _1 = -# 2669 "parsing/parser.mly" + let _1 = +# 2675 "parsing/parser.mly" ( Generic_array.Simple.Literal [] ) -# 37877 "parsing/parser.ml" - in - -# 2689 "parsing/parser.mly" - ( _1 ) -# 37882 "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 - -# 3166 "parsing/parser.mly" - ( Generic_array.Pattern.to_pattern_desc - "[:" ":]" - (ppat_iarray _sloc) - _1 - ) -# 37896 "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 +# 37847 "parsing/parser.ml" + in -# 1081 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 37906 "parsing/parser.ml" +# 2695 "parsing/parser.mly" + ( _1 ) +# 37852 "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 -# 3171 "parsing/parser.mly" - ( _1 ) -# 37912 "parsing/parser.ml" +# 3173 "parsing/parser.mly" + ( mkpat_jane_syntax ~loc:_sloc + (Generic_array.Pattern.to_ast + "[:" ":]" + (ppat_iarray _sloc) + _1) + ) +# 37867 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37948,9 +37903,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2557 "parsing/parser.mly" +# 2563 "parsing/parser.mly" ( reloc_exp ~loc:_sloc _2 ) -# 37954 "parsing/parser.ml" +# 37909 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37989,9 +37944,9 @@ module Tables = struct let _v : (Parsetree.expression) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2559 "parsing/parser.mly" +# 2565 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 37995 "parsing/parser.ml" +# 37950 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38038,9 +37993,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2561 "parsing/parser.mly" +# 2567 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _2 _3 ) -# 38044 "parsing/parser.ml" +# 37999 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38092,14 +38047,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2562 "parsing/parser.mly" +# 2568 "parsing/parser.mly" ( None ) -# 38098 "parsing/parser.ml" +# 38053 "parsing/parser.ml" in -# 2449 "parsing/parser.mly" +# 2455 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38103 "parsing/parser.ml" +# 38058 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38107,9 +38062,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2563 "parsing/parser.mly" +# 2569 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38113 "parsing/parser.ml" +# 38068 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38161,14 +38116,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2562 "parsing/parser.mly" +# 2568 "parsing/parser.mly" ( None ) -# 38167 "parsing/parser.ml" +# 38122 "parsing/parser.ml" in -# 2451 "parsing/parser.mly" +# 2457 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38172 "parsing/parser.ml" +# 38127 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38176,9 +38131,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2563 "parsing/parser.mly" +# 2569 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38182 "parsing/parser.ml" +# 38137 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38230,14 +38185,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2562 "parsing/parser.mly" +# 2568 "parsing/parser.mly" ( None ) -# 38236 "parsing/parser.ml" +# 38191 "parsing/parser.ml" in -# 2453 "parsing/parser.mly" +# 2459 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 38241 "parsing/parser.ml" +# 38196 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38245,9 +38200,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2563 "parsing/parser.mly" +# 2569 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38251 "parsing/parser.ml" +# 38206 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38293,9 +38248,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 38299 "parsing/parser.ml" +# 38254 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -38303,31 +38258,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2566 "parsing/parser.mly" +# 2572 "parsing/parser.mly" ( None ) -# 38309 "parsing/parser.ml" +# 38264 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 38314 "parsing/parser.ml" +# 38269 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 38320 "parsing/parser.ml" +# 38275 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 38325 "parsing/parser.ml" +# 38280 "parsing/parser.ml" in -# 2449 "parsing/parser.mly" +# 2455 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38331 "parsing/parser.ml" +# 38286 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38335,9 +38290,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38341 "parsing/parser.ml" +# 38296 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38395,9 +38350,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 38401 "parsing/parser.ml" +# 38356 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38407,39 +38362,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2566 "parsing/parser.mly" +# 2572 "parsing/parser.mly" ( None ) -# 38413 "parsing/parser.ml" +# 38368 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 38418 "parsing/parser.ml" +# 38373 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" (_2) -# 38426 "parsing/parser.ml" +# 38381 "parsing/parser.ml" in # 126 "" ( Some x ) -# 38431 "parsing/parser.ml" +# 38386 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 38437 "parsing/parser.ml" +# 38392 "parsing/parser.ml" in -# 2449 "parsing/parser.mly" +# 2455 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38443 "parsing/parser.ml" +# 38398 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38447,9 +38402,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38453 "parsing/parser.ml" +# 38408 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38495,9 +38450,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 38501 "parsing/parser.ml" +# 38456 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -38505,31 +38460,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2566 "parsing/parser.mly" +# 2572 "parsing/parser.mly" ( None ) -# 38511 "parsing/parser.ml" +# 38466 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 38516 "parsing/parser.ml" +# 38471 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 38522 "parsing/parser.ml" +# 38477 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 38527 "parsing/parser.ml" +# 38482 "parsing/parser.ml" in -# 2451 "parsing/parser.mly" +# 2457 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38533 "parsing/parser.ml" +# 38488 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38537,9 +38492,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38543 "parsing/parser.ml" +# 38498 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38597,9 +38552,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 38603 "parsing/parser.ml" +# 38558 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38609,39 +38564,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2566 "parsing/parser.mly" +# 2572 "parsing/parser.mly" ( None ) -# 38615 "parsing/parser.ml" +# 38570 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 38620 "parsing/parser.ml" +# 38575 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" (_2) -# 38628 "parsing/parser.ml" +# 38583 "parsing/parser.ml" in # 126 "" ( Some x ) -# 38633 "parsing/parser.ml" +# 38588 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 38639 "parsing/parser.ml" +# 38594 "parsing/parser.ml" in -# 2451 "parsing/parser.mly" +# 2457 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38645 "parsing/parser.ml" +# 38600 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38649,9 +38604,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38655 "parsing/parser.ml" +# 38610 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38697,9 +38652,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 38703 "parsing/parser.ml" +# 38658 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -38707,31 +38662,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2566 "parsing/parser.mly" +# 2572 "parsing/parser.mly" ( None ) -# 38713 "parsing/parser.ml" +# 38668 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 38718 "parsing/parser.ml" +# 38673 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 38724 "parsing/parser.ml" +# 38679 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 38729 "parsing/parser.ml" +# 38684 "parsing/parser.ml" in -# 2453 "parsing/parser.mly" +# 2459 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 38735 "parsing/parser.ml" +# 38690 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38739,9 +38694,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38745 "parsing/parser.ml" +# 38700 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38799,9 +38754,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 38805 "parsing/parser.ml" +# 38760 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38811,39 +38766,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2566 "parsing/parser.mly" +# 2572 "parsing/parser.mly" ( None ) -# 38817 "parsing/parser.ml" +# 38772 "parsing/parser.ml" in let i = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 38822 "parsing/parser.ml" +# 38777 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" (_2) -# 38830 "parsing/parser.ml" +# 38785 "parsing/parser.ml" in # 126 "" ( Some x ) -# 38835 "parsing/parser.ml" +# 38790 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 38841 "parsing/parser.ml" +# 38796 "parsing/parser.ml" in -# 2453 "parsing/parser.mly" +# 2459 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 38847 "parsing/parser.ml" +# 38802 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38851,9 +38806,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38857 "parsing/parser.ml" +# 38812 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38907,15 +38862,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2458 "parsing/parser.mly" +# 2464 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 38913 "parsing/parser.ml" +# 38868 "parsing/parser.ml" in -# 2568 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 38919 "parsing/parser.ml" +# 38874 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38969,15 +38924,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2460 "parsing/parser.mly" +# 2466 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 38975 "parsing/parser.ml" +# 38930 "parsing/parser.ml" in -# 2568 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 38981 "parsing/parser.ml" +# 38936 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39031,15 +38986,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2462 "parsing/parser.mly" +# 2468 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39037 "parsing/parser.ml" +# 38992 "parsing/parser.ml" in -# 2568 "parsing/parser.mly" +# 2574 "parsing/parser.mly" ( _1 ) -# 39043 "parsing/parser.ml" +# 38998 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39085,9 +39040,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 39091 "parsing/parser.ml" +# 39046 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39095,34 +39050,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 39101 "parsing/parser.ml" +# 39056 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39107 "parsing/parser.ml" +# 39062 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 39112 "parsing/parser.ml" +# 39067 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2458 "parsing/parser.mly" +# 2464 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 39120 "parsing/parser.ml" +# 39075 "parsing/parser.ml" in -# 2569 "parsing/parser.mly" +# 2575 "parsing/parser.mly" ( _1 ) -# 39126 "parsing/parser.ml" +# 39081 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39180,9 +39135,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 39186 "parsing/parser.ml" +# 39141 "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 @@ -39192,42 +39147,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 39198 "parsing/parser.ml" +# 39153 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" (_2) -# 39206 "parsing/parser.ml" +# 39161 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39211 "parsing/parser.ml" +# 39166 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 39217 "parsing/parser.ml" +# 39172 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2458 "parsing/parser.mly" +# 2464 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 39225 "parsing/parser.ml" +# 39180 "parsing/parser.ml" in -# 2569 "parsing/parser.mly" +# 2575 "parsing/parser.mly" ( _1 ) -# 39231 "parsing/parser.ml" +# 39186 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39273,9 +39228,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 39279 "parsing/parser.ml" +# 39234 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39283,34 +39238,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 39289 "parsing/parser.ml" +# 39244 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39295 "parsing/parser.ml" +# 39250 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 39300 "parsing/parser.ml" +# 39255 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2460 "parsing/parser.mly" +# 2466 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 39308 "parsing/parser.ml" +# 39263 "parsing/parser.ml" in -# 2569 "parsing/parser.mly" +# 2575 "parsing/parser.mly" ( _1 ) -# 39314 "parsing/parser.ml" +# 39269 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39368,9 +39323,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 39374 "parsing/parser.ml" +# 39329 "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 @@ -39380,42 +39335,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 39386 "parsing/parser.ml" +# 39341 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" (_2) -# 39394 "parsing/parser.ml" +# 39349 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39399 "parsing/parser.ml" +# 39354 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 39405 "parsing/parser.ml" +# 39360 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2460 "parsing/parser.mly" +# 2466 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 39413 "parsing/parser.ml" +# 39368 "parsing/parser.ml" in -# 2569 "parsing/parser.mly" +# 2575 "parsing/parser.mly" ( _1 ) -# 39419 "parsing/parser.ml" +# 39374 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39461,9 +39416,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 39467 "parsing/parser.ml" +# 39422 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39471,34 +39426,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 39477 "parsing/parser.ml" +# 39432 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39483 "parsing/parser.ml" +# 39438 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 39488 "parsing/parser.ml" +# 39443 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2462 "parsing/parser.mly" +# 2468 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39496 "parsing/parser.ml" +# 39451 "parsing/parser.ml" in -# 2569 "parsing/parser.mly" +# 2575 "parsing/parser.mly" ( _1 ) -# 39502 "parsing/parser.ml" +# 39457 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39556,9 +39511,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 840 "parsing/parser.mly" +# 846 "parsing/parser.mly" (string) -# 39562 "parsing/parser.ml" +# 39517 "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 @@ -39568,42 +39523,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 39574 "parsing/parser.ml" +# 39529 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" (_2) -# 39582 "parsing/parser.ml" +# 39537 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39587 "parsing/parser.ml" +# 39542 "parsing/parser.ml" in -# 2465 "parsing/parser.mly" +# 2471 "parsing/parser.mly" ( _1, _2 ) -# 39593 "parsing/parser.ml" +# 39548 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2462 "parsing/parser.mly" +# 2468 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39601 "parsing/parser.ml" +# 39556 "parsing/parser.ml" in -# 2569 "parsing/parser.mly" +# 2575 "parsing/parser.mly" ( _1 ) -# 39607 "parsing/parser.ml" +# 39562 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39657,15 +39612,15 @@ module Tables = struct let attrs = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 39663 "parsing/parser.ml" +# 39618 "parsing/parser.ml" in -# 2593 "parsing/parser.mly" +# 2599 "parsing/parser.mly" ( e.pexp_desc, (ext, attrs @ e.pexp_attributes) ) -# 39669 "parsing/parser.ml" +# 39624 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -39673,10 +39628,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2571 "parsing/parser.mly" +# 2577 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39680 "parsing/parser.ml" +# 39635 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39725,24 +39680,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 39731 "parsing/parser.ml" +# 39686 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 39737 "parsing/parser.ml" +# 39692 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2595 "parsing/parser.mly" +# 2601 "parsing/parser.mly" ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 ) -# 39746 "parsing/parser.ml" +# 39701 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -39750,10 +39705,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2571 "parsing/parser.mly" +# 2577 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39757 "parsing/parser.ml" +# 39712 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39809,23 +39764,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 39815 "parsing/parser.ml" +# 39770 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 39821 "parsing/parser.ml" +# 39776 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2597 "parsing/parser.mly" +# 2603 "parsing/parser.mly" ( unclosed "begin" _loc__1_ "end" _loc__4_ ) -# 39829 "parsing/parser.ml" +# 39784 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -39833,10 +39788,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2571 "parsing/parser.mly" +# 2577 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39840 "parsing/parser.ml" +# 39795 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39886,9 +39841,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 39892 "parsing/parser.ml" +# 39847 "parsing/parser.ml" in let _2 = @@ -39896,21 +39851,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 39902 "parsing/parser.ml" +# 39857 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 39908 "parsing/parser.ml" +# 39863 "parsing/parser.ml" in -# 2599 "parsing/parser.mly" +# 2605 "parsing/parser.mly" ( Pexp_new(_3), _2 ) -# 39914 "parsing/parser.ml" +# 39869 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -39918,10 +39873,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2571 "parsing/parser.mly" +# 2577 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39925 "parsing/parser.ml" +# 39880 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39984,21 +39939,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 39990 "parsing/parser.ml" +# 39945 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 39996 "parsing/parser.ml" +# 39951 "parsing/parser.ml" in -# 2601 "parsing/parser.mly" +# 2607 "parsing/parser.mly" ( Pexp_pack _4, _3 ) -# 40002 "parsing/parser.ml" +# 39957 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -40006,10 +39961,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2571 "parsing/parser.mly" +# 2577 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40013 "parsing/parser.ml" +# 39968 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40087,11 +40042,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3834 "parsing/parser.mly" +# 3841 "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 ) -# 40095 "parsing/parser.ml" +# 40050 "parsing/parser.ml" in let _3 = @@ -40099,24 +40054,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 40105 "parsing/parser.ml" +# 40060 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 40111 "parsing/parser.ml" +# 40066 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2603 "parsing/parser.mly" +# 2609 "parsing/parser.mly" ( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 ) -# 40120 "parsing/parser.ml" +# 40075 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -40124,10 +40079,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2571 "parsing/parser.mly" +# 2577 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40131 "parsing/parser.ml" +# 40086 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40197,23 +40152,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 40203 "parsing/parser.ml" +# 40158 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 40209 "parsing/parser.ml" +# 40164 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2605 "parsing/parser.mly" +# 2611 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 40217 "parsing/parser.ml" +# 40172 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -40221,10 +40176,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2571 "parsing/parser.mly" +# 2577 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40228 "parsing/parser.ml" +# 40183 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40289,27 +40244,27 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 40293 "parsing/parser.ml" +# 40248 "parsing/parser.ml" in -# 2108 "parsing/parser.mly" +# 2114 "parsing/parser.mly" ( _1 ) -# 40298 "parsing/parser.ml" +# 40253 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1040 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 40307 "parsing/parser.ml" +# 40262 "parsing/parser.ml" in -# 2095 "parsing/parser.mly" +# 2101 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 40313 "parsing/parser.ml" +# 40268 "parsing/parser.ml" in let _2 = @@ -40317,21 +40272,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 40323 "parsing/parser.ml" +# 40278 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 40329 "parsing/parser.ml" +# 40284 "parsing/parser.ml" in -# 2607 "parsing/parser.mly" +# 2613 "parsing/parser.mly" ( Pexp_object _3, _2 ) -# 40335 "parsing/parser.ml" +# 40290 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -40339,10 +40294,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2571 "parsing/parser.mly" +# 2577 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40346 "parsing/parser.ml" +# 40301 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40407,27 +40362,27 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 40411 "parsing/parser.ml" +# 40366 "parsing/parser.ml" in -# 2108 "parsing/parser.mly" +# 2114 "parsing/parser.mly" ( _1 ) -# 40416 "parsing/parser.ml" +# 40371 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1040 "parsing/parser.mly" +# 1046 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 40425 "parsing/parser.ml" +# 40380 "parsing/parser.ml" in -# 2095 "parsing/parser.mly" +# 2101 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 40431 "parsing/parser.ml" +# 40386 "parsing/parser.ml" in let _2 = @@ -40435,23 +40390,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 40441 "parsing/parser.ml" +# 40396 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 40447 "parsing/parser.ml" +# 40402 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2609 "parsing/parser.mly" +# 2615 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 40455 "parsing/parser.ml" +# 40410 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -40459,10 +40414,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2571 "parsing/parser.mly" +# 2577 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40466 "parsing/parser.ml" +# 40421 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40491,30 +40446,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40497 "parsing/parser.ml" +# 40452 "parsing/parser.ml" in -# 2694 "parsing/parser.mly" +# 2700 "parsing/parser.mly" ( Pexp_ident (_1) ) -# 40503 "parsing/parser.ml" +# 40458 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40512 "parsing/parser.ml" +# 40467 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 40518 "parsing/parser.ml" +# 40473 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40538,23 +40493,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2696 "parsing/parser.mly" +# 2702 "parsing/parser.mly" ( Pexp_constant _1 ) -# 40544 "parsing/parser.ml" +# 40499 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40552 "parsing/parser.ml" +# 40507 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 40558 "parsing/parser.ml" +# 40513 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40583,30 +40538,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40589 "parsing/parser.ml" +# 40544 "parsing/parser.ml" in -# 2698 "parsing/parser.mly" +# 2704 "parsing/parser.mly" ( Pexp_construct(_1, None) ) -# 40595 "parsing/parser.ml" +# 40550 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40604 "parsing/parser.ml" +# 40559 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 40610 "parsing/parser.ml" +# 40565 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40630,23 +40585,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2700 "parsing/parser.mly" +# 2706 "parsing/parser.mly" ( Pexp_variant(_1, None) ) -# 40636 "parsing/parser.ml" +# 40591 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40644 "parsing/parser.ml" +# 40599 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 40650 "parsing/parser.ml" +# 40605 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40672,9 +40627,9 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 886 "parsing/parser.mly" +# 892 "parsing/parser.mly" (string) -# 40678 "parsing/parser.ml" +# 40633 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -40686,15 +40641,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 40692 "parsing/parser.ml" +# 40647 "parsing/parser.ml" in -# 2702 "parsing/parser.mly" +# 2708 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 40698 "parsing/parser.ml" +# 40653 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -40702,15 +40657,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40708 "parsing/parser.ml" +# 40663 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 40714 "parsing/parser.ml" +# 40669 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40743,23 +40698,23 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2703 "parsing/parser.mly" +# 2709 "parsing/parser.mly" ("!") -# 40749 "parsing/parser.ml" +# 40704 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 40757 "parsing/parser.ml" +# 40712 "parsing/parser.ml" in -# 2704 "parsing/parser.mly" +# 2710 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 40763 "parsing/parser.ml" +# 40718 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -40767,15 +40722,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40773 "parsing/parser.ml" +# 40728 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 40779 "parsing/parser.ml" +# 40734 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40814,14 +40769,14 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 2989 "parsing/parser.mly" +# 2995 "parsing/parser.mly" ( xs ) -# 40820 "parsing/parser.ml" +# 40775 "parsing/parser.ml" in -# 2706 "parsing/parser.mly" +# 2712 "parsing/parser.mly" ( Pexp_override _2 ) -# 40825 "parsing/parser.ml" +# 40780 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -40829,15 +40784,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40835 "parsing/parser.ml" +# 40790 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 40841 "parsing/parser.ml" +# 40796 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40876,16 +40831,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 2989 "parsing/parser.mly" +# 2995 "parsing/parser.mly" ( xs ) -# 40882 "parsing/parser.ml" +# 40837 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2708 "parsing/parser.mly" +# 2714 "parsing/parser.mly" ( unclosed "{<" _loc__1_ ">}" _loc__3_ ) -# 40889 "parsing/parser.ml" +# 40844 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -40893,15 +40848,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40899 "parsing/parser.ml" +# 40854 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 40905 "parsing/parser.ml" +# 40860 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40932,24 +40887,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2710 "parsing/parser.mly" +# 2716 "parsing/parser.mly" ( Pexp_override [] ) -# 40938 "parsing/parser.ml" +# 40893 "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 -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40947 "parsing/parser.ml" +# 40902 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 40953 "parsing/parser.ml" +# 40908 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40993,15 +40948,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40999 "parsing/parser.ml" +# 40954 "parsing/parser.ml" in -# 2712 "parsing/parser.mly" +# 2718 "parsing/parser.mly" ( Pexp_field(_1, _3) ) -# 41005 "parsing/parser.ml" +# 40960 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -41009,15 +40964,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41015 "parsing/parser.ml" +# 40970 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41021 "parsing/parser.ml" +# 40976 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41075,24 +41030,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41081 "parsing/parser.ml" +# 41036 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41090 "parsing/parser.ml" +# 41045 "parsing/parser.ml" in -# 2714 "parsing/parser.mly" +# 2720 "parsing/parser.mly" ( Pexp_open(od, _4) ) -# 41096 "parsing/parser.ml" +# 41051 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41100,15 +41055,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41106 "parsing/parser.ml" +# 41061 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41112 "parsing/parser.ml" +# 41067 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41161,9 +41116,9 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 2989 "parsing/parser.mly" +# 2995 "parsing/parser.mly" ( xs ) -# 41167 "parsing/parser.ml" +# 41122 "parsing/parser.ml" in let od = let _1 = @@ -41171,18 +41126,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41177 "parsing/parser.ml" +# 41132 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41186 "parsing/parser.ml" +# 41141 "parsing/parser.ml" in let _startpos_od_ = _startpos__1_ in @@ -41190,10 +41145,10 @@ module Tables = struct let _symbolstartpos = _startpos_od_ in let _sloc = (_symbolstartpos, _endpos) in -# 2716 "parsing/parser.mly" +# 2722 "parsing/parser.mly" ( (* TODO: review the location of Pexp_override *) Pexp_open(od, mkexp ~loc:_sloc (Pexp_override _4)) ) -# 41197 "parsing/parser.ml" +# 41152 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41201,15 +41156,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41207 "parsing/parser.ml" +# 41162 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41213 "parsing/parser.ml" +# 41168 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41262,16 +41217,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 2989 "parsing/parser.mly" +# 2995 "parsing/parser.mly" ( xs ) -# 41268 "parsing/parser.ml" +# 41223 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2719 "parsing/parser.mly" +# 2725 "parsing/parser.mly" ( unclosed "{<" _loc__3_ ">}" _loc__5_ ) -# 41275 "parsing/parser.ml" +# 41230 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41279,15 +41234,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41285 "parsing/parser.ml" +# 41240 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41291 "parsing/parser.ml" +# 41246 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41318,9 +41273,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 41324 "parsing/parser.ml" +# 41279 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in @@ -41332,23 +41287,23 @@ module Tables = struct let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 41338 "parsing/parser.ml" +# 41293 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41346 "parsing/parser.ml" +# 41301 "parsing/parser.ml" in -# 2721 "parsing/parser.mly" +# 2727 "parsing/parser.mly" ( Pexp_send(_1, _3) ) -# 41352 "parsing/parser.ml" +# 41307 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -41356,15 +41311,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41362 "parsing/parser.ml" +# 41317 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41368 "parsing/parser.ml" +# 41323 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41396,9 +41351,9 @@ module Tables = struct } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined1 : ( -# 897 "parsing/parser.mly" +# 903 "parsing/parser.mly" (string) -# 41402 "parsing/parser.ml" +# 41357 "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 @@ -41412,15 +41367,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1073 "parsing/parser.mly" +# 1079 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 41418 "parsing/parser.ml" +# 41373 "parsing/parser.ml" in -# 2723 "parsing/parser.mly" +# 2729 "parsing/parser.mly" ( mkinfix _1 _2 _3 ) -# 41424 "parsing/parser.ml" +# 41379 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -41428,15 +41383,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41434 "parsing/parser.ml" +# 41389 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41440 "parsing/parser.ml" +# 41395 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41460,23 +41415,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2725 "parsing/parser.mly" +# 2731 "parsing/parser.mly" ( Pexp_extension _1 ) -# 41466 "parsing/parser.ml" +# 41421 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41474 "parsing/parser.ml" +# 41429 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41480 "parsing/parser.ml" +# 41435 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41524,18 +41479,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 2726 "parsing/parser.mly" +# 2732 "parsing/parser.mly" (Lident "()") -# 41530 "parsing/parser.ml" +# 41485 "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 -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41539 "parsing/parser.ml" +# 41494 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in @@ -41545,25 +41500,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41551 "parsing/parser.ml" +# 41506 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41560 "parsing/parser.ml" +# 41515 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2727 "parsing/parser.mly" +# 2733 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:(_loc__3_) (Pexp_construct(_3, None))) ) -# 41567 "parsing/parser.ml" +# 41522 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -41571,15 +41526,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41577 "parsing/parser.ml" +# 41532 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41583 "parsing/parser.ml" +# 41538 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41634,9 +41589,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2729 "parsing/parser.mly" +# 2735 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 41640 "parsing/parser.ml" +# 41595 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41644,15 +41599,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41650 "parsing/parser.ml" +# 41605 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41656 "parsing/parser.ml" +# 41611 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41691,25 +41646,25 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2731 "parsing/parser.mly" +# 2737 "parsing/parser.mly" ( let (exten, fields) = _2 in Pexp_record(fields, exten) ) -# 41698 "parsing/parser.ml" +# 41653 "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 -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41707 "parsing/parser.ml" +# 41662 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41713 "parsing/parser.ml" +# 41668 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41751,9 +41706,9 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2734 "parsing/parser.mly" +# 2740 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 41757 "parsing/parser.ml" +# 41712 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -41761,15 +41716,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41767 "parsing/parser.ml" +# 41722 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41773 "parsing/parser.ml" +# 41728 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41828,27 +41783,27 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41834 "parsing/parser.ml" +# 41789 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41843 "parsing/parser.ml" +# 41798 "parsing/parser.ml" in let _endpos = _endpos__5_ in -# 2736 "parsing/parser.mly" +# 2742 "parsing/parser.mly" ( let (exten, fields) = _4 in Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_record(fields, exten))) ) -# 41852 "parsing/parser.ml" +# 41807 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41856,15 +41811,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41862 "parsing/parser.ml" +# 41817 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41868 "parsing/parser.ml" +# 41823 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41920,9 +41875,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2740 "parsing/parser.mly" +# 2746 "parsing/parser.mly" ( unclosed "{" _loc__3_ "}" _loc__5_ ) -# 41926 "parsing/parser.ml" +# 41881 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41930,15 +41885,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41936 "parsing/parser.ml" +# 41891 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 41942 "parsing/parser.ml" +# 41897 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41979,30 +41934,30 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 41985 "parsing/parser.ml" +# 41940 "parsing/parser.ml" in -# 2665 "parsing/parser.mly" +# 2671 "parsing/parser.mly" ( Generic_array.Simple.Literal _2 ) -# 41990 "parsing/parser.ml" +# 41945 "parsing/parser.ml" in -# 2674 "parsing/parser.mly" +# 2680 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 41996 "parsing/parser.ml" +# 41951 "parsing/parser.ml" in -# 2742 "parsing/parser.mly" +# 2748 "parsing/parser.mly" ( Generic_array.Expression.to_expression_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42006 "parsing/parser.ml" +# 41961 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42010,15 +41965,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42016 "parsing/parser.ml" +# 41971 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 42022 "parsing/parser.ml" +# 41977 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42059,32 +42014,32 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 42065 "parsing/parser.ml" +# 42020 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2667 "parsing/parser.mly" +# 2673 "parsing/parser.mly" ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 42072 "parsing/parser.ml" +# 42027 "parsing/parser.ml" in -# 2674 "parsing/parser.mly" +# 2680 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 42078 "parsing/parser.ml" +# 42033 "parsing/parser.ml" in -# 2742 "parsing/parser.mly" +# 2748 "parsing/parser.mly" ( Generic_array.Expression.to_expression_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42088 "parsing/parser.ml" +# 42043 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42092,15 +42047,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42098 "parsing/parser.ml" +# 42053 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 42104 "parsing/parser.ml" +# 42059 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42133,24 +42088,24 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2669 "parsing/parser.mly" +# 2675 "parsing/parser.mly" ( Generic_array.Simple.Literal [] ) -# 42139 "parsing/parser.ml" +# 42094 "parsing/parser.ml" in -# 2674 "parsing/parser.mly" +# 2680 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 42144 "parsing/parser.ml" +# 42099 "parsing/parser.ml" in -# 2742 "parsing/parser.mly" +# 2748 "parsing/parser.mly" ( Generic_array.Expression.to_expression_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42154 "parsing/parser.ml" +# 42109 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -42158,15 +42113,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42164 "parsing/parser.ml" +# 42119 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 42170 "parsing/parser.ml" +# 42125 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42220,9 +42175,9 @@ module Tables = struct let _1 = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 42226 "parsing/parser.ml" +# 42181 "parsing/parser.ml" in let od = let _1 = @@ -42230,36 +42185,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42236 "parsing/parser.ml" +# 42191 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42245 "parsing/parser.ml" +# 42200 "parsing/parser.ml" in let _endpos = _endpos__5_ in -# 2676 "parsing/parser.mly" +# 2682 "parsing/parser.mly" ( Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, _4) ) -# 42253 "parsing/parser.ml" +# 42208 "parsing/parser.ml" in -# 2742 "parsing/parser.mly" +# 2748 "parsing/parser.mly" ( Generic_array.Expression.to_expression_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42263 "parsing/parser.ml" +# 42218 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42267,15 +42222,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42273 "parsing/parser.ml" +# 42228 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 42279 "parsing/parser.ml" +# 42234 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42327,37 +42282,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42333 "parsing/parser.ml" +# 42288 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42342 "parsing/parser.ml" +# 42297 "parsing/parser.ml" in let _endpos = _endpos__4_ in -# 2679 "parsing/parser.mly" +# 2685 "parsing/parser.mly" ( (* TODO: review the location of Pexp_array *) Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, []) ) -# 42351 "parsing/parser.ml" +# 42306 "parsing/parser.ml" in -# 2742 "parsing/parser.mly" +# 2748 "parsing/parser.mly" ( Generic_array.Expression.to_expression_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42361 "parsing/parser.ml" +# 42316 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42365,15 +42320,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42371 "parsing/parser.ml" +# 42326 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 42377 "parsing/parser.ml" +# 42332 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42427,26 +42382,26 @@ module Tables = struct let _1 = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 42433 "parsing/parser.ml" +# 42388 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2684 "parsing/parser.mly" +# 2690 "parsing/parser.mly" ( Generic_array.Expression.Simple (Unclosed(_loc__3_, _loc__5_)) ) -# 42440 "parsing/parser.ml" +# 42395 "parsing/parser.ml" in -# 2742 "parsing/parser.mly" +# 2748 "parsing/parser.mly" ( Generic_array.Expression.to_expression_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42450 "parsing/parser.ml" +# 42405 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42454,15 +42409,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42460 "parsing/parser.ml" +# 42415 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 42466 "parsing/parser.ml" +# 42421 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42501,15 +42456,15 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 42507 "parsing/parser.ml" +# 42462 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2748 "parsing/parser.mly" +# 2754 "parsing/parser.mly" ( fst (mktailexp _loc__3_ _2) ) -# 42513 "parsing/parser.ml" +# 42468 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42517,15 +42472,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42523 "parsing/parser.ml" +# 42478 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 42529 "parsing/parser.ml" +# 42484 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42564,16 +42519,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 42570 "parsing/parser.ml" +# 42525 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2750 "parsing/parser.mly" +# 2756 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 42577 "parsing/parser.ml" +# 42532 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42581,15 +42536,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42587 "parsing/parser.ml" +# 42542 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 42593 "parsing/parser.ml" +# 42548 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42656,24 +42611,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 42660 "parsing/parser.ml" +# 42615 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 42665 "parsing/parser.ml" +# 42620 "parsing/parser.ml" in -# 2644 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 42671 "parsing/parser.ml" +# 42626 "parsing/parser.ml" in -# 2649 "parsing/parser.mly" +# 2655 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) -# 42677 "parsing/parser.ml" +# 42632 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42681,11 +42636,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2658 "parsing/parser.mly" +# 2664 "parsing/parser.mly" ( mkexp_jane_syntax ~loc:_sloc (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) ) -# 42689 "parsing/parser.ml" +# 42644 "parsing/parser.ml" in let od = @@ -42694,24 +42649,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42700 "parsing/parser.ml" +# 42655 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42709 "parsing/parser.ml" +# 42664 "parsing/parser.ml" in -# 2752 "parsing/parser.mly" +# 2758 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 42715 "parsing/parser.ml" +# 42670 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42719,15 +42674,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42725 "parsing/parser.ml" +# 42680 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 42731 "parsing/parser.ml" +# 42686 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42794,24 +42749,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 42798 "parsing/parser.ml" +# 42753 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 42803 "parsing/parser.ml" +# 42758 "parsing/parser.ml" in -# 2644 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 42809 "parsing/parser.ml" +# 42764 "parsing/parser.ml" in -# 2651 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 42815 "parsing/parser.ml" +# 42770 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42819,11 +42774,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2658 "parsing/parser.mly" +# 2664 "parsing/parser.mly" ( mkexp_jane_syntax ~loc:_sloc (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) ) -# 42827 "parsing/parser.ml" +# 42782 "parsing/parser.ml" in let od = @@ -42832,24 +42787,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42838 "parsing/parser.ml" +# 42793 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42847 "parsing/parser.ml" +# 42802 "parsing/parser.ml" in -# 2752 "parsing/parser.mly" +# 2758 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 42853 "parsing/parser.ml" +# 42808 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42857,15 +42812,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42863 "parsing/parser.ml" +# 42818 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 42869 "parsing/parser.ml" +# 42824 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42932,24 +42887,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 42936 "parsing/parser.ml" +# 42891 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 42941 "parsing/parser.ml" +# 42896 "parsing/parser.ml" in -# 2644 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 42947 "parsing/parser.ml" +# 42902 "parsing/parser.ml" in -# 2653 "parsing/parser.mly" +# 2659 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 42953 "parsing/parser.ml" +# 42908 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42957,11 +42912,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2658 "parsing/parser.mly" +# 2664 "parsing/parser.mly" ( mkexp_jane_syntax ~loc:_sloc (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) ) -# 42965 "parsing/parser.ml" +# 42920 "parsing/parser.ml" in let od = @@ -42970,24 +42925,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42976 "parsing/parser.ml" +# 42931 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42985 "parsing/parser.ml" +# 42940 "parsing/parser.ml" in -# 2752 "parsing/parser.mly" +# 2758 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 42991 "parsing/parser.ml" +# 42946 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42995,15 +42950,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43001 "parsing/parser.ml" +# 42956 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 43007 "parsing/parser.ml" +# 42962 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43056,9 +43011,9 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 43062 "parsing/parser.ml" +# 43017 "parsing/parser.ml" in let od = let _1 = @@ -43066,30 +43021,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43072 "parsing/parser.ml" +# 43027 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43081 "parsing/parser.ml" +# 43036 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _loc__5_ = (_startpos__5_, _endpos__5_) in -# 2754 "parsing/parser.mly" +# 2760 "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) ) -# 43093 "parsing/parser.ml" +# 43048 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -43097,15 +43052,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43103 "parsing/parser.ml" +# 43058 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 43109 "parsing/parser.ml" +# 43064 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43153,18 +43108,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 2759 "parsing/parser.mly" +# 2765 "parsing/parser.mly" (Lident "[]") -# 43159 "parsing/parser.ml" +# 43114 "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 -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43168 "parsing/parser.ml" +# 43123 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in @@ -43174,25 +43129,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43180 "parsing/parser.ml" +# 43135 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43189 "parsing/parser.ml" +# 43144 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2760 "parsing/parser.mly" +# 2766 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) ) -# 43196 "parsing/parser.ml" +# 43151 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -43200,15 +43155,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43206 "parsing/parser.ml" +# 43161 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 43212 "parsing/parser.ml" +# 43167 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43261,16 +43216,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 43267 "parsing/parser.ml" +# 43222 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2763 "parsing/parser.mly" +# 2769 "parsing/parser.mly" ( unclosed "[" _loc__3_ "]" _loc__5_ ) -# 43274 "parsing/parser.ml" +# 43229 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -43278,15 +43233,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43284 "parsing/parser.ml" +# 43239 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 43290 "parsing/parser.ml" +# 43245 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43379,11 +43334,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3834 "parsing/parser.mly" +# 3841 "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 ) -# 43387 "parsing/parser.ml" +# 43342 "parsing/parser.ml" in let _5 = @@ -43391,15 +43346,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 43397 "parsing/parser.ml" +# 43352 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 43403 "parsing/parser.ml" +# 43358 "parsing/parser.ml" in let od = @@ -43408,18 +43363,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43414 "parsing/parser.ml" +# 43369 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43423 "parsing/parser.ml" +# 43378 "parsing/parser.ml" in let _startpos_od_ = _startpos__1_ in @@ -43427,12 +43382,12 @@ module Tables = struct let _symbolstartpos = _startpos_od_ in let _sloc = (_symbolstartpos, _endpos) in -# 2766 "parsing/parser.mly" +# 2772 "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) ) -# 43436 "parsing/parser.ml" +# 43391 "parsing/parser.ml" in let _endpos__1_ = _endpos__9_ in @@ -43440,15 +43395,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43446 "parsing/parser.ml" +# 43401 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 43452 "parsing/parser.ml" +# 43407 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43533,23 +43488,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 43539 "parsing/parser.ml" +# 43494 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 43545 "parsing/parser.ml" +# 43500 "parsing/parser.ml" in let _loc__8_ = (_startpos__8_, _endpos__8_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2772 "parsing/parser.mly" +# 2778 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__8_ ) -# 43553 "parsing/parser.ml" +# 43508 "parsing/parser.ml" in let _endpos__1_ = _endpos__8_ in @@ -43557,15 +43512,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1079 "parsing/parser.mly" +# 1085 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43563 "parsing/parser.ml" +# 43518 "parsing/parser.ml" in -# 2574 "parsing/parser.mly" +# 2580 "parsing/parser.mly" ( _1 ) -# 43569 "parsing/parser.ml" +# 43524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43604,20 +43559,20 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 43610 "parsing/parser.ml" +# 43565 "parsing/parser.ml" in -# 2665 "parsing/parser.mly" +# 2671 "parsing/parser.mly" ( Generic_array.Simple.Literal _2 ) -# 43615 "parsing/parser.ml" +# 43570 "parsing/parser.ml" in -# 2674 "parsing/parser.mly" +# 2680 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 43621 "parsing/parser.ml" +# 43576 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -43625,7 +43580,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2579 "parsing/parser.mly" +# 2585 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc @@ -43636,7 +43591,7 @@ module Tables = struct |> mkexp_jane_syntax ~loc) _1 ) -# 43640 "parsing/parser.ml" +# 43595 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43675,22 +43630,22 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 43681 "parsing/parser.ml" +# 43636 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2667 "parsing/parser.mly" +# 2673 "parsing/parser.mly" ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 43688 "parsing/parser.ml" +# 43643 "parsing/parser.ml" in -# 2674 "parsing/parser.mly" +# 2680 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 43694 "parsing/parser.ml" +# 43649 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -43698,7 +43653,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2579 "parsing/parser.mly" +# 2585 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc @@ -43709,7 +43664,7 @@ module Tables = struct |> mkexp_jane_syntax ~loc) _1 ) -# 43713 "parsing/parser.ml" +# 43668 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43740,14 +43695,14 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2669 "parsing/parser.mly" +# 2675 "parsing/parser.mly" ( Generic_array.Simple.Literal [] ) -# 43746 "parsing/parser.ml" +# 43701 "parsing/parser.ml" in -# 2674 "parsing/parser.mly" +# 2680 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 43751 "parsing/parser.ml" +# 43706 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -43755,7 +43710,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2579 "parsing/parser.mly" +# 2585 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc @@ -43766,7 +43721,7 @@ module Tables = struct |> mkexp_jane_syntax ~loc) _1 ) -# 43770 "parsing/parser.ml" +# 43725 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43818,9 +43773,9 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 43824 "parsing/parser.ml" +# 43779 "parsing/parser.ml" in let od = let _1 = @@ -43828,26 +43783,26 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43834 "parsing/parser.ml" +# 43789 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43843 "parsing/parser.ml" +# 43798 "parsing/parser.ml" in let _endpos = _endpos__5_ in -# 2676 "parsing/parser.mly" +# 2682 "parsing/parser.mly" ( Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, _4) ) -# 43851 "parsing/parser.ml" +# 43806 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -43855,7 +43810,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2579 "parsing/parser.mly" +# 2585 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc @@ -43866,7 +43821,7 @@ module Tables = struct |> mkexp_jane_syntax ~loc) _1 ) -# 43870 "parsing/parser.ml" +# 43825 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43916,27 +43871,27 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43922 "parsing/parser.ml" +# 43877 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1757 "parsing/parser.mly" +# 1763 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43931 "parsing/parser.ml" +# 43886 "parsing/parser.ml" in let _endpos = _endpos__4_ in -# 2679 "parsing/parser.mly" +# 2685 "parsing/parser.mly" ( (* TODO: review the location of Pexp_array *) Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, []) ) -# 43940 "parsing/parser.ml" +# 43895 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43944,7 +43899,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2579 "parsing/parser.mly" +# 2585 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc @@ -43955,7 +43910,7 @@ module Tables = struct |> mkexp_jane_syntax ~loc) _1 ) -# 43959 "parsing/parser.ml" +# 43914 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44007,16 +43962,16 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3006 "parsing/parser.mly" +# 3012 "parsing/parser.mly" ( es ) -# 44013 "parsing/parser.ml" +# 43968 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2684 "parsing/parser.mly" +# 2690 "parsing/parser.mly" ( Generic_array.Expression.Simple (Unclosed(_loc__3_, _loc__5_)) ) -# 44020 "parsing/parser.ml" +# 43975 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -44024,7 +43979,7 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2579 "parsing/parser.mly" +# 2585 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc @@ -44035,7 +43990,7 @@ module Tables = struct |> mkexp_jane_syntax ~loc) _1 ) -# 44039 "parsing/parser.ml" +# 43994 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44085,24 +44040,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 44089 "parsing/parser.ml" +# 44044 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 44094 "parsing/parser.ml" +# 44049 "parsing/parser.ml" in -# 2644 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 44100 "parsing/parser.ml" +# 44055 "parsing/parser.ml" in -# 2649 "parsing/parser.mly" +# 2655 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) -# 44106 "parsing/parser.ml" +# 44061 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -44110,17 +44065,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2658 "parsing/parser.mly" +# 2664 "parsing/parser.mly" ( mkexp_jane_syntax ~loc:_sloc (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) ) -# 44118 "parsing/parser.ml" +# 44073 "parsing/parser.ml" in -# 2589 "parsing/parser.mly" +# 2595 "parsing/parser.mly" ( _1 ) -# 44124 "parsing/parser.ml" +# 44079 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44170,24 +44125,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 44174 "parsing/parser.ml" +# 44129 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 44179 "parsing/parser.ml" +# 44134 "parsing/parser.ml" in -# 2644 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 44185 "parsing/parser.ml" +# 44140 "parsing/parser.ml" in -# 2651 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 44191 "parsing/parser.ml" +# 44146 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -44195,17 +44150,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2658 "parsing/parser.mly" +# 2664 "parsing/parser.mly" ( mkexp_jane_syntax ~loc:_sloc (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) ) -# 44203 "parsing/parser.ml" +# 44158 "parsing/parser.ml" in -# 2589 "parsing/parser.mly" +# 2595 "parsing/parser.mly" ( _1 ) -# 44209 "parsing/parser.ml" +# 44164 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44255,24 +44210,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 44259 "parsing/parser.ml" +# 44214 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 44264 "parsing/parser.ml" +# 44219 "parsing/parser.ml" in -# 2644 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 44270 "parsing/parser.ml" +# 44225 "parsing/parser.ml" in -# 2653 "parsing/parser.mly" +# 2659 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 44276 "parsing/parser.ml" +# 44231 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -44280,17 +44235,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2658 "parsing/parser.mly" +# 2664 "parsing/parser.mly" ( mkexp_jane_syntax ~loc:_sloc (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) ) -# 44288 "parsing/parser.ml" +# 44243 "parsing/parser.ml" in -# 2589 "parsing/parser.mly" +# 2595 "parsing/parser.mly" ( _1 ) -# 44294 "parsing/parser.ml" +# 44249 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44319,30 +44274,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44325 "parsing/parser.ml" +# 44280 "parsing/parser.ml" in -# 3089 "parsing/parser.mly" +# 3095 "parsing/parser.mly" ( Ppat_var (_1) ) -# 44331 "parsing/parser.ml" +# 44286 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44340 "parsing/parser.ml" +# 44295 "parsing/parser.ml" in -# 3090 "parsing/parser.mly" +# 3096 "parsing/parser.mly" ( _1 ) -# 44346 "parsing/parser.ml" +# 44301 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44365,9 +44320,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3091 "parsing/parser.mly" +# 3097 "parsing/parser.mly" ( _1 ) -# 44371 "parsing/parser.ml" +# 44326 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44407,9 +44362,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3096 "parsing/parser.mly" +# 3102 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) -# 44413 "parsing/parser.ml" +# 44368 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44432,9 +44387,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3098 "parsing/parser.mly" +# 3104 "parsing/parser.mly" ( _1 ) -# 44438 "parsing/parser.ml" +# 44393 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44497,9 +44452,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44503 "parsing/parser.ml" +# 44458 "parsing/parser.ml" in let _3 = @@ -44507,24 +44462,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 44513 "parsing/parser.ml" +# 44468 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 44519 "parsing/parser.ml" +# 44474 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3100 "parsing/parser.mly" +# 3106 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 ) -# 44528 "parsing/parser.ml" +# 44483 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44601,11 +44556,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3834 "parsing/parser.mly" +# 3841 "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 ) -# 44609 "parsing/parser.ml" +# 44564 "parsing/parser.ml" in let _4 = @@ -44614,9 +44569,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44620 "parsing/parser.ml" +# 44575 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__1_inlined3_, _startpos__1_inlined3_) in @@ -44625,15 +44580,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 44631 "parsing/parser.ml" +# 44586 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 44637 "parsing/parser.ml" +# 44592 "parsing/parser.ml" in let _endpos = _endpos__7_ in @@ -44641,11 +44596,11 @@ module Tables = struct let _loc__4_ = (_startpos__4_, _endpos__4_) in let _sloc = (_symbolstartpos, _endpos) in -# 3102 "parsing/parser.mly" +# 3108 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_constraint(mkpat ~loc:_loc__4_ (Ppat_unpack _4), _6)) _3 ) -# 44649 "parsing/parser.ml" +# 44604 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44669,23 +44624,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3110 "parsing/parser.mly" +# 3116 "parsing/parser.mly" ( Ppat_any ) -# 44675 "parsing/parser.ml" +# 44630 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44683 "parsing/parser.ml" +# 44638 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 44689 "parsing/parser.ml" +# 44644 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44709,23 +44664,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3112 "parsing/parser.mly" +# 3118 "parsing/parser.mly" ( Ppat_constant _1 ) -# 44715 "parsing/parser.ml" +# 44670 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44723 "parsing/parser.ml" +# 44678 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 44729 "parsing/parser.ml" +# 44684 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44763,24 +44718,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3114 "parsing/parser.mly" +# 3120 "parsing/parser.mly" ( Ppat_interval (_1, _3) ) -# 44769 "parsing/parser.ml" +# 44724 "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 -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44778 "parsing/parser.ml" +# 44733 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 44784 "parsing/parser.ml" +# 44739 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44809,30 +44764,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44815 "parsing/parser.ml" +# 44770 "parsing/parser.ml" in -# 3116 "parsing/parser.mly" +# 3122 "parsing/parser.mly" ( Ppat_construct(_1, None) ) -# 44821 "parsing/parser.ml" +# 44776 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44830 "parsing/parser.ml" +# 44785 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 44836 "parsing/parser.ml" +# 44791 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44856,23 +44811,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3118 "parsing/parser.mly" +# 3124 "parsing/parser.mly" ( Ppat_variant(_1, None) ) -# 44862 "parsing/parser.ml" +# 44817 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44870 "parsing/parser.ml" +# 44825 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 44876 "parsing/parser.ml" +# 44831 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44909,15 +44864,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44915 "parsing/parser.ml" +# 44870 "parsing/parser.ml" in -# 3120 "parsing/parser.mly" +# 3126 "parsing/parser.mly" ( Ppat_type (_2) ) -# 44921 "parsing/parser.ml" +# 44876 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -44925,15 +44880,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44931 "parsing/parser.ml" +# 44886 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 44937 "parsing/parser.ml" +# 44892 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44976,15 +44931,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44982 "parsing/parser.ml" +# 44937 "parsing/parser.ml" in -# 3122 "parsing/parser.mly" +# 3128 "parsing/parser.mly" ( Ppat_open(_1, _3) ) -# 44988 "parsing/parser.ml" +# 44943 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -44992,15 +44947,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44998 "parsing/parser.ml" +# 44953 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45004 "parsing/parser.ml" +# 44959 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45048,18 +45003,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 3123 "parsing/parser.mly" +# 3129 "parsing/parser.mly" (Lident "[]") -# 45054 "parsing/parser.ml" +# 45009 "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 -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45063 "parsing/parser.ml" +# 45018 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in @@ -45068,18 +45023,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45074 "parsing/parser.ml" +# 45029 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3124 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 45083 "parsing/parser.ml" +# 45038 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -45087,15 +45042,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45093 "parsing/parser.ml" +# 45048 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45099 "parsing/parser.ml" +# 45054 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45143,18 +45098,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 3125 "parsing/parser.mly" +# 3131 "parsing/parser.mly" (Lident "()") -# 45149 "parsing/parser.ml" +# 45104 "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 -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45158 "parsing/parser.ml" +# 45113 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in @@ -45163,18 +45118,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45169 "parsing/parser.ml" +# 45124 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3126 "parsing/parser.mly" +# 3132 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 45178 "parsing/parser.ml" +# 45133 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -45182,15 +45137,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45188 "parsing/parser.ml" +# 45143 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45194 "parsing/parser.ml" +# 45149 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45247,15 +45202,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45253 "parsing/parser.ml" +# 45208 "parsing/parser.ml" in -# 3128 "parsing/parser.mly" +# 3134 "parsing/parser.mly" ( Ppat_open (_1, _4) ) -# 45259 "parsing/parser.ml" +# 45214 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -45263,15 +45218,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45269 "parsing/parser.ml" +# 45224 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45275 "parsing/parser.ml" +# 45230 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45326,9 +45281,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3130 "parsing/parser.mly" +# 3136 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 45332 "parsing/parser.ml" +# 45287 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -45336,15 +45291,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45342 "parsing/parser.ml" +# 45297 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45348 "parsing/parser.ml" +# 45303 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45391,9 +45346,9 @@ module Tables = struct let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in -# 3132 "parsing/parser.mly" +# 3138 "parsing/parser.mly" ( expecting _loc__4_ "pattern" ) -# 45397 "parsing/parser.ml" +# 45352 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -45401,15 +45356,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45407 "parsing/parser.ml" +# 45362 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45413 "parsing/parser.ml" +# 45368 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45450,9 +45405,9 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3134 "parsing/parser.mly" +# 3140 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 45456 "parsing/parser.ml" +# 45411 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -45460,15 +45415,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45466 "parsing/parser.ml" +# 45421 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45472 "parsing/parser.ml" +# 45427 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45520,24 +45475,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3136 "parsing/parser.mly" +# 3142 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) -# 45526 "parsing/parser.ml" +# 45481 "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 -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45535 "parsing/parser.ml" +# 45490 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45541 "parsing/parser.ml" +# 45496 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45592,9 +45547,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3138 "parsing/parser.mly" +# 3144 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 45598 "parsing/parser.ml" +# 45553 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -45602,15 +45557,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45608 "parsing/parser.ml" +# 45563 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45614 "parsing/parser.ml" +# 45569 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45657,9 +45612,9 @@ module Tables = struct let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in -# 3140 "parsing/parser.mly" +# 3146 "parsing/parser.mly" ( expecting _loc__4_ "type" ) -# 45663 "parsing/parser.ml" +# 45618 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -45667,15 +45622,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45673 "parsing/parser.ml" +# 45628 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45679 "parsing/parser.ml" +# 45634 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45754,11 +45709,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3834 "parsing/parser.mly" +# 3841 "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 ) -# 45762 "parsing/parser.ml" +# 45717 "parsing/parser.ml" in let _3 = @@ -45766,23 +45721,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 45772 "parsing/parser.ml" +# 45727 "parsing/parser.ml" in -# 4276 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1, _2 ) -# 45778 "parsing/parser.ml" +# 45733 "parsing/parser.ml" in let _loc__7_ = (_startpos__7_, _endpos__7_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3143 "parsing/parser.mly" +# 3149 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__7_ ) -# 45786 "parsing/parser.ml" +# 45741 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -45790,15 +45745,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45796 "parsing/parser.ml" +# 45751 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45802 "parsing/parser.ml" +# 45757 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45822,23 +45777,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3145 "parsing/parser.mly" +# 3151 "parsing/parser.mly" ( Ppat_extension _1 ) -# 45828 "parsing/parser.ml" +# 45783 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1081 "parsing/parser.mly" +# 1087 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45836 "parsing/parser.ml" +# 45791 "parsing/parser.ml" in -# 3106 "parsing/parser.mly" +# 3112 "parsing/parser.mly" ( _1 ) -# 45842 "parsing/parser.ml" +# 45797 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45857,17 +45812,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 45863 "parsing/parser.ml" +# 45818 "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) = -# 4182 "parsing/parser.mly" +# 4189 "parsing/parser.mly" ( _1 ) -# 45871 "parsing/parser.ml" +# 45826 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45886,17 +45841,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 913 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string) -# 45892 "parsing/parser.ml" +# 45847 "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) = -# 4183 "parsing/parser.mly" +# 4190 "parsing/parser.mly" ( _1 ) -# 45900 "parsing/parser.ml" +# 45855 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45919,9 +45874,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4184 "parsing/parser.mly" +# 4191 "parsing/parser.mly" ( "and" ) -# 45925 "parsing/parser.ml" +# 45880 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45944,9 +45899,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4185 "parsing/parser.mly" +# 4192 "parsing/parser.mly" ( "as" ) -# 45950 "parsing/parser.ml" +# 45905 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45969,9 +45924,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4186 "parsing/parser.mly" +# 4193 "parsing/parser.mly" ( "assert" ) -# 45975 "parsing/parser.ml" +# 45930 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45994,9 +45949,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4187 "parsing/parser.mly" +# 4194 "parsing/parser.mly" ( "begin" ) -# 46000 "parsing/parser.ml" +# 45955 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46019,9 +45974,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4188 "parsing/parser.mly" +# 4195 "parsing/parser.mly" ( "class" ) -# 46025 "parsing/parser.ml" +# 45980 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46044,9 +45999,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4189 "parsing/parser.mly" +# 4196 "parsing/parser.mly" ( "constraint" ) -# 46050 "parsing/parser.ml" +# 46005 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46069,9 +46024,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4190 "parsing/parser.mly" +# 4197 "parsing/parser.mly" ( "do" ) -# 46075 "parsing/parser.ml" +# 46030 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46094,9 +46049,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4191 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( "done" ) -# 46100 "parsing/parser.ml" +# 46055 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46119,9 +46074,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4192 "parsing/parser.mly" +# 4199 "parsing/parser.mly" ( "downto" ) -# 46125 "parsing/parser.ml" +# 46080 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46144,9 +46099,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4193 "parsing/parser.mly" +# 4200 "parsing/parser.mly" ( "else" ) -# 46150 "parsing/parser.ml" +# 46105 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46169,9 +46124,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4194 "parsing/parser.mly" +# 4201 "parsing/parser.mly" ( "end" ) -# 46175 "parsing/parser.ml" +# 46130 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46194,9 +46149,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4195 "parsing/parser.mly" +# 4202 "parsing/parser.mly" ( "exception" ) -# 46200 "parsing/parser.ml" +# 46155 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46219,9 +46174,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4196 "parsing/parser.mly" +# 4203 "parsing/parser.mly" ( "external" ) -# 46225 "parsing/parser.ml" +# 46180 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46244,9 +46199,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4197 "parsing/parser.mly" +# 4204 "parsing/parser.mly" ( "false" ) -# 46250 "parsing/parser.ml" +# 46205 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46269,9 +46224,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4198 "parsing/parser.mly" +# 4205 "parsing/parser.mly" ( "for" ) -# 46275 "parsing/parser.ml" +# 46230 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46294,9 +46249,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4199 "parsing/parser.mly" +# 4206 "parsing/parser.mly" ( "fun" ) -# 46300 "parsing/parser.ml" +# 46255 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46319,9 +46274,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4200 "parsing/parser.mly" +# 4207 "parsing/parser.mly" ( "function" ) -# 46325 "parsing/parser.ml" +# 46280 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46344,9 +46299,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4201 "parsing/parser.mly" +# 4208 "parsing/parser.mly" ( "functor" ) -# 46350 "parsing/parser.ml" +# 46305 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46369,9 +46324,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4202 "parsing/parser.mly" +# 4209 "parsing/parser.mly" ( "nonlocal_" ) -# 46375 "parsing/parser.ml" +# 46330 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46394,9 +46349,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4203 "parsing/parser.mly" +# 4210 "parsing/parser.mly" ( "if" ) -# 46400 "parsing/parser.ml" +# 46355 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46419,9 +46374,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4204 "parsing/parser.mly" +# 4211 "parsing/parser.mly" ( "in" ) -# 46425 "parsing/parser.ml" +# 46380 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46444,9 +46399,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4205 "parsing/parser.mly" +# 4212 "parsing/parser.mly" ( "include" ) -# 46450 "parsing/parser.ml" +# 46405 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46469,9 +46424,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4206 "parsing/parser.mly" +# 4213 "parsing/parser.mly" ( "inherit" ) -# 46475 "parsing/parser.ml" +# 46430 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46494,9 +46449,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4207 "parsing/parser.mly" +# 4214 "parsing/parser.mly" ( "initializer" ) -# 46500 "parsing/parser.ml" +# 46455 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46519,9 +46474,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4208 "parsing/parser.mly" +# 4215 "parsing/parser.mly" ( "lazy" ) -# 46525 "parsing/parser.ml" +# 46480 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46544,9 +46499,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4209 "parsing/parser.mly" +# 4216 "parsing/parser.mly" ( "let" ) -# 46550 "parsing/parser.ml" +# 46505 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46569,9 +46524,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4210 "parsing/parser.mly" +# 4217 "parsing/parser.mly" ( "local_" ) -# 46575 "parsing/parser.ml" +# 46530 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46594,9 +46549,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4211 "parsing/parser.mly" +# 4218 "parsing/parser.mly" ( "match" ) -# 46600 "parsing/parser.ml" +# 46555 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46619,9 +46574,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4212 "parsing/parser.mly" +# 4219 "parsing/parser.mly" ( "method" ) -# 46625 "parsing/parser.ml" +# 46580 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46644,9 +46599,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4213 "parsing/parser.mly" +# 4220 "parsing/parser.mly" ( "module" ) -# 46650 "parsing/parser.ml" +# 46605 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46669,9 +46624,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4214 "parsing/parser.mly" +# 4221 "parsing/parser.mly" ( "mutable" ) -# 46675 "parsing/parser.ml" +# 46630 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46694,9 +46649,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4215 "parsing/parser.mly" +# 4222 "parsing/parser.mly" ( "new" ) -# 46700 "parsing/parser.ml" +# 46655 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46719,9 +46674,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4216 "parsing/parser.mly" +# 4223 "parsing/parser.mly" ( "nonrec" ) -# 46725 "parsing/parser.ml" +# 46680 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46744,9 +46699,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4217 "parsing/parser.mly" +# 4224 "parsing/parser.mly" ( "object" ) -# 46750 "parsing/parser.ml" +# 46705 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46769,9 +46724,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4218 "parsing/parser.mly" +# 4225 "parsing/parser.mly" ( "of" ) -# 46775 "parsing/parser.ml" +# 46730 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46794,9 +46749,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4219 "parsing/parser.mly" +# 4226 "parsing/parser.mly" ( "open" ) -# 46800 "parsing/parser.ml" +# 46755 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46819,9 +46774,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4220 "parsing/parser.mly" +# 4227 "parsing/parser.mly" ( "or" ) -# 46825 "parsing/parser.ml" +# 46780 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46844,9 +46799,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4221 "parsing/parser.mly" +# 4228 "parsing/parser.mly" ( "private" ) -# 46850 "parsing/parser.ml" +# 46805 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46869,9 +46824,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4222 "parsing/parser.mly" +# 4229 "parsing/parser.mly" ( "rec" ) -# 46875 "parsing/parser.ml" +# 46830 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46894,9 +46849,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4223 "parsing/parser.mly" +# 4230 "parsing/parser.mly" ( "sig" ) -# 46900 "parsing/parser.ml" +# 46855 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46919,9 +46874,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4224 "parsing/parser.mly" +# 4231 "parsing/parser.mly" ( "struct" ) -# 46925 "parsing/parser.ml" +# 46880 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46944,9 +46899,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4225 "parsing/parser.mly" +# 4232 "parsing/parser.mly" ( "then" ) -# 46950 "parsing/parser.ml" +# 46905 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46969,9 +46924,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4226 "parsing/parser.mly" +# 4233 "parsing/parser.mly" ( "to" ) -# 46975 "parsing/parser.ml" +# 46930 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46994,9 +46949,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4227 "parsing/parser.mly" +# 4234 "parsing/parser.mly" ( "true" ) -# 47000 "parsing/parser.ml" +# 46955 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47019,9 +46974,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4228 "parsing/parser.mly" +# 4235 "parsing/parser.mly" ( "try" ) -# 47025 "parsing/parser.ml" +# 46980 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47044,9 +46999,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4229 "parsing/parser.mly" +# 4236 "parsing/parser.mly" ( "type" ) -# 47050 "parsing/parser.ml" +# 47005 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47069,9 +47024,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4230 "parsing/parser.mly" +# 4237 "parsing/parser.mly" ( "val" ) -# 47075 "parsing/parser.ml" +# 47030 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47094,9 +47049,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4231 "parsing/parser.mly" +# 4238 "parsing/parser.mly" ( "virtual" ) -# 47100 "parsing/parser.ml" +# 47055 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47119,9 +47074,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4232 "parsing/parser.mly" +# 4239 "parsing/parser.mly" ( "when" ) -# 47125 "parsing/parser.ml" +# 47080 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47144,9 +47099,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4233 "parsing/parser.mly" +# 4240 "parsing/parser.mly" ( "while" ) -# 47150 "parsing/parser.ml" +# 47105 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47169,9 +47124,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4234 "parsing/parser.mly" +# 4241 "parsing/parser.mly" ( "with" ) -# 47175 "parsing/parser.ml" +# 47130 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47194,9 +47149,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.type_exception * string Asttypes.loc option) = -# 3445 "parsing/parser.mly" +# 3452 "parsing/parser.mly" ( _1 ) -# 47200 "parsing/parser.ml" +# 47155 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47270,18 +47225,18 @@ module Tables = struct let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined5 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 47276 "parsing/parser.ml" +# 47231 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined5_ in let attrs2 = let _1 = _1_inlined4 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 47285 "parsing/parser.ml" +# 47240 "parsing/parser.ml" in let lid = @@ -47290,9 +47245,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 47296 "parsing/parser.ml" +# 47251 "parsing/parser.ml" in let id = @@ -47301,30 +47256,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 47307 "parsing/parser.ml" +# 47262 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 47315 "parsing/parser.ml" +# 47270 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3454 "parsing/parser.mly" +# 3461 "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 ) -# 47328 "parsing/parser.ml" +# 47283 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47354,9 +47309,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2917 "parsing/parser.mly" +# 2923 "parsing/parser.mly" ( _2 ) -# 47360 "parsing/parser.ml" +# 47315 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47389,9 +47344,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2919 "parsing/parser.mly" +# 2925 "parsing/parser.mly" ( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 47395 "parsing/parser.ml" +# 47350 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47442,17 +47397,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2793 "parsing/parser.mly" +# 2799 "parsing/parser.mly" ( xs ) -# 47448 "parsing/parser.ml" +# 47403 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2921 "parsing/parser.mly" +# 2927 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 47456 "parsing/parser.ml" +# 47411 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47534,24 +47489,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 47538 "parsing/parser.ml" +# 47493 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 47543 "parsing/parser.ml" +# 47498 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 47549 "parsing/parser.ml" +# 47504 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 47555 "parsing/parser.ml" +# 47510 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -47559,40 +47514,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47565 "parsing/parser.ml" +# 47520 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 47571 "parsing/parser.ml" +# 47526 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47578 "parsing/parser.ml" +# 47533 "parsing/parser.ml" in let local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 47584 "parsing/parser.ml" +# 47539 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 47590 "parsing/parser.ml" +# 47545 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47596 "parsing/parser.ml" +# 47551 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -47600,15 +47555,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47606 "parsing/parser.ml" +# 47561 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 47612 "parsing/parser.ml" +# 47567 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47655,33 +47610,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 47661 "parsing/parser.ml" +# 47616 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47667 "parsing/parser.ml" +# 47622 "parsing/parser.ml" in let local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 47673 "parsing/parser.ml" +# 47628 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 47679 "parsing/parser.ml" +# 47634 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47685 "parsing/parser.ml" +# 47640 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -47689,15 +47644,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47695 "parsing/parser.ml" +# 47650 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 47701 "parsing/parser.ml" +# 47656 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47787,24 +47742,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 47791 "parsing/parser.ml" +# 47746 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 47796 "parsing/parser.ml" +# 47751 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 47802 "parsing/parser.ml" +# 47757 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 47808 "parsing/parser.ml" +# 47763 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -47812,40 +47767,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47818 "parsing/parser.ml" +# 47773 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 47824 "parsing/parser.ml" +# 47779 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47831 "parsing/parser.ml" +# 47786 "parsing/parser.ml" in let local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 47837 "parsing/parser.ml" +# 47792 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 47843 "parsing/parser.ml" +# 47798 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47849 "parsing/parser.ml" +# 47804 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -47853,15 +47808,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47859 "parsing/parser.ml" +# 47814 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 47865 "parsing/parser.ml" +# 47820 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47915,33 +47870,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 47921 "parsing/parser.ml" +# 47876 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47927 "parsing/parser.ml" +# 47882 "parsing/parser.ml" in let local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 47933 "parsing/parser.ml" +# 47888 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 47939 "parsing/parser.ml" +# 47894 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47945 "parsing/parser.ml" +# 47900 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -47949,15 +47904,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47955 "parsing/parser.ml" +# 47910 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 47961 "parsing/parser.ml" +# 47916 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48032,9 +47987,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 48038 "parsing/parser.ml" +# 47993 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48050,24 +48005,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48054 "parsing/parser.ml" +# 48009 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 48059 "parsing/parser.ml" +# 48014 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 48065 "parsing/parser.ml" +# 48020 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48071 "parsing/parser.ml" +# 48026 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48075,40 +48030,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48081 "parsing/parser.ml" +# 48036 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 48087 "parsing/parser.ml" +# 48042 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48094 "parsing/parser.ml" +# 48049 "parsing/parser.ml" in let local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 48100 "parsing/parser.ml" +# 48055 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 48106 "parsing/parser.ml" +# 48061 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48112 "parsing/parser.ml" +# 48067 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48116,15 +48071,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48122 "parsing/parser.ml" +# 48077 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 48128 "parsing/parser.ml" +# 48083 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48171,9 +48126,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 48177 "parsing/parser.ml" +# 48132 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48182,33 +48137,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 48188 "parsing/parser.ml" +# 48143 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48194 "parsing/parser.ml" +# 48149 "parsing/parser.ml" in let local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 48200 "parsing/parser.ml" +# 48155 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 48206 "parsing/parser.ml" +# 48161 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48212 "parsing/parser.ml" +# 48167 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48216,15 +48171,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48222 "parsing/parser.ml" +# 48177 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 48228 "parsing/parser.ml" +# 48183 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48306,9 +48261,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 48312 "parsing/parser.ml" +# 48267 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48325,24 +48280,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48329 "parsing/parser.ml" +# 48284 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 48334 "parsing/parser.ml" +# 48289 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 48340 "parsing/parser.ml" +# 48295 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48346 "parsing/parser.ml" +# 48301 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48350,40 +48305,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48356 "parsing/parser.ml" +# 48311 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 48362 "parsing/parser.ml" +# 48317 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48369 "parsing/parser.ml" +# 48324 "parsing/parser.ml" in let local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 48375 "parsing/parser.ml" +# 48330 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 48381 "parsing/parser.ml" +# 48336 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48387 "parsing/parser.ml" +# 48342 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48391,15 +48346,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48397 "parsing/parser.ml" +# 48352 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 48403 "parsing/parser.ml" +# 48358 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48453,9 +48408,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 48459 "parsing/parser.ml" +# 48414 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48464,33 +48419,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 48470 "parsing/parser.ml" +# 48425 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48476 "parsing/parser.ml" +# 48431 "parsing/parser.ml" in let local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 48482 "parsing/parser.ml" +# 48437 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 48488 "parsing/parser.ml" +# 48443 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48494 "parsing/parser.ml" +# 48449 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48498,15 +48453,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48504 "parsing/parser.ml" +# 48459 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 48510 "parsing/parser.ml" +# 48465 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48581,24 +48536,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48585 "parsing/parser.ml" +# 48540 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 48590 "parsing/parser.ml" +# 48545 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 48596 "parsing/parser.ml" +# 48551 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48602 "parsing/parser.ml" +# 48557 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48606,40 +48561,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48612 "parsing/parser.ml" +# 48567 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 48618 "parsing/parser.ml" +# 48573 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48625 "parsing/parser.ml" +# 48580 "parsing/parser.ml" in let local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 48631 "parsing/parser.ml" +# 48586 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 48637 "parsing/parser.ml" +# 48592 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48643 "parsing/parser.ml" +# 48598 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -48647,15 +48602,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48653 "parsing/parser.ml" +# 48608 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 48659 "parsing/parser.ml" +# 48614 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48695,33 +48650,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 48701 "parsing/parser.ml" +# 48656 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48707 "parsing/parser.ml" +# 48662 "parsing/parser.ml" in let local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 48713 "parsing/parser.ml" +# 48668 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 48719 "parsing/parser.ml" +# 48674 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48725 "parsing/parser.ml" +# 48680 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -48729,15 +48684,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48735 "parsing/parser.ml" +# 48690 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 48741 "parsing/parser.ml" +# 48696 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48820,24 +48775,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48824 "parsing/parser.ml" +# 48779 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 48829 "parsing/parser.ml" +# 48784 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 48835 "parsing/parser.ml" +# 48790 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48841 "parsing/parser.ml" +# 48796 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48845,40 +48800,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48851 "parsing/parser.ml" +# 48806 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 48857 "parsing/parser.ml" +# 48812 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48864 "parsing/parser.ml" +# 48819 "parsing/parser.ml" in let local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 48870 "parsing/parser.ml" +# 48825 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 48876 "parsing/parser.ml" +# 48831 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48882 "parsing/parser.ml" +# 48837 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -48886,15 +48841,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48892 "parsing/parser.ml" +# 48847 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 48898 "parsing/parser.ml" +# 48853 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48941,33 +48896,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 48947 "parsing/parser.ml" +# 48902 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48953 "parsing/parser.ml" +# 48908 "parsing/parser.ml" in let local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 48959 "parsing/parser.ml" +# 48914 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 48965 "parsing/parser.ml" +# 48920 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3707 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48971 "parsing/parser.ml" +# 48926 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -48975,15 +48930,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48981 "parsing/parser.ml" +# 48936 "parsing/parser.ml" in -# 3709 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 48987 "parsing/parser.ml" +# 48942 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49057,9 +49012,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 49063 "parsing/parser.ml" +# 49018 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -49071,24 +49026,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49075 "parsing/parser.ml" +# 49030 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 49080 "parsing/parser.ml" +# 49035 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 49086 "parsing/parser.ml" +# 49041 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49092 "parsing/parser.ml" +# 49047 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49096,45 +49051,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49102 "parsing/parser.ml" +# 49057 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 49108 "parsing/parser.ml" +# 49063 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49115 "parsing/parser.ml" +# 49070 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 49121 "parsing/parser.ml" +# 49076 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 49127 "parsing/parser.ml" +# 49082 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 49138 "parsing/parser.ml" +# 49093 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49142,15 +49097,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49148 "parsing/parser.ml" +# 49103 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 49154 "parsing/parser.ml" +# 49109 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49231,9 +49186,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 49237 "parsing/parser.ml" +# 49192 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -49245,24 +49200,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49249 "parsing/parser.ml" +# 49204 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 49254 "parsing/parser.ml" +# 49209 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 49260 "parsing/parser.ml" +# 49215 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49266 "parsing/parser.ml" +# 49221 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49270,45 +49225,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49276 "parsing/parser.ml" +# 49231 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 49282 "parsing/parser.ml" +# 49237 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49289 "parsing/parser.ml" +# 49244 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 49295 "parsing/parser.ml" +# 49250 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 49301 "parsing/parser.ml" +# 49256 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 49312 "parsing/parser.ml" +# 49267 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49316,15 +49271,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49322 "parsing/parser.ml" +# 49277 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 49328 "parsing/parser.ml" +# 49283 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49370,45 +49325,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 49376 "parsing/parser.ml" +# 49331 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 49383 "parsing/parser.ml" +# 49338 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49389 "parsing/parser.ml" +# 49344 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 49395 "parsing/parser.ml" +# 49350 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 49401 "parsing/parser.ml" +# 49356 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 49412 "parsing/parser.ml" +# 49367 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49416,15 +49371,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49422 "parsing/parser.ml" +# 49377 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 49428 "parsing/parser.ml" +# 49383 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49477,45 +49432,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 49483 "parsing/parser.ml" +# 49438 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 49490 "parsing/parser.ml" +# 49445 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49496 "parsing/parser.ml" +# 49451 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 49502 "parsing/parser.ml" +# 49457 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 49508 "parsing/parser.ml" +# 49463 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 49519 "parsing/parser.ml" +# 49474 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49523,15 +49478,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49529 "parsing/parser.ml" +# 49484 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 49535 "parsing/parser.ml" +# 49490 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49612,9 +49567,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 49618 "parsing/parser.ml" +# 49573 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -49627,24 +49582,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49631 "parsing/parser.ml" +# 49586 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 49636 "parsing/parser.ml" +# 49591 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 49642 "parsing/parser.ml" +# 49597 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49648 "parsing/parser.ml" +# 49603 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49652,45 +49607,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49658 "parsing/parser.ml" +# 49613 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 49664 "parsing/parser.ml" +# 49619 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49671 "parsing/parser.ml" +# 49626 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 49677 "parsing/parser.ml" +# 49632 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 49683 "parsing/parser.ml" +# 49638 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 49694 "parsing/parser.ml" +# 49649 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49698,15 +49653,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49704 "parsing/parser.ml" +# 49659 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 49710 "parsing/parser.ml" +# 49665 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49794,9 +49749,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 49800 "parsing/parser.ml" +# 49755 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -49809,24 +49764,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49813 "parsing/parser.ml" +# 49768 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 49818 "parsing/parser.ml" +# 49773 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 49824 "parsing/parser.ml" +# 49779 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49830 "parsing/parser.ml" +# 49785 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49834,45 +49789,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49840 "parsing/parser.ml" +# 49795 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 49846 "parsing/parser.ml" +# 49801 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49853 "parsing/parser.ml" +# 49808 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 49859 "parsing/parser.ml" +# 49814 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 49865 "parsing/parser.ml" +# 49820 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 49876 "parsing/parser.ml" +# 49831 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49880,15 +49835,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49886 "parsing/parser.ml" +# 49841 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 49892 "parsing/parser.ml" +# 49847 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49941,45 +49896,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 49947 "parsing/parser.ml" +# 49902 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 49954 "parsing/parser.ml" +# 49909 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49960 "parsing/parser.ml" +# 49915 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 49966 "parsing/parser.ml" +# 49921 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 49972 "parsing/parser.ml" +# 49927 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 49983 "parsing/parser.ml" +# 49938 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49987,15 +49942,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49993 "parsing/parser.ml" +# 49948 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 49999 "parsing/parser.ml" +# 49954 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50055,45 +50010,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 50061 "parsing/parser.ml" +# 50016 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 50068 "parsing/parser.ml" +# 50023 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50074 "parsing/parser.ml" +# 50029 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 50080 "parsing/parser.ml" +# 50035 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3727 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( Optional label ) -# 50086 "parsing/parser.ml" +# 50041 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 50097 "parsing/parser.ml" +# 50052 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50101,15 +50056,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50107 "parsing/parser.ml" +# 50062 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 50113 "parsing/parser.ml" +# 50068 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50184,9 +50139,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 50190 "parsing/parser.ml" +# 50145 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50194,9 +50149,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 50200 "parsing/parser.ml" +# 50155 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -50208,24 +50163,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50212 "parsing/parser.ml" +# 50167 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 50217 "parsing/parser.ml" +# 50172 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 50223 "parsing/parser.ml" +# 50178 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50229 "parsing/parser.ml" +# 50184 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50233,45 +50188,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50239 "parsing/parser.ml" +# 50194 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 50245 "parsing/parser.ml" +# 50200 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50252 "parsing/parser.ml" +# 50207 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 50258 "parsing/parser.ml" +# 50213 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 50264 "parsing/parser.ml" +# 50219 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 50275 "parsing/parser.ml" +# 50230 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50279,15 +50234,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50285 "parsing/parser.ml" +# 50240 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 50291 "parsing/parser.ml" +# 50246 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50369,9 +50324,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 50375 "parsing/parser.ml" +# 50330 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50379,9 +50334,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 50385 "parsing/parser.ml" +# 50340 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -50393,24 +50348,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50397 "parsing/parser.ml" +# 50352 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 50402 "parsing/parser.ml" +# 50357 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 50408 "parsing/parser.ml" +# 50363 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50414 "parsing/parser.ml" +# 50369 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50418,45 +50373,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50424 "parsing/parser.ml" +# 50379 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 50430 "parsing/parser.ml" +# 50385 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50437 "parsing/parser.ml" +# 50392 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 50443 "parsing/parser.ml" +# 50398 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 50449 "parsing/parser.ml" +# 50404 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 50460 "parsing/parser.ml" +# 50415 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50464,15 +50419,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50470 "parsing/parser.ml" +# 50425 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 50476 "parsing/parser.ml" +# 50431 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50519,9 +50474,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 50525 "parsing/parser.ml" +# 50480 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50529,45 +50484,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 50535 "parsing/parser.ml" +# 50490 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 50542 "parsing/parser.ml" +# 50497 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50548 "parsing/parser.ml" +# 50503 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 50554 "parsing/parser.ml" +# 50509 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 50560 "parsing/parser.ml" +# 50515 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 50571 "parsing/parser.ml" +# 50526 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50575,15 +50530,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50581 "parsing/parser.ml" +# 50536 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 50587 "parsing/parser.ml" +# 50542 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50637,9 +50592,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 50643 "parsing/parser.ml" +# 50598 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50647,45 +50602,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 50653 "parsing/parser.ml" +# 50608 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 50660 "parsing/parser.ml" +# 50615 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50666 "parsing/parser.ml" +# 50621 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 50672 "parsing/parser.ml" +# 50627 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 50678 "parsing/parser.ml" +# 50633 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 50689 "parsing/parser.ml" +# 50644 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50693,15 +50648,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50699 "parsing/parser.ml" +# 50654 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 50705 "parsing/parser.ml" +# 50660 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50783,9 +50738,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 50789 "parsing/parser.ml" +# 50744 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50793,9 +50748,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 50799 "parsing/parser.ml" +# 50754 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -50808,24 +50763,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50812 "parsing/parser.ml" +# 50767 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 50817 "parsing/parser.ml" +# 50772 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 50823 "parsing/parser.ml" +# 50778 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50829 "parsing/parser.ml" +# 50784 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50833,45 +50788,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50839 "parsing/parser.ml" +# 50794 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 50845 "parsing/parser.ml" +# 50800 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50852 "parsing/parser.ml" +# 50807 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 50858 "parsing/parser.ml" +# 50813 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 50864 "parsing/parser.ml" +# 50819 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 50875 "parsing/parser.ml" +# 50830 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50879,15 +50834,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50885 "parsing/parser.ml" +# 50840 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 50891 "parsing/parser.ml" +# 50846 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50976,9 +50931,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 50982 "parsing/parser.ml" +# 50937 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50986,9 +50941,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 50992 "parsing/parser.ml" +# 50947 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -51001,24 +50956,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51005 "parsing/parser.ml" +# 50960 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 51010 "parsing/parser.ml" +# 50965 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 51016 "parsing/parser.ml" +# 50971 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51022 "parsing/parser.ml" +# 50977 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51026,45 +50981,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51032 "parsing/parser.ml" +# 50987 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 51038 "parsing/parser.ml" +# 50993 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51045 "parsing/parser.ml" +# 51000 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 51051 "parsing/parser.ml" +# 51006 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 51057 "parsing/parser.ml" +# 51012 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 51068 "parsing/parser.ml" +# 51023 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51072,15 +51027,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51078 "parsing/parser.ml" +# 51033 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 51084 "parsing/parser.ml" +# 51039 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51134,9 +51089,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 51140 "parsing/parser.ml" +# 51095 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51144,45 +51099,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 51150 "parsing/parser.ml" +# 51105 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 51157 "parsing/parser.ml" +# 51112 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51163 "parsing/parser.ml" +# 51118 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 51169 "parsing/parser.ml" +# 51124 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 51175 "parsing/parser.ml" +# 51130 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 51186 "parsing/parser.ml" +# 51141 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51190,15 +51145,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51196 "parsing/parser.ml" +# 51151 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 51202 "parsing/parser.ml" +# 51157 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51259,9 +51214,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 51265 "parsing/parser.ml" +# 51220 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51269,45 +51224,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 51275 "parsing/parser.ml" +# 51230 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 51282 "parsing/parser.ml" +# 51237 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51288 "parsing/parser.ml" +# 51243 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 51294 "parsing/parser.ml" +# 51249 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3729 "parsing/parser.mly" +# 3736 "parsing/parser.mly" ( Labelled label ) -# 51300 "parsing/parser.ml" +# 51255 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 51311 "parsing/parser.ml" +# 51266 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51315,15 +51270,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51321 "parsing/parser.ml" +# 51276 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 51327 "parsing/parser.ml" +# 51282 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51390,9 +51345,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 51396 "parsing/parser.ml" +# 51351 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -51404,24 +51359,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51408 "parsing/parser.ml" +# 51363 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 51413 "parsing/parser.ml" +# 51368 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 51419 "parsing/parser.ml" +# 51374 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51425 "parsing/parser.ml" +# 51380 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51429,45 +51384,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51435 "parsing/parser.ml" +# 51390 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 51441 "parsing/parser.ml" +# 51396 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51448 "parsing/parser.ml" +# 51403 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 51454 "parsing/parser.ml" +# 51409 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 51460 "parsing/parser.ml" +# 51415 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 51471 "parsing/parser.ml" +# 51426 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -51475,15 +51430,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51481 "parsing/parser.ml" +# 51436 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 51487 "parsing/parser.ml" +# 51442 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51557,9 +51512,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 51563 "parsing/parser.ml" +# 51518 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -51571,24 +51526,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51575 "parsing/parser.ml" +# 51530 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 51580 "parsing/parser.ml" +# 51535 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 51586 "parsing/parser.ml" +# 51541 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51592 "parsing/parser.ml" +# 51547 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51596,45 +51551,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51602 "parsing/parser.ml" +# 51557 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 51608 "parsing/parser.ml" +# 51563 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51615 "parsing/parser.ml" +# 51570 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 51621 "parsing/parser.ml" +# 51576 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 51627 "parsing/parser.ml" +# 51582 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 51638 "parsing/parser.ml" +# 51593 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -51642,15 +51597,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51648 "parsing/parser.ml" +# 51603 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 51654 "parsing/parser.ml" +# 51609 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51689,45 +51644,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 51695 "parsing/parser.ml" +# 51650 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 51702 "parsing/parser.ml" +# 51657 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51708 "parsing/parser.ml" +# 51663 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 51714 "parsing/parser.ml" +# 51669 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 51720 "parsing/parser.ml" +# 51675 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 51731 "parsing/parser.ml" +# 51686 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -51735,15 +51690,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51741 "parsing/parser.ml" +# 51696 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 51747 "parsing/parser.ml" +# 51702 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51789,45 +51744,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 51795 "parsing/parser.ml" +# 51750 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 51802 "parsing/parser.ml" +# 51757 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51808 "parsing/parser.ml" +# 51763 "parsing/parser.ml" in let arg_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 51814 "parsing/parser.ml" +# 51769 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 51820 "parsing/parser.ml" +# 51775 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 51831 "parsing/parser.ml" +# 51786 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -51835,15 +51790,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51841 "parsing/parser.ml" +# 51796 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 51847 "parsing/parser.ml" +# 51802 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51917,9 +51872,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 51923 "parsing/parser.ml" +# 51878 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -51932,24 +51887,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51936 "parsing/parser.ml" +# 51891 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 51941 "parsing/parser.ml" +# 51896 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 51947 "parsing/parser.ml" +# 51902 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51953 "parsing/parser.ml" +# 51908 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51957,45 +51912,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51963 "parsing/parser.ml" +# 51918 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 51969 "parsing/parser.ml" +# 51924 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51976 "parsing/parser.ml" +# 51931 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 51982 "parsing/parser.ml" +# 51937 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 51988 "parsing/parser.ml" +# 51943 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 51999 "parsing/parser.ml" +# 51954 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52003,15 +51958,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52009 "parsing/parser.ml" +# 51964 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 52015 "parsing/parser.ml" +# 51970 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52092,9 +52047,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 52098 "parsing/parser.ml" +# 52053 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -52107,24 +52062,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52111 "parsing/parser.ml" +# 52066 "parsing/parser.ml" in -# 1148 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( xs ) -# 52116 "parsing/parser.ml" +# 52071 "parsing/parser.ml" in -# 3630 "parsing/parser.mly" +# 3637 "parsing/parser.mly" ( _1 ) -# 52122 "parsing/parser.ml" +# 52077 "parsing/parser.ml" in -# 3742 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 52128 "parsing/parser.ml" +# 52083 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -52132,45 +52087,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52138 "parsing/parser.ml" +# 52093 "parsing/parser.ml" in -# 3744 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 52144 "parsing/parser.ml" +# 52099 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52151 "parsing/parser.ml" +# 52106 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 52157 "parsing/parser.ml" +# 52112 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 52163 "parsing/parser.ml" +# 52118 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 52174 "parsing/parser.ml" +# 52129 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52178,15 +52133,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52184 "parsing/parser.ml" +# 52139 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 52190 "parsing/parser.ml" +# 52145 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52232,45 +52187,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3735 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( false ) -# 52238 "parsing/parser.ml" +# 52193 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 52245 "parsing/parser.ml" +# 52200 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52251 "parsing/parser.ml" +# 52206 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 52257 "parsing/parser.ml" +# 52212 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 52263 "parsing/parser.ml" +# 52218 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 52274 "parsing/parser.ml" +# 52229 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52278,15 +52233,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52284 "parsing/parser.ml" +# 52239 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 52290 "parsing/parser.ml" +# 52245 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52339,45 +52294,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 52345 "parsing/parser.ml" +# 52300 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3746 "parsing/parser.mly" +# 3753 "parsing/parser.mly" ( ty ) -# 52352 "parsing/parser.ml" +# 52307 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1044 "parsing/parser.mly" +# 1050 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52358 "parsing/parser.ml" +# 52313 "parsing/parser.ml" in let arg_local = -# 3737 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( true ) -# 52364 "parsing/parser.ml" +# 52319 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3731 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( Nolabel ) -# 52370 "parsing/parser.ml" +# 52325 "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 -# 3718 "parsing/parser.mly" +# 3725 "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_) ) -# 52381 "parsing/parser.ml" +# 52336 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52385,15 +52340,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52391 "parsing/parser.ml" +# 52346 "parsing/parser.ml" in -# 3723 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 52397 "parsing/parser.ml" +# 52352 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52420,39 +52375,39 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 52424 "parsing/parser.ml" +# 52379 "parsing/parser.ml" in let xs = let items = -# 1116 "parsing/parser.mly" +# 1122 "parsing/parser.mly" ( [] ) -# 52430 "parsing/parser.ml" +# 52385 "parsing/parser.ml" in -# 1545 "parsing/parser.mly" +# 1551 "parsing/parser.mly" ( items ) -# 52435 "parsing/parser.ml" +# 52390 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 52441 "parsing/parser.ml" +# 52396 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1038 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 52450 "parsing/parser.ml" +# 52405 "parsing/parser.ml" in -# 1538 "parsing/parser.mly" +# 1544 "parsing/parser.mly" ( _1 ) -# 52456 "parsing/parser.ml" +# 52411 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52493,7 +52448,7 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 52497 "parsing/parser.ml" +# 52452 "parsing/parser.ml" in let xs = let items = @@ -52501,65 +52456,65 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 52507 "parsing/parser.ml" +# 52462 "parsing/parser.ml" in -# 1552 "parsing/parser.mly" +# 1558 "parsing/parser.mly" ( mkstrexp e attrs ) -# 52512 "parsing/parser.ml" +# 52467 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1050 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 52520 "parsing/parser.ml" +# 52475 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1069 "parsing/parser.mly" +# 1075 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 52530 "parsing/parser.ml" +# 52485 "parsing/parser.ml" in -# 1118 "parsing/parser.mly" +# 1124 "parsing/parser.mly" ( x ) -# 52536 "parsing/parser.ml" +# 52491 "parsing/parser.ml" in -# 1545 "parsing/parser.mly" +# 1551 "parsing/parser.mly" ( items ) -# 52542 "parsing/parser.ml" +# 52497 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 52548 "parsing/parser.ml" +# 52503 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1038 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 52557 "parsing/parser.ml" +# 52512 "parsing/parser.ml" in -# 1538 "parsing/parser.mly" +# 1544 "parsing/parser.mly" ( _1 ) -# 52563 "parsing/parser.ml" +# 52518 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52585,9 +52540,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1567 "parsing/parser.mly" +# 1573 "parsing/parser.mly" ( val_of_let_bindings ~loc:_sloc _1 ) -# 52591 "parsing/parser.ml" +# 52546 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52621,9 +52576,9 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 52627 "parsing/parser.ml" +# 52582 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -52631,10 +52586,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1570 "parsing/parser.mly" +# 1576 "parsing/parser.mly" ( let docs = symbol_docs _sloc in Pstr_extension (_1, add_docs_attrs docs _2) ) -# 52638 "parsing/parser.ml" +# 52593 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -52642,15 +52597,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1085 "parsing/parser.mly" +# 1091 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) -# 52648 "parsing/parser.ml" +# 52603 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 52654 "parsing/parser.ml" +# 52609 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52674,23 +52629,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1573 "parsing/parser.mly" +# 1579 "parsing/parser.mly" ( Pstr_attribute _1 ) -# 52680 "parsing/parser.ml" +# 52635 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1085 "parsing/parser.mly" +# 1091 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) -# 52688 "parsing/parser.ml" +# 52643 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 52694 "parsing/parser.ml" +# 52649 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52714,23 +52669,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1577 "parsing/parser.mly" +# 1583 "parsing/parser.mly" ( pstr_primitive _1 ) -# 52720 "parsing/parser.ml" +# 52675 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 52728 "parsing/parser.ml" +# 52683 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 52734 "parsing/parser.ml" +# 52689 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52754,23 +52709,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1579 "parsing/parser.mly" +# 1585 "parsing/parser.mly" ( pstr_primitive _1 ) -# 52760 "parsing/parser.ml" +# 52715 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 52768 "parsing/parser.ml" +# 52723 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 52774 "parsing/parser.ml" +# 52729 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52805,26 +52760,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1277 "parsing/parser.mly" +# 1283 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 52811 "parsing/parser.ml" +# 52766 "parsing/parser.ml" in -# 3274 "parsing/parser.mly" +# 3281 "parsing/parser.mly" ( _1 ) -# 52816 "parsing/parser.ml" +# 52771 "parsing/parser.ml" in -# 3257 "parsing/parser.mly" +# 3264 "parsing/parser.mly" ( _1 ) -# 52822 "parsing/parser.ml" +# 52777 "parsing/parser.ml" in -# 1581 "parsing/parser.mly" +# 1587 "parsing/parser.mly" ( pstr_type _1 ) -# 52828 "parsing/parser.ml" +# 52783 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -52832,15 +52787,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 52838 "parsing/parser.ml" +# 52793 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 52844 "parsing/parser.ml" +# 52799 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52925,16 +52880,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 52931 "parsing/parser.ml" +# 52886 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = -# 1269 "parsing/parser.mly" +# 1275 "parsing/parser.mly" ( List.rev xs ) -# 52938 "parsing/parser.ml" +# 52893 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -52942,46 +52897,46 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 52948 "parsing/parser.ml" +# 52903 "parsing/parser.ml" in let _4 = -# 4091 "parsing/parser.mly" +# 4098 "parsing/parser.mly" ( Recursive ) -# 52954 "parsing/parser.ml" +# 52909 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 52961 "parsing/parser.ml" +# 52916 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3555 "parsing/parser.mly" +# 3562 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 52973 "parsing/parser.ml" +# 52928 "parsing/parser.ml" in -# 3538 "parsing/parser.mly" +# 3545 "parsing/parser.mly" ( _1 ) -# 52979 "parsing/parser.ml" +# 52934 "parsing/parser.ml" in -# 1583 "parsing/parser.mly" +# 1589 "parsing/parser.mly" ( pstr_typext _1 ) -# 52985 "parsing/parser.ml" +# 52940 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -52989,15 +52944,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 52995 "parsing/parser.ml" +# 52950 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 53001 "parsing/parser.ml" +# 52956 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53089,16 +53044,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 53095 "parsing/parser.ml" +# 53050 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = -# 1269 "parsing/parser.mly" +# 1275 "parsing/parser.mly" ( List.rev xs ) -# 53102 "parsing/parser.ml" +# 53057 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -53106,9 +53061,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53112 "parsing/parser.ml" +# 53067 "parsing/parser.ml" in let _4 = @@ -53117,41 +53072,41 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4093 "parsing/parser.mly" +# 4100 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 53123 "parsing/parser.ml" +# 53078 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 53131 "parsing/parser.ml" +# 53086 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3555 "parsing/parser.mly" +# 3562 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 53143 "parsing/parser.ml" +# 53098 "parsing/parser.ml" in -# 3538 "parsing/parser.mly" +# 3545 "parsing/parser.mly" ( _1 ) -# 53149 "parsing/parser.ml" +# 53104 "parsing/parser.ml" in -# 1583 "parsing/parser.mly" +# 1589 "parsing/parser.mly" ( pstr_typext _1 ) -# 53155 "parsing/parser.ml" +# 53110 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -53159,15 +53114,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53165 "parsing/parser.ml" +# 53120 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 53171 "parsing/parser.ml" +# 53126 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53191,23 +53146,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1585 "parsing/parser.mly" +# 1591 "parsing/parser.mly" ( pstr_exception _1 ) -# 53197 "parsing/parser.ml" +# 53152 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53205 "parsing/parser.ml" +# 53160 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 53211 "parsing/parser.ml" +# 53166 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53270,9 +53225,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 53276 "parsing/parser.ml" +# 53231 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -53282,36 +53237,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53288 "parsing/parser.ml" +# 53243 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 53296 "parsing/parser.ml" +# 53251 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1614 "parsing/parser.mly" +# 1620 "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 ) -# 53309 "parsing/parser.ml" +# 53264 "parsing/parser.ml" in -# 1587 "parsing/parser.mly" +# 1593 "parsing/parser.mly" ( _1 ) -# 53315 "parsing/parser.ml" +# 53270 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -53319,15 +53274,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53325 "parsing/parser.ml" +# 53280 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 53331 "parsing/parser.ml" +# 53286 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53406,9 +53361,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 53412 "parsing/parser.ml" +# 53367 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -53418,24 +53373,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53424 "parsing/parser.ml" +# 53379 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 53432 "parsing/parser.ml" +# 53387 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1649 "parsing/parser.mly" +# 1655 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in @@ -53443,25 +53398,25 @@ module Tables = struct ext, Mb.mk name body ~attrs ~loc ~docs ) -# 53447 "parsing/parser.ml" +# 53402 "parsing/parser.ml" in -# 1277 "parsing/parser.mly" +# 1283 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 53453 "parsing/parser.ml" +# 53408 "parsing/parser.ml" in -# 1637 "parsing/parser.mly" +# 1643 "parsing/parser.mly" ( _1 ) -# 53459 "parsing/parser.ml" +# 53414 "parsing/parser.ml" in -# 1589 "parsing/parser.mly" +# 1595 "parsing/parser.mly" ( pstr_recmodule _1 ) -# 53465 "parsing/parser.ml" +# 53420 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -53469,15 +53424,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53475 "parsing/parser.ml" +# 53430 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 53481 "parsing/parser.ml" +# 53436 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53501,23 +53456,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1591 "parsing/parser.mly" +# 1597 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_modtype body, ext) ) -# 53507 "parsing/parser.ml" +# 53462 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53515 "parsing/parser.ml" +# 53470 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 53521 "parsing/parser.ml" +# 53476 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53541,23 +53496,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1593 "parsing/parser.mly" +# 1599 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_open body, ext) ) -# 53547 "parsing/parser.ml" +# 53502 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53555 "parsing/parser.ml" +# 53510 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 53561 "parsing/parser.ml" +# 53516 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53627,9 +53582,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 53633 "parsing/parser.ml" +# 53588 "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 @@ -53647,9 +53602,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 53653 "parsing/parser.ml" +# 53608 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -53659,24 +53614,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53665 "parsing/parser.ml" +# 53620 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 53673 "parsing/parser.ml" +# 53628 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2002 "parsing/parser.mly" +# 2008 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -53684,25 +53639,25 @@ module Tables = struct ext, Ci.mk id body ~virt ~params ~attrs ~loc ~docs ) -# 53688 "parsing/parser.ml" +# 53643 "parsing/parser.ml" in -# 1277 "parsing/parser.mly" +# 1283 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 53694 "parsing/parser.ml" +# 53649 "parsing/parser.ml" in -# 1991 "parsing/parser.mly" +# 1997 "parsing/parser.mly" ( _1 ) -# 53700 "parsing/parser.ml" +# 53655 "parsing/parser.ml" in -# 1595 "parsing/parser.mly" +# 1601 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class l, ext) ) -# 53706 "parsing/parser.ml" +# 53661 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -53710,15 +53665,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53716 "parsing/parser.ml" +# 53671 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 53722 "parsing/parser.ml" +# 53677 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53742,23 +53697,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1597 "parsing/parser.mly" +# 1603 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class_type l, ext) ) -# 53748 "parsing/parser.ml" +# 53703 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53756 "parsing/parser.ml" +# 53711 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 53762 "parsing/parser.ml" +# 53717 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53814,22 +53769,22 @@ module Tables = struct let attrs2 = let _1 = _1_inlined1 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 53820 "parsing/parser.ml" +# 53775 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined1_ in let attrs1 = -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 53827 "parsing/parser.ml" +# 53782 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos_is_functor_ in let _sloc = (_symbolstartpos, _endpos) in -# 1693 "parsing/parser.mly" +# 1699 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -53841,16 +53796,16 @@ module Tables = struct else wrap (incl, ext) ) -# 53845 "parsing/parser.ml" +# 53800 "parsing/parser.ml" in -# 1599 "parsing/parser.mly" +# 1605 "parsing/parser.mly" ( _1 pstr_include (fun ~loc incl -> Jane_syntax.Include_functor.str_item_of ~loc (Ifstr_include_functor incl)) ) -# 53854 "parsing/parser.ml" +# 53809 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in @@ -53858,15 +53813,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1102 "parsing/parser.mly" +# 1108 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53864 "parsing/parser.ml" +# 53819 "parsing/parser.ml" in -# 1604 "parsing/parser.mly" +# 1610 "parsing/parser.mly" ( _1 ) -# 53870 "parsing/parser.ml" +# 53825 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53889,9 +53844,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4167 "parsing/parser.mly" +# 4174 "parsing/parser.mly" ( "-" ) -# 53895 "parsing/parser.ml" +# 53850 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53914,9 +53869,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4168 "parsing/parser.mly" +# 4175 "parsing/parser.mly" ( "-." ) -# 53920 "parsing/parser.ml" +# 53875 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53969,9 +53924,9 @@ module Tables = struct let _v : (Parsetree.row_field) = let _5 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 53975 "parsing/parser.ml" +# 53930 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined1_ in @@ -53980,18 +53935,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 53984 "parsing/parser.ml" +# 53939 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 53989 "parsing/parser.ml" +# 53944 "parsing/parser.ml" in -# 3864 "parsing/parser.mly" +# 3871 "parsing/parser.mly" ( _1 ) -# 53995 "parsing/parser.ml" +# 53950 "parsing/parser.ml" in let _1 = @@ -53999,20 +53954,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54005 "parsing/parser.ml" +# 53960 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3850 "parsing/parser.mly" +# 3857 "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 ) -# 54016 "parsing/parser.ml" +# 53971 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54044,9 +53999,9 @@ module Tables = struct let _v : (Parsetree.row_field) = let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 54050 "parsing/parser.ml" +# 54005 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -54055,20 +54010,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54061 "parsing/parser.ml" +# 54016 "parsing/parser.ml" in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3854 "parsing/parser.mly" +# 3861 "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 [] ) -# 54072 "parsing/parser.ml" +# 54027 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54100,7 +54055,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase) = let arg = # 124 "" ( None ) -# 54104 "parsing/parser.ml" +# 54059 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined1_ in let dir = @@ -54109,18 +54064,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54115 "parsing/parser.ml" +# 54070 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4054 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54124 "parsing/parser.ml" +# 54079 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54151,9 +54106,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 900 "parsing/parser.mly" +# 906 "parsing/parser.mly" (string * Location.t * string option) -# 54157 "parsing/parser.ml" +# 54112 "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 @@ -54164,23 +54119,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4058 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( let (s, _, _) = _1 in Pdir_string s ) -# 54170 "parsing/parser.ml" +# 54125 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1107 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54178 "parsing/parser.ml" +# 54133 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54184 "parsing/parser.ml" +# 54139 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54190,18 +54145,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54196 "parsing/parser.ml" +# 54151 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4054 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54205 "parsing/parser.ml" +# 54160 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54232,9 +54187,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 845 "parsing/parser.mly" +# 851 "parsing/parser.mly" (string * char option) -# 54238 "parsing/parser.ml" +# 54193 "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 @@ -54245,23 +54200,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4059 "parsing/parser.mly" +# 4066 "parsing/parser.mly" ( let (n, m) = _1 in Pdir_int (n ,m) ) -# 54251 "parsing/parser.ml" +# 54206 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1107 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54259 "parsing/parser.ml" +# 54214 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54265 "parsing/parser.ml" +# 54220 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54271,18 +54226,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54277 "parsing/parser.ml" +# 54232 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4054 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54286 "parsing/parser.ml" +# 54241 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54322,23 +54277,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4060 "parsing/parser.mly" +# 4067 "parsing/parser.mly" ( Pdir_ident _1 ) -# 54328 "parsing/parser.ml" +# 54283 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1107 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54336 "parsing/parser.ml" +# 54291 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54342 "parsing/parser.ml" +# 54297 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54348,18 +54303,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54354 "parsing/parser.ml" +# 54309 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4054 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54363 "parsing/parser.ml" +# 54318 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54399,23 +54354,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4061 "parsing/parser.mly" +# 4068 "parsing/parser.mly" ( Pdir_ident _1 ) -# 54405 "parsing/parser.ml" +# 54360 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1107 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54413 "parsing/parser.ml" +# 54368 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54419 "parsing/parser.ml" +# 54374 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54425,18 +54380,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54431 "parsing/parser.ml" +# 54386 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4054 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54440 "parsing/parser.ml" +# 54395 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54476,23 +54431,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4062 "parsing/parser.mly" +# 4069 "parsing/parser.mly" ( Pdir_bool false ) -# 54482 "parsing/parser.ml" +# 54437 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1107 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54490 "parsing/parser.ml" +# 54445 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54496 "parsing/parser.ml" +# 54451 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54502,18 +54457,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54508 "parsing/parser.ml" +# 54463 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4054 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54517 "parsing/parser.ml" +# 54472 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54553,23 +54508,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4063 "parsing/parser.mly" +# 4070 "parsing/parser.mly" ( Pdir_bool true ) -# 54559 "parsing/parser.ml" +# 54514 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1107 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54567 "parsing/parser.ml" +# 54522 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54573 "parsing/parser.ml" +# 54528 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54579,18 +54534,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54585 "parsing/parser.ml" +# 54540 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4054 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54594 "parsing/parser.ml" +# 54549 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54630,37 +54585,37 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 54636 "parsing/parser.ml" +# 54591 "parsing/parser.ml" in -# 1552 "parsing/parser.mly" +# 1558 "parsing/parser.mly" ( mkstrexp e attrs ) -# 54641 "parsing/parser.ml" +# 54596 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1050 "parsing/parser.mly" +# 1056 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 54649 "parsing/parser.ml" +# 54604 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1038 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 54658 "parsing/parser.ml" +# 54613 "parsing/parser.ml" in -# 1317 "parsing/parser.mly" +# 1323 "parsing/parser.mly" ( Ptop_def _1 ) -# 54664 "parsing/parser.ml" +# 54619 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54693,21 +54648,21 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 54697 "parsing/parser.ml" +# 54652 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1038 "parsing/parser.mly" +# 1044 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 54705 "parsing/parser.ml" +# 54660 "parsing/parser.ml" in -# 1321 "parsing/parser.mly" +# 1327 "parsing/parser.mly" ( Ptop_def _1 ) -# 54711 "parsing/parser.ml" +# 54666 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54737,9 +54692,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.toplevel_phrase) = -# 1325 "parsing/parser.mly" +# 1331 "parsing/parser.mly" ( _1 ) -# 54743 "parsing/parser.ml" +# 54698 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54762,9 +54717,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.toplevel_phrase) = -# 1328 "parsing/parser.mly" +# 1334 "parsing/parser.mly" ( raise End_of_file ) -# 54768 "parsing/parser.ml" +# 54723 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54787,9 +54742,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3756 "parsing/parser.mly" +# 3763 "parsing/parser.mly" ( ty ) -# 54793 "parsing/parser.ml" +# 54748 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54817,18 +54772,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 54821 "parsing/parser.ml" +# 54776 "parsing/parser.ml" in -# 1208 "parsing/parser.mly" +# 1214 "parsing/parser.mly" ( xs ) -# 54826 "parsing/parser.ml" +# 54781 "parsing/parser.ml" in -# 3759 "parsing/parser.mly" +# 3766 "parsing/parser.mly" ( Ptyp_tuple tys ) -# 54832 "parsing/parser.ml" +# 54787 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in @@ -54836,15 +54791,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 54842 "parsing/parser.ml" +# 54797 "parsing/parser.ml" in -# 3761 "parsing/parser.mly" +# 3768 "parsing/parser.mly" ( _1 ) -# 54848 "parsing/parser.ml" +# 54803 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54874,9 +54829,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 3009 "parsing/parser.mly" +# 3015 "parsing/parser.mly" ( (Some _2, None) ) -# 54880 "parsing/parser.ml" +# 54835 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54920,9 +54875,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 3010 "parsing/parser.mly" +# 3016 "parsing/parser.mly" ( (Some _2, Some _4) ) -# 54926 "parsing/parser.ml" +# 54881 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54952,9 +54907,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 3011 "parsing/parser.mly" +# 3017 "parsing/parser.mly" ( (None, Some _2) ) -# 54958 "parsing/parser.ml" +# 54913 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54984,9 +54939,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 3012 "parsing/parser.mly" +# 3018 "parsing/parser.mly" ( syntax_error() ) -# 54990 "parsing/parser.ml" +# 54945 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55016,9 +54971,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 3013 "parsing/parser.mly" +# 3019 "parsing/parser.mly" ( syntax_error() ) -# 55022 "parsing/parser.ml" +# 54977 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55034,9 +54989,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) = -# 3348 "parsing/parser.mly" +# 3355 "parsing/parser.mly" ( (Ptype_abstract, Public, None) ) -# 55040 "parsing/parser.ml" +# 54995 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55066,9 +55021,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) = -# 3350 "parsing/parser.mly" +# 3357 "parsing/parser.mly" ( _2 ) -# 55072 "parsing/parser.ml" +# 55027 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55091,9 +55046,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4015 "parsing/parser.mly" +# 4022 "parsing/parser.mly" ( _1 ) -# 55097 "parsing/parser.ml" +# 55052 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55132,15 +55087,15 @@ module Tables = struct let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = let _3 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 55138 "parsing/parser.ml" +# 55093 "parsing/parser.ml" in -# 3379 "parsing/parser.mly" +# 3386 "parsing/parser.mly" ( {_2 with ptyp_attributes = _3}, _1 ) -# 55144 "parsing/parser.ml" +# 55099 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55156,9 +55111,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) = -# 3358 "parsing/parser.mly" +# 3365 "parsing/parser.mly" ( [] ) -# 55162 "parsing/parser.ml" +# 55117 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55181,9 +55136,9 @@ module Tables = struct let _startpos = _startpos_p_ in let _endpos = _endpos_p_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = -# 3360 "parsing/parser.mly" +# 3367 "parsing/parser.mly" ( [p] ) -# 55187 "parsing/parser.ml" +# 55142 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55223,18 +55178,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 55227 "parsing/parser.ml" +# 55182 "parsing/parser.ml" in -# 1180 "parsing/parser.mly" +# 1186 "parsing/parser.mly" ( xs ) -# 55232 "parsing/parser.ml" +# 55187 "parsing/parser.ml" in -# 3364 "parsing/parser.mly" +# 3371 "parsing/parser.mly" ( ps ) -# 55238 "parsing/parser.ml" +# 55193 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55265,24 +55220,24 @@ module Tables = struct let _endpos = _endpos_tyvar_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3385 "parsing/parser.mly" +# 3392 "parsing/parser.mly" ( Ptyp_var tyvar ) -# 55271 "parsing/parser.ml" +# 55226 "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 -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 55280 "parsing/parser.ml" +# 55235 "parsing/parser.ml" in -# 3388 "parsing/parser.mly" +# 3395 "parsing/parser.mly" ( _1 ) -# 55286 "parsing/parser.ml" +# 55241 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55306,23 +55261,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3387 "parsing/parser.mly" +# 3394 "parsing/parser.mly" ( Ptyp_any ) -# 55312 "parsing/parser.ml" +# 55267 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1083 "parsing/parser.mly" +# 1089 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 55320 "parsing/parser.ml" +# 55275 "parsing/parser.ml" in -# 3388 "parsing/parser.mly" +# 3395 "parsing/parser.mly" ( _1 ) -# 55326 "parsing/parser.ml" +# 55281 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55338,9 +55293,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3392 "parsing/parser.mly" +# 3399 "parsing/parser.mly" ( NoVariance, NoInjectivity ) -# 55344 "parsing/parser.ml" +# 55299 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55363,9 +55318,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3393 "parsing/parser.mly" +# 3400 "parsing/parser.mly" ( Covariant, NoInjectivity ) -# 55369 "parsing/parser.ml" +# 55324 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55388,9 +55343,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3394 "parsing/parser.mly" +# 3401 "parsing/parser.mly" ( Contravariant, NoInjectivity ) -# 55394 "parsing/parser.ml" +# 55349 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55413,9 +55368,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3395 "parsing/parser.mly" +# 3402 "parsing/parser.mly" ( NoVariance, Injective ) -# 55419 "parsing/parser.ml" +# 55374 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55445,9 +55400,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3396 "parsing/parser.mly" +# 3403 "parsing/parser.mly" ( Covariant, Injective ) -# 55451 "parsing/parser.ml" +# 55406 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55477,9 +55432,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3396 "parsing/parser.mly" +# 3403 "parsing/parser.mly" ( Covariant, Injective ) -# 55483 "parsing/parser.ml" +# 55438 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55509,9 +55464,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3397 "parsing/parser.mly" +# 3404 "parsing/parser.mly" ( Contravariant, Injective ) -# 55515 "parsing/parser.ml" +# 55470 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55541,9 +55496,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3397 "parsing/parser.mly" +# 3404 "parsing/parser.mly" ( Contravariant, Injective ) -# 55547 "parsing/parser.ml" +# 55502 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55562,20 +55517,20 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 837 "parsing/parser.mly" +# 843 "parsing/parser.mly" (string) -# 55568 "parsing/parser.ml" +# 55523 "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 -# 3399 "parsing/parser.mly" +# 3406 "parsing/parser.mly" ( if _1 = "+!" then Covariant, Injective else if _1 = "-!" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 55579 "parsing/parser.ml" +# 55534 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55594,20 +55549,20 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 886 "parsing/parser.mly" +# 892 "parsing/parser.mly" (string) -# 55600 "parsing/parser.ml" +# 55555 "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 -# 3403 "parsing/parser.mly" +# 3410 "parsing/parser.mly" ( if _1 = "!+" then Covariant, Injective else if _1 = "!-" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 55611 "parsing/parser.ml" +# 55566 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55641,39 +55596,39 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 55645 "parsing/parser.ml" +# 55600 "parsing/parser.ml" in let xs = let _1 = -# 1116 "parsing/parser.mly" +# 1122 "parsing/parser.mly" ( [] ) -# 55651 "parsing/parser.ml" +# 55606 "parsing/parser.ml" in -# 1348 "parsing/parser.mly" +# 1354 "parsing/parser.mly" ( _1 ) -# 55656 "parsing/parser.ml" +# 55611 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 55662 "parsing/parser.ml" +# 55617 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1042 "parsing/parser.mly" +# 1048 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) -# 55671 "parsing/parser.ml" +# 55626 "parsing/parser.ml" in -# 1341 "parsing/parser.mly" +# 1347 "parsing/parser.mly" ( _1 ) -# 55677 "parsing/parser.ml" +# 55632 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55721,7 +55676,7 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 55725 "parsing/parser.ml" +# 55680 "parsing/parser.ml" in let xs = let _1 = @@ -55729,61 +55684,61 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 55735 "parsing/parser.ml" +# 55690 "parsing/parser.ml" in -# 1552 "parsing/parser.mly" +# 1558 "parsing/parser.mly" ( mkstrexp e attrs ) -# 55740 "parsing/parser.ml" +# 55695 "parsing/parser.ml" in -# 1060 "parsing/parser.mly" +# 1066 "parsing/parser.mly" ( Ptop_def [_1] ) -# 55746 "parsing/parser.ml" +# 55701 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1058 "parsing/parser.mly" +# 1064 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 55754 "parsing/parser.ml" +# 55709 "parsing/parser.ml" in -# 1118 "parsing/parser.mly" +# 1124 "parsing/parser.mly" ( x ) -# 55760 "parsing/parser.ml" +# 55715 "parsing/parser.ml" in -# 1348 "parsing/parser.mly" +# 1354 "parsing/parser.mly" ( _1 ) -# 55766 "parsing/parser.ml" +# 55721 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 55772 "parsing/parser.ml" +# 55727 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1042 "parsing/parser.mly" +# 1048 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) -# 55781 "parsing/parser.ml" +# 55736 "parsing/parser.ml" in -# 1341 "parsing/parser.mly" +# 1347 "parsing/parser.mly" ( _1 ) -# 55787 "parsing/parser.ml" +# 55742 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55820,9 +55775,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = -# 3934 "parsing/parser.mly" +# 3941 "parsing/parser.mly" ( _2 ) -# 55826 "parsing/parser.ml" +# 55781 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55861,9 +55816,9 @@ module Tables = struct let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3935 "parsing/parser.mly" +# 3942 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 55867 "parsing/parser.ml" +# 55822 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55894,9 +55849,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Asttypes.label) = let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 3936 "parsing/parser.mly" +# 3943 "parsing/parser.mly" ( expecting _loc__2_ "operator" ) -# 55900 "parsing/parser.ml" +# 55855 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55934,9 +55889,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3937 "parsing/parser.mly" +# 3944 "parsing/parser.mly" ( expecting _loc__3_ "module-expr" ) -# 55940 "parsing/parser.ml" +# 55895 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55955,17 +55910,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 55961 "parsing/parser.ml" +# 55916 "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) = -# 3940 "parsing/parser.mly" +# 3947 "parsing/parser.mly" ( _1 ) -# 55969 "parsing/parser.ml" +# 55924 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55988,9 +55943,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3941 "parsing/parser.mly" +# 3948 "parsing/parser.mly" ( _1 ) -# 55994 "parsing/parser.ml" +# 55949 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56013,9 +55968,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4009 "parsing/parser.mly" +# 4016 "parsing/parser.mly" ( _1 ) -# 56019 "parsing/parser.ml" +# 55974 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56060,9 +56015,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 56066 "parsing/parser.ml" +# 56021 "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 @@ -56074,33 +56029,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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 56080 "parsing/parser.ml" +# 56035 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56088 "parsing/parser.ml" +# 56043 "parsing/parser.ml" in let attrs = -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 56094 "parsing/parser.ml" +# 56049 "parsing/parser.ml" in let _1 = -# 4160 "parsing/parser.mly" +# 4167 "parsing/parser.mly" ( Fresh ) -# 56099 "parsing/parser.ml" +# 56054 "parsing/parser.ml" in -# 2142 "parsing/parser.mly" +# 2148 "parsing/parser.mly" ( (label, mutable_, Cfk_virtual ty), attrs ) -# 56104 "parsing/parser.ml" +# 56059 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56145,9 +56100,9 @@ module Tables = struct let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 56151 "parsing/parser.ml" +# 56106 "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 @@ -56159,33 +56114,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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 56165 "parsing/parser.ml" +# 56120 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56173 "parsing/parser.ml" +# 56128 "parsing/parser.ml" in let _2 = -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 56179 "parsing/parser.ml" +# 56134 "parsing/parser.ml" in let _1 = -# 4163 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Fresh ) -# 56184 "parsing/parser.ml" +# 56139 "parsing/parser.ml" in -# 2144 "parsing/parser.mly" +# 2150 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 56189 "parsing/parser.ml" +# 56144 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56236,9 +56191,9 @@ module Tables = struct let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 56242 "parsing/parser.ml" +# 56197 "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 @@ -56251,36 +56206,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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 56257 "parsing/parser.ml" +# 56212 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56265 "parsing/parser.ml" +# 56220 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 56273 "parsing/parser.ml" +# 56228 "parsing/parser.ml" in let _1 = -# 4164 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Override ) -# 56279 "parsing/parser.ml" +# 56234 "parsing/parser.ml" in -# 2144 "parsing/parser.mly" +# 2150 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 56284 "parsing/parser.ml" +# 56239 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56332,9 +56287,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 56338 "parsing/parser.ml" +# 56293 "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 @@ -56346,30 +56301,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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 56352 "parsing/parser.ml" +# 56307 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56360 "parsing/parser.ml" +# 56315 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 56367 "parsing/parser.ml" +# 56322 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = -# 4163 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Fresh ) -# 56373 "parsing/parser.ml" +# 56328 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__7_ in @@ -56385,11 +56340,11 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2147 "parsing/parser.mly" +# 2153 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 56393 "parsing/parser.ml" +# 56348 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56447,9 +56402,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 : ( -# 860 "parsing/parser.mly" +# 866 "parsing/parser.mly" (string) -# 56453 "parsing/parser.ml" +# 56408 "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 @@ -56462,33 +56417,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 = -# 3908 "parsing/parser.mly" +# 3915 "parsing/parser.mly" ( _1 ) -# 56468 "parsing/parser.ml" +# 56423 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56476 "parsing/parser.ml" +# 56431 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 56485 "parsing/parser.ml" +# 56440 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = -# 4164 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Override ) -# 56492 "parsing/parser.ml" +# 56447 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -56503,11 +56458,11 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2147 "parsing/parser.mly" +# 2153 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 56511 "parsing/parser.ml" +# 56466 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56574,9 +56529,9 @@ module Tables = struct let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4259 "parsing/parser.mly" +# 4266 "parsing/parser.mly" ( _1 ) -# 56580 "parsing/parser.ml" +# 56535 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -56586,30 +56541,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56592 "parsing/parser.ml" +# 56547 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4263 "parsing/parser.mly" +# 4270 "parsing/parser.mly" ( _1 ) -# 56600 "parsing/parser.ml" +# 56555 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3219 "parsing/parser.mly" +# 3226 "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 ) -# 56613 "parsing/parser.ml" +# 56568 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56625,9 +56580,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.virtual_flag) = -# 4124 "parsing/parser.mly" +# 4131 "parsing/parser.mly" ( Concrete ) -# 56631 "parsing/parser.ml" +# 56586 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56650,9 +56605,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.virtual_flag) = -# 4125 "parsing/parser.mly" +# 4132 "parsing/parser.mly" ( Virtual ) -# 56656 "parsing/parser.ml" +# 56611 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56675,9 +56630,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 4148 "parsing/parser.mly" +# 4155 "parsing/parser.mly" ( Immutable ) -# 56681 "parsing/parser.ml" +# 56636 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56707,9 +56662,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 4149 "parsing/parser.mly" +# 4156 "parsing/parser.mly" ( Mutable ) -# 56713 "parsing/parser.ml" +# 56668 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56739,9 +56694,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 4150 "parsing/parser.mly" +# 4157 "parsing/parser.mly" ( Mutable ) -# 56745 "parsing/parser.ml" +# 56700 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56764,9 +56719,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 4155 "parsing/parser.mly" +# 4162 "parsing/parser.mly" ( Public ) -# 56770 "parsing/parser.ml" +# 56725 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56796,9 +56751,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 4156 "parsing/parser.mly" +# 4163 "parsing/parser.mly" ( Private ) -# 56802 "parsing/parser.ml" +# 56757 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56828,9 +56783,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 4157 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( Private ) -# 56834 "parsing/parser.ml" +# 56789 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56892,27 +56847,27 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 56896 "parsing/parser.ml" +# 56851 "parsing/parser.ml" in -# 1130 "parsing/parser.mly" +# 1136 "parsing/parser.mly" ( xs ) -# 56901 "parsing/parser.ml" +# 56856 "parsing/parser.ml" in -# 3319 "parsing/parser.mly" +# 3326 "parsing/parser.mly" ( _1 ) -# 56907 "parsing/parser.ml" +# 56862 "parsing/parser.ml" in let _endpos__6_ = _endpos_xs_ in let _5 = let _1 = _1_inlined2 in -# 3669 "parsing/parser.mly" +# 3676 "parsing/parser.mly" ( _1 ) -# 56916 "parsing/parser.ml" +# 56871 "parsing/parser.ml" in let _3 = @@ -56921,16 +56876,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 56927 "parsing/parser.ml" +# 56882 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3588 "parsing/parser.mly" +# 3595 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_type (_3, @@ -56940,7 +56895,7 @@ module Tables = struct ~manifest:_5 ~priv:_4 ~loc:(make_loc _sloc))) ) -# 56944 "parsing/parser.ml" +# 56899 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56993,9 +56948,9 @@ module Tables = struct let _v : (Parsetree.with_constraint) = let _5 = let _1 = _1_inlined2 in -# 3669 "parsing/parser.mly" +# 3676 "parsing/parser.mly" ( _1 ) -# 56999 "parsing/parser.ml" +# 56954 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in @@ -57005,16 +56960,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57011 "parsing/parser.ml" +# 56966 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3601 "parsing/parser.mly" +# 3608 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_typesubst (_3, @@ -57022,7 +56977,7 @@ module Tables = struct ~params:_2 ~manifest:_5 ~loc:(make_loc _sloc))) ) -# 57026 "parsing/parser.ml" +# 56981 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57071,9 +57026,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57077 "parsing/parser.ml" +# 57032 "parsing/parser.ml" in let _2 = @@ -57082,15 +57037,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57088 "parsing/parser.ml" +# 57043 "parsing/parser.ml" in -# 3609 "parsing/parser.mly" +# 3616 "parsing/parser.mly" ( Pwith_module (_2, _4) ) -# 57094 "parsing/parser.ml" +# 57049 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57139,9 +57094,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57145 "parsing/parser.ml" +# 57100 "parsing/parser.ml" in let _2 = @@ -57150,15 +57105,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57156 "parsing/parser.ml" +# 57111 "parsing/parser.ml" in -# 3611 "parsing/parser.mly" +# 3618 "parsing/parser.mly" ( Pwith_modsubst (_2, _4) ) -# 57162 "parsing/parser.ml" +# 57117 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57214,15 +57169,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57220 "parsing/parser.ml" +# 57175 "parsing/parser.ml" in -# 3613 "parsing/parser.mly" +# 3620 "parsing/parser.mly" ( Pwith_modtype (l, rhs) ) -# 57226 "parsing/parser.ml" +# 57181 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57278,15 +57233,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1046 "parsing/parser.mly" +# 1052 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57284 "parsing/parser.ml" +# 57239 "parsing/parser.ml" in -# 3615 "parsing/parser.mly" +# 3622 "parsing/parser.mly" ( Pwith_modtypesubst (l, rhs) ) -# 57290 "parsing/parser.ml" +# 57245 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57309,9 +57264,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 3618 "parsing/parser.mly" +# 3625 "parsing/parser.mly" ( Public ) -# 57315 "parsing/parser.ml" +# 57270 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57341,9 +57296,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 3619 "parsing/parser.mly" +# 3626 "parsing/parser.mly" ( Private ) -# 57347 "parsing/parser.ml" +# 57302 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57493,12 +57448,12 @@ module Incremental = struct end -# 4301 "parsing/parser.mly" +# 4308 "parsing/parser.mly" -# 57500 "parsing/parser.ml" +# 57455 "parsing/parser.ml" # 269 "" -# 57505 "parsing/parser.ml" +# 57460 "parsing/parser.ml" diff --git a/ocaml/parsing/ast_iterator.ml b/ocaml/parsing/ast_iterator.ml index cd57c96de5e..7fb7b0b71f6 100644 --- a/ocaml/parsing/ast_iterator.ml +++ b/ocaml/parsing/ast_iterator.ml @@ -535,10 +535,12 @@ module P = struct let iter sub ({ppat_desc = desc; ppat_loc = loc; ppat_attributes = attrs} as pat) = sub.location sub loc; - sub.attributes sub attrs; match Jane_syntax.Pattern.of_ast pat with - | Some jpat -> sub.pat_jane_syntax sub jpat + | Some (jpat, attrs) -> + sub.attributes sub attrs; + sub.pat_jane_syntax sub jpat | None -> + sub.attributes sub attrs; match desc with | Ppat_any -> () | Ppat_var s -> iter_loc sub s diff --git a/ocaml/parsing/ast_mapper.ml b/ocaml/parsing/ast_mapper.ml index 940791bc7f5..0125b76a89d 100644 --- a/ocaml/parsing/ast_mapper.ml +++ b/ocaml/parsing/ast_mapper.ml @@ -620,14 +620,15 @@ module P = struct ({ppat_desc = desc; ppat_loc = loc; ppat_attributes = attrs} as pat) = let open Pat in let loc = sub.location sub loc in - let attrs = sub.attributes sub attrs in match Jane_syntax.Pattern.of_ast pat with - | Some jpat -> begin + | Some (jpat, attrs) -> begin + let attrs = sub.attributes sub attrs in Jane_syntax_parsing.AST.wrap_desc Pattern ~loc ~attrs @@ match sub.pat_jane_syntax sub jpat with | Jpat_immutable_array i -> Jane_syntax.Immutable_arrays.pat_of ~loc i end | None -> + let attrs = sub.attributes sub attrs in match desc with | Ppat_any -> any ~loc ~attrs () | Ppat_var s -> var ~loc ~attrs (map_loc sub s) diff --git a/ocaml/parsing/depend.ml b/ocaml/parsing/depend.ml index be4959182d7..55a86697636 100644 --- a/ocaml/parsing/depend.ml +++ b/ocaml/parsing/depend.ml @@ -173,7 +173,7 @@ let pattern_bv = ref String.Map.empty let rec add_pattern bv pat = match Jane_syntax.Pattern.of_ast pat with - | Some jpat -> add_pattern_jane_syntax bv jpat + | Some (jpat, _attrs) -> add_pattern_jane_syntax bv jpat | None -> match pat.ppat_desc with Ppat_any -> () diff --git a/ocaml/parsing/jane_syntax.ml b/ocaml/parsing/jane_syntax.ml index 95046226b4d..127351ad7a7 100644 --- a/ocaml/parsing/jane_syntax.ml +++ b/ocaml/parsing/jane_syntax.ml @@ -295,8 +295,9 @@ module Immutable_arrays = struct AST.make_entire_jane_syntax Pattern ~loc extension_string (fun () -> Ast_helper.Pat.array elts) + (* Returns remaining unconsumed attributes *) let of_pat pat = match pat.ppat_desc with - | Ppat_array elts -> Iapat_immutable_array elts + | Ppat_array elts -> Iapat_immutable_array elts, pat.ppat_attributes | _ -> failwith "Malformed immutable array pattern" end @@ -406,7 +407,8 @@ module Pattern = struct let of_ast_internal (feat : Feature.t) pat = match feat with | Language_extension Immutable_arrays -> - Some (Jpat_immutable_array (Immutable_arrays.of_pat pat)) + let expr, attrs = Immutable_arrays.of_pat pat in + Some (Jpat_immutable_array expr, attrs) | _ -> None let of_ast = AST.make_of_ast Pattern ~of_ast_internal diff --git a/ocaml/parsing/jane_syntax.mli b/ocaml/parsing/jane_syntax.mli index 3069a3a8609..c2da868fa59 100644 --- a/ocaml/parsing/jane_syntax.mli +++ b/ocaml/parsing/jane_syntax.mli @@ -84,7 +84,10 @@ module Immutable_arrays : sig -> expression -> Parsetree.expression_desc Jane_syntax_parsing.With_attributes.t - val pat_of : loc:Location.t -> pattern -> Parsetree.pattern_desc + val pat_of : + loc:Location.t + -> pattern + -> Parsetree.pattern_desc Jane_syntax_parsing.With_attributes.t end (** The ASTs for [include functor]. When we merge this upstream, we'll merge @@ -225,7 +228,9 @@ module Pattern : sig type t = | Jpat_immutable_array of Immutable_arrays.pattern - include AST with type t := t and type ast := Parsetree.pattern + include AST + with type t := t * Parsetree.attributes + and type ast := Parsetree.pattern end (** Novel syntax in module types *) diff --git a/ocaml/parsing/jane_syntax_parsing.ml b/ocaml/parsing/jane_syntax_parsing.ml index 670b5770617..9aeb9eb3748 100644 --- a/ocaml/parsing/jane_syntax_parsing.ml +++ b/ocaml/parsing/jane_syntax_parsing.ml @@ -572,8 +572,8 @@ module Expression = Make_with_attribute (struct let with_attributes expr pexp_attributes = { expr with pexp_attributes } end) -(** Patterns; embedded as [[%jane.FEATNAME], BODY]. *) -module Pattern = Make_with_extension_node (struct +(** Patterns; embedded using an attribute on the pattern. *) +module Pattern = Make_with_attribute (struct type ast = pattern type ast_desc = pattern_desc @@ -583,17 +583,9 @@ module Pattern = Make_with_extension_node (struct let wrap_desc ?loc ~attrs = Ast_helper.Pat.mk ?loc ~attrs - let make_extension_node = Ast_helper.Pat.extension - - let make_extension_use ~extension_node pat = - Ppat_tuple [extension_node; pat] - - let match_extension_use pat = - match pat.ppat_desc with - | Ppat_tuple([{ppat_desc = Ppat_extension ext; _}; pattern]) -> - Some (ext, pattern) - | _ -> - None + let desc pat = pat.ppat_desc + let attributes pat = pat.ppat_attributes + let with_attributes pat ppat_attributes = { pat with ppat_attributes } end) (** Module types; embedded using an attribute on the module type. *) @@ -704,7 +696,7 @@ module AST = struct type (_, _) t = | Expression : (Parsetree.expression, Parsetree.expression_desc With_attributes.t) t - | Pattern : (Parsetree.pattern, Parsetree.pattern_desc) t + | Pattern : (Parsetree.pattern, Parsetree.pattern_desc With_attributes.t) t | Module_type : (Parsetree.module_type, Parsetree.module_type_desc With_attributes.t) t | Signature_item : diff --git a/ocaml/parsing/jane_syntax_parsing.mli b/ocaml/parsing/jane_syntax_parsing.mli index c8b42fc8758..ef57baae984 100644 --- a/ocaml/parsing/jane_syntax_parsing.mli +++ b/ocaml/parsing/jane_syntax_parsing.mli @@ -141,7 +141,7 @@ module AST : sig type ('ast, 'ast_desc) t = | Expression : (Parsetree.expression, Parsetree.expression_desc With_attributes.t) t - | Pattern : (Parsetree.pattern, Parsetree.pattern_desc) t + | Pattern : (Parsetree.pattern, Parsetree.pattern_desc With_attributes.t) t | Module_type : (Parsetree.module_type, Parsetree.module_type_desc With_attributes.t) t | Signature_item : diff --git a/ocaml/parsing/parser.mly b/ocaml/parsing/parser.mly index be77a5fba2b..0a03f700bcf 100644 --- a/ocaml/parsing/parser.mly +++ b/ocaml/parsing/parser.mly @@ -351,7 +351,7 @@ module Generic_array = struct module Pattern = struct type t = pattern Simple.t - let to_pattern_desc open_ close array (t : t) : pattern_desc = + let to_ast open_ close array (t : t) = Simple.to_ast open_ close array t end end @@ -777,6 +777,12 @@ let mkexp_jane_syntax = 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) + %} /* Tokens */ @@ -3159,18 +3165,19 @@ simple_delimited_pattern: | LBRACKET pattern_semi_list error { unclosed "[" $loc($1) "]" $loc($3) } | array_patterns(LBRACKETBAR, BARRBRACKET) - { Generic_array.Pattern.to_pattern_desc + { Generic_array.Pattern.to_ast "[|" "|]" (fun elts -> Ppat_array elts) $1 } - | array_patterns(LBRACKETCOLON, COLONRBRACKET) - { Generic_array.Pattern.to_pattern_desc + ) { $1 } + | array_patterns(LBRACKETCOLON, COLONRBRACKET) + { mkpat_jane_syntax ~loc:$sloc + (Generic_array.Pattern.to_ast "[:" ":]" (ppat_iarray $sloc) - $1 - } - ) { $1 } + $1) + } pattern_comma_list(self): pattern_comma_list(self) COMMA pattern { $3 :: $1 } diff --git a/ocaml/parsing/pprintast.ml b/ocaml/parsing/pprintast.ml index 4407b33f928..fe74a31dca3 100644 --- a/ocaml/parsing/pprintast.ml +++ b/ocaml/parsing/pprintast.ml @@ -442,6 +442,9 @@ and return_type ctxt f x = (********************pattern********************) (* be cautious when use [pattern], [pattern1] is preferred *) and pattern ctxt f x = + match Jane_syntax.Pattern.of_ast x with + | Some (jpat, attrs) -> pattern_jane_syntax ctxt attrs f jpat + | None -> if x.ppat_attributes <> [] then begin pp f "((%a)%a)" (pattern ctxt) {x with ppat_attributes=[]} (attributes ctxt) x.ppat_attributes @@ -501,8 +504,9 @@ and pattern1 ctxt (f:Format.formatter) (x:pattern) : unit = and simple_pattern ctxt (f:Format.formatter) (x:pattern) : unit = if x.ppat_attributes <> [] then pattern ctxt f x else match Jane_syntax.Pattern.of_ast x with - | Some jpat -> simple_pattern_jane_syntax ctxt f jpat - | None -> match x.ppat_desc with + | Some (jpat, attrs) -> pattern_jane_syntax ctxt attrs f jpat + | None -> + match x.ppat_desc with | Ppat_construct (({txt=Lident ("()"|"[]" as x);_}), None) -> pp f "%s" x | Ppat_any -> pp f "_"; @@ -547,7 +551,7 @@ and simple_pattern ctxt (f:Format.formatter) (x:pattern) : unit = | Ppat_open (lid, p) -> let with_paren = match Jane_syntax.Pattern.of_ast p with - | Some jpat -> begin match jpat with + | Some (jpat, _attrs) -> begin match jpat with | Jpat_immutable_array (Iapat_immutable_array _) -> false end | None -> match p.ppat_desc with @@ -558,9 +562,14 @@ and simple_pattern ctxt (f:Format.formatter) (x:pattern) : unit = (paren with_paren @@ pattern1 ctxt) p | _ -> paren true (pattern ctxt) f x -and simple_pattern_jane_syntax ctxt f : Jane_syntax.Pattern.t -> unit = function - | Jpat_immutable_array (Iapat_immutable_array l) -> - pp f "@[<2>[:%a:]@]" (list (pattern1 ctxt) ~sep:";") l +and pattern_jane_syntax ctxt attrs f (pat : Jane_syntax.Pattern.t) = + if attrs <> [] then + pp f "((%a)%a)" (pattern_jane_syntax ctxt []) pat + (attributes ctxt) attrs + else + match pat with + | Jpat_immutable_array (Iapat_immutable_array l) -> + pp f "@[<2>[:%a:]@]" (list (pattern1 ctxt) ~sep:";") l and maybe_local_pat ctxt is_local f p = if is_local then diff --git a/ocaml/typing/parmatch.ml b/ocaml/typing/parmatch.ml index bc9b8f46f1a..8e77eb56729 100644 --- a/ocaml/typing/parmatch.ml +++ b/ocaml/typing/parmatch.ml @@ -1861,7 +1861,7 @@ let rec initial_only_guarded = function (* conversion from Typedtree.pattern to Parsetree.pattern list *) module Conv = struct open Parsetree - let mkpat desc = Ast_helper.Pat.mk desc + let mkpat ?attrs desc = Ast_helper.Pat.mk ?attrs desc let name_counter = ref 0 let fresh name = @@ -1912,13 +1912,16 @@ module Conv = struct mkpat (Ppat_record (fields, Open)) | Tpat_array (am, lst) -> let pats = (List.map loop lst) in - let ppat = match am with - | Mutable -> Ppat_array pats + let ppat, attrs = match am with + | Mutable -> Ppat_array pats, [] | Immutable -> - Jane_syntax.Immutable_arrays.pat_of - ~loc:pat.pat_loc (Iapat_immutable_array pats) + let ppat = + Jane_syntax.Immutable_arrays.pat_of + ~loc:pat.pat_loc (Iapat_immutable_array pats) + in + ppat.desc, ppat.jane_syntax_attributes in - mkpat ppat + mkpat ppat ~attrs | Tpat_lazy p -> mkpat (Ppat_lazy (loop p)) in diff --git a/ocaml/typing/typecore.ml b/ocaml/typing/typecore.ml index 872689d832a..a617ff22ad2 100644 --- a/ocaml/typing/typecore.ml +++ b/ocaml/typing/typecore.ml @@ -1858,7 +1858,7 @@ type 'case_pattern half_typed_case = let rec has_literal_pattern p = match Jane_syntax.Pattern.of_ast p with - | Some jpat -> has_literal_pattern_jane_syntax jpat + | Some (jpat, _attrs) -> has_literal_pattern_jane_syntax jpat | None -> match p.ppat_desc with | Ppat_constant _ | Ppat_interval _ -> @@ -2179,7 +2179,7 @@ and type_pat_aux | Some Backtrack_or -> false | Some (Refine_or {inside_nonsplit_or}) -> inside_nonsplit_or in - let type_pat_array mutability spl = + let type_pat_array mutability spl pat_attributes = (* Sharing the code between the two array cases means we're guaranteed to keep them in sync, at the cost of a worse diff with upstream; it shouldn't be too bad. We can inline this when we upstream this code and @@ -2191,18 +2191,18 @@ and type_pat_aux pat_desc = Tpat_array (mutability, pl); pat_loc = loc; pat_extra=[]; pat_type = instance expected_ty; - pat_attributes = sp.ppat_attributes; + pat_attributes; pat_env = !env }) in match Jane_syntax.Pattern.of_ast sp with - | Some jpat -> begin + | Some (jpat, attrs) -> begin (* Normally this would go to an auxiliary function, but this function takes so many parameters, has such a complex type, and uses so many local definitions, it seems better to just put the pattern matching here. This shouldn't mess up the diff *too* much. *) match jpat with | Jpat_immutable_array (Iapat_immutable_array spl) -> - type_pat_array Immutable spl + type_pat_array Immutable spl attrs end | None -> match sp.ppat_desc with @@ -2509,7 +2509,7 @@ and type_pat_aux (fun lbl_pat_list -> k' (make_record_pat lbl_pat_list)) end | Ppat_array spl -> - type_pat_array Mutable spl + type_pat_array Mutable spl sp.ppat_attributes | Ppat_or(sp1, sp2) -> begin match mode with | Normal -> @@ -2836,7 +2836,7 @@ let combine_pat_tuple_arity a b = let rec pat_tuple_arity spat = match Jane_syntax.Pattern.of_ast spat with - | Some jpat -> pat_tuple_arity_jane_syntax jpat + | Some (jpat, _attrs) -> pat_tuple_arity_jane_syntax jpat | None -> match spat.ppat_desc with | Ppat_tuple args -> Local_tuple (List.length args) @@ -3513,7 +3513,7 @@ let type_pattern_approx_jane_syntax : Jane_syntax.Pattern.t -> _ = function let type_pattern_approx env spat ty_expected = match Jane_syntax.Pattern.of_ast spat with - | Some jpat -> type_pattern_approx_jane_syntax jpat + | Some (jpat, _attrs) -> type_pattern_approx_jane_syntax jpat | None -> match spat.ppat_desc with | Ppat_constraint(_, ({ptyp_desc=Ptyp_poly _} as sty)) -> @@ -3842,7 +3842,7 @@ let shallow_iter_ppat_jane_syntax f : Jane_syntax.Pattern.t -> _ = function let shallow_iter_ppat f p = match Jane_syntax.Pattern.of_ast p with - | Some jpat -> shallow_iter_ppat_jane_syntax f jpat + | Some (jpat, _attrs) -> shallow_iter_ppat_jane_syntax f jpat | None -> match p.ppat_desc with | Ppat_any | Ppat_var _ | Ppat_constant _ | Ppat_interval _ diff --git a/ocaml/typing/untypeast.ml b/ocaml/typing/untypeast.ml index 07422d9556e..c764f5be50c 100644 --- a/ocaml/typing/untypeast.ml +++ b/ocaml/typing/untypeast.ml @@ -302,6 +302,13 @@ let pattern : type k . _ -> k T.general_pattern -> _ = fun sub pat -> let loc = sub.location sub pat.pat_loc in (* todo: fix attributes on extras *) let attrs = sub.attributes sub pat.pat_attributes in + let attrs = ref attrs in + let add_jane_syntax_attributes + { Jane_syntax_parsing.With_attributes.desc; jane_syntax_attributes } + = + attrs := jane_syntax_attributes @ !attrs; + desc + in let desc = match pat with { pat_extra=[Tpat_unpack, loc, _attrs]; pat_desc = Tpat_any; _ } -> @@ -369,9 +376,11 @@ let pattern : type k . _ -> k T.general_pattern -> _ = fun sub pat -> let pats = List.map (sub.pat sub) list in match am with | Mutable -> Ppat_array pats - | Immutable -> Jane_syntax.Immutable_arrays.pat_of - ~loc - (Iapat_immutable_array pats) + | Immutable -> + Jane_syntax.Immutable_arrays.pat_of + ~loc + (Iapat_immutable_array pats) + |> add_jane_syntax_attributes end | Tpat_lazy p -> Ppat_lazy (sub.pat sub p) @@ -379,7 +388,7 @@ let pattern : type k . _ -> k T.general_pattern -> _ = fun sub pat -> | Tpat_value p -> (sub.pat sub (p :> pattern)).ppat_desc | Tpat_or (p1, p2, _) -> Ppat_or (sub.pat sub p1, sub.pat sub p2) in - Pat.mk ~loc ~attrs desc + Pat.mk ~loc ~attrs:!attrs desc let exp_extra sub (extra, loc, attrs) sexp = let loc = sub.location sub loc in From 75caae854798c07765c67d07885be6135626dc8e Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Wed, 24 May 2023 12:09:55 -0400 Subject: [PATCH 05/18] Add tests for pprintast --- .../testsuite/tests/comprehensions/syntax.ml | 38 ++++++++++--------- .../tests/comprehensions/syntax.reference | 15 +++++--- .../tests/lib-array/iarray_syntax.ml | 31 +++++++++++++++ .../tests/lib-array/iarray_syntax.reference | 6 +++ 4 files changed, 67 insertions(+), 23 deletions(-) create mode 100644 ocaml/testsuite/tests/lib-array/iarray_syntax.ml create mode 100644 ocaml/testsuite/tests/lib-array/iarray_syntax.reference diff --git a/ocaml/testsuite/tests/comprehensions/syntax.ml b/ocaml/testsuite/tests/comprehensions/syntax.ml index 337757f55ce..340ea7a69d8 100644 --- a/ocaml/testsuite/tests/comprehensions/syntax.ml +++ b/ocaml/testsuite/tests/comprehensions/syntax.ml @@ -21,13 +21,7 @@ this_test_tests_that "we print list comprehensions correctly" ;; -let test_printing () = - let parsed = (* The wonky formatting here is the best way to keep the line - break visible in the string and also keep things within 80 - characters here *) -"[(i, j)\n\ -\ for i = 0 to 9 when (i mod 2) = 0 for j = 0 to i when (i > 4) && (j > 4)]" - in +let test_printing parsed = let expr = Parse.expression (Lexing.from_string parsed) in let printed = Pprintast.string_of_expression expr in if parsed = printed then @@ -44,18 +38,28 @@ let test_printing () = parsed printed ;; -let () = test_printing ();; +let () = + (* The wonky formatting here is the best way to keep the line + break visible in the string and also keep things within 80 + characters here *) + test_printing + "[(i, j)\n\ + \ for i = 0 to 9 when (i mod 2) = 0 for j = 0 to i when (i > 4) && (j > 4)]"; + (* Check that only user attributes survive pprintast *) + test_printing + "(([((x)[@attr1 ]) for ((x)[@attr2 ]) in (([])[@attr3 ])])[@attr4 ])"; +;; (******************************************************************************) this_test_tests_that - "compiler-generated extension nodes start with \"extension.\"" + "compiler-generated attributes start with \"jane.\"" ;; (* In particular: As long as we're in the Jane Street compiler, the compiler - translates list comprehensions to an AST in terms of %-annotated extension - nodes. We want to confirm that we're only touching ones we intend to use, - which we mark by beginning them with the string "extension.". We print out + translates list comprehensions to an AST in terms of attributes. We want to + confirm that we're only touching ones we intend to use, + which we mark by beginning them with the string "jane.". We print out the other ones we find, which should be the exact four that were present in the source. *) @@ -67,16 +71,16 @@ let starts_with pfx str = let test_iteration () = let example = - "[ [%expr payload] for i = [%low] to [%high] when [%cond] ]" + "[ payload [@expr] for i = j [@low] to k [@high] when cond [@cond] ]" in let expr = Parse.expression (Lexing.from_string example) in - let extension it ((name, _) : Parsetree.extension) = - Printf.printf " [%%%s ...]\n" name.txt + let attribute it ({ attr_name; _ } : Parsetree.attribute) = + Printf.printf " [@%s ...]\n" attr_name.txt in let iterator = - { Ast_iterator.default_iterator with extension } + { Ast_iterator.default_iterator with attribute } in - Printf.printf "User [%%extension] nodes found:\n"; + Printf.printf "User attribute [@...] nodes found:\n"; iterator.expr iterator expr ;; diff --git a/ocaml/testsuite/tests/comprehensions/syntax.reference b/ocaml/testsuite/tests/comprehensions/syntax.reference index 99ce503ede6..ce48da0d392 100644 --- a/ocaml/testsuite/tests/comprehensions/syntax.reference +++ b/ocaml/testsuite/tests/comprehensions/syntax.reference @@ -4,11 +4,14 @@ Parsing and printing round-tripped successfully! [(i, j) for i = 0 to 9 when (i mod 2) = 0 for j = 0 to i when (i > 4) && (j > 4)] +Parsing and printing round-tripped successfully! + +(([((x)[@attr1 ]) for ((x)[@attr2 ]) in (([])[@attr3 ])])[@attr4 ]) -**** Test that compiler-generated extension nodes start with "extension." **** +**** Test that compiler-generated attributes start with "jane." **** -User [%extension] nodes found: - [%expr ...] - [%low ...] - [%high ...] - [%cond ...] +User attribute [@...] nodes found: + [@expr ...] + [@low ...] + [@high ...] + [@cond ...] diff --git a/ocaml/testsuite/tests/lib-array/iarray_syntax.ml b/ocaml/testsuite/tests/lib-array/iarray_syntax.ml new file mode 100644 index 00000000000..aa8cf84ceaf --- /dev/null +++ b/ocaml/testsuite/tests/lib-array/iarray_syntax.ml @@ -0,0 +1,31 @@ +(* TEST + include ocamlcommon *) + +let printf = Printf.printf;; + +let () = Language_extension.enable Immutable_arrays;; + +let test_printing parsed = + let expr = Parse.expression (Lexing.from_string parsed) in + let printed = Pprintast.string_of_expression expr in + if parsed = printed then + printf + "Parsing and printing round-tripped successfully!\n\n\ + %s\n" + parsed + else + printf + "Parsing and printing failed to round-trip:\n\n\ + %s\n\n\ + became\n\n\ + %s\n" + parsed printed +;; + +let () = + test_printing + "match x with\n\ + | [::] -> [::]\n\ + | (([:x:])[@attr1 ]) -> (([:x:])[@attr1 ])\n\ + | (([:x;y:])[@attr2 ][@attr3 ]) -> (([:x;y:])[@attr2 ][@attr3 ])" +;; diff --git a/ocaml/testsuite/tests/lib-array/iarray_syntax.reference b/ocaml/testsuite/tests/lib-array/iarray_syntax.reference new file mode 100644 index 00000000000..210f825b3a4 --- /dev/null +++ b/ocaml/testsuite/tests/lib-array/iarray_syntax.reference @@ -0,0 +1,6 @@ +Parsing and printing round-tripped successfully! + +match x with +| [::] -> [::] +| (([:x:])[@attr1 ]) -> (([:x:])[@attr1 ]) +| (([:x;y:])[@attr2 ][@attr3 ]) -> (([:x;y:])[@attr2 ][@attr3 ]) From 7d25e7ab68f9ba7e43fb3574c9d4abe23eb768aa Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Wed, 24 May 2023 16:09:01 -0400 Subject: [PATCH 06/18] Fix ocamlprof --- ocaml/tools/ocamlprof.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/tools/ocamlprof.ml b/ocaml/tools/ocamlprof.ml index 99a13416fae..89ad229636d 100644 --- a/ocaml/tools/ocamlprof.ml +++ b/ocaml/tools/ocamlprof.ml @@ -176,7 +176,7 @@ and rewrite_exp iflag sexp = and rw_exp iflag sexp = match Jane_syntax.Expression.of_ast sexp with - | Some jexp -> rewrite_exp_jane_syntax iflag jexp + | Some (jexp, _attrs) -> rewrite_exp_jane_syntax iflag jexp | None -> match sexp.pexp_desc with Pexp_ident _lid -> () From 9ba4a56fa0c0e98611c24b4e7c9a8fa6e5e9944f Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Wed, 24 May 2023 16:12:58 -0400 Subject: [PATCH 07/18] remove some unnecessary module paths --- ocaml/parsing/jane_syntax_parsing.ml | 28 +++++++++++----------------- 1 file changed, 11 insertions(+), 17 deletions(-) diff --git a/ocaml/parsing/jane_syntax_parsing.ml b/ocaml/parsing/jane_syntax_parsing.ml index 9aeb9eb3748..5db165ef751 100644 --- a/ocaml/parsing/jane_syntax_parsing.ml +++ b/ocaml/parsing/jane_syntax_parsing.ml @@ -342,7 +342,7 @@ module type AST_syntactic_category = sig be omitted; in this case, it will default to [!Ast_helper.default_loc], which should be [ghost]. *) val wrap_desc : - ?loc:Location.t -> attrs:Parsetree.attributes -> ast_desc -> ast + ?loc:Location.t -> attrs:attributes -> ast_desc -> ast end module type AST = sig @@ -392,7 +392,7 @@ let parse_embedding_exn ~loc ~payload ~name ~embedding_syntax = module With_attributes = struct type 'desc t = - { jane_syntax_attributes : Parsetree.attributes + { jane_syntax_attributes : attributes ; desc : 'desc } end @@ -428,8 +428,8 @@ module Make_with_attribute include AST_syntactic_category val desc : ast -> ast_desc - val attributes : ast -> Parsetree.attributes - val with_attributes : ast -> Parsetree.attributes -> ast + val attributes : ast -> attributes + val with_attributes : ast -> attributes -> ast end) : AST with type ast = AST_syntactic_category.ast and type ast_desc = @@ -694,19 +694,13 @@ end) module AST = struct type (_, _) t = - | Expression : - (Parsetree.expression, Parsetree.expression_desc With_attributes.t) t - | Pattern : (Parsetree.pattern, Parsetree.pattern_desc With_attributes.t) t - | Module_type : - (Parsetree.module_type, Parsetree.module_type_desc With_attributes.t) t - | Signature_item : - (Parsetree.signature_item, Parsetree.signature_item_desc) t - | Structure_item : - (Parsetree.structure_item, Parsetree.structure_item_desc) t - | Core_type : - (Parsetree.core_type, Parsetree.core_type_desc With_attributes.t) t - | Constructor_argument : - (Parsetree.core_type, Parsetree.core_type_desc With_attributes.t) t + | Expression : (expression, expression_desc With_attributes.t) t + | Pattern : (pattern, pattern_desc With_attributes.t) t + | Module_type : (module_type, module_type_desc With_attributes.t) t + | Signature_item : (signature_item, signature_item_desc) t + | Structure_item : (structure_item, structure_item_desc) t + | Core_type : (core_type, core_type_desc With_attributes.t) t + | Constructor_argument : (core_type, core_type_desc With_attributes.t) t let to_module (type ast ast_desc) (t : (ast, ast_desc) t) : (module AST with type ast = ast and type ast_desc = ast_desc) = From 0b521754724801561a5adb828944dabdcdf835d3 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 26 May 2023 13:36:15 -0400 Subject: [PATCH 08/18] Update ocaml/parsing/jane_syntax_parsing.ml Co-authored-by: Antal Spector-Zabusky --- ocaml/parsing/jane_syntax_parsing.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/parsing/jane_syntax_parsing.ml b/ocaml/parsing/jane_syntax_parsing.ml index 5db165ef751..73329a7569d 100644 --- a/ocaml/parsing/jane_syntax_parsing.ml +++ b/ocaml/parsing/jane_syntax_parsing.ml @@ -506,7 +506,7 @@ module Make_with_extension_node ast ~extension_node: (make_extension_node - ({ txt = Embedded_name.to_string name + ({ txt = Embedded_name.to_string name ; loc = !Ast_helper.default_loc }, PStr [])) From 57ba378b56b0f86c47490da091ff873074fc1a78 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 26 May 2023 13:36:27 -0400 Subject: [PATCH 09/18] Update ocaml/parsing/jane_syntax_parsing.ml Co-authored-by: Antal Spector-Zabusky --- ocaml/parsing/jane_syntax_parsing.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/parsing/jane_syntax_parsing.ml b/ocaml/parsing/jane_syntax_parsing.ml index 73329a7569d..572cb45616f 100644 --- a/ocaml/parsing/jane_syntax_parsing.ml +++ b/ocaml/parsing/jane_syntax_parsing.ml @@ -38,7 +38,7 @@ writing these forms directly. They're just an implementation detail. See modules of type AST below to see how different syntactic categories - are represented. For example, expressions are rendered using an attribute. + are represented. For example, expressions are encoded using an attribute. We provide one module per syntactic category (e.g., [Expression]), of module type [AST]. They also provide some simple machinery for working with the From ea10e11a9e0d4aeed6f1cdf7f9914e887b4e9ce6 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 26 May 2023 13:36:38 -0400 Subject: [PATCH 10/18] Update ocaml/parsing/jane_syntax_parsing.ml Co-authored-by: Antal Spector-Zabusky --- ocaml/parsing/jane_syntax_parsing.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ocaml/parsing/jane_syntax_parsing.ml b/ocaml/parsing/jane_syntax_parsing.ml index 572cb45616f..68e5a9857a5 100644 --- a/ocaml/parsing/jane_syntax_parsing.ml +++ b/ocaml/parsing/jane_syntax_parsing.ml @@ -198,8 +198,8 @@ end = struct (** The separator between name components *) let separator = '.' - (** The leading namespace that identifies this extension node as reserved - for a modular extension *) + (** The leading namespace that identifies this extension node or attribute + as reserved for a piece of modular syntax *) let root = "jane" (** For printing purposes, the appropriate indefinite article for [root] *) From ee77fd0e90a27fda019dec75db81138f99550c08 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 26 May 2023 13:42:01 -0400 Subject: [PATCH 11/18] Respond to review --- ocaml/parsing/jane_syntax.ml | 2 ++ ocaml/parsing/jane_syntax.mli | 18 ++++++++++++++---- ocaml/parsing/jane_syntax_parsing.mli | 12 +++++++----- ocaml/typing/untypeast.ml | 4 ++++ 4 files changed, 27 insertions(+), 9 deletions(-) diff --git a/ocaml/parsing/jane_syntax.ml b/ocaml/parsing/jane_syntax.ml index 127351ad7a7..ae91667e151 100644 --- a/ocaml/parsing/jane_syntax.ml +++ b/ocaml/parsing/jane_syntax.ml @@ -39,6 +39,8 @@ 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 extension_string = Language_extension.to_string Comprehensions diff --git a/ocaml/parsing/jane_syntax.mli b/ocaml/parsing/jane_syntax.mli index c2da868fa59..8a100e280d5 100644 --- a/ocaml/parsing/jane_syntax.mli +++ b/ocaml/parsing/jane_syntax.mli @@ -23,6 +23,16 @@ (*********************************************) (* 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 = @@ -64,7 +74,7 @@ module Comprehensions : sig val expr_of : loc:Location.t -> expression - -> Parsetree.expression_desc Jane_syntax_parsing.With_attributes.t + -> Parsetree.expression_desc With_attributes.t end (** The ASTs for immutable arrays. When we merge this upstream, we'll merge @@ -82,12 +92,12 @@ module Immutable_arrays : sig val expr_of : loc:Location.t -> expression - -> Parsetree.expression_desc Jane_syntax_parsing.With_attributes.t + -> Parsetree.expression_desc With_attributes.t val pat_of : loc:Location.t -> pattern - -> Parsetree.pattern_desc Jane_syntax_parsing.With_attributes.t + -> Parsetree.pattern_desc With_attributes.t end (** The ASTs for [include functor]. When we merge this upstream, we'll merge @@ -114,7 +124,7 @@ module Strengthen : sig val mty_of : loc:Location.t -> module_type - -> Parsetree.module_type_desc Jane_syntax_parsing.With_attributes.t + -> Parsetree.module_type_desc With_attributes.t end (******************************************) diff --git a/ocaml/parsing/jane_syntax_parsing.mli b/ocaml/parsing/jane_syntax_parsing.mli index ef57baae984..184337fd6e0 100644 --- a/ocaml/parsing/jane_syntax_parsing.mli +++ b/ocaml/parsing/jane_syntax_parsing.mli @@ -186,7 +186,13 @@ module AST : sig (** Build an [of_ast] function. The return value of this function should be used to implement [of_ast] in modules satisfying the signature - [Jane_syntax.AST]. *) + [Jane_syntax.AST]. + + The returned function interprets an AST term in the specified syntactic + category as a term of the appropriate auxiliary extended AST if possible. + It raises an error if it finds a term from a disabled extension or if the + embedding is malformed. + *) val make_of_ast : ('ast, _) t (** Which syntactic category is this for? E.g., [module AST = Expression]. @@ -205,10 +211,6 @@ module AST : sig embedding that claims to be from [Language_extension Comprehensions].) *) -> ('ast -> 'a option) - (** Interprets an AST term in the specified syntactic category as a term - of the appropriate auxiliary extended AST if possible. Raises an error - if it finds a term from a disabled extension or if the embedding is - malformed. *) end (** Require that an extension is enabled, or else throw an exception (of an diff --git a/ocaml/typing/untypeast.ml b/ocaml/typing/untypeast.ml index c764f5be50c..5ba687cd3d6 100644 --- a/ocaml/typing/untypeast.ml +++ b/ocaml/typing/untypeast.ml @@ -303,6 +303,10 @@ let pattern : type k . _ -> k T.general_pattern -> _ = fun sub pat -> (* todo: fix attributes on extras *) let attrs = sub.attributes sub pat.pat_attributes in let attrs = ref attrs in + (* Hack so we can return an extra value out of the [match] expression for Jane + 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 } = From 59e58b557c1f02e4e88832adca8fbf89c66ee929 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 26 May 2023 13:54:08 -0400 Subject: [PATCH 12/18] respond to more review comments --- ocaml/parsing/jane_syntax_parsing.ml | 8 ++++---- ocaml/parsing/jane_syntax_parsing.mli | 10 ++++++++++ 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/ocaml/parsing/jane_syntax_parsing.ml b/ocaml/parsing/jane_syntax_parsing.ml index 68e5a9857a5..67a87be6c3e 100644 --- a/ocaml/parsing/jane_syntax_parsing.ml +++ b/ocaml/parsing/jane_syntax_parsing.ml @@ -27,10 +27,10 @@ As mentioned, we represent terms as a "pair" and don't use the extension node or attribute payload; this is so that ppxen can see inside these - extension nodes. If we put the subexpressions inside the payload, then we - couldn't write something like [[[%string "Hello, %{x}!"] for x in names]], - as [ppx_string] wouldn't traverse inside the payload to find the [[%string]] - extension node. + extension nodes or attributes. If we put the subexpressions inside the + payload, then we couldn't write something like [[[%string "Hello, %{x}!"] + for x in names]], as [ppx_string] wouldn't traverse inside the payload to + find the [[%string]] extension node. Our novel syntactic features are of course allowed to impose extra constraints on what legal bodies are; we're also happy for this translation diff --git a/ocaml/parsing/jane_syntax_parsing.mli b/ocaml/parsing/jane_syntax_parsing.mli index 184337fd6e0..7be45cbe207 100644 --- a/ocaml/parsing/jane_syntax_parsing.mli +++ b/ocaml/parsing/jane_syntax_parsing.mli @@ -221,6 +221,16 @@ end [Immutable_arrays]). *) val assert_extension_enabled : loc:Location.t -> Language_extension.t -> unit +(* CR-someday nroberts: An earlier version of this revealed less of its + implementation in its name: it was called [match_jane_syntax], and + was a function from ast to ast. This has some advantages (less revealing + of the Jane Syntax encoding) but I felt it important to document the caller's + responsibility to plumb through uninterpreted attributes. + + Given that it only has one callsite currently, we decided to keep this + approach for now, but we could revisit this decision if we use it more + often. +*) (** Extracts the first attribute (in list order) that was inserted by the Jane Syntax framework, and returns the rest of the attributes in the same relative order as was input. From 5e37b44c3e3149c6bd315f76a5c9bb7b4ee6bf25 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 26 May 2023 13:55:33 -0400 Subject: [PATCH 13/18] Update ocaml/parsing/jane_syntax_parsing.mli Co-authored-by: Antal Spector-Zabusky --- ocaml/parsing/jane_syntax_parsing.mli | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/parsing/jane_syntax_parsing.mli b/ocaml/parsing/jane_syntax_parsing.mli index 7be45cbe207..8f939ee0dff 100644 --- a/ocaml/parsing/jane_syntax_parsing.mli +++ b/ocaml/parsing/jane_syntax_parsing.mli @@ -196,7 +196,7 @@ module AST : sig val make_of_ast : ('ast, _) t (** Which syntactic category is this for? E.g., [module AST = Expression]. - 'ast is the type of novel syntactic terms for this syntactic category, + ['ast] is the type of novel syntactic terms for this syntactic category, across all syntax features. E.g., [Jane_syntax.Expression.t] *) -> of_ast_internal:(Feature.t -> 'ast -> 'a option) From 876a6497ddd7d998c7ea850c70d024a8861a1335 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 26 May 2023 13:59:28 -0400 Subject: [PATCH 14/18] edit test according to review --- ocaml/testsuite/tests/comprehensions/syntax.ml | 16 ++++++++++------ .../tests/comprehensions/syntax.reference | 2 +- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/ocaml/testsuite/tests/comprehensions/syntax.ml b/ocaml/testsuite/tests/comprehensions/syntax.ml index 340ea7a69d8..88d1e452d77 100644 --- a/ocaml/testsuite/tests/comprehensions/syntax.ml +++ b/ocaml/testsuite/tests/comprehensions/syntax.ml @@ -57,11 +57,12 @@ this_test_tests_that ;; (* In particular: As long as we're in the Jane Street compiler, the compiler - translates list comprehensions to an AST in terms of attributes. We want to - confirm that we're only touching ones we intend to use, - which we mark by beginning them with the string "jane.". We print out + translates list comprehensions to an AST in terms of attributes and/or + extension nodes. We want to confirm that we're only touching ones we intend + to use, which we mark by beginning them with the string "jane.". We print out the other ones we find, which should be the exact four that were present in - the source. *) + the source. +*) let starts_with pfx str = String.length str >= String.length pfx @@ -77,10 +78,13 @@ let test_iteration () = let attribute it ({ attr_name; _ } : Parsetree.attribute) = Printf.printf " [@%s ...]\n" attr_name.txt in + let extension it ((name, _) : Parsetree.extension) = + Printf.printf " [%%%s ...]\n" name.txt + in let iterator = - { Ast_iterator.default_iterator with attribute } + { Ast_iterator.default_iterator with attribute; extension } in - Printf.printf "User attribute [@...] nodes found:\n"; + Printf.printf "User attributes [@...] and extension nodes [%%...] found:\n"; iterator.expr iterator expr ;; diff --git a/ocaml/testsuite/tests/comprehensions/syntax.reference b/ocaml/testsuite/tests/comprehensions/syntax.reference index ce48da0d392..0b313dbbe3a 100644 --- a/ocaml/testsuite/tests/comprehensions/syntax.reference +++ b/ocaml/testsuite/tests/comprehensions/syntax.reference @@ -10,7 +10,7 @@ Parsing and printing round-tripped successfully! **** Test that compiler-generated attributes start with "jane." **** -User attribute [@...] nodes found: +User attributes [@...] and extension nodes [%...] found: [@expr ...] [@low ...] [@high ...] From 078d676bddee79e24258f01e6887adc76bf71d7c Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 26 May 2023 14:03:02 -0400 Subject: [PATCH 15/18] Whitespace artistry --- ocaml/parsing/jane_syntax.mli | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/ocaml/parsing/jane_syntax.mli b/ocaml/parsing/jane_syntax.mli index 8a100e280d5..81f97f13afe 100644 --- a/ocaml/parsing/jane_syntax.mli +++ b/ocaml/parsing/jane_syntax.mli @@ -72,9 +72,7 @@ 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 -> expression -> Parsetree.expression_desc With_attributes.t end (** The ASTs for immutable arrays. When we merge this upstream, we'll merge @@ -90,14 +88,10 @@ module Immutable_arrays : sig (** [: P1; ...; Pn :] **) val expr_of : - loc:Location.t - -> expression - -> Parsetree.expression_desc With_attributes.t + loc:Location.t -> expression -> Parsetree.expression_desc With_attributes.t val pat_of : - loc:Location.t - -> pattern - -> Parsetree.pattern_desc With_attributes.t + loc:Location.t -> pattern -> Parsetree.pattern_desc With_attributes.t end (** The ASTs for [include functor]. When we merge this upstream, we'll merge From 821dbe6f2ed1f126ca364a8798d8207b0be5d821 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 26 May 2023 14:03:56 -0400 Subject: [PATCH 16/18] Update ocaml/parsing/parser.mly Co-authored-by: Antal Spector-Zabusky --- ocaml/parsing/parser.mly | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/parsing/parser.mly b/ocaml/parsing/parser.mly index 0a03f700bcf..6644164e1f2 100644 --- a/ocaml/parsing/parser.mly +++ b/ocaml/parsing/parser.mly @@ -321,7 +321,7 @@ module Generic_array = struct let to_ast (open_ : string) (close : string) array t = match t with - | Literal pats -> array pats + | Literal elts -> array elts | Unclosed (startpos, endpos) -> unclosed open_ startpos close endpos end From 689c283244b45fa665713671433b904338b06202 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 26 May 2023 14:08:59 -0400 Subject: [PATCH 17/18] Update ocaml/typing/parmatch.ml Co-authored-by: Antal Spector-Zabusky --- ocaml/typing/parmatch.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/typing/parmatch.ml b/ocaml/typing/parmatch.ml index 8e77eb56729..9e665425dba 100644 --- a/ocaml/typing/parmatch.ml +++ b/ocaml/typing/parmatch.ml @@ -1921,7 +1921,7 @@ module Conv = struct in ppat.desc, ppat.jane_syntax_attributes in - mkpat ppat ~attrs + mkpat ~attrs ppat | Tpat_lazy p -> mkpat (Ppat_lazy (loop p)) in From a66a6fbe9a3b20d81b72adbdd7d05e1142060950 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 26 May 2023 14:16:37 -0400 Subject: [PATCH 18/18] more review responding --- ocaml/parsing/parser.mly | 4 ++-- ocaml/testsuite/tests/comprehensions/syntax.ml | 6 +++--- ocaml/testsuite/tests/comprehensions/syntax.reference | 4 ++++ 3 files changed, 9 insertions(+), 5 deletions(-) diff --git a/ocaml/parsing/parser.mly b/ocaml/parsing/parser.mly index 0a03f700bcf..89300f56f3e 100644 --- a/ocaml/parsing/parser.mly +++ b/ocaml/parsing/parser.mly @@ -336,7 +336,7 @@ module Generic_array = struct (** An array literal with a local open, [Module.[? x; y; z ?]] (only valid in expressions) *) - let to_expression_desc (open_ : string) (close : string) array t = + let to_desc (open_ : string) (close : string) array t = match t with | Simple x -> Simple.to_ast open_ close array x | Opened_literal (od, startpos, endpos, elts) -> @@ -2747,7 +2747,7 @@ comprehension_clause: | mod_longident DOT LBRACE record_expr_content error { unclosed "{" $loc($3) "}" $loc($5) } | array_exprs(LBRACKETBAR, BARRBRACKET) - { Generic_array.Expression.to_expression_desc + { Generic_array.Expression.to_desc "[|" "|]" (fun elts -> Pexp_array elts) $1 diff --git a/ocaml/testsuite/tests/comprehensions/syntax.ml b/ocaml/testsuite/tests/comprehensions/syntax.ml index 88d1e452d77..1ddbc1a213f 100644 --- a/ocaml/testsuite/tests/comprehensions/syntax.ml +++ b/ocaml/testsuite/tests/comprehensions/syntax.ml @@ -60,8 +60,8 @@ this_test_tests_that translates list comprehensions to an AST in terms of attributes and/or extension nodes. We want to confirm that we're only touching ones we intend to use, which we mark by beginning them with the string "jane.". We print out - the other ones we find, which should be the exact four that were present in - the source. + the other ones we find, which should be the exact four of each that were + present in the source. *) let starts_with pfx str = @@ -72,7 +72,7 @@ let starts_with pfx str = let test_iteration () = let example = - "[ payload [@expr] for i = j [@low] to k [@high] when cond [@cond] ]" + "[ [%e] [@expr] for i = [%l] [@low] to [%h] [@high] when [%c] [@cond] ]" in let expr = Parse.expression (Lexing.from_string example) in let attribute it ({ attr_name; _ } : Parsetree.attribute) = diff --git a/ocaml/testsuite/tests/comprehensions/syntax.reference b/ocaml/testsuite/tests/comprehensions/syntax.reference index 0b313dbbe3a..c5453b7883d 100644 --- a/ocaml/testsuite/tests/comprehensions/syntax.reference +++ b/ocaml/testsuite/tests/comprehensions/syntax.reference @@ -12,6 +12,10 @@ Parsing and printing round-tripped successfully! User attributes [@...] and extension nodes [%...] found: [@expr ...] + [%e ...] [@low ...] + [%l ...] [@high ...] + [%h ...] [@cond ...] + [%c ...]