From 2b1fa2423344dbc4e769832d9421fafda2fb57b3 Mon Sep 17 00:00:00 2001 From: Mark Shinwell Date: Tue, 13 Dec 2022 18:30:48 +0000 Subject: [PATCH] Regenerate parser (#80) --- boot/menhir/menhirLib.ml | 305 +- boot/menhir/menhirLib.mli | 269 +- boot/menhir/parser.ml | 31304 +++++++++++++++++------------------- 3 files changed, 15366 insertions(+), 16512 deletions(-) diff --git a/boot/menhir/menhirLib.ml b/boot/menhir/menhirLib.ml index 18df940b53e4..753d5e7c388a 100644 --- a/boot/menhir/menhirLib.ml +++ b/boot/menhir/menhirLib.ml @@ -1,11 +1,14 @@ module General = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -86,11 +89,14 @@ end module Convert = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -206,11 +212,14 @@ end module IncrementalEngine = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -692,11 +701,14 @@ end module EngineTypes = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -777,53 +789,6 @@ type ('state, 'semantic_value, 'token) env = { (* --------------------------------------------------------------------------- *) -(* A number of logging hooks are used to (optionally) emit logging messages. *) - -(* The comments indicate the conventional messages that correspond - to these hooks in the code-based back-end; see [CodeBackend]. *) - -module type LOG = sig - - type state - type terminal - type production - - (* State %d: *) - - val state: state -> unit - - (* Shifting () to state *) - - val shift: terminal -> state -> unit - - (* Reducing a production should be logged either as a reduction - event (for regular productions) or as an acceptance event (for - start productions). *) - - (* Reducing production / Accepting *) - - val reduce_or_accept: production -> unit - - (* Lookahead token is now (-) *) - - val lookahead_token: terminal -> Lexing.position -> Lexing.position -> unit - - (* Initiating error handling *) - - val initiating_error_handling: unit -> unit - - (* Resuming error handling *) - - val resuming_error_handling: unit -> unit - - (* Handling error in state *) - - val handling_error: state -> unit - -end - -(* --------------------------------------------------------------------------- *) - (* This signature describes the parameters that must be supplied to the LR engine. *) @@ -1000,17 +965,51 @@ module type TABLE = sig val may_reduce: state -> production -> bool + (* The LR engine requires a number of hooks, which are used for logging. *) + + (* The comments below indicate the conventional messages that correspond + to these hooks in the code-based back-end; see [CodeBackend]. *) + (* If the flag [log] is false, then the logging functions are not called. If it is [true], then they are called. *) val log : bool - (* The logging hooks required by the LR engine. *) + module Log : sig - module Log : LOG - with type state := state - and type terminal := terminal - and type production := production + (* State %d: *) + + val state: state -> unit + + (* Shifting () to state *) + + val shift: terminal -> state -> unit + + (* Reducing a production should be logged either as a reduction + event (for regular productions) or as an acceptance event (for + start productions). *) + + (* Reducing production / Accepting *) + + val reduce_or_accept: production -> unit + + (* Lookahead token is now (-) *) + + val lookahead_token: terminal -> Lexing.position -> Lexing.position -> unit + + (* Initiating error handling *) + + val initiating_error_handling: unit -> unit + + (* Resuming error handling *) + + val resuming_error_handling: unit -> unit + + (* Handling error in state *) + + val handling_error: state -> unit + + end end @@ -1103,11 +1102,14 @@ end module Engine = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1254,7 +1256,8 @@ module Make (T : TABLE) = struct (* The following recursive group of functions are tail recursive, produce a checkpoint of type [semantic_value checkpoint], and cannot raise an - exception. *) + exception. A semantic action can raise [Error], but this exception is + immediately caught within [reduce]. *) let rec run env please_discard : semantic_value checkpoint = @@ -1410,22 +1413,33 @@ module Make (T : TABLE) = struct (* Invoke the semantic action. The semantic action is responsible for truncating the stack and pushing a new cell onto the stack, which - contains a new semantic value. The semantic action returns a new stack, + contains a new semantic value. It can raise [Error]. *) + + (* If the semantic action terminates normally, it returns a new stack, which becomes the current stack. *) - let stack = T.semantic_action prod env in + (* If the semantic action raises [Error], we catch it and initiate error + handling. *) + + (* This [match/with/exception] construct requires OCaml 4.02. *) + + match T.semantic_action prod env with + | stack -> - (* By our convention, the semantic action has produced an updated - stack. The state now found in the top stack cell is the return - state. *) + (* By our convention, the semantic action has produced an updated + stack. The state now found in the top stack cell is the return + state. *) - (* Perform a goto transition. The target state is determined - by consulting the goto table at the return state and at - production [prod]. *) + (* Perform a goto transition. The target state is determined + by consulting the goto table at the return state and at + production [prod]. *) - let current = T.goto_prod stack.state prod in - let env = { env with stack; current } in - run env false + let current = T.goto_prod stack.state prod in + let env = { env with stack; current } in + run env false + + | exception Error -> + initiate env and accept env prod = (* Log an accept event. *) @@ -2049,11 +2063,14 @@ end module ErrorReports = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -2212,11 +2229,14 @@ end module LexerUtil = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -2264,11 +2284,14 @@ end module Printers = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -2384,11 +2407,14 @@ end module InfiniteArray = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -2446,11 +2472,14 @@ end module PackedIntArray = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -2652,11 +2681,14 @@ end module RowDisplacement = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -2909,11 +2941,14 @@ end module LinearizedArray = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -2988,11 +3023,14 @@ end module TableFormat = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -3124,11 +3162,14 @@ end module InspectionTableFormat = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -3197,11 +3238,14 @@ end module InspectionTableInterpreter = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -3505,11 +3549,14 @@ end module TableInterpreter = struct (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -3745,5 +3792,5 @@ module MakeEngineTable (T : TableFormat.TABLES) = struct end end module StaticVersion = struct -let require_20220210 = () +let require_20210419 = () end diff --git a/boot/menhir/menhirLib.mli b/boot/menhir/menhirLib.mli index f3c148c5c3a3..9d19a7ca69bf 100644 --- a/boot/menhir/menhirLib.mli +++ b/boot/menhir/menhirLib.mli @@ -1,11 +1,14 @@ module General : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -62,11 +65,14 @@ end module Convert : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -138,11 +144,14 @@ end module IncrementalEngine : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -624,11 +633,14 @@ end module EngineTypes : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -709,53 +721,6 @@ type ('state, 'semantic_value, 'token) env = { (* --------------------------------------------------------------------------- *) -(* A number of logging hooks are used to (optionally) emit logging messages. *) - -(* The comments indicate the conventional messages that correspond - to these hooks in the code-based back-end; see [CodeBackend]. *) - -module type LOG = sig - - type state - type terminal - type production - - (* State %d: *) - - val state: state -> unit - - (* Shifting () to state *) - - val shift: terminal -> state -> unit - - (* Reducing a production should be logged either as a reduction - event (for regular productions) or as an acceptance event (for - start productions). *) - - (* Reducing production / Accepting *) - - val reduce_or_accept: production -> unit - - (* Lookahead token is now (-) *) - - val lookahead_token: terminal -> Lexing.position -> Lexing.position -> unit - - (* Initiating error handling *) - - val initiating_error_handling: unit -> unit - - (* Resuming error handling *) - - val resuming_error_handling: unit -> unit - - (* Handling error in state *) - - val handling_error: state -> unit - -end - -(* --------------------------------------------------------------------------- *) - (* This signature describes the parameters that must be supplied to the LR engine. *) @@ -932,17 +897,51 @@ module type TABLE = sig val may_reduce: state -> production -> bool + (* The LR engine requires a number of hooks, which are used for logging. *) + + (* The comments below indicate the conventional messages that correspond + to these hooks in the code-based back-end; see [CodeBackend]. *) + (* If the flag [log] is false, then the logging functions are not called. If it is [true], then they are called. *) val log : bool - (* The logging hooks required by the LR engine. *) + module Log : sig - module Log : LOG - with type state := state - and type terminal := terminal - and type production := production + (* State %d: *) + + val state: state -> unit + + (* Shifting () to state *) + + val shift: terminal -> state -> unit + + (* Reducing a production should be logged either as a reduction + event (for regular productions) or as an acceptance event (for + start productions). *) + + (* Reducing production / Accepting *) + + val reduce_or_accept: production -> unit + + (* Lookahead token is now (-) *) + + val lookahead_token: terminal -> Lexing.position -> Lexing.position -> unit + + (* Initiating error handling *) + + val initiating_error_handling: unit -> unit + + (* Resuming error handling *) + + val resuming_error_handling: unit -> unit + + (* Handling error in state *) + + val handling_error: state -> unit + + end end @@ -1035,11 +1034,14 @@ end module Engine : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1065,11 +1067,14 @@ end module ErrorReports : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1142,11 +1147,14 @@ end module LexerUtil : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1182,11 +1190,14 @@ end module Printers : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1257,11 +1268,14 @@ end module InfiniteArray : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1292,11 +1306,14 @@ end module PackedIntArray : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1348,11 +1365,14 @@ end module RowDisplacement : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1409,11 +1429,14 @@ end module LinearizedArray : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1480,11 +1503,14 @@ end module TableFormat : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1616,11 +1642,14 @@ end module InspectionTableFormat : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1689,11 +1718,14 @@ end module InspectionTableInterpreter : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1738,11 +1770,14 @@ end module TableInterpreter : sig (******************************************************************************) (* *) -(* Menhir *) +(* Menhir *) +(* *) +(* François Pottier, Inria Paris *) +(* Yann Régis-Gianas, PPS, Université Paris Diderot *) (* *) -(* Copyright Inria. All rights reserved. This file is distributed under *) -(* the terms of the GNU Library General Public License version 2, with a *) -(* special exception on linking, as described in the file LICENSE. *) +(* Copyright Inria. All rights reserved. This file is distributed under the *) +(* terms of the GNU Library General Public License version 2, with a *) +(* special exception on linking, as described in the file LICENSE. *) (* *) (******************************************************************************) @@ -1768,5 +1803,5 @@ module MakeEngineTable and type nonterminal = int end module StaticVersion : sig -val require_20220210: unit +val require_20210419: unit end diff --git a/boot/menhir/parser.ml b/boot/menhir/parser.ml index 25304bd3e334..c10a0a783ee8 100644 --- a/boot/menhir/parser.ml +++ b/boot/menhir/parser.ml @@ -2,16 +2,12 @@ (* This generated code requires the following version of MenhirLib: *) let () = - MenhirLib.StaticVersion.require_20220210 + MenhirLib.StaticVersion.require_20210419 module MenhirBasics = struct exception Error = Parsing.Parse_error - let _eRR = - fun _s -> - raise Error - type token = | WITH | WHILE @@ -20,9 +16,9 @@ module MenhirBasics = struct | VAL | UNDERSCORE | UIDENT of ( -# 850 "parsing/parser.mly" +# 834 "parsing/parser.mly" (string) -# 26 "parsing/parser.ml" +# 22 "parsing/parser.ml" ) | TYPE | TRY @@ -32,9 +28,9 @@ module MenhirBasics = struct | THEN | STRUCT | STRING of ( -# 837 "parsing/parser.mly" +# 821 "parsing/parser.mly" (string * Location.t * string option) -# 38 "parsing/parser.ml" +# 34 "parsing/parser.ml" ) | STAR | SIG @@ -45,22 +41,22 @@ module MenhirBasics = struct | RBRACKET | RBRACE | QUOTED_STRING_ITEM of ( -# 841 "parsing/parser.mly" +# 825 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 51 "parsing/parser.ml" +# 47 "parsing/parser.ml" ) | QUOTED_STRING_EXPR of ( -# 839 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 56 "parsing/parser.ml" +# 52 "parsing/parser.ml" ) | QUOTE | QUESTION | PRIVATE | PREFIXOP of ( -# 823 "parsing/parser.mly" +# 807 "parsing/parser.mly" (string) -# 64 "parsing/parser.ml" +# 60 "parsing/parser.ml" ) | PLUSEQ | PLUSDOT @@ -68,9 +64,9 @@ module MenhirBasics = struct | PERCENT | OR | OPTLABEL of ( -# 816 "parsing/parser.mly" +# 800 "parsing/parser.mly" (string) -# 74 "parsing/parser.ml" +# 70 "parsing/parser.ml" ) | OPEN | OF @@ -88,14 +84,14 @@ module MenhirBasics = struct | LPAREN | LOCAL | LIDENT of ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 94 "parsing/parser.ml" +# 90 "parsing/parser.ml" ) | LETOP of ( -# 779 "parsing/parser.mly" +# 763 "parsing/parser.mly" (string) -# 99 "parsing/parser.ml" +# 95 "parsing/parser.ml" ) | LET | LESSMINUS @@ -113,49 +109,49 @@ module MenhirBasics = struct | LBRACE | LAZY | LABEL of ( -# 784 "parsing/parser.mly" +# 768 "parsing/parser.mly" (string) -# 119 "parsing/parser.ml" +# 115 "parsing/parser.ml" ) | INT of ( -# 783 "parsing/parser.mly" +# 767 "parsing/parser.mly" (string * char option) -# 124 "parsing/parser.ml" +# 120 "parsing/parser.ml" ) | INITIALIZER | INHERIT | INFIXOP4 of ( -# 777 "parsing/parser.mly" +# 761 "parsing/parser.mly" (string) -# 131 "parsing/parser.ml" +# 127 "parsing/parser.ml" ) | INFIXOP3 of ( -# 776 "parsing/parser.mly" +# 760 "parsing/parser.mly" (string) -# 136 "parsing/parser.ml" +# 132 "parsing/parser.ml" ) | INFIXOP2 of ( -# 775 "parsing/parser.mly" +# 759 "parsing/parser.mly" (string) -# 141 "parsing/parser.ml" +# 137 "parsing/parser.ml" ) | INFIXOP1 of ( -# 774 "parsing/parser.mly" +# 758 "parsing/parser.mly" (string) -# 146 "parsing/parser.ml" +# 142 "parsing/parser.ml" ) | INFIXOP0 of ( -# 773 "parsing/parser.mly" +# 757 "parsing/parser.mly" (string) -# 151 "parsing/parser.ml" +# 147 "parsing/parser.ml" ) | INCLUDE | IN | IF | HASHOP of ( -# 834 "parsing/parser.mly" +# 818 "parsing/parser.mly" (string) -# 159 "parsing/parser.ml" +# 155 "parsing/parser.ml" ) | HASH | GREATERRBRACKET @@ -167,9 +163,9 @@ module MenhirBasics = struct | FUN | FOR | FLOAT of ( -# 761 "parsing/parser.mly" +# 745 "parsing/parser.mly" (string * char option) -# 173 "parsing/parser.ml" +# 169 "parsing/parser.ml" ) | FALSE | EXTERNAL @@ -181,24 +177,24 @@ module MenhirBasics = struct | ELSE | DOWNTO | DOTOP of ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 187 "parsing/parser.ml" +# 183 "parsing/parser.ml" ) | DOTDOT | DOT | DONE | DOCSTRING of ( -# 858 "parsing/parser.mly" +# 842 "parsing/parser.mly" (Docstrings.docstring) -# 195 "parsing/parser.ml" +# 191 "parsing/parser.ml" ) | DO | CONSTRAINT | COMMENT of ( -# 857 "parsing/parser.mly" +# 841 "parsing/parser.mly" (string * Location.t) -# 202 "parsing/parser.ml" +# 198 "parsing/parser.ml" ) | COMMA | COLONGREATER @@ -207,9 +203,9 @@ module MenhirBasics = struct | COLON | CLASS | CHAR of ( -# 741 "parsing/parser.mly" +# 725 "parsing/parser.mly" (char) -# 213 "parsing/parser.ml" +# 209 "parsing/parser.ml" ) | BEGIN | BARRBRACKET @@ -220,9 +216,9 @@ module MenhirBasics = struct | ASSERT | AS | ANDOP of ( -# 780 "parsing/parser.mly" +# 764 "parsing/parser.mly" (string) -# 226 "parsing/parser.ml" +# 222 "parsing/parser.ml" ) | AND | AMPERSAND @@ -232,6 +228,9 @@ end include MenhirBasics +let _eRR = + MenhirBasics.Error + # 25 "parsing/parser.mly" @@ -326,23 +325,7 @@ let mkoperator = let mkpatvar ~loc name = mkpat ~loc (Ppat_var (mkrhs name loc)) -(* - Ghost expressions and patterns: - expressions and patterns that do not appear explicitly in the - source file they have the loc_ghost flag set to true. - Then the profiler will not try to instrument them and the - -annot option will not try to display their type. - - Every grammar rule that generates an element with a location must - make at most one non-ghost element, the topmost one. - - How to tell whether your location must be ghost: - A location corresponds to a range of characters in the source file. - If the location contains a piece of code that is syntactically - valid (according to the documentation), and corresponds to the - AST node, then the location must be real; in all other cases, - it must be ghost. -*) +(* See commentary about ghost locations at the declaration of Location.t *) let ghexp ~loc d = Exp.mk ~loc:(ghost_loc loc) d let ghpat ~loc d = Pat.mk ~loc:(ghost_loc loc) d let ghtyp ~loc d = Typ.mk ~loc:(ghost_loc loc) d @@ -926,7 +909,7 @@ let mk_directive ~loc name arg = } -# 930 "parsing/parser.ml" +# 913 "parsing/parser.ml" module Tables = struct @@ -1481,9 +1464,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 3985 "parsing/parser.mly" +# 3969 "parsing/parser.mly" ( "+" ) -# 1487 "parsing/parser.ml" +# 1470 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1506,9 +1489,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 3986 "parsing/parser.mly" +# 3970 "parsing/parser.mly" ( "+." ) -# 1512 "parsing/parser.ml" +# 1495 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1531,9 +1514,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 3501 "parsing/parser.mly" +# 3485 "parsing/parser.mly" ( _1 ) -# 1537 "parsing/parser.ml" +# 1520 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1576,29 +1559,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_tyvar_ in - let _v = - let _1 = - let _1 = -# 3504 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = + let _1 = +# 3488 "parsing/parser.mly" ( Ptyp_alias(ty, tyvar) ) -# 1585 "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 - -# 1020 "parsing/parser.mly" +# 1567 "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 + +# 1004 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1594 "parsing/parser.ml" - - in - ( -# 3506 "parsing/parser.mly" - ( _1 ) -# 1600 "parsing/parser.ml" - : (Parsetree.core_type)) +# 1576 "parsing/parser.ml" + in + +# 3490 "parsing/parser.mly" + ( _1 ) +# 1582 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -1640,36 +1621,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let attrs2 = - let _1 = _1_inlined2 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 1650 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined2_ in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 1659 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2725 "parsing/parser.mly" + let _v : (let_binding) = let attrs2 = + let _1 = _1_inlined2 in + +# 4057 "parsing/parser.mly" + ( _1 ) +# 1630 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined2_ in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 1639 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2709 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklb ~loc:_sloc false body attrs ) -# 1671 "parsing/parser.ml" - : (let_binding)) - in +# 1651 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -1691,9 +1670,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3858 "parsing/parser.mly" +# 3842 "parsing/parser.mly" ( _1 ) -# 1697 "parsing/parser.ml" +# 1676 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1716,9 +1695,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3859 "parsing/parser.mly" +# 3843 "parsing/parser.mly" ( Lident _1 ) -# 1722 "parsing/parser.ml" +# 1701 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1755,9 +1734,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = -# 3588 "parsing/parser.mly" +# 3572 "parsing/parser.mly" ( _2 ) -# 1761 "parsing/parser.ml" +# 1740 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1814,45 +1793,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3648 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3632 "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 ) -# 1829 "parsing/parser.ml" +# 1807 "parsing/parser.ml" + + in + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in - in - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( _1 ) -# 1839 "parsing/parser.ml" - - in - -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 1845 "parsing/parser.ml" +# 1817 "parsing/parser.ml" in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 3590 "parsing/parser.mly" - ( wrap_typ_attrs ~loc:_sloc (reloc_typ ~loc:_sloc _4) _3 ) -# 1854 "parsing/parser.ml" - : (Parsetree.core_type)) + +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 1823 "parsing/parser.ml" + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3574 "parsing/parser.mly" + ( wrap_typ_attrs ~loc:_sloc (reloc_typ ~loc:_sloc _4) _3 ) +# 1832 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -1880,29 +1857,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = - let _1 = -# 3593 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = + let _1 = +# 3577 "parsing/parser.mly" ( Ptyp_var _2 ) -# 1889 "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 - -# 1020 "parsing/parser.mly" +# 1865 "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 + +# 1004 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1898 "parsing/parser.ml" - - in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 1904 "parsing/parser.ml" - : (Parsetree.core_type)) +# 1874 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 1880 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -1923,28 +1898,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 3595 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = + let _1 = +# 3579 "parsing/parser.mly" ( Ptyp_any ) -# 1932 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" +# 1906 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1940 "parsing/parser.ml" - - in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 1946 "parsing/parser.ml" - : (Parsetree.core_type)) +# 1914 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 1920 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -1965,45 +1938,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let tid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 1979 "parsing/parser.ml" - - in - let tys = -# 3640 "parsing/parser.mly" - ( [] ) -# 1985 "parsing/parser.ml" - in + let tid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 3598 "parsing/parser.mly" - ( Ptyp_constr(tid, tys) ) -# 1990 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 1951 "parsing/parser.ml" in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let tys = +# 3624 "parsing/parser.mly" + ( [] ) +# 1957 "parsing/parser.ml" + in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 1999 "parsing/parser.ml" +# 3582 "parsing/parser.mly" + ( Ptyp_constr(tid, tys) ) +# 1962 "parsing/parser.ml" in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2005 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 1971 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 1977 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2031,46 +2002,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let tid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 2045 "parsing/parser.ml" - - in - let tys = -# 3642 "parsing/parser.mly" - ( [ty] ) -# 2051 "parsing/parser.ml" - in + let tid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 3598 "parsing/parser.mly" - ( Ptyp_constr(tid, tys) ) -# 2056 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 2015 "parsing/parser.ml" in - let _startpos__1_ = _startpos_ty_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let tys = +# 3626 "parsing/parser.mly" + ( [ty] ) +# 2021 "parsing/parser.ml" + in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 2066 "parsing/parser.ml" +# 3582 "parsing/parser.mly" + ( Ptyp_constr(tid, tys) ) +# 2026 "parsing/parser.ml" in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2072 "parsing/parser.ml" - : (Parsetree.core_type)) + let _startpos__1_ = _startpos_ty_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 2036 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2042 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2112,61 +2081,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let tid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let tid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2127 "parsing/parser.ml" - - in +# 2095 "parsing/parser.ml" + + in + let tys = let tys = - let tys = - let xs = -# 250 "" + let xs = +# 253 "" ( List.rev xs ) -# 2135 "parsing/parser.ml" - in - -# 1145 "parsing/parser.mly" - ( xs ) -# 2140 "parsing/parser.ml" - - in +# 2103 "parsing/parser.ml" + in -# 3644 "parsing/parser.mly" - ( tys ) -# 2146 "parsing/parser.ml" +# 1129 "parsing/parser.mly" + ( xs ) +# 2108 "parsing/parser.ml" in -# 3598 "parsing/parser.mly" - ( Ptyp_constr(tid, tys) ) -# 2152 "parsing/parser.ml" +# 3628 "parsing/parser.mly" + ( tys ) +# 2114 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 2162 "parsing/parser.ml" +# 3582 "parsing/parser.mly" + ( Ptyp_constr(tid, tys) ) +# 2120 "parsing/parser.ml" in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2168 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 2130 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2136 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2201,29 +2168,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = - let _1 = -# 3600 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = + let _1 = +# 3584 "parsing/parser.mly" ( let (f, c) = _2 in Ptyp_object (f, c) ) -# 2210 "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 - -# 1020 "parsing/parser.mly" +# 2176 "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 + +# 1004 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2219 "parsing/parser.ml" - - in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2225 "parsing/parser.ml" - : (Parsetree.core_type)) +# 2185 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2191 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2251,29 +2216,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = - let _1 = -# 3602 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = + let _1 = +# 3586 "parsing/parser.mly" ( Ptyp_object ([], Closed) ) -# 2260 "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 - -# 1020 "parsing/parser.mly" +# 2224 "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 + +# 1004 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2269 "parsing/parser.ml" - - in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2275 "parsing/parser.ml" - : (Parsetree.core_type)) +# 2233 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2239 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2301,46 +2264,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__2_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let cid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 2315 "parsing/parser.ml" - - in - let tys = -# 3640 "parsing/parser.mly" - ( [] ) -# 2321 "parsing/parser.ml" - in + let cid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 3606 "parsing/parser.mly" - ( Ptyp_class(cid, tys) ) -# 2326 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 2277 "parsing/parser.ml" in - let _startpos__1_ = _startpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let tys = +# 3624 "parsing/parser.mly" + ( [] ) +# 2283 "parsing/parser.ml" + in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 2336 "parsing/parser.ml" +# 3590 "parsing/parser.mly" + ( Ptyp_class(cid, tys) ) +# 2288 "parsing/parser.ml" in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2342 "parsing/parser.ml" - : (Parsetree.core_type)) + let _startpos__1_ = _startpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 2298 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2304 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2375,46 +2336,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let cid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 2389 "parsing/parser.ml" - - in - let tys = -# 3642 "parsing/parser.mly" - ( [ty] ) -# 2395 "parsing/parser.ml" - in + let cid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 3606 "parsing/parser.mly" - ( Ptyp_class(cid, tys) ) -# 2400 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 2349 "parsing/parser.ml" in - let _startpos__1_ = _startpos_ty_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let tys = +# 3626 "parsing/parser.mly" + ( [ty] ) +# 2355 "parsing/parser.ml" + in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 2410 "parsing/parser.ml" +# 3590 "parsing/parser.mly" + ( Ptyp_class(cid, tys) ) +# 2360 "parsing/parser.ml" in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2416 "parsing/parser.ml" - : (Parsetree.core_type)) + let _startpos__1_ = _startpos_ty_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 2370 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2376 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2463,61 +2422,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let cid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let cid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2478 "parsing/parser.ml" - - in +# 2436 "parsing/parser.ml" + + in + let tys = let tys = - let tys = - let xs = -# 250 "" + let xs = +# 253 "" ( List.rev xs ) -# 2486 "parsing/parser.ml" - in - -# 1145 "parsing/parser.mly" - ( xs ) -# 2491 "parsing/parser.ml" - - in +# 2444 "parsing/parser.ml" + in -# 3644 "parsing/parser.mly" - ( tys ) -# 2497 "parsing/parser.ml" +# 1129 "parsing/parser.mly" + ( xs ) +# 2449 "parsing/parser.ml" in -# 3606 "parsing/parser.mly" - ( Ptyp_class(cid, tys) ) -# 2503 "parsing/parser.ml" +# 3628 "parsing/parser.mly" + ( tys ) +# 2455 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 2513 "parsing/parser.ml" +# 3590 "parsing/parser.mly" + ( Ptyp_class(cid, tys) ) +# 2461 "parsing/parser.ml" in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2519 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 2471 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2477 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2552,29 +2509,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = - let _1 = -# 3609 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = + let _1 = +# 3593 "parsing/parser.mly" ( Ptyp_variant([_2], Closed, None) ) -# 2561 "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 - -# 1020 "parsing/parser.mly" +# 2517 "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 + +# 1004 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2570 "parsing/parser.ml" - - in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2576 "parsing/parser.ml" - : (Parsetree.core_type)) +# 2526 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2532 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2616,50 +2571,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let _3 = - let _1 = - let xs = -# 250 "" + let _3 = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 2628 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" - ( xs ) -# 2633 "parsing/parser.ml" - - in +# 2582 "parsing/parser.ml" + in -# 3654 "parsing/parser.mly" - ( _1 ) -# 2639 "parsing/parser.ml" +# 1101 "parsing/parser.mly" + ( xs ) +# 2587 "parsing/parser.ml" in -# 3611 "parsing/parser.mly" - ( Ptyp_variant(_3, Closed, None) ) -# 2645 "parsing/parser.ml" +# 3638 "parsing/parser.mly" + ( _1 ) +# 2593 "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 -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 2655 "parsing/parser.ml" +# 3595 "parsing/parser.mly" + ( Ptyp_variant(_3, Closed, None) ) +# 2599 "parsing/parser.ml" in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2661 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 2609 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2615 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2708,50 +2661,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let _4 = - let _1 = - let xs = -# 250 "" + let _4 = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 2720 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" - ( xs ) -# 2725 "parsing/parser.ml" - - in +# 2672 "parsing/parser.ml" + in -# 3654 "parsing/parser.mly" - ( _1 ) -# 2731 "parsing/parser.ml" +# 1101 "parsing/parser.mly" + ( xs ) +# 2677 "parsing/parser.ml" in -# 3613 "parsing/parser.mly" - ( Ptyp_variant(_2 :: _4, Closed, None) ) -# 2737 "parsing/parser.ml" +# 3638 "parsing/parser.mly" + ( _1 ) +# 2683 "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 -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 2747 "parsing/parser.ml" +# 3597 "parsing/parser.mly" + ( Ptyp_variant(_2 :: _4, Closed, None) ) +# 2689 "parsing/parser.ml" in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2753 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 2699 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2705 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2793,50 +2744,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let _3 = - let _1 = - let xs = -# 250 "" + let _3 = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 2805 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" - ( xs ) -# 2810 "parsing/parser.ml" - - in +# 2755 "parsing/parser.ml" + in -# 3654 "parsing/parser.mly" - ( _1 ) -# 2816 "parsing/parser.ml" +# 1101 "parsing/parser.mly" + ( xs ) +# 2760 "parsing/parser.ml" in -# 3615 "parsing/parser.mly" - ( Ptyp_variant(_3, Open, None) ) -# 2822 "parsing/parser.ml" +# 3638 "parsing/parser.mly" + ( _1 ) +# 2766 "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 -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 2832 "parsing/parser.ml" +# 3599 "parsing/parser.mly" + ( Ptyp_variant(_3, Open, None) ) +# 2772 "parsing/parser.ml" in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2838 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 2782 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2788 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2864,29 +2813,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = - let _1 = -# 3617 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = + let _1 = +# 3601 "parsing/parser.mly" ( Ptyp_variant([], Open, None) ) -# 2873 "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 - -# 1020 "parsing/parser.mly" +# 2821 "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 + +# 1004 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2882 "parsing/parser.ml" - - in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2888 "parsing/parser.ml" - : (Parsetree.core_type)) +# 2830 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2836 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2928,50 +2875,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let _3 = - let _1 = - let xs = -# 250 "" + let _3 = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 2940 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" - ( xs ) -# 2945 "parsing/parser.ml" - - in +# 2886 "parsing/parser.ml" + in -# 3654 "parsing/parser.mly" - ( _1 ) -# 2951 "parsing/parser.ml" +# 1101 "parsing/parser.mly" + ( xs ) +# 2891 "parsing/parser.ml" in -# 3619 "parsing/parser.mly" - ( Ptyp_variant(_3, Closed, Some []) ) -# 2957 "parsing/parser.ml" +# 3638 "parsing/parser.mly" + ( _1 ) +# 2897 "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 -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 2967 "parsing/parser.ml" +# 3603 "parsing/parser.mly" + ( Ptyp_variant(_3, Closed, Some []) ) +# 2903 "parsing/parser.ml" in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 2973 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 2913 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 2919 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3027,70 +2972,68 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let _5 = - let xs = xs_inlined1 in - let _1 = - let xs = -# 250 "" + let _5 = + let xs = xs_inlined1 in + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 3040 "parsing/parser.ml" - in - -# 1085 "parsing/parser.mly" - ( xs ) -# 3045 "parsing/parser.ml" - - in +# 2984 "parsing/parser.ml" + in -# 3682 "parsing/parser.mly" - ( _1 ) -# 3051 "parsing/parser.ml" +# 1069 "parsing/parser.mly" + ( xs ) +# 2989 "parsing/parser.ml" in - let _3 = - let _1 = - let xs = -# 250 "" + +# 3666 "parsing/parser.mly" + ( _1 ) +# 2995 "parsing/parser.ml" + + in + let _3 = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 3059 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" - ( xs ) -# 3064 "parsing/parser.ml" - - in +# 3003 "parsing/parser.ml" + in -# 3654 "parsing/parser.mly" - ( _1 ) -# 3070 "parsing/parser.ml" +# 1101 "parsing/parser.mly" + ( xs ) +# 3008 "parsing/parser.ml" in -# 3621 "parsing/parser.mly" - ( Ptyp_variant(_3, Closed, Some _5) ) -# 3076 "parsing/parser.ml" +# 3638 "parsing/parser.mly" + ( _1 ) +# 3014 "parsing/parser.ml" in - let _endpos__1_ = _endpos__6_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 3086 "parsing/parser.ml" +# 3605 "parsing/parser.mly" + ( Ptyp_variant(_3, Closed, Some _5) ) +# 3020 "parsing/parser.ml" in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 3092 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos__6_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 3030 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 3036 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3111,28 +3054,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 3623 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = + let _1 = +# 3607 "parsing/parser.mly" ( Ptyp_extension _1 ) -# 3120 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" +# 3062 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3128 "parsing/parser.ml" - - in - ( -# 3625 "parsing/parser.mly" - ( _1 ) -# 3134 "parsing/parser.ml" - : (Parsetree.core_type)) +# 3070 "parsing/parser.ml" + in + +# 3609 "parsing/parser.mly" + ( _1 ) +# 3076 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3153,28 +3094,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 4054 "parsing/parser.mly" + let _v : (string Asttypes.loc) = let _1 = + let _1 = +# 4038 "parsing/parser.mly" ( _1 ) -# 3162 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1013 "parsing/parser.mly" +# 3102 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 997 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) -# 3170 "parsing/parser.ml" - - in - ( -# 4056 "parsing/parser.mly" - ( _1 ) -# 3176 "parsing/parser.ml" - : (string Asttypes.loc)) +# 3110 "parsing/parser.ml" + in + +# 4040 "parsing/parser.mly" + ( _1 ) +# 3116 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3209,29 +3148,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = - let _1 = -# 4055 "parsing/parser.mly" + let _v : (string Asttypes.loc) = let _1 = + let _1 = +# 4039 "parsing/parser.mly" ( _1 ^ "." ^ _3.txt ) -# 3218 "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 - -# 1013 "parsing/parser.mly" +# 3156 "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 + +# 997 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) -# 3227 "parsing/parser.ml" - - in - ( -# 4056 "parsing/parser.mly" - ( _1 ) -# 3233 "parsing/parser.ml" - : (string Asttypes.loc)) +# 3165 "parsing/parser.ml" + in + +# 4040 "parsing/parser.mly" + ( _1 ) +# 3171 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3273,16 +3210,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 4060 "parsing/parser.mly" + let _v : (Parsetree.attribute) = let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 4044 "parsing/parser.mly" ( Builtin_attributes.mk_internal ~loc:(make_loc _sloc) _2 _3 ) -# 3284 "parsing/parser.ml" - : (Parsetree.attribute)) - in +# 3220 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3304,9 +3239,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_expr) = -# 1975 "parsing/parser.mly" +# 1959 "parsing/parser.mly" ( _1 ) -# 3310 "parsing/parser.ml" +# 3245 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3342,24 +3277,22 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.class_expr) = let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 3352 "parsing/parser.ml" - - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1977 "parsing/parser.mly" - ( wrap_class_attrs ~loc:_sloc _3 _2 ) -# 3361 "parsing/parser.ml" - : (Parsetree.class_expr)) +# 3286 "parsing/parser.ml" + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1961 "parsing/parser.mly" + ( wrap_class_attrs ~loc:_sloc _3 _2 ) +# 3295 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3394,16 +3327,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1979 "parsing/parser.mly" + let _v : (Parsetree.class_expr) = let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1963 "parsing/parser.mly" ( class_of_let_bindings ~loc:_sloc _1 _3 ) -# 3405 "parsing/parser.ml" - : (Parsetree.class_expr)) - in +# 3337 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3459,43 +3390,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _5 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.class_expr) = let _5 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 3472 "parsing/parser.ml" - - in - let _endpos__5_ = _endpos__1_inlined2_ in - let _4 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 3402 "parsing/parser.ml" + + in + let _endpos__5_ = _endpos__1_inlined2_ in + let _4 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 3481 "parsing/parser.ml" - - in - let _3 = -# 3977 "parsing/parser.mly" +# 3411 "parsing/parser.ml" + + in + let _3 = +# 3961 "parsing/parser.mly" ( Fresh ) -# 3487 "parsing/parser.ml" - in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1981 "parsing/parser.mly" +# 3417 "parsing/parser.ml" + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1965 "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)) ) -# 3497 "parsing/parser.ml" - : (Parsetree.class_expr)) - in +# 3427 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3558,43 +3487,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _5 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.class_expr) = let _5 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 3571 "parsing/parser.ml" - - in - let _endpos__5_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - -# 4077 "parsing/parser.mly" +# 3499 "parsing/parser.ml" + + in + let _endpos__5_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 3580 "parsing/parser.ml" - - in - let _3 = -# 3978 "parsing/parser.mly" +# 3508 "parsing/parser.ml" + + in + let _3 = +# 3962 "parsing/parser.mly" ( Override ) -# 3586 "parsing/parser.ml" - in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1981 "parsing/parser.mly" +# 3514 "parsing/parser.ml" + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1965 "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)) ) -# 3596 "parsing/parser.ml" - : (Parsetree.class_expr)) - in +# 3524 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3623,9 +3550,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = -# 1985 "parsing/parser.mly" +# 1969 "parsing/parser.mly" ( Cl.attr _1 _2 ) -# 3629 "parsing/parser.ml" +# 3556 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3654,43 +3581,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = + let _v : (Parsetree.class_expr) = let _1 = let _1 = - let _1 = - let _2 = - let xs = -# 250 "" + let _2 = + let xs = +# 253 "" ( List.rev xs ) -# 3665 "parsing/parser.ml" - in - -# 1085 "parsing/parser.mly" - ( xs ) -# 3670 "parsing/parser.ml" - - in +# 3591 "parsing/parser.ml" + in -# 1988 "parsing/parser.mly" - ( Pcl_apply(_1, _2) ) -# 3676 "parsing/parser.ml" +# 1069 "parsing/parser.mly" + ( xs ) +# 3596 "parsing/parser.ml" in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1036 "parsing/parser.mly" - ( mkclass ~loc:_sloc _1 ) -# 3686 "parsing/parser.ml" +# 1972 "parsing/parser.mly" + ( Pcl_apply(_1, _2) ) +# 3602 "parsing/parser.ml" in - ( -# 1991 "parsing/parser.mly" - ( _1 ) -# 3692 "parsing/parser.ml" - : (Parsetree.class_expr)) + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1020 "parsing/parser.mly" + ( mkclass ~loc:_sloc _1 ) +# 3612 "parsing/parser.ml" + in + +# 1975 "parsing/parser.mly" + ( _1 ) +# 3618 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3711,28 +3636,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1990 "parsing/parser.mly" + let _v : (Parsetree.class_expr) = let _1 = + let _1 = +# 1974 "parsing/parser.mly" ( Pcl_extension _1 ) -# 3720 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1036 "parsing/parser.mly" +# 3644 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1020 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 3728 "parsing/parser.ml" - - in - ( -# 1991 "parsing/parser.mly" - ( _1 ) -# 3734 "parsing/parser.ml" - : (Parsetree.class_expr)) +# 3652 "parsing/parser.ml" + in + +# 1975 "parsing/parser.mly" + ( _1 ) +# 3658 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3781,39 +3704,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let _6 = - let _1 = _1_inlined2 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_field) = let _6 = + let _1 = _1_inlined2 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 3791 "parsing/parser.ml" - - in - let _endpos__6_ = _endpos__1_inlined2_ in - let _3 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 3713 "parsing/parser.ml" + + in + let _endpos__6_ = _endpos__1_inlined2_ in + let _3 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 3800 "parsing/parser.ml" - - in - let _2 = -# 3977 "parsing/parser.mly" +# 3722 "parsing/parser.ml" + + in + let _2 = +# 3961 "parsing/parser.mly" ( Fresh ) -# 3806 "parsing/parser.ml" - in - let _endpos = _endpos__6_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2040 "parsing/parser.mly" +# 3728 "parsing/parser.ml" + in + let _endpos = _endpos__6_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2024 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 3815 "parsing/parser.ml" - : (Parsetree.class_field)) - in +# 3737 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3869,39 +3790,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let _6 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_field) = let _6 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 3879 "parsing/parser.ml" - - in - let _endpos__6_ = _endpos__1_inlined3_ in - let _3 = - let _1 = _1_inlined2 in - -# 4077 "parsing/parser.mly" +# 3799 "parsing/parser.ml" + + in + let _endpos__6_ = _endpos__1_inlined3_ in + let _3 = + let _1 = _1_inlined2 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 3888 "parsing/parser.ml" - - in - let _2 = -# 3978 "parsing/parser.mly" +# 3808 "parsing/parser.ml" + + in + let _2 = +# 3962 "parsing/parser.mly" ( Override ) -# 3894 "parsing/parser.ml" - in - let _endpos = _endpos__6_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2040 "parsing/parser.mly" +# 3814 "parsing/parser.ml" + in + let _endpos = _endpos__6_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2024 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 3903 "parsing/parser.ml" - : (Parsetree.class_field)) - in +# 3823 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3938,27 +3857,25 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let _3 = - let _1 = _1_inlined1 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_field) = let _3 = + let _1 = _1_inlined1 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 3948 "parsing/parser.ml" - - in - let _endpos__3_ = _endpos__1_inlined1_ in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2043 "parsing/parser.mly" +# 3866 "parsing/parser.ml" + + in + let _endpos__3_ = _endpos__1_inlined1_ in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2027 "parsing/parser.mly" ( let v, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_val v) ~attrs:(attrs@_3) ~docs ) -# 3960 "parsing/parser.ml" - : (Parsetree.class_field)) - in +# 3878 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3995,27 +3912,25 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let _3 = - let _1 = _1_inlined1 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_field) = let _3 = + let _1 = _1_inlined1 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 4005 "parsing/parser.ml" - - in - let _endpos__3_ = _endpos__1_inlined1_ in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2047 "parsing/parser.mly" +# 3921 "parsing/parser.ml" + + in + let _endpos__3_ = _endpos__1_inlined1_ in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2031 "parsing/parser.mly" ( let meth, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_method meth) ~attrs:(attrs@_3) ~docs ) -# 4017 "parsing/parser.ml" - : (Parsetree.class_field)) - in +# 3933 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4057,34 +3972,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let _4 = - let _1 = _1_inlined2 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_field) = let _4 = + let _1 = _1_inlined2 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 4067 "parsing/parser.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 3981 "parsing/parser.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 4076 "parsing/parser.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2051 "parsing/parser.mly" +# 3990 "parsing/parser.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2035 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 4086 "parsing/parser.ml" - : (Parsetree.class_field)) - in +# 4000 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4126,34 +4039,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let _4 = - let _1 = _1_inlined2 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_field) = let _4 = + let _1 = _1_inlined2 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 4136 "parsing/parser.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4048 "parsing/parser.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 4145 "parsing/parser.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2054 "parsing/parser.mly" +# 4057 "parsing/parser.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2038 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_initializer _3) ~attrs:(_2@_4) ~docs ) -# 4155 "parsing/parser.ml" - : (Parsetree.class_field)) - in +# 4067 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4181,26 +4092,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let _2 = - let _1 = _1_inlined1 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_field) = let _2 = + let _1 = _1_inlined1 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 4191 "parsing/parser.ml" - - in - let _endpos__2_ = _endpos__1_inlined1_ in - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2057 "parsing/parser.mly" +# 4101 "parsing/parser.ml" + + in + let _endpos__2_ = _endpos__1_inlined1_ in + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2041 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_extension _1) ~attrs:_2 ~docs ) -# 4202 "parsing/parser.ml" - : (Parsetree.class_field)) - in +# 4112 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4221,28 +4130,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 2060 "parsing/parser.mly" + let _v : (Parsetree.class_field) = let _1 = + let _1 = +# 2044 "parsing/parser.mly" ( Pcf_attribute _1 ) -# 4230 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1034 "parsing/parser.mly" +# 4138 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1018 "parsing/parser.mly" ( mkcf ~loc:_sloc _1 ) -# 4238 "parsing/parser.ml" - - in - ( -# 2061 "parsing/parser.mly" - ( _1 ) -# 4244 "parsing/parser.ml" - : (Parsetree.class_field)) +# 4146 "parsing/parser.ml" + in + +# 2045 "parsing/parser.mly" + ( _1 ) +# 4152 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4271,9 +4178,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = -# 1955 "parsing/parser.mly" +# 1939 "parsing/parser.mly" ( _2 ) -# 4277 "parsing/parser.ml" +# 4184 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4316,29 +4223,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _1 = - let _1 = -# 1958 "parsing/parser.mly" + let _v : (Parsetree.class_expr) = let _1 = + let _1 = +# 1942 "parsing/parser.mly" ( Pcl_constraint(_4, _2) ) -# 4325 "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 - -# 1036 "parsing/parser.mly" +# 4231 "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 + +# 1020 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4334 "parsing/parser.ml" - - in - ( -# 1961 "parsing/parser.mly" - ( _1 ) -# 4340 "parsing/parser.ml" - : (Parsetree.class_expr)) +# 4240 "parsing/parser.ml" + in + +# 1945 "parsing/parser.mly" + ( _1 ) +# 4246 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4366,29 +4271,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = - let _1 = -# 1960 "parsing/parser.mly" + let _v : (Parsetree.class_expr) = let _1 = + let _1 = +# 1944 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, _2) ) -# 4375 "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 - -# 1036 "parsing/parser.mly" +# 4279 "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 + +# 1020 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4384 "parsing/parser.ml" - - in - ( -# 1961 "parsing/parser.mly" - ( _1 ) -# 4390 "parsing/parser.ml" - : (Parsetree.class_expr)) +# 4288 "parsing/parser.ml" + in + +# 1945 "parsing/parser.mly" + ( _1 ) +# 4294 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4423,29 +4326,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_e_ in - let _v = - let _1 = - let _1 = -# 2016 "parsing/parser.mly" + let _v : (Parsetree.class_expr) = let _1 = + let _1 = +# 2000 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 4432 "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 - -# 1036 "parsing/parser.mly" +# 4334 "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 + +# 1020 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4441 "parsing/parser.ml" - - in - ( -# 2017 "parsing/parser.mly" - ( _1 ) -# 4447 "parsing/parser.ml" - : (Parsetree.class_expr)) +# 4343 "parsing/parser.ml" + in + +# 2001 "parsing/parser.mly" + ( _1 ) +# 4349 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4473,29 +4374,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_e_ in - let _v = - let _1 = - let _1 = -# 2016 "parsing/parser.mly" + let _v : (Parsetree.class_expr) = let _1 = + let _1 = +# 2000 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 4482 "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 - -# 1036 "parsing/parser.mly" +# 4382 "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 + +# 1020 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4491 "parsing/parser.ml" - - in - ( -# 2017 "parsing/parser.mly" - ( _1 ) -# 4497 "parsing/parser.ml" - : (Parsetree.class_expr)) +# 4391 "parsing/parser.ml" + in + +# 2001 "parsing/parser.mly" + ( _1 ) +# 4397 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4517,9 +4416,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3848 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( _1 ) -# 4523 "parsing/parser.ml" +# 4422 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4555,16 +4454,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2025 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2009 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) -# 4566 "parsing/parser.ml" - : (Parsetree.pattern)) - in +# 4464 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4613,29 +4510,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let _1 = -# 2027 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _1 = +# 2011 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) -# 4622 "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 - -# 1018 "parsing/parser.mly" +# 4518 "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 + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 4631 "parsing/parser.ml" - - in - ( -# 2028 "parsing/parser.mly" - ( _1 ) -# 4637 "parsing/parser.ml" - : (Parsetree.pattern)) +# 4527 "parsing/parser.ml" + in + +# 2012 "parsing/parser.mly" + ( _1 ) +# 4533 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4649,16 +4544,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in - let _v = - let _endpos = _endpos__0_ in - let _symbolstartpos = _endpos in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2030 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _endpos = _endpos__0_ in + let _symbolstartpos = _endpos in + let _sloc = (_symbolstartpos, _endpos) in + +# 2014 "parsing/parser.mly" ( ghpat ~loc:_sloc Ppat_any ) -# 4660 "parsing/parser.ml" - : (Parsetree.pattern)) - in +# 4554 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4694,9 +4587,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = -# 2155 "parsing/parser.mly" +# 2139 "parsing/parser.mly" ( _2 ) -# 4700 "parsing/parser.ml" +# 4593 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4711,29 +4604,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in - let _v = - let _1 = - let _1 = -# 2156 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = + let _1 = +# 2140 "parsing/parser.mly" ( Ptyp_any ) -# 4720 "parsing/parser.ml" - in - let _endpos__1_ = _endpos__0_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _endpos in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" +# 4612 "parsing/parser.ml" + in + let _endpos__1_ = _endpos__0_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _endpos in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 4729 "parsing/parser.ml" - - in - ( -# 2157 "parsing/parser.mly" - ( _1 ) -# 4735 "parsing/parser.ml" - : (Parsetree.core_type)) +# 4621 "parsing/parser.ml" + in + +# 2141 "parsing/parser.mly" + ( _1 ) +# 4627 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4775,34 +4666,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let _4 = - let _1 = _1_inlined2 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_type_field) = let _4 = + let _1 = _1_inlined2 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 4785 "parsing/parser.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4675 "parsing/parser.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 4794 "parsing/parser.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2165 "parsing/parser.mly" +# 4684 "parsing/parser.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2149 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_inherit _3) ~attrs:(_2@_4) ~docs ) -# 4804 "parsing/parser.ml" - : (Parsetree.class_type_field)) - in +# 4694 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4859,9 +4748,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _3 : unit = Obj.magic _3 in let _1_inlined2 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 4865 "parsing/parser.ml" +# 4754 "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 @@ -4869,60 +4758,58 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let _4 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_type_field) = let _4 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 4879 "parsing/parser.ml" - - in - let _endpos__4_ = _endpos__1_inlined3_ in - let _3 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let label = - let _1 = -# 3722 "parsing/parser.mly" +# 4767 "parsing/parser.ml" + + in + let _endpos__4_ = _endpos__1_inlined3_ in + let _3 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let label = + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 4889 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 4777 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 4897 "parsing/parser.ml" - - in +# 4785 "parsing/parser.ml" -# 2190 "parsing/parser.mly" + in + +# 2174 "parsing/parser.mly" ( let mut, virt = flags in label, mut, virt, ty ) -# 4906 "parsing/parser.ml" - - in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4794 "parsing/parser.ml" + + in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 4914 "parsing/parser.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2168 "parsing/parser.mly" +# 4802 "parsing/parser.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2152 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_val _3) ~attrs:(_2@_4) ~docs ) -# 4924 "parsing/parser.ml" - : (Parsetree.class_type_field)) - in +# 4812 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4979,9 +4866,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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 4985 "parsing/parser.ml" +# 4872 "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 @@ -4989,59 +4876,57 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in - let _v = - let _7 = - let _1 = _1_inlined4 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_type_field) = let _7 = + let _1 = _1_inlined4 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 4999 "parsing/parser.ml" - - in - let _endpos__7_ = _endpos__1_inlined4_ in - let _6 = - let _1 = _1_inlined3 in - -# 3467 "parsing/parser.mly" +# 4885 "parsing/parser.ml" + + in + let _endpos__7_ = _endpos__1_inlined4_ in + let _6 = + let _1 = _1_inlined3 in + +# 3451 "parsing/parser.mly" ( _1 ) -# 5008 "parsing/parser.ml" - - in - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _1 = -# 3722 "parsing/parser.mly" +# 4894 "parsing/parser.ml" + + in + let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 5016 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 5024 "parsing/parser.ml" - - in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 5032 "parsing/parser.ml" - - in - let _endpos = _endpos__7_ in +# 4902 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 2172 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 4910 "parsing/parser.ml" + + in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 4918 "parsing/parser.ml" + + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2156 "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" - : (Parsetree.class_type_field)) - in +# 4929 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5083,34 +4968,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let _4 = - let _1 = _1_inlined2 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_type_field) = let _4 = + let _1 = _1_inlined2 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 5093 "parsing/parser.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4977 "parsing/parser.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 5102 "parsing/parser.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2176 "parsing/parser.mly" +# 4986 "parsing/parser.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2160 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 5112 "parsing/parser.ml" - : (Parsetree.class_type_field)) - in +# 4996 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5138,26 +5021,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let _2 = - let _1 = _1_inlined1 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.class_type_field) = let _2 = + let _1 = _1_inlined1 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 5148 "parsing/parser.ml" - - in - let _endpos__2_ = _endpos__1_inlined1_ in - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2179 "parsing/parser.mly" +# 5030 "parsing/parser.ml" + + in + let _endpos__2_ = _endpos__1_inlined1_ in + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2163 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_extension _1) ~attrs:_2 ~docs ) -# 5159 "parsing/parser.ml" - : (Parsetree.class_type_field)) - in +# 5041 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5178,28 +5059,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 2182 "parsing/parser.mly" + let _v : (Parsetree.class_type_field) = let _1 = + let _1 = +# 2166 "parsing/parser.mly" ( Pctf_attribute _1 ) -# 5187 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1032 "parsing/parser.mly" +# 5067 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1016 "parsing/parser.mly" ( mkctf ~loc:_sloc _1 ) -# 5195 "parsing/parser.ml" - - in - ( -# 2183 "parsing/parser.mly" - ( _1 ) -# 5201 "parsing/parser.ml" - : (Parsetree.class_type_field)) +# 5075 "parsing/parser.ml" + in + +# 2167 "parsing/parser.mly" + ( _1 ) +# 5081 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5220,52 +5099,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.class_type) = let _1 = let _1 = - let _1 = - let cid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let cid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5234 "parsing/parser.ml" - - in - let tys = - let tys = -# 2141 "parsing/parser.mly" +# 5112 "parsing/parser.ml" + + in + let tys = + let tys = +# 2125 "parsing/parser.mly" ( [] ) -# 5241 "parsing/parser.ml" - in - -# 2147 "parsing/parser.mly" - ( tys ) -# 5246 "parsing/parser.ml" - - in +# 5119 "parsing/parser.ml" + in -# 2124 "parsing/parser.mly" - ( Pcty_constr (cid, tys) ) -# 5252 "parsing/parser.ml" +# 2131 "parsing/parser.mly" + ( tys ) +# 5124 "parsing/parser.ml" in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1030 "parsing/parser.mly" - ( mkcty ~loc:_sloc _1 ) -# 5261 "parsing/parser.ml" +# 2108 "parsing/parser.mly" + ( Pcty_constr (cid, tys) ) +# 5130 "parsing/parser.ml" in - ( -# 2127 "parsing/parser.mly" - ( _1 ) -# 5267 "parsing/parser.ml" - : (Parsetree.class_type)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1014 "parsing/parser.mly" + ( mkcty ~loc:_sloc _1 ) +# 5139 "parsing/parser.ml" + in + +# 2111 "parsing/parser.mly" + ( _1 ) +# 5145 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5307,68 +5184,66 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.class_type) = let _1 = let _1 = - let _1 = - let cid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let cid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5322 "parsing/parser.ml" - - in +# 5198 "parsing/parser.ml" + + in + let tys = let tys = - let tys = - let params = - let xs = -# 250 "" + let params = + let xs = +# 253 "" ( List.rev xs ) -# 5331 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" - ( xs ) -# 5336 "parsing/parser.ml" - - in +# 5207 "parsing/parser.ml" + in -# 2143 "parsing/parser.mly" - ( params ) -# 5342 "parsing/parser.ml" +# 1101 "parsing/parser.mly" + ( xs ) +# 5212 "parsing/parser.ml" in -# 2147 "parsing/parser.mly" - ( tys ) -# 5348 "parsing/parser.ml" +# 2127 "parsing/parser.mly" + ( params ) +# 5218 "parsing/parser.ml" in -# 2124 "parsing/parser.mly" - ( Pcty_constr (cid, tys) ) -# 5354 "parsing/parser.ml" +# 2131 "parsing/parser.mly" + ( tys ) +# 5224 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1030 "parsing/parser.mly" - ( mkcty ~loc:_sloc _1 ) -# 5364 "parsing/parser.ml" +# 2108 "parsing/parser.mly" + ( Pcty_constr (cid, tys) ) +# 5230 "parsing/parser.ml" in - ( -# 2127 "parsing/parser.mly" - ( _1 ) -# 5370 "parsing/parser.ml" - : (Parsetree.class_type)) + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1014 "parsing/parser.mly" + ( mkcty ~loc:_sloc _1 ) +# 5240 "parsing/parser.ml" + in + +# 2111 "parsing/parser.mly" + ( _1 ) +# 5246 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5389,28 +5264,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 2126 "parsing/parser.mly" + let _v : (Parsetree.class_type) = let _1 = + let _1 = +# 2110 "parsing/parser.mly" ( Pcty_extension _1 ) -# 5398 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1030 "parsing/parser.mly" +# 5272 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1014 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5406 "parsing/parser.ml" - - in - ( -# 2127 "parsing/parser.mly" - ( _1 ) -# 5412 "parsing/parser.ml" - : (Parsetree.class_type)) +# 5280 "parsing/parser.ml" + in + +# 2111 "parsing/parser.mly" + ( _1 ) +# 5286 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5459,54 +5332,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _3 = - let _1 = _1_inlined2 in - let _2 = - let _1 = - let _1 = -# 257 "" + let _v : (Parsetree.class_type) = let _3 = + let _1 = _1_inlined2 in + let _2 = + let _1 = + let _1 = +# 260 "" ( List.flatten xss ) -# 5471 "parsing/parser.ml" - in - -# 2161 "parsing/parser.mly" - ( _1 ) -# 5476 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in +# 5343 "parsing/parser.ml" + in -# 978 "parsing/parser.mly" - ( extra_csig _startpos _endpos _1 ) -# 5485 "parsing/parser.ml" +# 2145 "parsing/parser.mly" + ( _1 ) +# 5348 "parsing/parser.ml" in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in -# 2151 "parsing/parser.mly" - ( Csig.mk _1 _2 ) -# 5491 "parsing/parser.ml" +# 962 "parsing/parser.mly" + ( extra_csig _startpos _endpos _1 ) +# 5357 "parsing/parser.ml" in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + +# 2135 "parsing/parser.mly" + ( Csig.mk _1 _2 ) +# 5363 "parsing/parser.ml" + + in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 5499 "parsing/parser.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2129 "parsing/parser.mly" - ( mkcty ~loc:_sloc ~attrs:_2 (Pcty_signature _3) ) -# 5508 "parsing/parser.ml" - : (Parsetree.class_type)) +# 5371 "parsing/parser.ml" + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2113 "parsing/parser.mly" + ( mkcty ~loc:_sloc ~attrs:_2 (Pcty_signature _3) ) +# 5380 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5555,53 +5426,51 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _3 = - let _1 = _1_inlined2 in - let _2 = - let _1 = - let _1 = -# 257 "" + let _v : (Parsetree.class_type) = let _3 = + let _1 = _1_inlined2 in + let _2 = + let _1 = + let _1 = +# 260 "" ( List.flatten xss ) -# 5567 "parsing/parser.ml" - in - -# 2161 "parsing/parser.mly" - ( _1 ) -# 5572 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in +# 5437 "parsing/parser.ml" + in -# 978 "parsing/parser.mly" - ( extra_csig _startpos _endpos _1 ) -# 5581 "parsing/parser.ml" +# 2145 "parsing/parser.mly" + ( _1 ) +# 5442 "parsing/parser.ml" in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in -# 2151 "parsing/parser.mly" - ( Csig.mk _1 _2 ) -# 5587 "parsing/parser.ml" +# 962 "parsing/parser.mly" + ( extra_csig _startpos _endpos _1 ) +# 5451 "parsing/parser.ml" in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + +# 2135 "parsing/parser.mly" + ( Csig.mk _1 _2 ) +# 5457 "parsing/parser.ml" + + in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 5595 "parsing/parser.ml" - - in - let _loc__4_ = (_startpos__4_, _endpos__4_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 2131 "parsing/parser.mly" - ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 5603 "parsing/parser.ml" - : (Parsetree.class_type)) +# 5465 "parsing/parser.ml" + in + let _loc__4_ = (_startpos__4_, _endpos__4_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 2115 "parsing/parser.mly" + ( unclosed "object" _loc__1_ "end" _loc__4_ ) +# 5473 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5630,9 +5499,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_type) = -# 2133 "parsing/parser.mly" +# 2117 "parsing/parser.mly" ( Cty.attr _1 _2 ) -# 5636 "parsing/parser.ml" +# 5505 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5689,43 +5558,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _5 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.class_type) = let _5 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5702 "parsing/parser.ml" - - in - let _endpos__5_ = _endpos__1_inlined2_ in - let _4 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 5570 "parsing/parser.ml" + + in + let _endpos__5_ = _endpos__1_inlined2_ in + let _4 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 5711 "parsing/parser.ml" - - in - let _3 = -# 3977 "parsing/parser.mly" +# 5579 "parsing/parser.ml" + + in + let _3 = +# 3961 "parsing/parser.mly" ( Fresh ) -# 5717 "parsing/parser.ml" - in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2135 "parsing/parser.mly" +# 5585 "parsing/parser.ml" + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2119 "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)) ) -# 5727 "parsing/parser.ml" - : (Parsetree.class_type)) - in +# 5595 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5788,43 +5655,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _5 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.class_type) = let _5 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5801 "parsing/parser.ml" - - in - let _endpos__5_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - -# 4077 "parsing/parser.mly" +# 5667 "parsing/parser.ml" + + in + let _endpos__5_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 5810 "parsing/parser.ml" - - in - let _3 = -# 3978 "parsing/parser.mly" +# 5676 "parsing/parser.ml" + + in + let _3 = +# 3962 "parsing/parser.mly" ( Override ) -# 5816 "parsing/parser.ml" - in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2135 "parsing/parser.mly" +# 5682 "parsing/parser.ml" + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2119 "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)) ) -# 5826 "parsing/parser.ml" - : (Parsetree.class_type)) - in +# 5692 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5860,9 +5725,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.class_expr) = -# 1995 "parsing/parser.mly" +# 1979 "parsing/parser.mly" ( _2 ) -# 5866 "parsing/parser.ml" +# 5731 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5898,15 +5763,13 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 1997 "parsing/parser.mly" + let _v : (Parsetree.class_expr) = let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1981 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 5908 "parsing/parser.ml" - : (Parsetree.class_expr)) - in +# 5772 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5927,52 +5790,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.class_expr) = let _1 = let _1 = - let _1 = - let cid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let cid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5941 "parsing/parser.ml" - - in - let tys = - let tys = -# 2141 "parsing/parser.mly" +# 5803 "parsing/parser.ml" + + in + let tys = + let tys = +# 2125 "parsing/parser.mly" ( [] ) -# 5948 "parsing/parser.ml" - in - -# 2147 "parsing/parser.mly" - ( tys ) -# 5953 "parsing/parser.ml" - - in +# 5810 "parsing/parser.ml" + in -# 2000 "parsing/parser.mly" - ( Pcl_constr(cid, tys) ) -# 5959 "parsing/parser.ml" +# 2131 "parsing/parser.mly" + ( tys ) +# 5815 "parsing/parser.ml" in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1036 "parsing/parser.mly" - ( mkclass ~loc:_sloc _1 ) -# 5968 "parsing/parser.ml" +# 1984 "parsing/parser.mly" + ( Pcl_constr(cid, tys) ) +# 5821 "parsing/parser.ml" in - ( -# 2007 "parsing/parser.mly" - ( _1 ) -# 5974 "parsing/parser.ml" - : (Parsetree.class_expr)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1020 "parsing/parser.mly" + ( mkclass ~loc:_sloc _1 ) +# 5830 "parsing/parser.ml" + in + +# 1991 "parsing/parser.mly" + ( _1 ) +# 5836 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6014,68 +5875,66 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.class_expr) = let _1 = let _1 = - let _1 = - let cid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let cid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 6029 "parsing/parser.ml" - - in +# 5889 "parsing/parser.ml" + + in + let tys = let tys = - let tys = - let params = - let xs = -# 250 "" + let params = + let xs = +# 253 "" ( List.rev xs ) -# 6038 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" - ( xs ) -# 6043 "parsing/parser.ml" - - in +# 5898 "parsing/parser.ml" + in -# 2143 "parsing/parser.mly" - ( params ) -# 6049 "parsing/parser.ml" +# 1101 "parsing/parser.mly" + ( xs ) +# 5903 "parsing/parser.ml" in -# 2147 "parsing/parser.mly" - ( tys ) -# 6055 "parsing/parser.ml" +# 2127 "parsing/parser.mly" + ( params ) +# 5909 "parsing/parser.ml" in -# 2000 "parsing/parser.mly" - ( Pcl_constr(cid, tys) ) -# 6061 "parsing/parser.ml" +# 2131 "parsing/parser.mly" + ( tys ) +# 5915 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1036 "parsing/parser.mly" - ( mkclass ~loc:_sloc _1 ) -# 6071 "parsing/parser.ml" +# 1984 "parsing/parser.mly" + ( Pcl_constr(cid, tys) ) +# 5921 "parsing/parser.ml" in - ( -# 2007 "parsing/parser.mly" - ( _1 ) -# 6077 "parsing/parser.ml" - : (Parsetree.class_expr)) + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1020 "parsing/parser.mly" + ( mkclass ~loc:_sloc _1 ) +# 5931 "parsing/parser.ml" + in + +# 1991 "parsing/parser.mly" + ( _1 ) +# 5937 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6124,71 +5983,69 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = + let _v : (Parsetree.class_expr) = let _1 = let _1 = - let _1 = - let _3 = - let _1 = _1_inlined2 in - let _2 = - let _1 = - let _1 = -# 257 "" + let _3 = + let _1 = _1_inlined2 in + let _2 = + let _1 = + let _1 = +# 260 "" ( List.flatten xss ) -# 6138 "parsing/parser.ml" - in - -# 2034 "parsing/parser.mly" - ( _1 ) -# 6143 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in +# 5996 "parsing/parser.ml" + in -# 977 "parsing/parser.mly" - ( extra_cstr _startpos _endpos _1 ) -# 6152 "parsing/parser.ml" +# 2018 "parsing/parser.mly" + ( _1 ) +# 6001 "parsing/parser.ml" in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in -# 2021 "parsing/parser.mly" - ( Cstr.mk _1 _2 ) -# 6158 "parsing/parser.ml" - - in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 6166 "parsing/parser.ml" +# 961 "parsing/parser.mly" + ( extra_cstr _startpos _endpos _1 ) +# 6010 "parsing/parser.ml" in - let _loc__4_ = (_startpos__4_, _endpos__4_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2002 "parsing/parser.mly" - ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 6174 "parsing/parser.ml" +# 2005 "parsing/parser.mly" + ( Cstr.mk _1 _2 ) +# 6016 "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 _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 6024 "parsing/parser.ml" + + in + let _loc__4_ = (_startpos__4_, _endpos__4_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1036 "parsing/parser.mly" - ( mkclass ~loc:_sloc _1 ) -# 6184 "parsing/parser.ml" +# 1986 "parsing/parser.mly" + ( unclosed "object" _loc__1_ "end" _loc__4_ ) +# 6032 "parsing/parser.ml" in - ( -# 2007 "parsing/parser.mly" - ( _1 ) -# 6190 "parsing/parser.ml" - : (Parsetree.class_expr)) + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1020 "parsing/parser.mly" + ( mkclass ~loc:_sloc _1 ) +# 6042 "parsing/parser.ml" + in + +# 1991 "parsing/parser.mly" + ( _1 ) +# 6048 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6237,29 +6094,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let _1 = -# 2004 "parsing/parser.mly" + let _v : (Parsetree.class_expr) = let _1 = + let _1 = +# 1988 "parsing/parser.mly" ( Pcl_constraint(_2, _4) ) -# 6246 "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 - -# 1036 "parsing/parser.mly" +# 6102 "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 + +# 1020 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6255 "parsing/parser.ml" - - in - ( -# 2007 "parsing/parser.mly" - ( _1 ) -# 6261 "parsing/parser.ml" - : (Parsetree.class_expr)) +# 6111 "parsing/parser.ml" + in + +# 1991 "parsing/parser.mly" + ( _1 ) +# 6117 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6308,33 +6163,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.class_expr) = let _1 = let _1 = - let _1 = - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2006 "parsing/parser.mly" - ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 6320 "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 _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1036 "parsing/parser.mly" - ( mkclass ~loc:_sloc _1 ) -# 6330 "parsing/parser.ml" +# 1990 "parsing/parser.mly" + ( unclosed "(" _loc__1_ ")" _loc__5_ ) +# 6174 "parsing/parser.ml" in - ( -# 2007 "parsing/parser.mly" - ( _1 ) -# 6336 "parsing/parser.ml" - : (Parsetree.class_expr)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1020 "parsing/parser.mly" + ( mkclass ~loc:_sloc _1 ) +# 6184 "parsing/parser.ml" + in + +# 1991 "parsing/parser.mly" + ( _1 ) +# 6190 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6383,54 +6236,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _3 = - let _1 = _1_inlined2 in - let _2 = - let _1 = - let _1 = -# 257 "" + let _v : (Parsetree.class_expr) = let _3 = + let _1 = _1_inlined2 in + let _2 = + let _1 = + let _1 = +# 260 "" ( List.flatten xss ) -# 6395 "parsing/parser.ml" - in - -# 2034 "parsing/parser.mly" - ( _1 ) -# 6400 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in +# 6247 "parsing/parser.ml" + in -# 977 "parsing/parser.mly" - ( extra_cstr _startpos _endpos _1 ) -# 6409 "parsing/parser.ml" +# 2018 "parsing/parser.mly" + ( _1 ) +# 6252 "parsing/parser.ml" in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in -# 2021 "parsing/parser.mly" - ( Cstr.mk _1 _2 ) -# 6415 "parsing/parser.ml" +# 961 "parsing/parser.mly" + ( extra_cstr _startpos _endpos _1 ) +# 6261 "parsing/parser.ml" in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + +# 2005 "parsing/parser.mly" + ( Cstr.mk _1 _2 ) +# 6267 "parsing/parser.ml" + + in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 6423 "parsing/parser.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2009 "parsing/parser.mly" - ( mkclass ~loc:_sloc ~attrs:_2 (Pcl_structure _3) ) -# 6432 "parsing/parser.ml" - : (Parsetree.class_expr)) +# 6275 "parsing/parser.ml" + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1993 "parsing/parser.mly" + ( mkclass ~loc:_sloc ~attrs:_2 (Pcl_structure _3) ) +# 6284 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6452,9 +6303,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_type) = -# 2112 "parsing/parser.mly" +# 2096 "parsing/parser.mly" ( _1 ) -# 6458 "parsing/parser.ml" +# 6309 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6497,36 +6348,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.class_type) = let _1 = let _1 = - let _1 = - let label = -# 3550 "parsing/parser.mly" + let label = +# 3534 "parsing/parser.mly" ( Optional label ) -# 6507 "parsing/parser.ml" - in - -# 2118 "parsing/parser.mly" - ( Pcty_arrow(label, domain, codomain) ) -# 6512 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 6357 "parsing/parser.ml" + in -# 1030 "parsing/parser.mly" - ( mkcty ~loc:_sloc _1 ) -# 6522 "parsing/parser.ml" +# 2102 "parsing/parser.mly" + ( Pcty_arrow(label, domain, codomain) ) +# 6362 "parsing/parser.ml" in - ( -# 2119 "parsing/parser.mly" - ( _1 ) -# 6528 "parsing/parser.ml" - : (Parsetree.class_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1014 "parsing/parser.mly" + ( mkcty ~loc:_sloc _1 ) +# 6372 "parsing/parser.ml" + in + +# 2103 "parsing/parser.mly" + ( _1 ) +# 6378 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6572,43 +6421,41 @@ module Tables = struct let domain : (Parsetree.core_type) = Obj.magic domain in let _2 : unit = Obj.magic _2 in let label : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 6578 "parsing/parser.ml" +# 6427 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.class_type) = let _1 = let _1 = - let _1 = - let label = -# 3552 "parsing/parser.mly" + let label = +# 3536 "parsing/parser.mly" ( Labelled label ) -# 6589 "parsing/parser.ml" - in - -# 2118 "parsing/parser.mly" - ( Pcty_arrow(label, domain, codomain) ) -# 6594 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 6437 "parsing/parser.ml" + in -# 1030 "parsing/parser.mly" - ( mkcty ~loc:_sloc _1 ) -# 6604 "parsing/parser.ml" +# 2102 "parsing/parser.mly" + ( Pcty_arrow(label, domain, codomain) ) +# 6442 "parsing/parser.ml" in - ( -# 2119 "parsing/parser.mly" - ( _1 ) -# 6610 "parsing/parser.ml" - : (Parsetree.class_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1014 "parsing/parser.mly" + ( mkcty ~loc:_sloc _1 ) +# 6452 "parsing/parser.ml" + in + +# 2103 "parsing/parser.mly" + ( _1 ) +# 6458 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6643,36 +6490,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_domain_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.class_type) = let _1 = let _1 = - let _1 = - let label = -# 3554 "parsing/parser.mly" + let label = +# 3538 "parsing/parser.mly" ( Nolabel ) -# 6653 "parsing/parser.ml" - in - -# 2118 "parsing/parser.mly" - ( Pcty_arrow(label, domain, codomain) ) -# 6658 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_domain_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 6499 "parsing/parser.ml" + in -# 1030 "parsing/parser.mly" - ( mkcty ~loc:_sloc _1 ) -# 6668 "parsing/parser.ml" +# 2102 "parsing/parser.mly" + ( Pcty_arrow(label, domain, codomain) ) +# 6504 "parsing/parser.ml" in - ( -# 2119 "parsing/parser.mly" - ( _1 ) -# 6674 "parsing/parser.ml" - : (Parsetree.class_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_domain_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1014 "parsing/parser.mly" + ( mkcty ~loc:_sloc _1 ) +# 6514 "parsing/parser.ml" + in + +# 2103 "parsing/parser.mly" + ( _1 ) +# 6520 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6754,9 +6599,9 @@ module Tables = struct let csig : (Parsetree.class_type) = Obj.magic csig in let _8 : unit = Obj.magic _8 in let _1_inlined2 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 6760 "parsing/parser.ml" +# 6605 "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 @@ -6767,42 +6612,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_bs_ in - let _v = - let _1 = - let a = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 6779 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 6791 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (string Asttypes.loc option * Parsetree.class_type_declaration list) = let _1 = + let a = + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 6799 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 6623 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2257 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 6635 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 6643 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2241 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -6810,21 +6654,20 @@ module Tables = struct ext, Ci.mk id csig ~virt ~params ~attrs ~loc ~docs ) -# 6814 "parsing/parser.ml" - - in - -# 1214 "parsing/parser.mly" - ( let (x, b) = a in x, b :: bs ) -# 6820 "parsing/parser.ml" +# 6658 "parsing/parser.ml" in - ( -# 2245 "parsing/parser.mly" - ( _1 ) -# 6826 "parsing/parser.ml" - : (string Asttypes.loc option * Parsetree.class_type_declaration list)) + +# 1198 "parsing/parser.mly" + ( let (x, b) = a in x, b :: bs ) +# 6664 "parsing/parser.ml" + in + +# 2229 "parsing/parser.mly" + ( _1 ) +# 6670 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6846,9 +6689,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3845 "parsing/parser.mly" +# 3829 "parsing/parser.mly" ( _1 ) -# 6852 "parsing/parser.ml" +# 6695 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6912,28 +6755,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _1 = - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 6923 "parsing/parser.ml" - - in + let _v : (Extensions.comprehension_clause) = let _1 = + let _2 = + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 6929 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 6765 "parsing/parser.ml" in - ( -# 2501 "parsing/parser.mly" - ( Extensions.From_to(_2, _4, _6, _5) ) -# 6935 "parsing/parser.ml" - : (Extensions.comprehension_clause)) + +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 6771 "parsing/parser.ml" + in + +# 2485 "parsing/parser.mly" + ( Extensions.From_to(_2, _4, _6, _5) ) +# 6777 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6982,28 +6823,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _1 = - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 6993 "parsing/parser.ml" - - in + let _v : (Extensions.comprehension_clause) = let _1 = + let _2 = + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 6999 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 6833 "parsing/parser.ml" in - ( -# 2502 "parsing/parser.mly" - ( Extensions.In(_2, _4) ) -# 7005 "parsing/parser.ml" - : (Extensions.comprehension_clause)) + +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 6839 "parsing/parser.ml" + in + +# 2486 "parsing/parser.mly" + ( Extensions.In(_2, _4) ) +# 6845 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7038,25 +6877,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _2 = - let xs = -# 250 "" + let _v : (Extensions.comprehension list) = let _2 = + let xs = +# 253 "" ( List.rev xs ) -# 7047 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" +# 6885 "parsing/parser.ml" + in + +# 1101 "parsing/parser.mly" ( xs ) -# 7052 "parsing/parser.ml" - - in - ( -# 2507 "parsing/parser.mly" - ( [({clauses= _2; guard=None} : Extensions.comprehension)] ) -# 7058 "parsing/parser.ml" - : (Extensions.comprehension list)) +# 6890 "parsing/parser.ml" + in + +# 2491 "parsing/parser.mly" + ( [({clauses= _2; guard=None} : Extensions.comprehension)] ) +# 6896 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7105,25 +6942,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _2 = - let xs = -# 250 "" + let _v : (Extensions.comprehension list) = let _2 = + let xs = +# 253 "" ( List.rev xs ) -# 7114 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" +# 6950 "parsing/parser.ml" + in + +# 1101 "parsing/parser.mly" ( xs ) -# 7119 "parsing/parser.ml" - - in - ( -# 2509 "parsing/parser.mly" - ( [({clauses= _2; guard= Some _4} : Extensions.comprehension)] ) -# 7125 "parsing/parser.ml" - : (Extensions.comprehension list)) +# 6955 "parsing/parser.ml" + in + +# 2493 "parsing/parser.mly" + ( [({clauses= _2; guard= Some _4} : Extensions.comprehension)] ) +# 6961 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7158,25 +6993,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _2 = - let xs = -# 250 "" + let _v : (Extensions.comprehension list) = let _2 = + let xs = +# 253 "" ( List.rev xs ) -# 7167 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" +# 7001 "parsing/parser.ml" + in + +# 1101 "parsing/parser.mly" ( xs ) -# 7172 "parsing/parser.ml" - - in - ( -# 2511 "parsing/parser.mly" - ( ({clauses= _2; guard=None} : Extensions.comprehension) :: _3 ) -# 7178 "parsing/parser.ml" - : (Extensions.comprehension list)) +# 7006 "parsing/parser.ml" + in + +# 2495 "parsing/parser.mly" + ( ({clauses= _2; guard=None} : Extensions.comprehension) :: _3 ) +# 7012 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7225,25 +7058,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _2 = - let xs = -# 250 "" + let _v : (Extensions.comprehension list) = let _2 = + let xs = +# 253 "" ( List.rev xs ) -# 7234 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" +# 7066 "parsing/parser.ml" + in + +# 1101 "parsing/parser.mly" ( xs ) -# 7239 "parsing/parser.ml" - - in - ( -# 2513 "parsing/parser.mly" - ( ({clauses= _2; guard= Some _4}: Extensions.comprehension) :: _5 ) -# 7245 "parsing/parser.ml" - : (Extensions.comprehension list)) +# 7071 "parsing/parser.ml" + in + +# 2497 "parsing/parser.mly" + ( ({clauses= _2; guard= Some _4}: Extensions.comprehension) :: _5 ) +# 7077 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7278,25 +7109,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _2 = - let xs = -# 250 "" + let _v : (Extensions.comprehension list) = let _2 = + let xs = +# 253 "" ( List.rev xs ) -# 7287 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" +# 7117 "parsing/parser.ml" + in + +# 1101 "parsing/parser.mly" ( xs ) -# 7292 "parsing/parser.ml" - - in - ( -# 2507 "parsing/parser.mly" - ( [({clauses= _2; guard=None} : Extensions.comprehension)] ) -# 7298 "parsing/parser.ml" - : (Extensions.comprehension list)) +# 7122 "parsing/parser.ml" + in + +# 2491 "parsing/parser.mly" + ( [({clauses= _2; guard=None} : Extensions.comprehension)] ) +# 7128 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7345,25 +7174,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _2 = - let xs = -# 250 "" + let _v : (Extensions.comprehension list) = let _2 = + let xs = +# 253 "" ( List.rev xs ) -# 7354 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" +# 7182 "parsing/parser.ml" + in + +# 1101 "parsing/parser.mly" ( xs ) -# 7359 "parsing/parser.ml" - - in - ( -# 2509 "parsing/parser.mly" - ( [({clauses= _2; guard= Some _4} : Extensions.comprehension)] ) -# 7365 "parsing/parser.ml" - : (Extensions.comprehension list)) +# 7187 "parsing/parser.ml" + in + +# 2493 "parsing/parser.mly" + ( [({clauses= _2; guard= Some _4} : Extensions.comprehension)] ) +# 7193 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7398,25 +7225,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _2 = - let xs = -# 250 "" + let _v : (Extensions.comprehension list) = let _2 = + let xs = +# 253 "" ( List.rev xs ) -# 7407 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" +# 7233 "parsing/parser.ml" + in + +# 1101 "parsing/parser.mly" ( xs ) -# 7412 "parsing/parser.ml" - - in - ( -# 2511 "parsing/parser.mly" - ( ({clauses= _2; guard=None} : Extensions.comprehension) :: _3 ) -# 7418 "parsing/parser.ml" - : (Extensions.comprehension list)) +# 7238 "parsing/parser.ml" + in + +# 2495 "parsing/parser.mly" + ( ({clauses= _2; guard=None} : Extensions.comprehension) :: _3 ) +# 7244 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7465,25 +7290,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _2 = - let xs = -# 250 "" + let _v : (Extensions.comprehension list) = let _2 = + let xs = +# 253 "" ( List.rev xs ) -# 7474 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" +# 7298 "parsing/parser.ml" + in + +# 1101 "parsing/parser.mly" ( xs ) -# 7479 "parsing/parser.ml" - - in - ( -# 2513 "parsing/parser.mly" - ( ({clauses= _2; guard= Some _4}: Extensions.comprehension) :: _5 ) -# 7485 "parsing/parser.ml" - : (Extensions.comprehension list)) +# 7303 "parsing/parser.ml" + in + +# 2497 "parsing/parser.mly" + ( ({clauses= _2; guard= Some _4}: Extensions.comprehension) :: _5 ) +# 7309 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7501,17 +7324,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 783 "parsing/parser.mly" +# 767 "parsing/parser.mly" (string * char option) -# 7507 "parsing/parser.ml" +# 7330 "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) = -# 3728 "parsing/parser.mly" +# 3712 "parsing/parser.mly" ( let (n, m) = _1 in Pconst_integer (n, m) ) -# 7515 "parsing/parser.ml" +# 7338 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7530,17 +7353,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 741 "parsing/parser.mly" +# 725 "parsing/parser.mly" (char) -# 7536 "parsing/parser.ml" +# 7359 "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) = -# 3729 "parsing/parser.mly" +# 3713 "parsing/parser.mly" ( Pconst_char _1 ) -# 7544 "parsing/parser.ml" +# 7367 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7559,17 +7382,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 837 "parsing/parser.mly" +# 821 "parsing/parser.mly" (string * Location.t * string option) -# 7565 "parsing/parser.ml" +# 7388 "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) = -# 3730 "parsing/parser.mly" +# 3714 "parsing/parser.mly" ( let (s, strloc, d) = _1 in Pconst_string (s, strloc, d) ) -# 7573 "parsing/parser.ml" +# 7396 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7588,17 +7411,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 761 "parsing/parser.mly" +# 745 "parsing/parser.mly" (string * char option) -# 7594 "parsing/parser.ml" +# 7417 "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) = -# 3731 "parsing/parser.mly" +# 3715 "parsing/parser.mly" ( let (f, m) = _1 in Pconst_float (f, m) ) -# 7602 "parsing/parser.ml" +# 7425 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7628,9 +7451,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 3802 "parsing/parser.mly" +# 3786 "parsing/parser.mly" ( "[]" ) -# 7634 "parsing/parser.ml" +# 7457 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7660,9 +7483,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 3803 "parsing/parser.mly" +# 3787 "parsing/parser.mly" ( "()" ) -# 7666 "parsing/parser.ml" +# 7489 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7685,9 +7508,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3804 "parsing/parser.mly" +# 3788 "parsing/parser.mly" ( "false" ) -# 7691 "parsing/parser.ml" +# 7514 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7710,9 +7533,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3805 "parsing/parser.mly" +# 3789 "parsing/parser.mly" ( "true" ) -# 7716 "parsing/parser.ml" +# 7539 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7731,17 +7554,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 850 "parsing/parser.mly" +# 834 "parsing/parser.mly" (string) -# 7737 "parsing/parser.ml" +# 7560 "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) = -# 3808 "parsing/parser.mly" +# 3792 "parsing/parser.mly" ( _1 ) -# 7745 "parsing/parser.ml" +# 7568 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7777,18 +7600,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = -# 3799 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3783 "parsing/parser.mly" ( "::" ) -# 7785 "parsing/parser.ml" - in - ( -# 3809 "parsing/parser.mly" +# 7607 "parsing/parser.ml" + in + +# 3793 "parsing/parser.mly" ( _1 ) -# 7790 "parsing/parser.ml" - : (Asttypes.label)) - in +# 7612 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7810,9 +7631,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3810 "parsing/parser.mly" +# 3794 "parsing/parser.mly" ( _1 ) -# 7816 "parsing/parser.ml" +# 7637 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7835,9 +7656,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3813 "parsing/parser.mly" +# 3797 "parsing/parser.mly" ( _1 ) -# 7841 "parsing/parser.ml" +# 7662 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7887,18 +7708,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _3 = -# 3799 "parsing/parser.mly" + let _v : (Longident.t) = let _3 = +# 3783 "parsing/parser.mly" ( "::" ) -# 7895 "parsing/parser.ml" - in - ( -# 3814 "parsing/parser.mly" +# 7715 "parsing/parser.ml" + in + +# 3798 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 7900 "parsing/parser.ml" - : (Longident.t)) - in +# 7720 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7933,18 +7752,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = -# 3799 "parsing/parser.mly" + let _v : (Longident.t) = let _1 = +# 3783 "parsing/parser.mly" ( "::" ) -# 7941 "parsing/parser.ml" - in - ( -# 3815 "parsing/parser.mly" +# 7759 "parsing/parser.ml" + in + +# 3799 "parsing/parser.mly" ( Lident _1 ) -# 7946 "parsing/parser.ml" - : (Longident.t)) - in +# 7764 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7966,9 +7783,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3816 "parsing/parser.mly" +# 3800 "parsing/parser.mly" ( Lident _1 ) -# 7972 "parsing/parser.ml" +# 7789 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8005,9 +7822,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type * Parsetree.core_type) = -# 2201 "parsing/parser.mly" +# 2185 "parsing/parser.mly" ( _1, _3 ) -# 8011 "parsing/parser.ml" +# 7828 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8029,50 +7846,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_cty_ in let _endpos = _endpos_cty_ in - let _v = - let tys = + let _v : (Parsetree.constructor_arguments) = let tys = + let xs = let xs = - let xs = - let x = - let gbl = -# 3933 "parsing/parser.mly" + let x = + let gbl = +# 3917 "parsing/parser.mly" ( Nothing ) -# 8041 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 7857 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 8050 "parsing/parser.ml" - - in - -# 1101 "parsing/parser.mly" - ( [ x ] ) -# 8056 "parsing/parser.ml" +# 7866 "parsing/parser.ml" in -# 250 "" - ( List.rev xs ) -# 8062 "parsing/parser.ml" +# 1085 "parsing/parser.mly" + ( [ x ] ) +# 7872 "parsing/parser.ml" in -# 1121 "parsing/parser.mly" - ( xs ) -# 8068 "parsing/parser.ml" +# 253 "" + ( List.rev xs ) +# 7878 "parsing/parser.ml" in - ( -# 3326 "parsing/parser.mly" - ( Pcstr_tuple tys ) -# 8074 "parsing/parser.ml" - : (Parsetree.constructor_arguments)) + +# 1105 "parsing/parser.mly" + ( xs ) +# 7884 "parsing/parser.ml" + in + +# 3310 "parsing/parser.mly" + ( Pcstr_tuple tys ) +# 7890 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8100,50 +7915,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_cty_ in - let _v = - let tys = + let _v : (Parsetree.constructor_arguments) = let tys = + let xs = let xs = - let xs = - let x = - let gbl = -# 3934 "parsing/parser.mly" + let x = + let gbl = +# 3918 "parsing/parser.mly" ( Global ) -# 8112 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 7926 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 8121 "parsing/parser.ml" - - in - -# 1101 "parsing/parser.mly" - ( [ x ] ) -# 8127 "parsing/parser.ml" +# 7935 "parsing/parser.ml" in -# 250 "" - ( List.rev xs ) -# 8133 "parsing/parser.ml" +# 1085 "parsing/parser.mly" + ( [ x ] ) +# 7941 "parsing/parser.ml" in -# 1121 "parsing/parser.mly" - ( xs ) -# 8139 "parsing/parser.ml" +# 253 "" + ( List.rev xs ) +# 7947 "parsing/parser.ml" in - ( -# 3326 "parsing/parser.mly" - ( Pcstr_tuple tys ) -# 8145 "parsing/parser.ml" - : (Parsetree.constructor_arguments)) + +# 1105 "parsing/parser.mly" + ( xs ) +# 7953 "parsing/parser.ml" + in + +# 3310 "parsing/parser.mly" + ( Pcstr_tuple tys ) +# 7959 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8171,50 +7984,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_cty_ in - let _v = - let tys = + let _v : (Parsetree.constructor_arguments) = let tys = + let xs = let xs = - let xs = - let x = - let gbl = -# 3935 "parsing/parser.mly" + let x = + let gbl = +# 3919 "parsing/parser.mly" ( Nonlocal ) -# 8183 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 7995 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 8192 "parsing/parser.ml" - - in - -# 1101 "parsing/parser.mly" - ( [ x ] ) -# 8198 "parsing/parser.ml" +# 8004 "parsing/parser.ml" in -# 250 "" - ( List.rev xs ) -# 8204 "parsing/parser.ml" +# 1085 "parsing/parser.mly" + ( [ x ] ) +# 8010 "parsing/parser.ml" in -# 1121 "parsing/parser.mly" - ( xs ) -# 8210 "parsing/parser.ml" +# 253 "" + ( List.rev xs ) +# 8016 "parsing/parser.ml" in - ( -# 3326 "parsing/parser.mly" - ( Pcstr_tuple tys ) -# 8216 "parsing/parser.ml" - : (Parsetree.constructor_arguments)) + +# 1105 "parsing/parser.mly" + ( xs ) +# 8022 "parsing/parser.ml" + in + +# 3310 "parsing/parser.mly" + ( Pcstr_tuple tys ) +# 8028 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8249,51 +8060,49 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_cty_ in - let _v = - let tys = + let _v : (Parsetree.constructor_arguments) = let tys = + let xs = let xs = - let xs = - let x = - let _endpos__0_ = _endpos__2_ in - let gbl = -# 3933 "parsing/parser.mly" + let x = + let _endpos__0_ = _endpos__2_ in + let gbl = +# 3917 "parsing/parser.mly" ( Nothing ) -# 8262 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 8072 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 8271 "parsing/parser.ml" - - in - -# 1105 "parsing/parser.mly" - ( x :: xs ) -# 8277 "parsing/parser.ml" +# 8081 "parsing/parser.ml" in -# 250 "" - ( List.rev xs ) -# 8283 "parsing/parser.ml" +# 1089 "parsing/parser.mly" + ( x :: xs ) +# 8087 "parsing/parser.ml" in -# 1121 "parsing/parser.mly" - ( xs ) -# 8289 "parsing/parser.ml" +# 253 "" + ( List.rev xs ) +# 8093 "parsing/parser.ml" in - ( -# 3326 "parsing/parser.mly" - ( Pcstr_tuple tys ) -# 8295 "parsing/parser.ml" - : (Parsetree.constructor_arguments)) + +# 1105 "parsing/parser.mly" + ( xs ) +# 8099 "parsing/parser.ml" + in + +# 3310 "parsing/parser.mly" + ( Pcstr_tuple tys ) +# 8105 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8335,50 +8144,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_cty_ in - let _v = - let tys = + let _v : (Parsetree.constructor_arguments) = let tys = + let xs = let xs = - let xs = - let x = - let gbl = -# 3934 "parsing/parser.mly" + let x = + let gbl = +# 3918 "parsing/parser.mly" ( Global ) -# 8347 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 8155 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 8356 "parsing/parser.ml" - - in - -# 1105 "parsing/parser.mly" - ( x :: xs ) -# 8362 "parsing/parser.ml" +# 8164 "parsing/parser.ml" in -# 250 "" - ( List.rev xs ) -# 8368 "parsing/parser.ml" +# 1089 "parsing/parser.mly" + ( x :: xs ) +# 8170 "parsing/parser.ml" in -# 1121 "parsing/parser.mly" - ( xs ) -# 8374 "parsing/parser.ml" +# 253 "" + ( List.rev xs ) +# 8176 "parsing/parser.ml" in - ( -# 3326 "parsing/parser.mly" - ( Pcstr_tuple tys ) -# 8380 "parsing/parser.ml" - : (Parsetree.constructor_arguments)) + +# 1105 "parsing/parser.mly" + ( xs ) +# 8182 "parsing/parser.ml" + in + +# 3310 "parsing/parser.mly" + ( Pcstr_tuple tys ) +# 8188 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8420,50 +8227,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_cty_ in - let _v = - let tys = + let _v : (Parsetree.constructor_arguments) = let tys = + let xs = let xs = - let xs = - let x = - let gbl = -# 3935 "parsing/parser.mly" + let x = + let gbl = +# 3919 "parsing/parser.mly" ( Nonlocal ) -# 8432 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 8238 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 8441 "parsing/parser.ml" - - in - -# 1105 "parsing/parser.mly" - ( x :: xs ) -# 8447 "parsing/parser.ml" +# 8247 "parsing/parser.ml" in -# 250 "" - ( List.rev xs ) -# 8453 "parsing/parser.ml" +# 1089 "parsing/parser.mly" + ( x :: xs ) +# 8253 "parsing/parser.ml" in -# 1121 "parsing/parser.mly" - ( xs ) -# 8459 "parsing/parser.ml" +# 253 "" + ( List.rev xs ) +# 8259 "parsing/parser.ml" in - ( -# 3326 "parsing/parser.mly" - ( Pcstr_tuple tys ) -# 8465 "parsing/parser.ml" - : (Parsetree.constructor_arguments)) + +# 1105 "parsing/parser.mly" + ( xs ) +# 8265 "parsing/parser.ml" + in + +# 3310 "parsing/parser.mly" + ( Pcstr_tuple tys ) +# 8271 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8499,9 +8304,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.constructor_arguments) = -# 3328 "parsing/parser.mly" +# 3312 "parsing/parser.mly" ( Pcstr_record _2 ) -# 8505 "parsing/parser.ml" +# 8310 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8524,9 +8329,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constructor_declaration list) = -# 3236 "parsing/parser.mly" +# 3220 "parsing/parser.mly" ( [] ) -# 8530 "parsing/parser.ml" +# 8335 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8548,18 +8353,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in - let _v = - let cs = -# 1206 "parsing/parser.mly" + let _v : (Parsetree.constructor_declaration list) = let cs = +# 1190 "parsing/parser.mly" ( List.rev xs ) -# 8556 "parsing/parser.ml" - in - ( -# 3238 "parsing/parser.mly" +# 8360 "parsing/parser.ml" + in + +# 3222 "parsing/parser.mly" ( cs ) -# 8561 "parsing/parser.ml" - : (Parsetree.constructor_declaration list)) - in +# 8365 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8580,18 +8383,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3492 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = +# 3476 "parsing/parser.mly" ( _1 ) -# 8588 "parsing/parser.ml" - in - ( -# 3482 "parsing/parser.mly" +# 8390 "parsing/parser.ml" + in + +# 3466 "parsing/parser.mly" ( _1 ) -# 8593 "parsing/parser.ml" - : (Parsetree.core_type)) - in +# 8395 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8620,9 +8421,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = -# 3484 "parsing/parser.mly" +# 3468 "parsing/parser.mly" ( Typ.attr _1 _2 ) -# 8626 "parsing/parser.ml" +# 8427 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8645,9 +8446,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 3911 "parsing/parser.mly" +# 3895 "parsing/parser.mly" ( Upto ) -# 8651 "parsing/parser.ml" +# 8452 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8670,9 +8471,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 3912 "parsing/parser.mly" +# 3896 "parsing/parser.mly" ( Downto ) -# 8676 "parsing/parser.ml" +# 8477 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8695,9 +8496,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2373 "parsing/parser.mly" +# 2357 "parsing/parser.mly" ( _1 ) -# 8701 "parsing/parser.ml" +# 8502 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8768,52 +8569,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _1 = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 8782 "parsing/parser.ml" +# 8582 "parsing/parser.ml" + + in + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in - in - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( _1 ) -# 8792 "parsing/parser.ml" - - in - -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 8798 "parsing/parser.ml" +# 8592 "parsing/parser.ml" in -# 2408 "parsing/parser.mly" - ( Pexp_letmodule(_4, _5, _7), _3 ) -# 8804 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 8598 "parsing/parser.ml" in - let _endpos__1_ = _endpos__7_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2375 "parsing/parser.mly" + +# 2392 "parsing/parser.mly" + ( Pexp_letmodule(_4, _5, _7), _3 ) +# 8604 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos__7_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8815 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 8615 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8891,72 +8690,70 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _1 = - let _4 = - let (_endpos__1_inlined1_, _endpos__1_, _startpos__1_, _1_inlined1, _2, _1) = (_endpos__1_inlined4_, _endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined4, _2_inlined1, _1_inlined3) in - let _3 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _4 = + let (_endpos__1_inlined1_, _endpos__1_, _startpos__1_, _1_inlined1, _2, _1) = (_endpos__1_inlined4_, _endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined4, _2_inlined1, _1_inlined3) in + let _3 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 8904 "parsing/parser.ml" - - in - let _endpos__3_ = _endpos__1_inlined1_ in - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 8915 "parsing/parser.ml" - - in - let _endpos = _endpos__3_ in +# 8702 "parsing/parser.ml" + + in + let _endpos__3_ = _endpos__1_inlined1_ in + let _1 = + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3300 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 8713 "parsing/parser.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3284 "parsing/parser.mly" ( let vars, args, res = _2 in Te.decl _1 ~vars ~args ?res ~attrs:_3 ~loc:(make_loc _sloc) ) -# 8925 "parsing/parser.ml" +# 8723 "parsing/parser.ml" + + in + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in - in - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( _1 ) -# 8935 "parsing/parser.ml" - - in - -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 8941 "parsing/parser.ml" +# 8733 "parsing/parser.ml" in -# 2410 "parsing/parser.mly" - ( Pexp_letexception(_4, _6), _3 ) -# 8947 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 8739 "parsing/parser.ml" in - let _endpos__1_ = _endpos__6_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2375 "parsing/parser.mly" + +# 2394 "parsing/parser.mly" + ( Pexp_letexception(_4, _6), _3 ) +# 8745 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos__6_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8958 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 8756 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9019,48 +8816,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _1 = - let _4 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 9032 "parsing/parser.ml" - - in + let _v : (Parsetree.expression) = let _1 = + let _4 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 9038 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 8828 "parsing/parser.ml" in - let _3 = -# 3977 "parsing/parser.mly" - ( Fresh ) -# 9044 "parsing/parser.ml" - in -# 2412 "parsing/parser.mly" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 8834 "parsing/parser.ml" + + in + let _3 = +# 3961 "parsing/parser.mly" + ( Fresh ) +# 8840 "parsing/parser.ml" + in + +# 2396 "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 ) -# 9051 "parsing/parser.ml" - - in - let _endpos__1_ = _endpos__7_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2375 "parsing/parser.mly" +# 8847 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos__7_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9062 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 8858 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9130,48 +8925,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _1 = - let _4 = - let (_1_inlined1, _1) = (_1_inlined3, _1_inlined2) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 9143 "parsing/parser.ml" - - in + let _v : (Parsetree.expression) = let _1 = + let _4 = + let (_1_inlined1, _1) = (_1_inlined3, _1_inlined2) in + let _2 = + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 9149 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 8937 "parsing/parser.ml" in - let _3 = -# 3978 "parsing/parser.mly" - ( Override ) -# 9155 "parsing/parser.ml" - in -# 2412 "parsing/parser.mly" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 8943 "parsing/parser.ml" + + in + let _3 = +# 3962 "parsing/parser.mly" + ( Override ) +# 8949 "parsing/parser.ml" + in + +# 2396 "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 ) -# 9162 "parsing/parser.ml" - - in - let _endpos__1_ = _endpos__7_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2375 "parsing/parser.mly" +# 8956 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos__7_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9173 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 8967 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9213,60 +9006,58 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let _1 = - let _3 = - let xs = - let xs = -# 250 "" + let _v : (Parsetree.expression) = let _1 = + let _3 = + let xs = + let xs = +# 253 "" ( List.rev xs ) -# 9224 "parsing/parser.ml" - in - -# 1178 "parsing/parser.mly" - ( xs ) -# 9229 "parsing/parser.ml" - - in +# 9016 "parsing/parser.ml" + in -# 2783 "parsing/parser.mly" +# 1162 "parsing/parser.mly" ( xs ) -# 9235 "parsing/parser.ml" +# 9021 "parsing/parser.ml" in + +# 2767 "parsing/parser.mly" + ( xs ) +# 9027 "parsing/parser.ml" + + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 9245 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 9251 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 9037 "parsing/parser.ml" in -# 2416 "parsing/parser.mly" - ( Pexp_function _3, _2 ) -# 9257 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 9043 "parsing/parser.ml" in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2375 "parsing/parser.mly" + +# 2400 "parsing/parser.mly" + ( Pexp_function _3, _2 ) +# 9049 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9268 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 9060 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9315,42 +9106,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _1 = + let _v : (Parsetree.expression) = let _1 = + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 9328 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 9334 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 9118 "parsing/parser.ml" in -# 2418 "parsing/parser.mly" - ( let (l,o,p) = _3 in - Pexp_fun(l, o, p, _4), _2 ) -# 9341 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 9124 "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 - ( -# 2375 "parsing/parser.mly" + +# 2402 "parsing/parser.mly" + ( let (l,o,p) = _3 in + Pexp_fun(l, o, p, _4), _2 ) +# 9131 "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 + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9352 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 9142 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9420,49 +9209,47 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _1 = - let _5 = -# 2637 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _5 = +# 2621 "parsing/parser.mly" ( xs ) -# 9429 "parsing/parser.ml" - in +# 9217 "parsing/parser.ml" + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 9438 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 9444 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 9226 "parsing/parser.ml" in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 2421 "parsing/parser.mly" - ( (mk_newtypes ~loc:_sloc _5 _7).pexp_desc, _2 ) -# 9453 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 9232 "parsing/parser.ml" in - let _endpos__1_ = _endpos__7_ in - let _endpos = _endpos__1_ in + let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 2375 "parsing/parser.mly" + +# 2405 "parsing/parser.mly" + ( (mk_newtypes ~loc:_sloc _5 _7).pexp_desc, _2 ) +# 9241 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos__7_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9464 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 9252 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9518,60 +9305,58 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let _1 = - let _5 = - let xs = - let xs = -# 250 "" + let _v : (Parsetree.expression) = let _1 = + let _5 = + let xs = + let xs = +# 253 "" ( List.rev xs ) -# 9529 "parsing/parser.ml" - in - -# 1178 "parsing/parser.mly" - ( xs ) -# 9534 "parsing/parser.ml" - - in +# 9315 "parsing/parser.ml" + in -# 2783 "parsing/parser.mly" +# 1162 "parsing/parser.mly" ( xs ) -# 9540 "parsing/parser.ml" +# 9320 "parsing/parser.ml" in + +# 2767 "parsing/parser.mly" + ( xs ) +# 9326 "parsing/parser.ml" + + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 9550 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 9556 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 9336 "parsing/parser.ml" in -# 2423 "parsing/parser.mly" - ( Pexp_match(_3, _5), _2 ) -# 9562 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 9342 "parsing/parser.ml" in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2375 "parsing/parser.mly" + +# 2407 "parsing/parser.mly" + ( Pexp_match(_3, _5), _2 ) +# 9348 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9573 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 9359 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9627,60 +9412,58 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let _1 = - let _5 = - let xs = - let xs = -# 250 "" + let _v : (Parsetree.expression) = let _1 = + let _5 = + let xs = + let xs = +# 253 "" ( List.rev xs ) -# 9638 "parsing/parser.ml" - in - -# 1178 "parsing/parser.mly" - ( xs ) -# 9643 "parsing/parser.ml" - - in +# 9422 "parsing/parser.ml" + in -# 2783 "parsing/parser.mly" +# 1162 "parsing/parser.mly" ( xs ) -# 9649 "parsing/parser.ml" +# 9427 "parsing/parser.ml" in + +# 2767 "parsing/parser.mly" + ( xs ) +# 9433 "parsing/parser.ml" + + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 9659 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 9665 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 9443 "parsing/parser.ml" in -# 2425 "parsing/parser.mly" - ( Pexp_try(_3, _5), _2 ) -# 9671 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 9449 "parsing/parser.ml" in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2375 "parsing/parser.mly" + +# 2409 "parsing/parser.mly" + ( Pexp_try(_3, _5), _2 ) +# 9455 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9682 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 9466 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9736,41 +9519,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _1 = + let _v : (Parsetree.expression) = let _1 = + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 9749 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 9755 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 9531 "parsing/parser.ml" in -# 2427 "parsing/parser.mly" - ( syntax_error() ) -# 9761 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 9537 "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 - ( -# 2375 "parsing/parser.mly" + +# 2411 "parsing/parser.mly" + ( syntax_error() ) +# 9543 "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 + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9772 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 9554 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9840,41 +9621,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _1 = + let _v : (Parsetree.expression) = let _1 = + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 9853 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 9859 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 9633 "parsing/parser.ml" in -# 2429 "parsing/parser.mly" - ( Pexp_ifthenelse(_3, _5, Some _7), _2 ) -# 9865 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 9639 "parsing/parser.ml" in - let _endpos__1_ = _endpos__7_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2375 "parsing/parser.mly" + +# 2413 "parsing/parser.mly" + ( Pexp_ifthenelse(_3, _5, Some _7), _2 ) +# 9645 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos__7_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9876 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 9656 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9930,41 +9709,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _1 = + let _v : (Parsetree.expression) = let _1 = + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 9943 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 9949 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 9721 "parsing/parser.ml" in -# 2431 "parsing/parser.mly" - ( Pexp_ifthenelse(_3, _5, None), _2 ) -# 9955 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 9727 "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 - ( -# 2375 "parsing/parser.mly" + +# 2415 "parsing/parser.mly" + ( Pexp_ifthenelse(_3, _5, None), _2 ) +# 9733 "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 + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9966 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 9744 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10027,41 +9804,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _1 = + let _v : (Parsetree.expression) = let _1 = + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 10040 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 10046 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 9816 "parsing/parser.ml" in -# 2433 "parsing/parser.mly" - ( Pexp_while(_3, _5), _2 ) -# 10052 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 9822 "parsing/parser.ml" in - let _endpos__1_ = _endpos__6_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2375 "parsing/parser.mly" + +# 2417 "parsing/parser.mly" + ( Pexp_while(_3, _5), _2 ) +# 9828 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos__6_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 10063 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 9839 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10152,41 +9927,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__10_ in - let _v = - let _1 = + let _v : (Parsetree.expression) = let _1 = + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 10165 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 10171 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 9939 "parsing/parser.ml" in -# 2436 "parsing/parser.mly" - ( Pexp_for(_3, _5, _7, _6, _9), _2 ) -# 10177 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 9945 "parsing/parser.ml" in - let _endpos__1_ = _endpos__10_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2375 "parsing/parser.mly" + +# 2420 "parsing/parser.mly" + ( Pexp_for(_3, _5, _7, _6, _9), _2 ) +# 9951 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos__10_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 10188 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 9962 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10228,41 +10001,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = + let _v : (Parsetree.expression) = let _1 = + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 10241 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 10247 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 10013 "parsing/parser.ml" in -# 2438 "parsing/parser.mly" - ( Pexp_assert _3, _2 ) -# 10253 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 10019 "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 - ( -# 2375 "parsing/parser.mly" + +# 2422 "parsing/parser.mly" + ( Pexp_assert _3, _2 ) +# 10025 "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 + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 10264 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 10036 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10304,41 +10075,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = + let _v : (Parsetree.expression) = let _1 = + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 10317 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 10323 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 10087 "parsing/parser.ml" in -# 2440 "parsing/parser.mly" - ( Pexp_lazy _3, _2 ) -# 10329 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 10093 "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 - ( -# 2375 "parsing/parser.mly" + +# 2424 "parsing/parser.mly" + ( Pexp_lazy _3, _2 ) +# 10099 "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 + +# 2359 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 10340 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 10110 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10366,43 +10135,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _2 = - let xs = -# 250 "" + let _2 = + let xs = +# 253 "" ( List.rev xs ) -# 10377 "parsing/parser.ml" - in - -# 1085 "parsing/parser.mly" - ( xs ) -# 10382 "parsing/parser.ml" - - in +# 10145 "parsing/parser.ml" + in -# 2444 "parsing/parser.mly" - ( Pexp_apply(_1, _2) ) -# 10388 "parsing/parser.ml" +# 1069 "parsing/parser.mly" + ( xs ) +# 10150 "parsing/parser.ml" in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 10398 "parsing/parser.ml" +# 2428 "parsing/parser.mly" + ( Pexp_apply(_1, _2) ) +# 10156 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 10404 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10166 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 10172 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10423,112 +10190,108 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = let _1 = - let _1 = - let es = - let xs = -# 250 "" + let es = + let xs = +# 253 "" ( List.rev xs ) -# 10435 "parsing/parser.ml" - in - -# 1145 "parsing/parser.mly" - ( xs ) -# 10440 "parsing/parser.ml" - - in +# 10201 "parsing/parser.ml" + in -# 2810 "parsing/parser.mly" - ( es ) -# 10446 "parsing/parser.ml" +# 1129 "parsing/parser.mly" + ( xs ) +# 10206 "parsing/parser.ml" in -# 2446 "parsing/parser.mly" - ( Pexp_tuple(_1) ) -# 10452 "parsing/parser.ml" +# 2794 "parsing/parser.mly" + ( es ) +# 10212 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 10462 "parsing/parser.ml" +# 2430 "parsing/parser.mly" + ( Pexp_tuple(_1) ) +# 10218 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10228 "parsing/parser.ml" + + in + +# 2362 "parsing/parser.mly" ( _1 ) -# 10468 "parsing/parser.ml" - : (Parsetree.expression)) - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - } = _menhir_stack in - let _2 : (Parsetree.expression) = Obj.magic _2 in - let _1 : (Longident.t) = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__2_ in - let _v = - let _1 = - let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 10508 "parsing/parser.ml" - - in - -# 2448 "parsing/parser.mly" - ( Pexp_construct(_1, Some _2) ) -# 10514 "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 - -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 10524 "parsing/parser.ml" - - in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 10530 "parsing/parser.ml" - : (Parsetree.expression)) +# 10234 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + } = _menhir_stack in + let _2 : (Parsetree.expression) = Obj.magic _2 in + let _1 : (Longident.t) = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__2_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 10272 "parsing/parser.ml" + + in + +# 2432 "parsing/parser.mly" + ( Pexp_construct(_1, Some _2) ) +# 10278 "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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10288 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 10294 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10556,29 +10319,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = - let _1 = -# 2450 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _1 = +# 2434 "parsing/parser.mly" ( Pexp_variant(_1, Some _2) ) -# 10565 "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 - -# 1016 "parsing/parser.mly" +# 10327 "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 + +# 1000 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10574 "parsing/parser.ml" - - in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 10580 "parsing/parser.ml" - : (Parsetree.expression)) +# 10336 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 10342 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10609,55 +10370,53 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 773 "parsing/parser.mly" +# 757 "parsing/parser.mly" (string) -# 10615 "parsing/parser.ml" +# 10376 "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 = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3772 "parsing/parser.mly" + let op = + let _1 = +# 3756 "parsing/parser.mly" ( op ) -# 10628 "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 - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 10637 "parsing/parser.ml" - - in +# 10388 "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 -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 10643 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 10397 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 10653 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 10403 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 10659 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10413 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 10419 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10688,55 +10447,53 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 774 "parsing/parser.mly" +# 758 "parsing/parser.mly" (string) -# 10694 "parsing/parser.ml" +# 10453 "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 = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3773 "parsing/parser.mly" + let op = + let _1 = +# 3757 "parsing/parser.mly" ( op ) -# 10707 "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 - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 10716 "parsing/parser.ml" - - in +# 10465 "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 -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 10722 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 10474 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 10732 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 10480 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 10738 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10490 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 10496 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10767,55 +10524,53 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 775 "parsing/parser.mly" +# 759 "parsing/parser.mly" (string) -# 10773 "parsing/parser.ml" +# 10530 "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 = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3774 "parsing/parser.mly" + let op = + let _1 = +# 3758 "parsing/parser.mly" ( op ) -# 10786 "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 - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 10795 "parsing/parser.ml" - - in +# 10542 "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 -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 10801 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 10551 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 10811 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 10557 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 10817 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10567 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 10573 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10846,55 +10601,53 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 776 "parsing/parser.mly" +# 760 "parsing/parser.mly" (string) -# 10852 "parsing/parser.ml" +# 10607 "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 = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3775 "parsing/parser.mly" + let op = + let _1 = +# 3759 "parsing/parser.mly" ( op ) -# 10865 "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 - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 10874 "parsing/parser.ml" - - in +# 10619 "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 -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 10880 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 10628 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 10890 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 10634 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 10896 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10644 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 10650 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10925,55 +10678,53 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 777 "parsing/parser.mly" +# 761 "parsing/parser.mly" (string) -# 10931 "parsing/parser.ml" +# 10684 "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 = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3776 "parsing/parser.mly" + let op = + let _1 = +# 3760 "parsing/parser.mly" ( op ) -# 10944 "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 - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 10953 "parsing/parser.ml" - - in +# 10696 "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 -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 10959 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 10705 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 10969 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 10711 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 10975 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10721 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 10727 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11008,46 +10759,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3777 "parsing/parser.mly" + let op = + let _1 = +# 3761 "parsing/parser.mly" ("+") -# 11019 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11027 "parsing/parser.ml" - - in +# 10769 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11033 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 10777 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11043 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 10783 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11049 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10793 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 10799 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11082,46 +10831,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3778 "parsing/parser.mly" + let op = + let _1 = +# 3762 "parsing/parser.mly" ("+.") -# 11093 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11101 "parsing/parser.ml" - - in +# 10841 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11107 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 10849 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11117 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 10855 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11123 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10865 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 10871 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11156,46 +10903,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3779 "parsing/parser.mly" + let op = + let _1 = +# 3763 "parsing/parser.mly" ("+=") -# 11167 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11175 "parsing/parser.ml" - - in +# 10913 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11181 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 10921 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11191 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 10927 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11197 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 10937 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 10943 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11230,46 +10975,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3780 "parsing/parser.mly" + let op = + let _1 = +# 3764 "parsing/parser.mly" ("-") -# 11241 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11249 "parsing/parser.ml" - - in +# 10985 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11255 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 10993 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11265 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 10999 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11271 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11009 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11015 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11304,46 +11047,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3781 "parsing/parser.mly" + let op = + let _1 = +# 3765 "parsing/parser.mly" ("-.") -# 11315 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11323 "parsing/parser.ml" - - in +# 11057 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11329 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11065 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11339 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11071 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11345 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11081 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11087 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11378,46 +11119,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3782 "parsing/parser.mly" + let op = + let _1 = +# 3766 "parsing/parser.mly" ("*") -# 11389 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11397 "parsing/parser.ml" - - in +# 11129 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11403 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11137 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11413 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11143 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11419 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11153 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11159 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11452,46 +11191,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3783 "parsing/parser.mly" + let op = + let _1 = +# 3767 "parsing/parser.mly" ("%") -# 11463 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11471 "parsing/parser.ml" - - in +# 11201 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11477 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11209 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11487 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11215 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11493 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11225 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11231 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11526,46 +11263,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3784 "parsing/parser.mly" + let op = + let _1 = +# 3768 "parsing/parser.mly" ("=") -# 11537 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11545 "parsing/parser.ml" - - in +# 11273 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11551 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11281 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11561 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11287 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11567 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11297 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11303 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11600,46 +11335,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3785 "parsing/parser.mly" + let op = + let _1 = +# 3769 "parsing/parser.mly" ("<") -# 11611 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11619 "parsing/parser.ml" - - in +# 11345 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11625 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11353 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11635 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11359 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11641 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11369 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11375 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11674,46 +11407,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3786 "parsing/parser.mly" + let op = + let _1 = +# 3770 "parsing/parser.mly" (">") -# 11685 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11693 "parsing/parser.ml" - - in +# 11417 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11699 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11425 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11709 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11431 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11715 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11441 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11447 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11748,46 +11479,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3787 "parsing/parser.mly" + let op = + let _1 = +# 3771 "parsing/parser.mly" ("or") -# 11759 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11767 "parsing/parser.ml" - - in +# 11489 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11773 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11497 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11783 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11503 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11789 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11513 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11519 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11822,46 +11551,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3788 "parsing/parser.mly" + let op = + let _1 = +# 3772 "parsing/parser.mly" ("||") -# 11833 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11841 "parsing/parser.ml" - - in +# 11561 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11847 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11569 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11857 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11575 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11863 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11585 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11591 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11896,46 +11623,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3789 "parsing/parser.mly" + let op = + let _1 = +# 3773 "parsing/parser.mly" ("&") -# 11907 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11915 "parsing/parser.ml" - - in +# 11633 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11921 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11641 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 11931 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11647 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 11937 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11657 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11663 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11970,46 +11695,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3790 "parsing/parser.mly" + let op = + let _1 = +# 3774 "parsing/parser.mly" ("&&") -# 11981 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 11989 "parsing/parser.ml" - - in +# 11705 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 11995 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11713 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 12005 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11719 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 12011 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11729 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11735 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12044,46 +11767,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_e2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let op = - let _1 = -# 3791 "parsing/parser.mly" + let op = + let _1 = +# 3775 "parsing/parser.mly" (":=") -# 12055 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 12063 "parsing/parser.ml" - - in +# 11777 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2452 "parsing/parser.mly" - ( mkinfix e1 op e2 ) -# 12069 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 11785 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 12079 "parsing/parser.ml" +# 2436 "parsing/parser.mly" + ( mkinfix e1 op e2 ) +# 11791 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 12085 "parsing/parser.ml" - : (Parsetree.expression)) + 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 + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11801 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11807 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12111,32 +11832,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2454 "parsing/parser.mly" - ( mkuminus ~oploc:_loc__1_ _1 _2 ) -# 12122 "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 _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 12132 "parsing/parser.ml" +# 2438 "parsing/parser.mly" + ( mkuminus ~oploc:_loc__1_ _1 _2 ) +# 11842 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 12138 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11852 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11858 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12164,32 +11883,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2456 "parsing/parser.mly" - ( mkuplus ~oploc:_loc__1_ _1 _2 ) -# 12175 "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 _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 12185 "parsing/parser.ml" +# 2440 "parsing/parser.mly" + ( mkuplus ~oploc:_loc__1_ _1 _2 ) +# 11893 "parsing/parser.ml" in - ( -# 2378 "parsing/parser.mly" - ( _1 ) -# 12191 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 11903 "parsing/parser.ml" + in + +# 2362 "parsing/parser.mly" + ( _1 ) +# 11909 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12224,16 +11941,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2380 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2364 "parsing/parser.mly" ( expr_of_let_bindings ~loc:_sloc _1 _3 ) -# 12235 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 11951 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12272,38 +11987,36 @@ 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 : ( -# 779 "parsing/parser.mly" +# 763 "parsing/parser.mly" (string) -# 12278 "parsing/parser.ml" +# 11993 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_body_ in - let _v = - let pbop_op = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 12291 "parsing/parser.ml" - - in - let _startpos_pbop_op_ = _startpos__1_ in - let _endpos = _endpos_body_ in - let _symbolstartpos = _startpos_pbop_op_ in + let _v : (Parsetree.expression) = let pbop_op = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 2382 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 12005 "parsing/parser.ml" + + in + let _startpos_pbop_op_ = _startpos__1_ in + let _endpos = _endpos_body_ in + let _symbolstartpos = _startpos_pbop_op_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2366 "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}) ) -# 12305 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 12019 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12338,17 +12051,15 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _loc__2_ = (_startpos__2_, _endpos__2_) in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2388 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _loc__2_ = (_startpos__2_, _endpos__2_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 2372 "parsing/parser.mly" ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[_1;_3])) ) -# 12350 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 12062 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12380,38 +12091,36 @@ module Tables = struct let _3 : (Parsetree.expression) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 12386 "parsing/parser.ml" +# 12097 "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 = - let _1 = - let _1 = -# 3722 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 12396 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 12404 "parsing/parser.ml" - - in - let _endpos = _endpos__3_ in +# 12106 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 2390 "parsing/parser.mly" - ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) ) -# 12413 "parsing/parser.ml" - : (Parsetree.expression)) + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 12114 "parsing/parser.ml" + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2374 "parsing/parser.mly" + ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) ) +# 12123 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12460,27 +12169,25 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _3 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 12473 "parsing/parser.ml" - - in - let _endpos = _endpos__5_ in + let _v : (Parsetree.expression) = let _3 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 2392 "parsing/parser.mly" - ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) ) -# 12482 "parsing/parser.ml" - : (Parsetree.expression)) + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 12181 "parsing/parser.ml" + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2376 "parsing/parser.mly" + ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) ) +# 12190 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12543,29 +12250,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_v_ in - let _v = - let _1 = - let r = -# 2393 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2377 "parsing/parser.mly" (Some v) -# 12552 "parsing/parser.ml" - in - -# 2353 "parsing/parser.mly" +# 12258 "parsing/parser.ml" + in + +# 2337 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12557 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2394 "parsing/parser.mly" - ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12567 "parsing/parser.ml" - : (Parsetree.expression)) +# 12263 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2378 "parsing/parser.mly" + ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) +# 12273 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12628,29 +12333,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_v_ in - let _v = - let _1 = - let r = -# 2393 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2377 "parsing/parser.mly" (Some v) -# 12637 "parsing/parser.ml" - in - -# 2355 "parsing/parser.mly" +# 12341 "parsing/parser.ml" + in + +# 2339 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12642 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2394 "parsing/parser.mly" - ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12652 "parsing/parser.ml" - : (Parsetree.expression)) +# 12346 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2378 "parsing/parser.mly" + ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) +# 12356 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12713,29 +12416,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_v_ in - let _v = - let _1 = - let r = -# 2393 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2377 "parsing/parser.mly" (Some v) -# 12722 "parsing/parser.ml" - in - -# 2357 "parsing/parser.mly" +# 12424 "parsing/parser.ml" + in + +# 2341 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 12727 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2394 "parsing/parser.mly" - ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12737 "parsing/parser.ml" - : (Parsetree.expression)) +# 12429 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2378 "parsing/parser.mly" + ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) +# 12439 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12794,54 +12495,52 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 12800 "parsing/parser.ml" +# 12501 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_v_ in - let _v = - let _1 = - let r = -# 2395 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2379 "parsing/parser.mly" (Some v) -# 12811 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 12511 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 12816 "parsing/parser.ml" - in - let d = - let _1 = -# 121 "" +# 12516 "parsing/parser.ml" + in + let d = + let _1 = +# 124 "" ( None ) -# 12822 "parsing/parser.ml" - in - -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 12827 "parsing/parser.ml" - - in +# 12522 "parsing/parser.ml" + in # 2353 "parsing/parser.mly" - ( array, d, Paren, i, r ) -# 12833 "parsing/parser.ml" + ( _1, _2 ) +# 12527 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2396 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12843 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2337 "parsing/parser.mly" + ( array, d, Paren, i, r ) +# 12533 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2380 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 12543 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12912,9 +12611,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 12918 "parsing/parser.ml" +# 12617 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12922,54 +12621,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_v_ in - let _v = - let _1 = - let r = -# 2395 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2379 "parsing/parser.mly" (Some v) -# 12931 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 12629 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 12936 "parsing/parser.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = -# 2369 "parsing/parser.mly" +# 12634 "parsing/parser.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = +# 2353 "parsing/parser.mly" (_2) -# 12944 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 12949 "parsing/parser.ml" - - in +# 12642 "parsing/parser.ml" + in -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 12955 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 12647 "parsing/parser.ml" in # 2353 "parsing/parser.mly" - ( array, d, Paren, i, r ) -# 12961 "parsing/parser.ml" + ( _1, _2 ) +# 12653 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2396 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12971 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2337 "parsing/parser.mly" + ( array, d, Paren, i, r ) +# 12659 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2380 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 12669 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13028,54 +12725,52 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 13034 "parsing/parser.ml" +# 12731 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_v_ in - let _v = - let _1 = - let r = -# 2395 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2379 "parsing/parser.mly" (Some v) -# 13045 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 12741 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 13050 "parsing/parser.ml" - in - let d = - let _1 = -# 121 "" +# 12746 "parsing/parser.ml" + in + let d = + let _1 = +# 124 "" ( None ) -# 13056 "parsing/parser.ml" - in - -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 13061 "parsing/parser.ml" - - in +# 12752 "parsing/parser.ml" + in -# 2355 "parsing/parser.mly" - ( array, d, Brace, i, r ) -# 13067 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 12757 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2396 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 13077 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2339 "parsing/parser.mly" + ( array, d, Brace, i, r ) +# 12763 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2380 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 12773 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13146,9 +12841,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 13152 "parsing/parser.ml" +# 12847 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -13156,54 +12851,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_v_ in - let _v = - let _1 = - let r = -# 2395 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2379 "parsing/parser.mly" (Some v) -# 13165 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 12859 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 13170 "parsing/parser.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = -# 2369 "parsing/parser.mly" +# 12864 "parsing/parser.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = +# 2353 "parsing/parser.mly" (_2) -# 13178 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 13183 "parsing/parser.ml" - - in +# 12872 "parsing/parser.ml" + in -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 13189 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 12877 "parsing/parser.ml" in -# 2355 "parsing/parser.mly" - ( array, d, Brace, i, r ) -# 13195 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 12883 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2396 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 13205 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2339 "parsing/parser.mly" + ( array, d, Brace, i, r ) +# 12889 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2380 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 12899 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13262,54 +12955,52 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 13268 "parsing/parser.ml" +# 12961 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_v_ in - let _v = - let _1 = - let r = -# 2395 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2379 "parsing/parser.mly" (Some v) -# 13279 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 12971 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 13284 "parsing/parser.ml" - in - let d = - let _1 = -# 121 "" +# 12976 "parsing/parser.ml" + in + let d = + let _1 = +# 124 "" ( None ) -# 13290 "parsing/parser.ml" - in - -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 13295 "parsing/parser.ml" - - in +# 12982 "parsing/parser.ml" + in -# 2357 "parsing/parser.mly" - ( array, d, Bracket, i, r ) -# 13301 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 12987 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2396 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 13311 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2341 "parsing/parser.mly" + ( array, d, Bracket, i, r ) +# 12993 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2380 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 13003 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13380,9 +13071,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 13386 "parsing/parser.ml" +# 13077 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -13390,54 +13081,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_v_ in - let _v = - let _1 = - let r = -# 2395 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2379 "parsing/parser.mly" (Some v) -# 13399 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 13089 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 13404 "parsing/parser.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = -# 2369 "parsing/parser.mly" +# 13094 "parsing/parser.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = +# 2353 "parsing/parser.mly" (_2) -# 13412 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 13417 "parsing/parser.ml" - - in +# 13102 "parsing/parser.ml" + in -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 13423 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 13107 "parsing/parser.ml" in -# 2357 "parsing/parser.mly" - ( array, d, Bracket, i, r ) -# 13429 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 13113 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2396 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 13439 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2341 "parsing/parser.mly" + ( array, d, Bracket, i, r ) +# 13119 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2380 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 13129 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13466,9 +13155,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2398 "parsing/parser.mly" +# 2382 "parsing/parser.mly" ( Exp.attr _1 _2 ) -# 13472 "parsing/parser.ml" +# 13161 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13490,14 +13179,12 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 2401 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 2385 "parsing/parser.mly" ( not_expecting _loc__1_ "wildcard \"_\"" ) -# 13499 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 13187 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13525,17 +13212,15 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2404 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 2388 "parsing/parser.mly" ( mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__1_) _2 ) -# 13537 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 13223 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13550,9 +13235,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string Asttypes.loc option) = -# 4080 "parsing/parser.mly" +# 4064 "parsing/parser.mly" ( None ) -# 13556 "parsing/parser.ml" +# 13241 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13582,9 +13267,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string Asttypes.loc option) = -# 4081 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( Some _2 ) -# 13588 "parsing/parser.ml" +# 13273 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13628,9 +13313,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 4093 "parsing/parser.mly" +# 4077 "parsing/parser.mly" ( (_2, _3) ) -# 13634 "parsing/parser.ml" +# 13319 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13649,23 +13334,21 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 839 "parsing/parser.mly" +# 823 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 13655 "parsing/parser.ml" +# 13340 "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 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 4095 "parsing/parser.mly" + let _v : (Parsetree.extension) = let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 4079 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 13667 "parsing/parser.ml" - : (Parsetree.extension)) - in +# 13351 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13714,48 +13397,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let attrs = - let _1 = _1_inlined3 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.extension_constructor) = let attrs = + let _1 = _1_inlined3 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 13724 "parsing/parser.ml" - - in - let _endpos_attrs_ = _endpos__1_inlined3_ in - let lid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 13736 "parsing/parser.ml" - - in - let cid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 13406 "parsing/parser.ml" + + in + let _endpos_attrs_ = _endpos__1_inlined3_ in + let lid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13747 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs_ in +# 13418 "parsing/parser.ml" + + in + let cid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3402 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 13429 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3386 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 13757 "parsing/parser.ml" - : (Parsetree.extension_constructor)) - in +# 13439 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13797,53 +13478,51 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let attrs = - let _1 = _1_inlined2 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.extension_constructor) = let attrs = + let _1 = _1_inlined2 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 13807 "parsing/parser.ml" - - in - let _endpos_attrs_ = _endpos__1_inlined2_ in - let lid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 13487 "parsing/parser.ml" + + in + let _endpos_attrs_ = _endpos__1_inlined2_ in + let lid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13819 "parsing/parser.ml" - - in - let cid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 13499 "parsing/parser.ml" + + in + let cid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13829 "parsing/parser.ml" - - in - let _startpos_cid_ = _startpos__1_ in - let _1 = -# 3885 "parsing/parser.mly" +# 13509 "parsing/parser.ml" + + in + let _startpos_cid_ = _startpos__1_ in + let _1 = +# 3869 "parsing/parser.mly" ( () ) -# 13836 "parsing/parser.ml" - in - let _endpos = _endpos_attrs_ in - let _symbolstartpos = _startpos_cid_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 3402 "parsing/parser.mly" +# 13516 "parsing/parser.ml" + in + let _endpos = _endpos_attrs_ in + let _symbolstartpos = _startpos_cid_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3386 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 13845 "parsing/parser.ml" - : (Parsetree.extension_constructor)) - in +# 13525 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13885,17 +13564,15 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 4068 "parsing/parser.mly" + let _v : (Parsetree.attribute) = let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 4052 "parsing/parser.mly" ( mark_symbol_docs _sloc; Builtin_attributes.mk_internal ~loc:(make_loc _sloc) _2 _3 ) -# 13897 "parsing/parser.ml" - : (Parsetree.attribute)) - in +# 13575 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13909,18 +13586,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in - let _v = - let params = -# 2141 "parsing/parser.mly" + let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let params = +# 2125 "parsing/parser.mly" ( [] ) -# 13917 "parsing/parser.ml" - in - ( -# 1966 "parsing/parser.mly" +# 13593 "parsing/parser.ml" + in + +# 1950 "parsing/parser.mly" ( params ) -# 13922 "parsing/parser.ml" - : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) - in +# 13598 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13955,32 +13630,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let params = let params = - let params = - let xs = -# 250 "" + let xs = +# 253 "" ( List.rev xs ) -# 13965 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" - ( xs ) -# 13970 "parsing/parser.ml" - - in +# 13639 "parsing/parser.ml" + in -# 2143 "parsing/parser.mly" - ( params ) -# 13976 "parsing/parser.ml" +# 1101 "parsing/parser.mly" + ( xs ) +# 13644 "parsing/parser.ml" in - ( -# 1966 "parsing/parser.mly" - ( params ) -# 13982 "parsing/parser.ml" - : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) + +# 2127 "parsing/parser.mly" + ( params ) +# 13650 "parsing/parser.ml" + in + +# 1950 "parsing/parser.mly" + ( params ) +# 13656 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14002,9 +13675,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2755 "parsing/parser.mly" +# 2739 "parsing/parser.mly" ( _1 ) -# 14008 "parsing/parser.ml" +# 13681 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14040,16 +13713,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2757 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2741 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _3 _1 ) -# 14051 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 13723 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14078,9 +13749,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2795 "parsing/parser.mly" +# 2779 "parsing/parser.mly" ( _2 ) -# 14084 "parsing/parser.ml" +# 13755 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14123,29 +13794,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _1 = - let _1 = -# 2797 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _1 = +# 2781 "parsing/parser.mly" ( Pexp_constraint (_4, _2) ) -# 14132 "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 - -# 1016 "parsing/parser.mly" +# 13802 "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 + +# 1000 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 14141 "parsing/parser.ml" - - in - ( -# 2798 "parsing/parser.mly" - ( _1 ) -# 14147 "parsing/parser.ml" - : (Parsetree.expression)) +# 13811 "parsing/parser.ml" + in + +# 2782 "parsing/parser.mly" + ( _1 ) +# 13817 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14173,19 +13842,17 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2801 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2785 "parsing/parser.mly" ( let (l,o,p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 14187 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 13855 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14234,21 +13901,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _3 = -# 2637 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _3 = +# 2621 "parsing/parser.mly" ( xs ) -# 14242 "parsing/parser.ml" - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2806 "parsing/parser.mly" +# 13908 "parsing/parser.ml" + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2790 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 14250 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 13916 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14270,9 +13935,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3518 "parsing/parser.mly" +# 3502 "parsing/parser.mly" ( ty ) -# 14276 "parsing/parser.ml" +# 13941 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14295,9 +13960,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3520 "parsing/parser.mly" +# 3504 "parsing/parser.mly" ( ty ) -# 14301 "parsing/parser.ml" +# 13966 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14326,14 +13991,12 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _startpos = _startpos__1_ in - ( -# 1371 "parsing/parser.mly" + let _v : (Lexing.position * Parsetree.functor_parameter) = let _startpos = _startpos__1_ in + +# 1355 "parsing/parser.mly" ( _startpos, Unit ) -# 14335 "parsing/parser.ml" - : (Lexing.position * Parsetree.functor_parameter)) - in +# 13999 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14382,25 +14045,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let x = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Lexing.position * Parsetree.functor_parameter) = let x = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14395 "parsing/parser.ml" - - in - let _startpos = _startpos__1_ in - ( -# 1374 "parsing/parser.mly" - ( _startpos, Named (x, mty) ) -# 14402 "parsing/parser.ml" - : (Lexing.position * Parsetree.functor_parameter)) +# 14057 "parsing/parser.ml" + in + let _startpos = _startpos__1_ in + +# 1358 "parsing/parser.mly" + ( _startpos, Named (x, mty) ) +# 14064 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14416,9 +14077,9 @@ module Tables = struct let _endpos = _startpos in let _v : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3304 "parsing/parser.mly" +# 3288 "parsing/parser.mly" ( ([],Pcstr_tuple [],None) ) -# 14422 "parsing/parser.ml" +# 14083 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14449,9 +14110,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3305 "parsing/parser.mly" +# 3289 "parsing/parser.mly" ( ([],_2,None) ) -# 14455 "parsing/parser.ml" +# 14116 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14496,9 +14157,9 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3307 "parsing/parser.mly" +# 3291 "parsing/parser.mly" ( ([],_2,Some _4) ) -# 14502 "parsing/parser.ml" +# 14163 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14555,33 +14216,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _2 = - let _1 = - let xs = -# 250 "" + let _v : (Ast_helper.str list * Parsetree.constructor_arguments * + Parsetree.core_type option) = let _2 = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 14565 "parsing/parser.ml" - in - -# 1085 "parsing/parser.mly" - ( xs ) -# 14570 "parsing/parser.ml" - - in +# 14226 "parsing/parser.ml" + in -# 3453 "parsing/parser.mly" - ( _1 ) -# 14576 "parsing/parser.ml" +# 1069 "parsing/parser.mly" + ( xs ) +# 14231 "parsing/parser.ml" in - ( -# 3310 "parsing/parser.mly" - ( (_2,_4,Some _6) ) -# 14582 "parsing/parser.ml" - : (Ast_helper.str list * Parsetree.constructor_arguments * - Parsetree.core_type option)) + +# 3437 "parsing/parser.mly" + ( _1 ) +# 14237 "parsing/parser.ml" + in + +# 3294 "parsing/parser.mly" + ( (_2,_4,Some _6) ) +# 14243 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14611,9 +14270,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3312 "parsing/parser.mly" +# 3296 "parsing/parser.mly" ( ([],Pcstr_tuple [],Some _2) ) -# 14617 "parsing/parser.ml" +# 14276 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14656,33 +14315,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _2 = - let _1 = - let xs = -# 250 "" + let _v : (Ast_helper.str list * Parsetree.constructor_arguments * + Parsetree.core_type option) = let _2 = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 14666 "parsing/parser.ml" - in - -# 1085 "parsing/parser.mly" - ( xs ) -# 14671 "parsing/parser.ml" - - in +# 14325 "parsing/parser.ml" + in -# 3453 "parsing/parser.mly" - ( _1 ) -# 14677 "parsing/parser.ml" +# 1069 "parsing/parser.mly" + ( xs ) +# 14330 "parsing/parser.ml" in - ( -# 3314 "parsing/parser.mly" - ( (_2,Pcstr_tuple [],Some _4) ) -# 14683 "parsing/parser.ml" - : (Ast_helper.str list * Parsetree.constructor_arguments * - Parsetree.core_type option)) + +# 3437 "parsing/parser.mly" + ( _1 ) +# 14336 "parsing/parser.ml" + in + +# 3298 "parsing/parser.mly" + ( (_2,Pcstr_tuple [],Some _4) ) +# 14342 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14725,43 +14382,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let attrs = - let _1 = _1_inlined2 in - -# 4077 "parsing/parser.mly" + let _v : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * + Parsetree.core_type option * Parsetree.attributes * Location.t * + Docstrings.info) = let attrs = + let _1 = _1_inlined2 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 14735 "parsing/parser.ml" - - in - let _endpos_attrs_ = _endpos__1_inlined2_ in - let cid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 14747 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs_ in +# 14393 "parsing/parser.ml" + + in + let _endpos_attrs_ = _endpos__1_inlined2_ in + let cid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3252 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 14405 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3236 "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 ) -# 14761 "parsing/parser.ml" - : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * - Parsetree.core_type option * Parsetree.attributes * Location.t * - Docstrings.info)) - in +# 14419 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14797,48 +14452,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let attrs = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * + Parsetree.core_type option * Parsetree.attributes * Location.t * + Docstrings.info) = let attrs = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 14807 "parsing/parser.ml" - - in - let _endpos_attrs_ = _endpos__1_inlined1_ in - let cid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 14463 "parsing/parser.ml" + + in + let _endpos_attrs_ = _endpos__1_inlined1_ in + let cid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14818 "parsing/parser.ml" - - in - let _startpos_cid_ = _startpos__1_ in - let _1 = -# 3885 "parsing/parser.mly" +# 14474 "parsing/parser.ml" + + in + let _startpos_cid_ = _startpos__1_ in + let _1 = +# 3869 "parsing/parser.mly" ( () ) -# 14825 "parsing/parser.ml" - in - let _endpos = _endpos_attrs_ in - let _symbolstartpos = _startpos_cid_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 3252 "parsing/parser.mly" +# 14481 "parsing/parser.ml" + in + let _endpos = _endpos_attrs_ in + let _symbolstartpos = _startpos_cid_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3236 "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 ) -# 14838 "parsing/parser.ml" - : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * - Parsetree.core_type option * Parsetree.attributes * Location.t * - Docstrings.info)) - in +# 14494 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14908,9 +14561,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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 14914 "parsing/parser.ml" +# 14567 "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 @@ -14919,69 +14572,69 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in - let _v = - let attrs2 = - let _1 = _1_inlined4 in - -# 4073 "parsing/parser.mly" + let _v : ((Asttypes.rec_flag * string Asttypes.loc option) * + Parsetree.type_declaration) = let attrs2 = + let _1 = _1_inlined4 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 14929 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let cstrs = - let _1 = - let xs = -# 250 "" +# 14582 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let cstrs = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 14938 "parsing/parser.ml" - in - -# 1067 "parsing/parser.mly" - ( xs ) -# 14943 "parsing/parser.ml" - - in +# 14591 "parsing/parser.ml" + in -# 3157 "parsing/parser.mly" - ( _1 ) -# 14949 "parsing/parser.ml" +# 1051 "parsing/parser.mly" + ( xs ) +# 14596 "parsing/parser.ml" in - let kind_priv_manifest = -# 3192 "parsing/parser.mly" + +# 3141 "parsing/parser.mly" + ( _1 ) +# 14602 "parsing/parser.ml" + + in + let kind_priv_manifest = +# 3176 "parsing/parser.mly" ( _2 ) -# 14955 "parsing/parser.ml" - in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 14608 "parsing/parser.ml" + in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14965 "parsing/parser.ml" - - in - let flag = -# 3905 "parsing/parser.mly" +# 14618 "parsing/parser.ml" + + in + let flag = +# 3889 "parsing/parser.mly" ( Recursive ) -# 14971 "parsing/parser.ml" - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 14624 "parsing/parser.ml" + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 14978 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 3129 "parsing/parser.mly" +# 14631 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3113 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14990,10 +14643,8 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14994 "parsing/parser.ml" - : ((Asttypes.rec_flag * string Asttypes.loc option) * - Parsetree.type_declaration)) - in +# 14647 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15069,9 +14720,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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 15075 "parsing/parser.ml" +# 14726 "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 @@ -15081,75 +14732,75 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined5_ in - let _v = - let attrs2 = - let _1 = _1_inlined5 in - -# 4073 "parsing/parser.mly" + let _v : ((Asttypes.rec_flag * string Asttypes.loc option) * + Parsetree.type_declaration) = let attrs2 = + let _1 = _1_inlined5 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 15091 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined5_ in - let cstrs = - let _1 = - let xs = -# 250 "" +# 14742 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined5_ in + let cstrs = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 15100 "parsing/parser.ml" - in - -# 1067 "parsing/parser.mly" - ( xs ) -# 15105 "parsing/parser.ml" - - in - -# 3157 "parsing/parser.mly" - ( _1 ) -# 15111 "parsing/parser.ml" - - in - let kind_priv_manifest = -# 3192 "parsing/parser.mly" - ( _2 ) -# 15117 "parsing/parser.ml" - in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 15127 "parsing/parser.ml" - - in - let flag = - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in +# 14751 "parsing/parser.ml" + in -# 3907 "parsing/parser.mly" - ( not_expecting _loc "nonrec flag" ) -# 15138 "parsing/parser.ml" +# 1051 "parsing/parser.mly" + ( xs ) +# 14756 "parsing/parser.ml" in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + +# 3141 "parsing/parser.mly" ( _1 ) -# 15146 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 14762 "parsing/parser.ml" + + in + let kind_priv_manifest = +# 3176 "parsing/parser.mly" + ( _2 ) +# 14768 "parsing/parser.ml" + in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3129 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 14778 "parsing/parser.ml" + + in + let flag = + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + let _loc = (_startpos, _endpos) in + +# 3891 "parsing/parser.mly" + ( not_expecting _loc "nonrec flag" ) +# 14789 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 14797 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3113 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -15158,10 +14809,8 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 15162 "parsing/parser.ml" - : ((Asttypes.rec_flag * string Asttypes.loc option) * - Parsetree.type_declaration)) - in +# 14813 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15224,9 +14873,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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 15230 "parsing/parser.ml" +# 14879 "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 @@ -15235,64 +14884,64 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" + let _v : ((Asttypes.rec_flag * string Asttypes.loc option) * + Parsetree.type_declaration) = let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 15245 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let cstrs = - let _1 = - let xs = -# 250 "" +# 14894 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let cstrs = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 15254 "parsing/parser.ml" - in - -# 1067 "parsing/parser.mly" - ( xs ) -# 15259 "parsing/parser.ml" - - in - -# 3157 "parsing/parser.mly" - ( _1 ) -# 15265 "parsing/parser.ml" - - in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 14903 "parsing/parser.ml" + in -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 15276 "parsing/parser.ml" +# 1051 "parsing/parser.mly" + ( xs ) +# 14908 "parsing/parser.ml" in - let flag = -# 3901 "parsing/parser.mly" - ( Recursive ) -# 15282 "parsing/parser.ml" - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + +# 3141 "parsing/parser.mly" ( _1 ) -# 15289 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 14914 "parsing/parser.ml" + + in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3129 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 14925 "parsing/parser.ml" + + in + let flag = +# 3885 "parsing/parser.mly" + ( Recursive ) +# 14931 "parsing/parser.ml" + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 14938 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3113 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -15301,10 +14950,8 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 15305 "parsing/parser.ml" - : ((Asttypes.rec_flag * string Asttypes.loc option) * - Parsetree.type_declaration)) - in +# 14954 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15373,9 +15020,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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 15379 "parsing/parser.ml" +# 15026 "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 @@ -15385,64 +15032,64 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in - let _v = - let attrs2 = - let _1 = _1_inlined4 in - -# 4073 "parsing/parser.mly" + let _v : ((Asttypes.rec_flag * string Asttypes.loc option) * + Parsetree.type_declaration) = let attrs2 = + let _1 = _1_inlined4 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 15395 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let cstrs = - let _1 = - let xs = -# 250 "" +# 15042 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let cstrs = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 15404 "parsing/parser.ml" - in - -# 1067 "parsing/parser.mly" - ( xs ) -# 15409 "parsing/parser.ml" - - in - -# 3157 "parsing/parser.mly" - ( _1 ) -# 15415 "parsing/parser.ml" - - in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 15051 "parsing/parser.ml" + in -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 15426 "parsing/parser.ml" +# 1051 "parsing/parser.mly" + ( xs ) +# 15056 "parsing/parser.ml" in - let flag = -# 3902 "parsing/parser.mly" - ( Nonrecursive ) -# 15432 "parsing/parser.ml" - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + +# 3141 "parsing/parser.mly" ( _1 ) -# 15439 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 15062 "parsing/parser.ml" + + in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3129 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 15073 "parsing/parser.ml" + + in + let flag = +# 3886 "parsing/parser.mly" + ( Nonrecursive ) +# 15079 "parsing/parser.ml" + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 15086 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3113 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -15451,10 +15098,8 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 15455 "parsing/parser.ml" - : ((Asttypes.rec_flag * string Asttypes.loc option) * - Parsetree.type_declaration)) - in +# 15102 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15472,17 +15117,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 850 "parsing/parser.mly" +# 834 "parsing/parser.mly" (string) -# 15478 "parsing/parser.ml" +# 15123 "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) = -# 3744 "parsing/parser.mly" +# 3728 "parsing/parser.mly" ( _1 ) -# 15486 "parsing/parser.ml" +# 15131 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15501,17 +15146,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 15507 "parsing/parser.ml" +# 15152 "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) = -# 3745 "parsing/parser.mly" +# 3729 "parsing/parser.mly" ( _1 ) -# 15515 "parsing/parser.ml" +# 15160 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15541,9 +15186,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.structure) = -# 1238 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( _1 ) -# 15547 "parsing/parser.ml" +# 15192 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15566,9 +15211,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.attribute list) = -# 1614 "parsing/parser.mly" +# 1598 "parsing/parser.mly" ( [] ) -# 15572 "parsing/parser.ml" +# 15217 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15597,16 +15242,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _endpos = _endpos__2_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - ( -# 1616 "parsing/parser.mly" + let _v : (Parsetree.attribute list) = let _endpos = _endpos__2_ in + let _startpos = _startpos__1_ in + let _loc = (_startpos, _endpos) in + +# 1600 "parsing/parser.mly" ( [include_functor_attr (make_loc _loc)] ) -# 15608 "parsing/parser.ml" - : (Parsetree.attribute list)) - in +# 15252 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15621,9 +15264,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string) = -# 3794 "parsing/parser.mly" +# 3778 "parsing/parser.mly" ( "" ) -# 15627 "parsing/parser.ml" +# 15270 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15653,9 +15296,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string) = -# 3795 "parsing/parser.mly" +# 3779 "parsing/parser.mly" ( ";.." ) -# 15659 "parsing/parser.ml" +# 15302 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15685,9 +15328,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.signature) = -# 1245 "parsing/parser.mly" +# 1229 "parsing/parser.mly" ( _1 ) -# 15691 "parsing/parser.ml" +# 15334 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15731,9 +15374,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 4098 "parsing/parser.mly" +# 4082 "parsing/parser.mly" ( (_2, _3) ) -# 15737 "parsing/parser.ml" +# 15380 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15752,23 +15395,21 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 841 "parsing/parser.mly" +# 825 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 15758 "parsing/parser.ml" +# 15401 "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 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 4100 "parsing/parser.mly" + let _v : (Parsetree.extension) = let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 4084 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 15770 "parsing/parser.ml" - : (Parsetree.extension)) - in +# 15412 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15813,66 +15454,64 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _3 : unit = Obj.magic _3 in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 15819 "parsing/parser.ml" +# 15460 "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 let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let _5 = - let _1 = _1_inlined3 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.label_declaration) = let _5 = + let _1 = _1_inlined3 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 15831 "parsing/parser.ml" - - in - let _endpos__5_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - -# 3471 "parsing/parser.mly" +# 15471 "parsing/parser.ml" + + in + let _endpos__5_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + +# 3455 "parsing/parser.mly" ( _1 ) -# 15840 "parsing/parser.ml" - - in - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = -# 3722 "parsing/parser.mly" +# 15480 "parsing/parser.ml" + + in + let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 15848 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 15856 "parsing/parser.ml" - - in - let _startpos__2_ = _startpos__1_inlined1_ in - let _endpos = _endpos__5_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ - else - _startpos__2_ in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 15488 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3337 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 15496 "parsing/parser.ml" + + in + let _startpos__2_ = _startpos__1_inlined1_ in + let _endpos = _endpos__5_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + _startpos__2_ in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 3321 "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_) ) -# 15874 "parsing/parser.ml" - : (Parsetree.label_declaration)) - in +# 15514 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15931,67 +15570,66 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _3 : unit = Obj.magic _3 in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 15937 "parsing/parser.ml" +# 15576 "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 let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in - let _v = - let _7 = - let _1 = _1_inlined4 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 15949 "parsing/parser.ml" - - in - let _endpos__7_ = _endpos__1_inlined4_ in - let _5 = - let _1 = _1_inlined3 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 15958 "parsing/parser.ml" - - in - let _endpos__5_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - -# 3471 "parsing/parser.mly" - ( _1 ) -# 15967 "parsing/parser.ml" - - in - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = -# 3722 "parsing/parser.mly" + let _v : (Parsetree.label_declaration) = let _7 = + let _1 = _1_inlined4 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 15587 "parsing/parser.ml" + + in + let _endpos__7_ = _endpos__1_inlined4_ in + let _5 = + let _1 = _1_inlined3 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 15596 "parsing/parser.ml" + + in + let _endpos__5_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + +# 3455 "parsing/parser.mly" + ( _1 ) +# 15605 "parsing/parser.ml" + + in + let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 15975 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 15983 "parsing/parser.ml" - - in - let _startpos__2_ = _startpos__1_inlined1_ in - let _endpos = _endpos__7_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ - else - _startpos__2_ in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 15613 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3346 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 15621 "parsing/parser.ml" + + in + let _startpos__2_ = _startpos__1_inlined1_ in + let _endpos = _endpos__7_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + _startpos__2_ in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 3330 "parsing/parser.mly" ( let info = match rhs_info _endpos__5_ with | Some _ as info_before_semi -> info_before_semi @@ -16001,9 +15639,8 @@ module Tables = struct mkld_global_maybe gbl (Type.field _2 _4 ~mut ~attrs:(_5 @ _7) ~loc:(make_loc _sloc) ~info) (make_loc _loc__1_) ) -# 16005 "parsing/parser.ml" - : (Parsetree.label_declaration)) - in +# 15643 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16025,9 +15662,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 3331 "parsing/parser.mly" +# 3315 "parsing/parser.mly" ( [_1] ) -# 16031 "parsing/parser.ml" +# 15668 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16050,9 +15687,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 3332 "parsing/parser.mly" +# 3316 "parsing/parser.mly" ( [_1] ) -# 16056 "parsing/parser.ml" +# 15693 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16082,9 +15719,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.label_declaration list) = -# 3333 "parsing/parser.mly" +# 3317 "parsing/parser.mly" ( _1 :: _2 ) -# 16088 "parsing/parser.ml" +# 15725 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16103,40 +15740,38 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 16109 "parsing/parser.ml" +# 15746 "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 = - let x = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 16123 "parsing/parser.ml" - - in + let _v : (string * Parsetree.pattern) = let x = + let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2341 "parsing/parser.mly" - ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16132 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 15759 "parsing/parser.ml" in - ( -# 2333 "parsing/parser.mly" - ( x ) -# 16138 "parsing/parser.ml" - : (string * Parsetree.pattern)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2325 "parsing/parser.mly" + ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) +# 15768 "parsing/parser.ml" + in + +# 2317 "parsing/parser.mly" + ( x ) +# 15774 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16168,46 +15803,44 @@ module Tables = struct let cty : (Parsetree.core_type) = Obj.magic cty in let _2 : unit = Obj.magic _2 in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 16174 "parsing/parser.ml" +# 15809 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_cty_ in - let _v = - let x = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 16188 "parsing/parser.ml" - - in + let _v : (string * Parsetree.pattern) = let x = + let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2341 "parsing/parser.mly" - ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16197 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 15822 "parsing/parser.ml" in - let _startpos_x_ = _startpos__1_ in - let _endpos = _endpos_cty_ in - let _symbolstartpos = _startpos_x_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 2335 "parsing/parser.mly" + +# 2325 "parsing/parser.mly" + ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) +# 15831 "parsing/parser.ml" + + in + let _startpos_x_ = _startpos__1_ in + let _endpos = _endpos_cty_ in + let _symbolstartpos = _startpos_x_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2319 "parsing/parser.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) -# 16209 "parsing/parser.ml" - : (string * Parsetree.pattern)) - in +# 15843 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16229,9 +15862,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3826 "parsing/parser.mly" +# 3810 "parsing/parser.mly" ( _1 ) -# 16235 "parsing/parser.ml" +# 15868 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16254,9 +15887,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression) = -# 2620 "parsing/parser.mly" +# 2604 "parsing/parser.mly" ( (Nolabel, _1) ) -# 16260 "parsing/parser.ml" +# 15893 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16282,17 +15915,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 784 "parsing/parser.mly" +# 768 "parsing/parser.mly" (string) -# 16288 "parsing/parser.ml" +# 15921 "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) = -# 2622 "parsing/parser.mly" +# 2606 "parsing/parser.mly" ( (Labelled _1, _2) ) -# 16296 "parsing/parser.ml" +# 15929 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16317,23 +15950,21 @@ module Tables = struct }; } = _menhir_stack in let label : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 16323 "parsing/parser.ml" +# 15956 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in - let _v = - let _loc_label_ = (_startpos_label_, _endpos_label_) in - ( -# 2624 "parsing/parser.mly" + let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in + +# 2608 "parsing/parser.mly" ( let loc = _loc_label_ in (Labelled label, mkexpvar ~loc label) ) -# 16335 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression)) - in +# 15967 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16377,25 +16008,23 @@ 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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 16383 "parsing/parser.ml" +# 16014 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _endpos = _endpos__5_ in - let _loc_label_ = (_startpos_label_, _endpos_label_) in - ( -# 2627 "parsing/parser.mly" + let _v : (Asttypes.arg_label * Parsetree.expression) = let _endpos = _endpos__5_ in + let _loc_label_ = (_startpos_label_, _endpos_label_) in + +# 2611 "parsing/parser.mly" ( (Labelled label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty) ) -# 16397 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression)) - in +# 16027 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16419,23 +16048,21 @@ module Tables = struct }; } = _menhir_stack in let label : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 16425 "parsing/parser.ml" +# 16054 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in - let _v = - let _loc_label_ = (_startpos_label_, _endpos_label_) in - ( -# 2630 "parsing/parser.mly" + let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in + +# 2614 "parsing/parser.mly" ( let loc = _loc_label_ in (Optional label, mkexpvar ~loc label) ) -# 16437 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression)) - in +# 16065 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16460,17 +16087,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 816 "parsing/parser.mly" +# 800 "parsing/parser.mly" (string) -# 16466 "parsing/parser.ml" +# 16093 "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) = -# 2633 "parsing/parser.mly" +# 2617 "parsing/parser.mly" ( (Optional _1, _2) ) -# 16474 "parsing/parser.ml" +# 16101 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16520,28 +16147,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _5 = - let _1 = _1_inlined1 in - -# 2329 "parsing/parser.mly" + let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = + let _1 = _1_inlined1 in + +# 2313 "parsing/parser.mly" ( _1 ) -# 16530 "parsing/parser.ml" - - in - let _3 = -# 3558 "parsing/parser.mly" +# 16156 "parsing/parser.ml" + + in + let _3 = +# 3542 "parsing/parser.mly" ( false ) -# 16536 "parsing/parser.ml" - in - let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 2298 "parsing/parser.mly" +# 16162 "parsing/parser.ml" + in + let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2282 "parsing/parser.mly" ( (Optional (fst _4), _5, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16543 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) - in +# 16169 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16597,28 +16222,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _5 = - let _1 = _1_inlined2 in - -# 2329 "parsing/parser.mly" + let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = + let _1 = _1_inlined2 in + +# 2313 "parsing/parser.mly" ( _1 ) -# 16607 "parsing/parser.ml" - - in - let _3 = -# 3560 "parsing/parser.mly" +# 16231 "parsing/parser.ml" + + in + let _3 = +# 3544 "parsing/parser.mly" ( true ) -# 16613 "parsing/parser.ml" - in - let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 2298 "parsing/parser.mly" +# 16237 "parsing/parser.ml" + in + let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2282 "parsing/parser.mly" ( (Optional (fst _4), _5, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16620 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) - in +# 16244 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16642,42 +16265,40 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 16648 "parsing/parser.ml" +# 16271 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 16664 "parsing/parser.ml" - - in + let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2341 "parsing/parser.mly" - ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16673 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 16286 "parsing/parser.ml" in - ( -# 2300 "parsing/parser.mly" - ( (Optional (fst _2), None, snd _2) ) -# 16679 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2325 "parsing/parser.mly" + ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) +# 16295 "parsing/parser.ml" + in + +# 2284 "parsing/parser.mly" + ( (Optional (fst _2), None, snd _2) ) +# 16301 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16723,35 +16344,33 @@ module Tables = struct let _4 : (Parsetree.pattern) = Obj.magic _4 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 816 "parsing/parser.mly" +# 800 "parsing/parser.mly" (string) -# 16729 "parsing/parser.ml" +# 16350 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _5 = - let _1 = _1_inlined1 in - -# 2329 "parsing/parser.mly" + let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = + let _1 = _1_inlined1 in + +# 2313 "parsing/parser.mly" ( _1 ) -# 16740 "parsing/parser.ml" - - in - let _3 = -# 3558 "parsing/parser.mly" +# 16360 "parsing/parser.ml" + + in + let _3 = +# 3542 "parsing/parser.mly" ( false ) -# 16746 "parsing/parser.ml" - in - let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 2302 "parsing/parser.mly" +# 16366 "parsing/parser.ml" + in + let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2286 "parsing/parser.mly" ( (Optional _1, _5, mkpat_local_if _3 _4 _loc__3_) ) -# 16753 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) - in +# 16373 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16804,35 +16423,33 @@ module Tables = struct let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 816 "parsing/parser.mly" +# 800 "parsing/parser.mly" (string) -# 16810 "parsing/parser.ml" +# 16429 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _5 = - let _1 = _1_inlined2 in - -# 2329 "parsing/parser.mly" + let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = + let _1 = _1_inlined2 in + +# 2313 "parsing/parser.mly" ( _1 ) -# 16821 "parsing/parser.ml" - - in - let _3 = -# 3560 "parsing/parser.mly" +# 16439 "parsing/parser.ml" + + in + let _3 = +# 3544 "parsing/parser.mly" ( true ) -# 16827 "parsing/parser.ml" - in - let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 2302 "parsing/parser.mly" +# 16445 "parsing/parser.ml" + in + let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2286 "parsing/parser.mly" ( (Optional _1, _5, mkpat_local_if _3 _4 _loc__3_) ) -# 16834 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) - in +# 16452 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16857,17 +16474,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( -# 816 "parsing/parser.mly" +# 800 "parsing/parser.mly" (string) -# 16863 "parsing/parser.ml" +# 16480 "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) = -# 2304 "parsing/parser.mly" +# 2288 "parsing/parser.mly" ( (Optional _1, None, _2) ) -# 16871 "parsing/parser.ml" +# 16488 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16910,21 +16527,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _3 = -# 3558 "parsing/parser.mly" + let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _3 = +# 3542 "parsing/parser.mly" ( false ) -# 16918 "parsing/parser.ml" - in - let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 2306 "parsing/parser.mly" +# 16534 "parsing/parser.ml" + in + let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2290 "parsing/parser.mly" ( (Labelled (fst _4), None, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16926 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) - in +# 16542 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16973,21 +16588,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _3 = -# 3560 "parsing/parser.mly" + let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _3 = +# 3544 "parsing/parser.mly" ( true ) -# 16981 "parsing/parser.ml" - in - let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 2306 "parsing/parser.mly" +# 16595 "parsing/parser.ml" + in + let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2290 "parsing/parser.mly" ( (Labelled (fst _4), None, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16989 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) - in +# 16603 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17011,42 +16624,40 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 17017 "parsing/parser.ml" +# 16630 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 17033 "parsing/parser.ml" - - in + let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2341 "parsing/parser.mly" - ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 17042 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 16645 "parsing/parser.ml" in - ( -# 2309 "parsing/parser.mly" - ( (Labelled (fst _2), None, snd _2) ) -# 17048 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2325 "parsing/parser.mly" + ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) +# 16654 "parsing/parser.ml" + in + +# 2293 "parsing/parser.mly" + ( (Labelled (fst _2), None, snd _2) ) +# 16660 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17071,17 +16682,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( -# 784 "parsing/parser.mly" +# 768 "parsing/parser.mly" (string) -# 17077 "parsing/parser.ml" +# 16688 "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) = -# 2311 "parsing/parser.mly" +# 2295 "parsing/parser.mly" ( (Labelled _1, None, _2) ) -# 17085 "parsing/parser.ml" +# 16696 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17128,21 +16739,19 @@ module Tables = struct let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 784 "parsing/parser.mly" +# 768 "parsing/parser.mly" (string) -# 17134 "parsing/parser.ml" +# 16745 "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 = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 2313 "parsing/parser.mly" + let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2297 "parsing/parser.mly" ( (Labelled _1, None, mkpat_stack _4 (make_loc _loc__3_)) ) -# 17144 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) - in +# 16754 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17164,9 +16773,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = -# 2315 "parsing/parser.mly" +# 2299 "parsing/parser.mly" ( (Nolabel, None, _1) ) -# 17170 "parsing/parser.ml" +# 16779 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17209,14 +16818,12 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _loc__2_ = (_startpos__2_, _endpos__2_) in - ( -# 2317 "parsing/parser.mly" + let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _loc__2_ = (_startpos__2_, _endpos__2_) in + +# 2301 "parsing/parser.mly" ( (Nolabel, None, mkpat_stack _3 (make_loc _loc__2_)) ) -# 17218 "parsing/parser.ml" - : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) - in +# 16826 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17238,9 +16845,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern * Parsetree.expression * bool) = -# 2692 "parsing/parser.mly" +# 2676 "parsing/parser.mly" ( let p,e = _1 in (p,e,false) ) -# 17244 "parsing/parser.ml" +# 16851 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17262,16 +16869,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - ( -# 2695 "parsing/parser.mly" + let _v : (Parsetree.pattern * Parsetree.expression * bool) = let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + let _loc = (_startpos, _endpos) in + +# 2679 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1, true) ) -# 17273 "parsing/parser.ml" - : (Parsetree.pattern * Parsetree.expression * bool)) - in +# 16879 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17299,23 +16904,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2640 "parsing/parser.mly" + let _v : (Parsetree.pattern * Parsetree.expression) = let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2624 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17311 "parsing/parser.ml" - - in - ( -# 2644 "parsing/parser.mly" - ( (_1, _2) ) -# 17317 "parsing/parser.ml" - : (Parsetree.pattern * Parsetree.expression)) +# 16915 "parsing/parser.ml" + in + +# 2628 "parsing/parser.mly" + ( (_1, _2) ) +# 16921 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17357,33 +16960,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _2 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2640 "parsing/parser.mly" + let _v : (Parsetree.pattern * Parsetree.expression) = let _2 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2624 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17369 "parsing/parser.ml" - - in - let _startpos__2_ = _startpos__1_ in - let _1 = -# 3558 "parsing/parser.mly" +# 16971 "parsing/parser.ml" + + in + let _startpos__2_ = _startpos__1_ in + let _1 = +# 3542 "parsing/parser.mly" ( false ) -# 17376 "parsing/parser.ml" - in - let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in - let _endpos = _endpos__5_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ - else - _startpos__2_ in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2646 "parsing/parser.mly" +# 16978 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in + let _endpos = _endpos__5_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + _startpos__2_ in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 2630 "parsing/parser.mly" ( let v = _2 in (* PR#7344 *) let t = match _3 with @@ -17405,9 +17007,8 @@ module Tables = struct local_loc) in (pat, exp) ) -# 17409 "parsing/parser.ml" - : (Parsetree.pattern * Parsetree.expression)) - in +# 17011 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17456,33 +17057,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2640 "parsing/parser.mly" + let _v : (Parsetree.pattern * Parsetree.expression) = let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2624 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17469 "parsing/parser.ml" - - in - let _startpos__2_ = _startpos__1_inlined1_ in - let _1 = -# 3560 "parsing/parser.mly" +# 17069 "parsing/parser.ml" + + in + let _startpos__2_ = _startpos__1_inlined1_ in + let _1 = +# 3544 "parsing/parser.mly" ( true ) -# 17476 "parsing/parser.ml" - in - let _endpos = _endpos__5_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ - else - _startpos__2_ in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2646 "parsing/parser.mly" +# 17076 "parsing/parser.ml" + in + let _endpos = _endpos__5_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + _startpos__2_ in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 2630 "parsing/parser.mly" ( let v = _2 in (* PR#7344 *) let t = match _3 with @@ -17504,9 +17104,8 @@ module Tables = struct local_loc) in (pat, exp) ) -# 17508 "parsing/parser.ml" - : (Parsetree.pattern * Parsetree.expression)) - in +# 17108 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17569,62 +17168,61 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _4 = - let _3 = _3_inlined1 in + let _v : (Parsetree.pattern * Parsetree.expression) = let _4 = + let _3 = _3_inlined1 in + let _1 = let _1 = - let _1 = - let xs = -# 250 "" + let xs = +# 253 "" ( List.rev xs ) -# 17581 "parsing/parser.ml" - in - -# 1085 "parsing/parser.mly" - ( xs ) -# 17586 "parsing/parser.ml" - - in +# 17179 "parsing/parser.ml" + in -# 3453 "parsing/parser.mly" - ( _1 ) -# 17592 "parsing/parser.ml" +# 1069 "parsing/parser.mly" + ( xs ) +# 17184 "parsing/parser.ml" in -# 3457 "parsing/parser.mly" - ( Ptyp_poly(_1, _3) ) -# 17598 "parsing/parser.ml" +# 3437 "parsing/parser.mly" + ( _1 ) +# 17190 "parsing/parser.ml" in - let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in - let _2 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2640 "parsing/parser.mly" + +# 3441 "parsing/parser.mly" + ( Ptyp_poly(_1, _3) ) +# 17196 "parsing/parser.ml" + + in + let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in + let _2 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2624 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17609 "parsing/parser.ml" - - in - let _startpos__2_ = _startpos__1_ in - let _1 = -# 3558 "parsing/parser.mly" +# 17207 "parsing/parser.ml" + + in + let _startpos__2_ = _startpos__1_ in + let _1 = +# 3542 "parsing/parser.mly" ( false ) -# 17616 "parsing/parser.ml" - in - let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in - let _endpos = _endpos__6_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ - else - _startpos__2_ in - let _loc__4_ = (_startpos__4_, _endpos__4_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2668 "parsing/parser.mly" +# 17214 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in + let _endpos = _endpos__6_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + _startpos__2_ in + let _loc__4_ = (_startpos__4_, _endpos__4_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 2652 "parsing/parser.mly" ( let patloc = (_startpos__2_, _endpos__4_) in let pat = mkpat_local_if _1 @@ -17634,9 +17232,8 @@ module Tables = struct in let exp = mkexp_local_if _1 ~loc:_sloc ~kwd_loc:(_loc__1_) _6 in (pat, exp) ) -# 17638 "parsing/parser.ml" - : (Parsetree.pattern * Parsetree.expression)) - in +# 17236 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17706,62 +17303,61 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _4 = - let _3 = _3_inlined1 in + let _v : (Parsetree.pattern * Parsetree.expression) = let _4 = + let _3 = _3_inlined1 in + let _1 = let _1 = - let _1 = - let xs = -# 250 "" + let xs = +# 253 "" ( List.rev xs ) -# 17718 "parsing/parser.ml" - in - -# 1085 "parsing/parser.mly" - ( xs ) -# 17723 "parsing/parser.ml" - - in +# 17314 "parsing/parser.ml" + in -# 3453 "parsing/parser.mly" - ( _1 ) -# 17729 "parsing/parser.ml" +# 1069 "parsing/parser.mly" + ( xs ) +# 17319 "parsing/parser.ml" in -# 3457 "parsing/parser.mly" - ( Ptyp_poly(_1, _3) ) -# 17735 "parsing/parser.ml" +# 3437 "parsing/parser.mly" + ( _1 ) +# 17325 "parsing/parser.ml" in - let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2640 "parsing/parser.mly" + +# 3441 "parsing/parser.mly" + ( Ptyp_poly(_1, _3) ) +# 17331 "parsing/parser.ml" + + in + let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in + let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2624 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17747 "parsing/parser.ml" - - in - let _startpos__2_ = _startpos__1_inlined1_ in - let _1 = -# 3560 "parsing/parser.mly" +# 17343 "parsing/parser.ml" + + in + let _startpos__2_ = _startpos__1_inlined1_ in + let _1 = +# 3544 "parsing/parser.mly" ( true ) -# 17754 "parsing/parser.ml" - in - let _endpos = _endpos__6_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ - else - _startpos__2_ in - let _loc__4_ = (_startpos__4_, _endpos__4_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2668 "parsing/parser.mly" +# 17350 "parsing/parser.ml" + in + let _endpos = _endpos__6_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + _startpos__2_ in + let _loc__4_ = (_startpos__4_, _endpos__4_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 2652 "parsing/parser.mly" ( let patloc = (_startpos__2_, _endpos__4_) in let pat = mkpat_local_if _1 @@ -17771,9 +17367,8 @@ module Tables = struct in let exp = mkexp_local_if _1 ~loc:_sloc ~kwd_loc:(_loc__1_) _6 in (pat, exp) ) -# 17775 "parsing/parser.ml" - : (Parsetree.pattern * Parsetree.expression)) - in +# 17371 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17843,34 +17438,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in - let _v = - let _4 = -# 2637 "parsing/parser.mly" + let _v : (Parsetree.pattern * Parsetree.expression) = let _4 = +# 2621 "parsing/parser.mly" ( xs ) -# 17851 "parsing/parser.ml" - in - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2640 "parsing/parser.mly" - ( mkpatvar ~loc:_sloc _1 ) -# 17860 "parsing/parser.ml" - - in - let _endpos = _endpos__8_ in +# 17445 "parsing/parser.ml" + in + let _1 = + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 2678 "parsing/parser.mly" + +# 2624 "parsing/parser.mly" + ( mkpatvar ~loc:_sloc _1 ) +# 17454 "parsing/parser.ml" + + in + let _endpos = _endpos__8_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2662 "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) ) -# 17872 "parsing/parser.ml" - : (Parsetree.pattern * Parsetree.expression)) - in +# 17466 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17906,9 +17499,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2683 "parsing/parser.mly" +# 2667 "parsing/parser.mly" ( (_1, _3) ) -# 17912 "parsing/parser.ml" +# 17505 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17959,10 +17552,10 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2685 "parsing/parser.mly" +# 2669 "parsing/parser.mly" ( let loc = (_startpos__1_, _endpos__3_) in (ghpat ~loc (Ppat_constraint(_1, _3)), _5) ) -# 17966 "parsing/parser.ml" +# 17559 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17998,28 +17591,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2640 "parsing/parser.mly" - ( mkpatvar ~loc:_sloc _1 ) -# 18011 "parsing/parser.ml" - - in - let _endpos = _endpos__3_ in + let _v : (Parsetree.pattern * Parsetree.expression) = let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in - let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in - ( -# 2688 "parsing/parser.mly" - ( (_2, mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__1_) _3) ) -# 18021 "parsing/parser.ml" - : (Parsetree.pattern * Parsetree.expression)) + +# 2624 "parsing/parser.mly" + ( mkpatvar ~loc:_sloc _1 ) +# 17603 "parsing/parser.ml" + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 2672 "parsing/parser.mly" + ( (_2, mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__1_) _3) ) +# 17613 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18075,43 +17666,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let _1 = - let attrs2 = - let _1 = _1_inlined2 in - -# 4073 "parsing/parser.mly" + let _v : (let_bindings) = let _1 = + let attrs2 = + let _1 = _1_inlined2 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 18086 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined2_ in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 17676 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined2_ in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 18095 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 17685 "parsing/parser.ml" -# 2715 "parsing/parser.mly" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2699 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18107 "parsing/parser.ml" - - in - ( -# 2705 "parsing/parser.mly" - ( _1 ) -# 18113 "parsing/parser.ml" - : (let_bindings)) +# 17697 "parsing/parser.ml" + in + +# 2689 "parsing/parser.mly" + ( _1 ) +# 17703 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18140,9 +17729,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = -# 2706 "parsing/parser.mly" +# 2690 "parsing/parser.mly" ( addlb _1 _2 ) -# 18146 "parsing/parser.ml" +# 17735 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18192,48 +17781,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let _1 = - let attrs2 = - let _1 = _1_inlined2 in - -# 4073 "parsing/parser.mly" + let _v : (let_bindings) = let _1 = + let attrs2 = + let _1 = _1_inlined2 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 18203 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined2_ in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 17791 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined2_ in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 18212 "parsing/parser.ml" - - in - let ext = -# 4084 "parsing/parser.mly" - ( None ) -# 18218 "parsing/parser.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 17800 "parsing/parser.ml" -# 2715 "parsing/parser.mly" + in + let ext = +# 4068 "parsing/parser.mly" + ( None ) +# 17806 "parsing/parser.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2699 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18229 "parsing/parser.ml" - - in - ( -# 2705 "parsing/parser.mly" - ( _1 ) -# 18235 "parsing/parser.ml" - : (let_bindings)) +# 17817 "parsing/parser.ml" + in + +# 2689 "parsing/parser.mly" + ( _1 ) +# 17823 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18296,54 +17883,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let _1 = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" + let _v : (let_bindings) = let _1 = + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 18307 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let attrs1 = - let _1 = _1_inlined2 in - -# 4077 "parsing/parser.mly" +# 17893 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let attrs1 = + let _1 = _1_inlined2 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 18316 "parsing/parser.ml" - - in - let ext = - let _startpos__1_ = _startpos__1_inlined1_ in - let _endpos = _endpos__2_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - -# 4086 "parsing/parser.mly" +# 17902 "parsing/parser.ml" + + in + let ext = + let _startpos__1_ = _startpos__1_inlined1_ in + let _endpos = _endpos__2_ in + let _startpos = _startpos__1_ in + let _loc = (_startpos, _endpos) in + +# 4070 "parsing/parser.mly" ( not_expecting _loc "extension" ) -# 18327 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 17913 "parsing/parser.ml" -# 2715 "parsing/parser.mly" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2699 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18339 "parsing/parser.ml" - - in - ( -# 2705 "parsing/parser.mly" - ( _1 ) -# 18345 "parsing/parser.ml" - : (let_bindings)) +# 17925 "parsing/parser.ml" + in + +# 2689 "parsing/parser.mly" + ( _1 ) +# 17931 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18372,9 +17957,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = -# 2706 "parsing/parser.mly" +# 2690 "parsing/parser.mly" ( addlb _1 _2 ) -# 18378 "parsing/parser.ml" +# 17963 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18397,9 +17982,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 2345 "parsing/parser.mly" +# 2329 "parsing/parser.mly" ( _1 ) -# 18403 "parsing/parser.ml" +# 17988 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18435,29 +18020,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = - let _1 = -# 2347 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _1 = +# 2331 "parsing/parser.mly" ( Ppat_constraint(_1, _3) ) -# 18444 "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 - -# 1018 "parsing/parser.mly" +# 18028 "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 + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 18453 "parsing/parser.ml" - - in - ( -# 2348 "parsing/parser.mly" - ( _1 ) -# 18459 "parsing/parser.ml" - : (Parsetree.pattern)) +# 18037 "parsing/parser.ml" + in + +# 2332 "parsing/parser.mly" + ( _1 ) +# 18043 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18485,23 +18068,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_exp_ in - let _v = - let pat = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2640 "parsing/parser.mly" + let _v : (Parsetree.pattern * Parsetree.expression) = let pat = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2624 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 18497 "parsing/parser.ml" - - in - ( -# 2732 "parsing/parser.mly" - ( (pat, exp) ) -# 18503 "parsing/parser.ml" - : (Parsetree.pattern * Parsetree.expression)) +# 18079 "parsing/parser.ml" + in + +# 2716 "parsing/parser.mly" + ( (pat, exp) ) +# 18085 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18522,16 +18103,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - ( -# 2735 "parsing/parser.mly" + let _v : (Parsetree.pattern * Parsetree.expression) = let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + let _loc = (_startpos, _endpos) in + +# 2719 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1) ) -# 18533 "parsing/parser.ml" - : (Parsetree.pattern * Parsetree.expression)) - in +# 18113 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18581,10 +18160,10 @@ module Tables = struct let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2737 "parsing/parser.mly" +# 2721 "parsing/parser.mly" ( let loc = (_startpos_pat_, _endpos_typ_) in (ghpat ~loc (Ppat_constraint(pat, typ)), exp) ) -# 18588 "parsing/parser.ml" +# 18167 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18621,9 +18200,9 @@ module Tables = struct let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2740 "parsing/parser.mly" +# 2724 "parsing/parser.mly" ( (pat, exp) ) -# 18627 "parsing/parser.ml" +# 18206 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18646,10 +18225,10 @@ module Tables = struct let _startpos = _startpos_body_ in let _endpos = _endpos_body_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = -# 2744 "parsing/parser.mly" +# 2728 "parsing/parser.mly" ( let let_pat, let_exp = body in let_pat, let_exp, [] ) -# 18653 "parsing/parser.ml" +# 18232 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18681,38 +18260,36 @@ module Tables = struct } = _menhir_stack in let body : (Parsetree.pattern * Parsetree.expression) = Obj.magic body in let _1 : ( -# 780 "parsing/parser.mly" +# 764 "parsing/parser.mly" (string) -# 18687 "parsing/parser.ml" +# 18266 "parsing/parser.ml" ) = Obj.magic _1 in let bindings : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = Obj.magic bindings in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_bindings_ in let _endpos = _endpos_body_ in - let _v = - let pbop_op = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 18701 "parsing/parser.ml" - - in - let _endpos = _endpos_body_ in - let _symbolstartpos = _startpos_bindings_ in + let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = let pbop_op = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 2747 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 18279 "parsing/parser.ml" + + in + let _endpos = _endpos_body_ in + let _symbolstartpos = _startpos_bindings_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2731 "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" - : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list)) - in +# 18292 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18727,9 +18304,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_declaration list) = -# 208 "" +# 211 "" ( [] ) -# 18733 "parsing/parser.ml" +# 18310 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18793,9 +18370,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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 18799 "parsing/parser.ml" +# 18376 "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 @@ -18804,41 +18381,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 18815 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 18827 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.class_declaration list) = let x = + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 18835 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 18391 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1944 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 18403 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 18411 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1928 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -18846,15 +18422,14 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id body ~virt ~params ~attrs ~loc ~text ~docs ) -# 18850 "parsing/parser.ml" - - in - ( -# 210 "" - ( x :: xs ) -# 18856 "parsing/parser.ml" - : (Parsetree.class_declaration list)) +# 18426 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 18432 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18869,9 +18444,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_description list) = -# 208 "" +# 211 "" ( [] ) -# 18875 "parsing/parser.ml" +# 18450 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18942,9 +18517,9 @@ module Tables = struct let cty : (Parsetree.class_type) = Obj.magic cty in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 18948 "parsing/parser.ml" +# 18523 "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 @@ -18953,41 +18528,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 18964 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 18976 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.class_description list) = let x = + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 18984 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 18538 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2235 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 18550 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 18558 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2219 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -18995,15 +18569,14 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id cty ~virt ~params ~attrs ~loc ~text ~docs ) -# 18999 "parsing/parser.ml" - - in - ( -# 210 "" - ( x :: xs ) -# 19005 "parsing/parser.ml" - : (Parsetree.class_description list)) +# 18573 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 18579 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19018,9 +18591,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_type_declaration list) = -# 208 "" +# 211 "" ( [] ) -# 19024 "parsing/parser.ml" +# 18597 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19091,9 +18664,9 @@ module Tables = struct let csig : (Parsetree.class_type) = Obj.magic csig in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 19097 "parsing/parser.ml" +# 18670 "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 @@ -19102,41 +18675,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 19113 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 19125 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.class_type_declaration list) = let x = + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 19133 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 18685 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2274 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 18697 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 18705 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2258 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -19144,15 +18716,14 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id csig ~virt ~params ~attrs ~loc ~text ~docs ) -# 19148 "parsing/parser.ml" - - in - ( -# 210 "" - ( x :: xs ) -# 19154 "parsing/parser.ml" - : (Parsetree.class_type_declaration list)) +# 18720 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 18726 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19167,9 +18738,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.module_binding list) = -# 208 "" +# 211 "" ( [] ) -# 19173 "parsing/parser.ml" +# 18744 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19226,41 +18797,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 19237 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let name = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 19249 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.module_binding list) = let x = + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 19257 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 18807 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let name = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1599 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 18819 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 18827 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1583 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in @@ -19268,15 +18838,14 @@ module Tables = struct let text = symbol_text _symbolstartpos in Mb.mk name body ~attrs ~loc ~text ~docs ) -# 19272 "parsing/parser.ml" - - in - ( -# 210 "" - ( x :: xs ) -# 19278 "parsing/parser.ml" - : (Parsetree.module_binding list)) +# 18842 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 18848 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19291,9 +18860,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.module_declaration list) = -# 208 "" +# 211 "" ( [] ) -# 19297 "parsing/parser.ml" +# 18866 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19357,41 +18926,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 19368 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let name = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 19380 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.module_declaration list) = let x = + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 19388 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 18936 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let name = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1885 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 18948 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 18956 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1869 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let docs = symbol_docs _sloc in @@ -19399,15 +18967,14 @@ module Tables = struct let text = symbol_text _symbolstartpos in Md.mk name mty ~attrs ~loc ~text ~docs ) -# 19403 "parsing/parser.ml" - - in - ( -# 210 "" - ( x :: xs ) -# 19409 "parsing/parser.ml" - : (Parsetree.module_declaration list)) +# 18971 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 18977 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19422,9 +18989,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.attributes) = -# 208 "" +# 211 "" ( [] ) -# 19428 "parsing/parser.ml" +# 18995 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19454,9 +19021,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.attributes) = -# 210 "" +# 213 "" ( x :: xs ) -# 19460 "parsing/parser.ml" +# 19027 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19472,9 +19039,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.type_declaration list) = -# 208 "" +# 211 "" ( [] ) -# 19478 "parsing/parser.ml" +# 19045 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19539,9 +19106,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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 19545 "parsing/parser.ml" +# 19112 "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 @@ -19549,61 +19116,60 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let xs = xs_inlined1 in - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.type_declaration list) = let x = + let xs = xs_inlined1 in + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 19561 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let cstrs = - let _1 = - let xs = -# 250 "" +# 19127 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let cstrs = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 19570 "parsing/parser.ml" - in - -# 1067 "parsing/parser.mly" - ( xs ) -# 19575 "parsing/parser.ml" - - in - -# 3157 "parsing/parser.mly" - ( _1 ) -# 19581 "parsing/parser.ml" - - in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 19136 "parsing/parser.ml" + in -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 19592 "parsing/parser.ml" +# 1051 "parsing/parser.mly" + ( xs ) +# 19141 "parsing/parser.ml" in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + +# 3141 "parsing/parser.mly" ( _1 ) -# 19600 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 19147 "parsing/parser.ml" + + in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3146 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 19158 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 19166 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3130 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -19612,15 +19178,14 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 19616 "parsing/parser.ml" - - in - ( -# 210 "" - ( x :: xs ) -# 19622 "parsing/parser.ml" - : (Parsetree.type_declaration list)) +# 19182 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 19188 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19635,9 +19200,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.type_declaration list) = -# 208 "" +# 211 "" ( [] ) -# 19641 "parsing/parser.ml" +# 19206 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19709,9 +19274,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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 19715 "parsing/parser.ml" +# 19280 "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 @@ -19719,66 +19284,65 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let xs = xs_inlined1 in - let attrs2 = - let _1 = _1_inlined4 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.type_declaration list) = let x = + let xs = xs_inlined1 in + let attrs2 = + let _1 = _1_inlined4 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 19731 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let cstrs = - let _1 = - let xs = -# 250 "" +# 19295 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let cstrs = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 19740 "parsing/parser.ml" - in - -# 1067 "parsing/parser.mly" - ( xs ) -# 19745 "parsing/parser.ml" - - in - -# 3157 "parsing/parser.mly" - ( _1 ) -# 19751 "parsing/parser.ml" - - in - let kind_priv_manifest = -# 3192 "parsing/parser.mly" - ( _2 ) -# 19757 "parsing/parser.ml" - in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 19304 "parsing/parser.ml" + in -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 19767 "parsing/parser.ml" +# 1051 "parsing/parser.mly" + ( xs ) +# 19309 "parsing/parser.ml" in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + +# 3141 "parsing/parser.mly" ( _1 ) -# 19775 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 19315 "parsing/parser.ml" + + in + let kind_priv_manifest = +# 3176 "parsing/parser.mly" + ( _2 ) +# 19321 "parsing/parser.ml" + in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3146 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 19331 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 19339 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3130 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -19787,15 +19351,14 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 19791 "parsing/parser.ml" - - in - ( -# 210 "" - ( x :: xs ) -# 19797 "parsing/parser.ml" - : (Parsetree.type_declaration list)) +# 19355 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 19361 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19810,9 +19373,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.attributes) = -# 208 "" +# 211 "" ( [] ) -# 19816 "parsing/parser.ml" +# 19379 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19842,9 +19405,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.attributes) = -# 210 "" +# 213 "" ( x :: xs ) -# 19848 "parsing/parser.ml" +# 19411 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19860,9 +19423,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.signature_item list list) = -# 208 "" +# 211 "" ( [] ) -# 19866 "parsing/parser.ml" +# 19429 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19891,28 +19454,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _1 = - let _startpos = _startpos__1_ in - -# 993 "parsing/parser.mly" - ( text_sig _startpos ) -# 19902 "parsing/parser.ml" - - in + let _v : (Parsetree.signature_item list list) = let x = + let _1 = + let _startpos = _startpos__1_ in -# 1744 "parsing/parser.mly" - ( _1 ) -# 19908 "parsing/parser.ml" +# 977 "parsing/parser.mly" + ( text_sig _startpos ) +# 19464 "parsing/parser.ml" in - ( -# 210 "" - ( x :: xs ) -# 19914 "parsing/parser.ml" - : (Parsetree.signature_item list list)) + +# 1728 "parsing/parser.mly" + ( _1 ) +# 19470 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 19476 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19940,28 +19501,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _1 = - let _startpos = _startpos__1_ in - -# 991 "parsing/parser.mly" - ( text_sig _startpos @ [_1] ) -# 19951 "parsing/parser.ml" - - in + let _v : (Parsetree.signature_item list list) = let x = + let _1 = + let _startpos = _startpos__1_ in -# 1744 "parsing/parser.mly" - ( _1 ) -# 19957 "parsing/parser.ml" +# 975 "parsing/parser.mly" + ( text_sig _startpos @ [_1] ) +# 19511 "parsing/parser.ml" in - ( -# 210 "" - ( x :: xs ) -# 19963 "parsing/parser.ml" - : (Parsetree.signature_item list list)) + +# 1728 "parsing/parser.mly" + ( _1 ) +# 19517 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 19523 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19976,9 +19535,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.structure_item list list) = -# 208 "" +# 211 "" ( [] ) -# 19982 "parsing/parser.ml" +# 19541 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20007,47 +19566,45 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _1 = - let ys = - let items = -# 1053 "parsing/parser.mly" + let _v : (Parsetree.structure_item list list) = let x = + let _1 = + let ys = + let items = +# 1037 "parsing/parser.mly" ( [] ) -# 20018 "parsing/parser.ml" - in - -# 1482 "parsing/parser.mly" +# 19576 "parsing/parser.ml" + in + +# 1466 "parsing/parser.mly" ( items ) -# 20023 "parsing/parser.ml" - - in - let xs = - let _startpos = _startpos__1_ in - -# 989 "parsing/parser.mly" - ( text_str _startpos ) -# 20031 "parsing/parser.ml" - - in +# 19581 "parsing/parser.ml" -# 264 "" - ( xs @ ys ) -# 20037 "parsing/parser.ml" + in + let xs = + let _startpos = _startpos__1_ in + +# 973 "parsing/parser.mly" + ( text_str _startpos ) +# 19589 "parsing/parser.ml" in -# 1498 "parsing/parser.mly" - ( _1 ) -# 20043 "parsing/parser.ml" +# 267 "" + ( xs @ ys ) +# 19595 "parsing/parser.ml" in - ( -# 210 "" - ( x :: xs ) -# 20049 "parsing/parser.ml" - : (Parsetree.structure_item list list)) + +# 1482 "parsing/parser.mly" + ( _1 ) +# 19601 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 19607 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20089,82 +19646,80 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _1 = - let ys = - let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in - let items = - let x = + let _v : (Parsetree.structure_item list list) = let x = + let _1 = + let ys = + let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in + let items = + let x = + let _1 = let _1 = - let _1 = - let attrs = -# 4073 "parsing/parser.mly" - ( _1 ) -# 20105 "parsing/parser.ml" - in - -# 1489 "parsing/parser.mly" - ( mkstrexp e attrs ) -# 20110 "parsing/parser.ml" - - in - let _startpos__1_ = _startpos_e_ in - let _startpos = _startpos__1_ in + let attrs = +# 4057 "parsing/parser.mly" + ( _1 ) +# 19661 "parsing/parser.ml" + in -# 987 "parsing/parser.mly" - ( text_str _startpos @ [_1] ) -# 20118 "parsing/parser.ml" +# 1473 "parsing/parser.mly" + ( mkstrexp e attrs ) +# 19666 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in - let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1006 "parsing/parser.mly" - ( mark_rhs_docs _startpos _endpos; - _1 ) -# 20128 "parsing/parser.ml" +# 971 "parsing/parser.mly" + ( text_str _startpos @ [_1] ) +# 19674 "parsing/parser.ml" in + let _startpos__1_ = _startpos_e_ in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in -# 1055 "parsing/parser.mly" - ( x ) -# 20134 "parsing/parser.ml" +# 990 "parsing/parser.mly" + ( mark_rhs_docs _startpos _endpos; + _1 ) +# 19684 "parsing/parser.ml" in -# 1482 "parsing/parser.mly" - ( items ) -# 20140 "parsing/parser.ml" - - in - let xs = - let _startpos = _startpos__1_ in - -# 989 "parsing/parser.mly" - ( text_str _startpos ) -# 20148 "parsing/parser.ml" +# 1039 "parsing/parser.mly" + ( x ) +# 19690 "parsing/parser.ml" in -# 264 "" - ( xs @ ys ) -# 20154 "parsing/parser.ml" +# 1466 "parsing/parser.mly" + ( items ) +# 19696 "parsing/parser.ml" + + in + let xs = + let _startpos = _startpos__1_ in + +# 973 "parsing/parser.mly" + ( text_str _startpos ) +# 19704 "parsing/parser.ml" in -# 1498 "parsing/parser.mly" - ( _1 ) -# 20160 "parsing/parser.ml" +# 267 "" + ( xs @ ys ) +# 19710 "parsing/parser.ml" in - ( -# 210 "" - ( x :: xs ) -# 20166 "parsing/parser.ml" - : (Parsetree.structure_item list list)) + +# 1482 "parsing/parser.mly" + ( _1 ) +# 19716 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 19722 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20192,28 +19747,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _1 = - let _startpos = _startpos__1_ in - -# 987 "parsing/parser.mly" - ( text_str _startpos @ [_1] ) -# 20203 "parsing/parser.ml" - - in + let _v : (Parsetree.structure_item list list) = let x = + let _1 = + let _startpos = _startpos__1_ in -# 1498 "parsing/parser.mly" - ( _1 ) -# 20209 "parsing/parser.ml" +# 971 "parsing/parser.mly" + ( text_str _startpos @ [_1] ) +# 19757 "parsing/parser.ml" in - ( -# 210 "" - ( x :: xs ) -# 20215 "parsing/parser.ml" - : (Parsetree.structure_item list list)) + +# 1482 "parsing/parser.mly" + ( _1 ) +# 19763 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 19769 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20228,9 +19781,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_type_field list list) = -# 208 "" +# 211 "" ( [] ) -# 20234 "parsing/parser.ml" +# 19787 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20259,21 +19812,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _startpos = _startpos__1_ in - -# 1001 "parsing/parser.mly" + let _v : (Parsetree.class_type_field list list) = let x = + let _startpos = _startpos__1_ in + +# 985 "parsing/parser.mly" ( text_csig _startpos @ [_1] ) -# 20269 "parsing/parser.ml" - - in - ( -# 210 "" - ( x :: xs ) -# 20275 "parsing/parser.ml" - : (Parsetree.class_type_field list list)) +# 19821 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 19827 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20288,9 +19839,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_field list list) = -# 208 "" +# 211 "" ( [] ) -# 20294 "parsing/parser.ml" +# 19845 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20319,21 +19870,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _startpos = _startpos__1_ in - -# 999 "parsing/parser.mly" + let _v : (Parsetree.class_field list list) = let x = + let _startpos = _startpos__1_ in + +# 983 "parsing/parser.mly" ( text_cstr _startpos @ [_1] ) -# 20329 "parsing/parser.ml" - - in - ( -# 210 "" - ( x :: xs ) -# 20335 "parsing/parser.ml" - : (Parsetree.class_field list list)) +# 19879 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 19885 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20348,9 +19897,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.structure_item list list) = -# 208 "" +# 211 "" ( [] ) -# 20354 "parsing/parser.ml" +# 19903 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20379,21 +19928,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _startpos = _startpos__1_ in - -# 987 "parsing/parser.mly" + let _v : (Parsetree.structure_item list list) = let x = + let _startpos = _startpos__1_ in + +# 971 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20389 "parsing/parser.ml" - - in - ( -# 210 "" - ( x :: xs ) -# 20395 "parsing/parser.ml" - : (Parsetree.structure_item list list)) +# 19937 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 19943 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20408,9 +19955,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.toplevel_phrase list list) = -# 208 "" +# 211 "" ( [] ) -# 20414 "parsing/parser.ml" +# 19961 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20439,39 +19986,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _1 = - let x = - let _1 = -# 1053 "parsing/parser.mly" + let _v : (Parsetree.toplevel_phrase list list) = let x = + let _1 = + let x = + let _1 = +# 1037 "parsing/parser.mly" ( [] ) -# 20450 "parsing/parser.ml" - in - -# 1285 "parsing/parser.mly" - ( _1 ) -# 20455 "parsing/parser.ml" - - in +# 19996 "parsing/parser.ml" + in -# 180 "" - ( x ) -# 20461 "parsing/parser.ml" +# 1269 "parsing/parser.mly" + ( _1 ) +# 20001 "parsing/parser.ml" in -# 1297 "parsing/parser.mly" - ( _1 ) -# 20467 "parsing/parser.ml" +# 183 "" + ( x ) +# 20007 "parsing/parser.ml" in - ( -# 210 "" - ( x :: xs ) -# 20473 "parsing/parser.ml" - : (Parsetree.toplevel_phrase list list)) + +# 1281 "parsing/parser.mly" + ( _1 ) +# 20013 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 20019 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20513,70 +20058,68 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _1 = - let x = - let _1 = _1_inlined1 in - let _1 = - let x = + let _v : (Parsetree.toplevel_phrase list list) = let x = + let _1 = + let x = + let _1 = _1_inlined1 in + let _1 = + let x = + let _1 = let _1 = - let _1 = - let attrs = -# 4073 "parsing/parser.mly" - ( _1 ) -# 20529 "parsing/parser.ml" - in - -# 1489 "parsing/parser.mly" - ( mkstrexp e attrs ) -# 20534 "parsing/parser.ml" - - in + let attrs = +# 4057 "parsing/parser.mly" + ( _1 ) +# 20073 "parsing/parser.ml" + in -# 997 "parsing/parser.mly" - ( Ptop_def [_1] ) -# 20540 "parsing/parser.ml" +# 1473 "parsing/parser.mly" + ( mkstrexp e attrs ) +# 20078 "parsing/parser.ml" in - let _startpos__1_ = _startpos_e_ in - let _startpos = _startpos__1_ in -# 995 "parsing/parser.mly" - ( text_def _startpos @ [_1] ) -# 20548 "parsing/parser.ml" +# 981 "parsing/parser.mly" + ( Ptop_def [_1] ) +# 20084 "parsing/parser.ml" in + let _startpos__1_ = _startpos_e_ in + let _startpos = _startpos__1_ in -# 1055 "parsing/parser.mly" - ( x ) -# 20554 "parsing/parser.ml" +# 979 "parsing/parser.mly" + ( text_def _startpos @ [_1] ) +# 20092 "parsing/parser.ml" in -# 1285 "parsing/parser.mly" - ( _1 ) -# 20560 "parsing/parser.ml" +# 1039 "parsing/parser.mly" + ( x ) +# 20098 "parsing/parser.ml" in -# 180 "" - ( x ) -# 20566 "parsing/parser.ml" +# 1269 "parsing/parser.mly" + ( _1 ) +# 20104 "parsing/parser.ml" in -# 1297 "parsing/parser.mly" - ( _1 ) -# 20572 "parsing/parser.ml" +# 183 "" + ( x ) +# 20110 "parsing/parser.ml" in - ( -# 210 "" - ( x :: xs ) -# 20578 "parsing/parser.ml" - : (Parsetree.toplevel_phrase list list)) + +# 1281 "parsing/parser.mly" + ( _1 ) +# 20116 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 20122 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20604,33 +20147,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _1 = - let _1 = -# 997 "parsing/parser.mly" + let _v : (Parsetree.toplevel_phrase list list) = let x = + let _1 = + let _1 = +# 981 "parsing/parser.mly" ( Ptop_def [_1] ) -# 20614 "parsing/parser.ml" - in - let _startpos = _startpos__1_ in - -# 995 "parsing/parser.mly" - ( text_def _startpos @ [_1] ) -# 20620 "parsing/parser.ml" - - in +# 20156 "parsing/parser.ml" + in + let _startpos = _startpos__1_ in -# 1297 "parsing/parser.mly" - ( _1 ) -# 20626 "parsing/parser.ml" +# 979 "parsing/parser.mly" + ( text_def _startpos @ [_1] ) +# 20162 "parsing/parser.ml" in - ( -# 210 "" - ( x :: xs ) -# 20632 "parsing/parser.ml" - : (Parsetree.toplevel_phrase list list)) + +# 1281 "parsing/parser.mly" + ( _1 ) +# 20168 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 20174 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20658,38 +20199,36 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = + let _v : (Parsetree.toplevel_phrase list list) = let x = + let _1 = let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - -# 1006 "parsing/parser.mly" - ( mark_rhs_docs _startpos _endpos; - _1 ) -# 20672 "parsing/parser.ml" - - in + let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 995 "parsing/parser.mly" - ( text_def _startpos @ [_1] ) -# 20679 "parsing/parser.ml" +# 990 "parsing/parser.mly" + ( mark_rhs_docs _startpos _endpos; + _1 ) +# 20212 "parsing/parser.ml" in + let _startpos = _startpos__1_ in -# 1297 "parsing/parser.mly" - ( _1 ) -# 20685 "parsing/parser.ml" +# 979 "parsing/parser.mly" + ( text_def _startpos @ [_1] ) +# 20219 "parsing/parser.ml" in - ( -# 210 "" - ( x :: xs ) -# 20691 "parsing/parser.ml" - : (Parsetree.toplevel_phrase list list)) + +# 1281 "parsing/parser.mly" + ( _1 ) +# 20225 "parsing/parser.ml" + in + +# 213 "" + ( x :: xs ) +# 20231 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20724,29 +20263,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_opat_ in - let _v = - let _2 = -# 121 "" + let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = +# 124 "" ( None ) -# 20732 "parsing/parser.ml" - in - let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 20742 "parsing/parser.ml" - - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_opat_ in - let _symbolstartpos = _startpos_label_ in +# 20270 "parsing/parser.ml" + in + let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3032 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 20280 "parsing/parser.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_opat_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3016 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20760,15 +20298,14 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20764 "parsing/parser.ml" - - in - ( -# 1222 "parsing/parser.mly" - ( [x], None ) -# 20770 "parsing/parser.ml" - : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option)) +# 20302 "parsing/parser.ml" + in + +# 1206 "parsing/parser.mly" + ( [x], None ) +# 20308 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20810,29 +20347,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v = - let _2 = -# 123 "" + let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = +# 126 "" ( Some x ) -# 20818 "parsing/parser.ml" - in - let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 20828 "parsing/parser.ml" - - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_opat_ in - let _symbolstartpos = _startpos_label_ in +# 20354 "parsing/parser.ml" + in + let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3032 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 20364 "parsing/parser.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_opat_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3016 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20846,15 +20382,14 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20850 "parsing/parser.ml" - - in - ( -# 1222 "parsing/parser.mly" - ( [x], None ) -# 20856 "parsing/parser.ml" - : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option)) +# 20386 "parsing/parser.ml" + in + +# 1206 "parsing/parser.mly" + ( [x], None ) +# 20392 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20910,24 +20445,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 20923 "parsing/parser.ml" - - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_opat_ in - let _symbolstartpos = _startpos_label_ in + let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3032 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 20457 "parsing/parser.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_opat_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3016 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -20941,15 +20475,14 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 20945 "parsing/parser.ml" - - in - ( -# 1224 "parsing/parser.mly" - ( [x], Some y ) -# 20951 "parsing/parser.ml" - : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option)) +# 20479 "parsing/parser.ml" + in + +# 1208 "parsing/parser.mly" + ( [x], Some y ) +# 20485 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20998,24 +20531,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_tail_ in - let _v = - let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 21011 "parsing/parser.ml" - - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_opat_ in - let _symbolstartpos = _startpos_label_ in + let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3032 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 20543 "parsing/parser.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_opat_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3016 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -21029,16 +20561,15 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 21033 "parsing/parser.ml" - - in - ( -# 1228 "parsing/parser.mly" +# 20565 "parsing/parser.ml" + + in + +# 1212 "parsing/parser.mly" ( let xs, y = tail in x :: xs, y ) -# 21040 "parsing/parser.ml" - : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option)) - in +# 20572 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21060,9 +20591,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2769 "parsing/parser.mly" +# 2753 "parsing/parser.mly" ( _1 ) -# 21066 "parsing/parser.ml" +# 20597 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21098,16 +20629,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2771 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2755 "parsing/parser.mly" ( wrap_exp_stack (mkexp_constraint ~loc:_sloc _3 _1) (make_loc _sloc) ) -# 21109 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 20639 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21136,9 +20665,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2775 "parsing/parser.mly" +# 2759 "parsing/parser.mly" ( _2 ) -# 21142 "parsing/parser.ml" +# 20671 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21167,16 +20696,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2777 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2761 "parsing/parser.mly" ( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 21178 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 20706 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21225,21 +20752,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _3 = -# 2637 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _3 = +# 2621 "parsing/parser.mly" ( xs ) -# 21233 "parsing/parser.ml" - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2779 "parsing/parser.mly" +# 20759 "parsing/parser.ml" + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2763 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 21241 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 20767 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21275,9 +20800,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.case) = -# 2787 "parsing/parser.mly" +# 2771 "parsing/parser.mly" ( Exp.case _1 _3 ) -# 21281 "parsing/parser.ml" +# 20806 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21328,9 +20853,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.case) = -# 2789 "parsing/parser.mly" +# 2773 "parsing/parser.mly" ( Exp.case _1 ~guard:_3 _5 ) -# 21334 "parsing/parser.ml" +# 20859 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21366,14 +20891,12 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 2791 "parsing/parser.mly" + let _v : (Parsetree.case) = let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2775 "parsing/parser.mly" ( Exp.case _1 (Exp.unreachable ~loc:(make_loc _loc__3_) ()) ) -# 21375 "parsing/parser.ml" - : (Parsetree.case)) - in +# 20899 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21433,61 +20956,60 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 21439 "parsing/parser.ml" +# 20962 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_tail_ in - let _v = - let head = - let _6 = - let _1 = _1_inlined3 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = + let _6 = + let _1 = _1_inlined3 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 21451 "parsing/parser.ml" - - in - let _endpos__6_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - -# 4077 "parsing/parser.mly" +# 20973 "parsing/parser.ml" + + in + let _endpos__6_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 21460 "parsing/parser.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _3 = - let _1 = _1_inlined1 in - -# 3471 "parsing/parser.mly" +# 20982 "parsing/parser.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _3 = + let _1 = _1_inlined1 in + +# 3455 "parsing/parser.mly" ( _1 ) -# 21469 "parsing/parser.ml" - - in - let _1 = - let _1 = -# 3722 "parsing/parser.mly" +# 20991 "parsing/parser.ml" + + in + let _1 = + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 21476 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 21484 "parsing/parser.ml" - - in - let _endpos = _endpos__6_ in +# 20998 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3707 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 21006 "parsing/parser.ml" + + in + let _endpos = _endpos__6_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3691 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -21495,15 +21017,14 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 21499 "parsing/parser.ml" - - in - ( -# 3688 "parsing/parser.mly" - ( let (f, c) = tail in (head :: f, c) ) -# 21505 "parsing/parser.ml" - : (Parsetree.object_field list * Asttypes.closed_flag)) +# 21021 "parsing/parser.ml" + in + +# 3672 "parsing/parser.mly" + ( let (f, c) = tail in (head :: f, c) ) +# 21027 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21538,23 +21059,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_tail_ in - let _v = - let head = - let _endpos = _endpos_ty_ in - let _symbolstartpos = _startpos_ty_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3718 "parsing/parser.mly" + let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = + let _endpos = _endpos_ty_ in + let _symbolstartpos = _startpos_ty_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3702 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21550 "parsing/parser.ml" - - in - ( -# 3688 "parsing/parser.mly" - ( let (f, c) = tail in (head :: f, c) ) -# 21556 "parsing/parser.ml" - : (Parsetree.object_field list * Asttypes.closed_flag)) +# 21070 "parsing/parser.ml" + in + +# 3672 "parsing/parser.mly" + ( let (f, c) = tail in (head :: f, c) ) +# 21076 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21607,61 +21126,60 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 21613 "parsing/parser.ml" +# 21132 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let head = - let _6 = - let _1 = _1_inlined3 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = + let _6 = + let _1 = _1_inlined3 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 21625 "parsing/parser.ml" - - in - let _endpos__6_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - -# 4077 "parsing/parser.mly" +# 21143 "parsing/parser.ml" + + in + let _endpos__6_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 21634 "parsing/parser.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _3 = - let _1 = _1_inlined1 in - -# 3471 "parsing/parser.mly" +# 21152 "parsing/parser.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _3 = + let _1 = _1_inlined1 in + +# 3455 "parsing/parser.mly" ( _1 ) -# 21643 "parsing/parser.ml" - - in - let _1 = - let _1 = -# 3722 "parsing/parser.mly" +# 21161 "parsing/parser.ml" + + in + let _1 = + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 21650 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 21658 "parsing/parser.ml" - - in - let _endpos = _endpos__6_ in +# 21168 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3707 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 21176 "parsing/parser.ml" + + in + let _endpos = _endpos__6_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3691 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -21669,15 +21187,14 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 21673 "parsing/parser.ml" - - in - ( -# 3691 "parsing/parser.mly" - ( [head], Closed ) -# 21679 "parsing/parser.ml" - : (Parsetree.object_field list * Asttypes.closed_flag)) +# 21191 "parsing/parser.ml" + in + +# 3675 "parsing/parser.mly" + ( [head], Closed ) +# 21197 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21705,23 +21222,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos__2_ in - let _v = - let head = - let _endpos = _endpos_ty_ in - let _symbolstartpos = _startpos_ty_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3718 "parsing/parser.mly" + let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = + let _endpos = _endpos_ty_ in + let _symbolstartpos = _startpos_ty_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3702 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21717 "parsing/parser.ml" - - in - ( -# 3691 "parsing/parser.mly" - ( [head], Closed ) -# 21723 "parsing/parser.ml" - : (Parsetree.object_field list * Asttypes.closed_flag)) +# 21233 "parsing/parser.ml" + in + +# 3675 "parsing/parser.mly" + ( [head], Closed ) +# 21239 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21760,64 +21275,62 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 21766 "parsing/parser.ml" +# 21281 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let head = - let _4 = - let _1 = _1_inlined2 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = + let _4 = + let _1 = _1_inlined2 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 21778 "parsing/parser.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _3 = - let _1 = _1_inlined1 in - -# 3471 "parsing/parser.mly" +# 21292 "parsing/parser.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _3 = + let _1 = _1_inlined1 in + +# 3455 "parsing/parser.mly" ( _1 ) -# 21787 "parsing/parser.ml" - - in - let _1 = - let _1 = -# 3722 "parsing/parser.mly" +# 21301 "parsing/parser.ml" + + in + let _1 = + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 21794 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 21802 "parsing/parser.ml" - - in - let _endpos = _endpos__4_ in +# 21308 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3700 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 21316 "parsing/parser.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3684 "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 ) -# 21813 "parsing/parser.ml" - - in - ( -# 3694 "parsing/parser.mly" - ( [head], Closed ) -# 21819 "parsing/parser.ml" - : (Parsetree.object_field list * Asttypes.closed_flag)) +# 21327 "parsing/parser.ml" + in + +# 3678 "parsing/parser.mly" + ( [head], Closed ) +# 21333 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21838,23 +21351,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in - let _v = - let head = - let _endpos = _endpos_ty_ in - let _symbolstartpos = _startpos_ty_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3718 "parsing/parser.mly" + let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = + let _endpos = _endpos_ty_ in + let _symbolstartpos = _startpos_ty_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3702 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21850 "parsing/parser.ml" - - in - ( -# 3694 "parsing/parser.mly" - ( [head], Closed ) -# 21856 "parsing/parser.ml" - : (Parsetree.object_field list * Asttypes.closed_flag)) +# 21362 "parsing/parser.ml" + in + +# 3678 "parsing/parser.mly" + ( [head], Closed ) +# 21368 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21876,9 +21387,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.object_field list * Asttypes.closed_flag) = -# 3696 "parsing/parser.mly" +# 3680 "parsing/parser.mly" ( [], Open ) -# 21882 "parsing/parser.ml" +# 21393 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21923,58 +21434,56 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 21929 "parsing/parser.ml" +# 21440 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let private_ : (Asttypes.private_flag) = Obj.magic private_ in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let ty = - let _1 = _1_inlined2 in - -# 3467 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let ty = + let _1 = _1_inlined2 in + +# 3451 "parsing/parser.mly" ( _1 ) -# 21942 "parsing/parser.ml" - - in - let label = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = -# 3722 "parsing/parser.mly" +# 21454 "parsing/parser.ml" + + in + let label = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 21950 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 21462 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21958 "parsing/parser.ml" - - in - let attrs = -# 4077 "parsing/parser.mly" +# 21470 "parsing/parser.ml" + + in + let attrs = +# 4061 "parsing/parser.mly" ( _1 ) -# 21964 "parsing/parser.ml" - in - let _1 = -# 3974 "parsing/parser.mly" +# 21476 "parsing/parser.ml" + in + let _1 = +# 3958 "parsing/parser.mly" ( Fresh ) -# 21969 "parsing/parser.ml" - in - ( -# 2082 "parsing/parser.mly" +# 21481 "parsing/parser.ml" + in + +# 2066 "parsing/parser.mly" ( (label, private_, Cfk_virtual ty), attrs ) -# 21974 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 21486 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22011,53 +21520,51 @@ module Tables = struct } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 22017 "parsing/parser.ml" +# 21526 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = -# 3722 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 22030 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 21540 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22038 "parsing/parser.ml" - - in - let _2 = -# 4077 "parsing/parser.mly" +# 21548 "parsing/parser.ml" + + in + let _2 = +# 4061 "parsing/parser.mly" ( _1 ) -# 22044 "parsing/parser.ml" - in - let _1 = -# 3977 "parsing/parser.mly" +# 21554 "parsing/parser.ml" + in + let _1 = +# 3961 "parsing/parser.mly" ( Fresh ) -# 22049 "parsing/parser.ml" - in - ( -# 2084 "parsing/parser.mly" +# 21559 "parsing/parser.ml" + in + +# 2068 "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 ) -# 22057 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 21567 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22100,9 +21607,9 @@ module Tables = struct } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined2 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 22106 "parsing/parser.ml" +# 21613 "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 @@ -22110,47 +21617,45 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _1 = -# 3722 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 22120 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 21628 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22128 "parsing/parser.ml" - - in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 21636 "parsing/parser.ml" + + in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 22136 "parsing/parser.ml" - - in - let _1 = -# 3978 "parsing/parser.mly" +# 21644 "parsing/parser.ml" + + in + let _1 = +# 3962 "parsing/parser.mly" ( Override ) -# 22142 "parsing/parser.ml" - in - ( -# 2084 "parsing/parser.mly" +# 21650 "parsing/parser.ml" + in + +# 2068 "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 ) -# 22150 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 21658 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22208,62 +21713,60 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 22214 "parsing/parser.ml" +# 21719 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in - let _v = - let _6 = - let _1 = _1_inlined2 in - -# 3467 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let _6 = + let _1 = _1_inlined2 in + +# 3451 "parsing/parser.mly" ( _1 ) -# 22227 "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 = -# 3722 "parsing/parser.mly" +# 21733 "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 = +# 3706 "parsing/parser.mly" ( _1 ) -# 22236 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 21742 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22244 "parsing/parser.ml" - - in - let _2 = -# 4077 "parsing/parser.mly" +# 21750 "parsing/parser.ml" + + in + let _2 = +# 4061 "parsing/parser.mly" ( _1 ) -# 22250 "parsing/parser.ml" - in - let _1 = -# 3977 "parsing/parser.mly" +# 21756 "parsing/parser.ml" + in + let _1 = +# 3961 "parsing/parser.mly" ( Fresh ) -# 22255 "parsing/parser.ml" - in - ( -# 2090 "parsing/parser.mly" +# 21761 "parsing/parser.ml" + in + +# 2074 "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 ) -# 22263 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 21769 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22327,9 +21830,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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 22333 "parsing/parser.ml" +# 21836 "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 @@ -22337,56 +21840,54 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in - let _v = - let _6 = - let _1 = _1_inlined3 in - -# 3467 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let _6 = + let _1 = _1_inlined3 in + +# 3451 "parsing/parser.mly" ( _1 ) -# 22347 "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 = -# 3722 "parsing/parser.mly" +# 21851 "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 = +# 3706 "parsing/parser.mly" ( _1 ) -# 22356 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 21860 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22364 "parsing/parser.ml" - - in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 21868 "parsing/parser.ml" + + in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 22372 "parsing/parser.ml" - - in - let _1 = -# 3978 "parsing/parser.mly" +# 21876 "parsing/parser.ml" + + in + let _1 = +# 3962 "parsing/parser.mly" ( Override ) -# 22378 "parsing/parser.ml" - in - ( -# 2090 "parsing/parser.mly" +# 21882 "parsing/parser.ml" + in + +# 2074 "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 ) -# 22386 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 21890 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22465,65 +21966,66 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 22471 "parsing/parser.ml" +# 21972 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__11_ in - let _v = - let _7 = -# 2637 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let _7 = +# 2621 "parsing/parser.mly" ( xs ) -# 22482 "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 = -# 3722 "parsing/parser.mly" +# 21984 "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 = +# 3706 "parsing/parser.mly" ( _1 ) -# 22490 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 21992 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22498 "parsing/parser.ml" - - in - let _startpos__4_ = _startpos__1_inlined1_ in - let _2 = -# 4077 "parsing/parser.mly" +# 22000 "parsing/parser.ml" + + in + let _startpos__4_ = _startpos__1_inlined1_ in + let _2 = +# 4061 "parsing/parser.mly" ( _1 ) -# 22505 "parsing/parser.ml" - in - let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in - let _1 = -# 3977 "parsing/parser.mly" +# 22007 "parsing/parser.ml" + in + let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in + let _1 = +# 3961 "parsing/parser.mly" ( Fresh ) -# 22511 "parsing/parser.ml" - in - let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in - let _endpos = _endpos__11_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ +# 22013 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in + let _endpos = _endpos__11_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + if _startpos__2_ != _endpos__2_ then + _startpos__2_ else - if _startpos__2_ != _endpos__2_ then - _startpos__2_ + if _startpos__3_ != _endpos__3_ then + _startpos__3_ else - if _startpos__3_ != _endpos__3_ then - _startpos__3_ - else - _startpos__4_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2096 "parsing/parser.mly" + _startpos__4_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2080 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = @@ -22534,11 +22036,8 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22538 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 22040 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22623,9 +22122,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 22629 "parsing/parser.ml" +# 22128 "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 @@ -22633,58 +22132,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__11_ in - let _v = - let _7 = -# 2637 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let _7 = +# 2621 "parsing/parser.mly" ( xs ) -# 22641 "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 = -# 3722 "parsing/parser.mly" +# 22141 "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 = +# 3706 "parsing/parser.mly" ( _1 ) -# 22649 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 22149 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22657 "parsing/parser.ml" - - in - let _startpos__4_ = _startpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 22157 "parsing/parser.ml" + + in + let _startpos__4_ = _startpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 22666 "parsing/parser.ml" - - in - let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in - let _1 = -# 3978 "parsing/parser.mly" +# 22166 "parsing/parser.ml" + + in + let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in + let _1 = +# 3962 "parsing/parser.mly" ( Override ) -# 22673 "parsing/parser.ml" - in - let _endpos = _endpos__11_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ +# 22173 "parsing/parser.ml" + in + let _endpos = _endpos__11_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + if _startpos__2_ != _endpos__2_ then + _startpos__2_ else - if _startpos__2_ != _endpos__2_ then - _startpos__2_ + if _startpos__3_ != _endpos__3_ then + _startpos__3_ else - if _startpos__3_ != _endpos__3_ then - _startpos__3_ - else - _startpos__4_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2096 "parsing/parser.mly" + _startpos__4_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2080 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = @@ -22695,11 +22195,8 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22699 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 22199 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22717,17 +22214,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 22723 "parsing/parser.ml" +# 22220 "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) = -# 3819 "parsing/parser.mly" +# 3803 "parsing/parser.mly" ( Lident _1 ) -# 22731 "parsing/parser.ml" +# 22228 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22758,9 +22255,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 22764 "parsing/parser.ml" +# 22261 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -22768,9 +22265,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3820 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22774 "parsing/parser.ml" +# 22271 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22789,17 +22286,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 850 "parsing/parser.mly" +# 834 "parsing/parser.mly" (string) -# 22795 "parsing/parser.ml" +# 22292 "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) = -# 3819 "parsing/parser.mly" +# 3803 "parsing/parser.mly" ( Lident _1 ) -# 22803 "parsing/parser.ml" +# 22300 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22830,9 +22327,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 850 "parsing/parser.mly" +# 834 "parsing/parser.mly" (string) -# 22836 "parsing/parser.ml" +# 22333 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -22840,9 +22337,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3820 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 22846 "parsing/parser.ml" +# 22343 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22864,18 +22361,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3857 "parsing/parser.mly" + let _v : (Longident.t) = let _1 = +# 3841 "parsing/parser.mly" ( _1 ) -# 22872 "parsing/parser.ml" - in - ( -# 3819 "parsing/parser.mly" +# 22368 "parsing/parser.ml" + in + +# 3803 "parsing/parser.mly" ( Lident _1 ) -# 22877 "parsing/parser.ml" - : (Longident.t)) - in +# 22373 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22910,25 +22405,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = - let _1 = -# 3799 "parsing/parser.mly" + let _v : (Longident.t) = let _1 = + let _1 = +# 3783 "parsing/parser.mly" ( "::" ) -# 22919 "parsing/parser.ml" - in - -# 3857 "parsing/parser.mly" +# 22413 "parsing/parser.ml" + in + +# 3841 "parsing/parser.mly" ( _1 ) -# 22924 "parsing/parser.ml" - - in - ( -# 3819 "parsing/parser.mly" - ( Lident _1 ) -# 22930 "parsing/parser.ml" - : (Longident.t)) +# 22418 "parsing/parser.ml" + in + +# 3803 "parsing/parser.mly" + ( Lident _1 ) +# 22424 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22949,18 +22442,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3857 "parsing/parser.mly" + let _v : (Longident.t) = let _1 = +# 3841 "parsing/parser.mly" ( _1 ) -# 22957 "parsing/parser.ml" - in - ( -# 3819 "parsing/parser.mly" +# 22449 "parsing/parser.ml" + in + +# 3803 "parsing/parser.mly" ( Lident _1 ) -# 22962 "parsing/parser.ml" - : (Longident.t)) - in +# 22454 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22995,21 +22486,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let _3 = - let _1 = _1_inlined1 in - -# 3857 "parsing/parser.mly" + let _v : (Longident.t) = let _3 = + let _1 = _1_inlined1 in + +# 3841 "parsing/parser.mly" ( _1 ) -# 23005 "parsing/parser.ml" - - in - ( -# 3820 "parsing/parser.mly" - ( Ldot(_1,_3) ) -# 23011 "parsing/parser.ml" - : (Longident.t)) +# 22495 "parsing/parser.ml" + in + +# 3804 "parsing/parser.mly" + ( Ldot(_1,_3) ) +# 22501 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23058,25 +22547,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _3 = - let _1 = -# 3799 "parsing/parser.mly" + let _v : (Longident.t) = let _3 = + let _1 = +# 3783 "parsing/parser.mly" ( "::" ) -# 23067 "parsing/parser.ml" - in - -# 3857 "parsing/parser.mly" +# 22555 "parsing/parser.ml" + in + +# 3841 "parsing/parser.mly" ( _1 ) -# 23072 "parsing/parser.ml" - - in - ( -# 3820 "parsing/parser.mly" - ( Ldot(_1,_3) ) -# 23078 "parsing/parser.ml" - : (Longident.t)) +# 22560 "parsing/parser.ml" + in + +# 3804 "parsing/parser.mly" + ( Ldot(_1,_3) ) +# 22566 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23111,21 +22598,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let _3 = - let _1 = _1_inlined1 in - -# 3857 "parsing/parser.mly" + let _v : (Longident.t) = let _3 = + let _1 = _1_inlined1 in + +# 3841 "parsing/parser.mly" ( _1 ) -# 23121 "parsing/parser.ml" - - in - ( -# 3820 "parsing/parser.mly" - ( Ldot(_1,_3) ) -# 23127 "parsing/parser.ml" - : (Longident.t)) +# 22607 "parsing/parser.ml" + in + +# 3804 "parsing/parser.mly" + ( Ldot(_1,_3) ) +# 22613 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23147,9 +22632,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3819 "parsing/parser.mly" +# 3803 "parsing/parser.mly" ( Lident _1 ) -# 23153 "parsing/parser.ml" +# 22638 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23186,9 +22671,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3820 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23192 "parsing/parser.ml" +# 22677 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23207,17 +22692,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 23213 "parsing/parser.ml" +# 22698 "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) = -# 3819 "parsing/parser.mly" +# 3803 "parsing/parser.mly" ( Lident _1 ) -# 23221 "parsing/parser.ml" +# 22706 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23248,9 +22733,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 23254 "parsing/parser.ml" +# 22739 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23258,9 +22743,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3820 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23264 "parsing/parser.ml" +# 22749 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23279,17 +22764,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 850 "parsing/parser.mly" +# 834 "parsing/parser.mly" (string) -# 23285 "parsing/parser.ml" +# 22770 "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) = -# 3819 "parsing/parser.mly" +# 3803 "parsing/parser.mly" ( Lident _1 ) -# 23293 "parsing/parser.ml" +# 22778 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23320,9 +22805,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 850 "parsing/parser.mly" +# 834 "parsing/parser.mly" (string) -# 23326 "parsing/parser.ml" +# 22811 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23330,9 +22815,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3820 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23336 "parsing/parser.ml" +# 22821 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23355,9 +22840,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3819 "parsing/parser.mly" +# 3803 "parsing/parser.mly" ( Lident _1 ) -# 23361 "parsing/parser.ml" +# 22846 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23394,9 +22879,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 3820 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23400 "parsing/parser.ml" +# 22885 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23419,9 +22904,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3835 "parsing/parser.mly" +# 3819 "parsing/parser.mly" ( _1 ) -# 23425 "parsing/parser.ml" +# 22910 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23464,16 +22949,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 3837 "parsing/parser.mly" + let _v : (Longident.t) = let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3821 "parsing/parser.mly" ( lapply ~loc:_sloc _1 _3 ) -# 23475 "parsing/parser.ml" - : (Longident.t)) - in +# 22959 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23508,14 +22991,12 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 3839 "parsing/parser.mly" + let _v : (Longident.t) = let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 3823 "parsing/parser.mly" ( expecting _loc__3_ "module path" ) -# 23517 "parsing/parser.ml" - : (Longident.t)) - in +# 22999 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23537,9 +23018,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3832 "parsing/parser.mly" +# 3816 "parsing/parser.mly" ( _1 ) -# 23543 "parsing/parser.ml" +# 23024 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23569,9 +23050,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = -# 1558 "parsing/parser.mly" +# 1542 "parsing/parser.mly" ( me ) -# 23575 "parsing/parser.ml" +# 23056 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23614,29 +23095,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in - let _v = - let _1 = - let _1 = -# 1561 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let _1 = + let _1 = +# 1545 "parsing/parser.mly" ( Pmod_constraint(me, mty) ) -# 23623 "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 - -# 1026 "parsing/parser.mly" +# 23103 "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 + +# 1010 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23632 "parsing/parser.ml" - - in - ( -# 1565 "parsing/parser.mly" - ( _1 ) -# 23638 "parsing/parser.ml" - : (Parsetree.module_expr)) +# 23112 "parsing/parser.ml" + in + +# 1549 "parsing/parser.mly" + ( _1 ) +# 23118 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23664,30 +23143,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_arg_and_pos_ in let _endpos = _endpos_body_ in - let _v = - let _1 = - let _1 = -# 1563 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let _1 = + let _1 = +# 1547 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmod_functor(arg, body) ) -# 23674 "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 - -# 1026 "parsing/parser.mly" +# 23152 "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 + +# 1010 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23683 "parsing/parser.ml" - - in - ( -# 1565 "parsing/parser.mly" - ( _1 ) -# 23689 "parsing/parser.ml" - : (Parsetree.module_expr)) +# 23161 "parsing/parser.ml" + in + +# 1549 "parsing/parser.mly" + ( _1 ) +# 23167 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23716,9 +23193,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_mty_ in let _v : (Parsetree.module_type) = -# 1811 "parsing/parser.mly" +# 1795 "parsing/parser.mly" ( mty ) -# 23722 "parsing/parser.ml" +# 23199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23747,30 +23224,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_arg_and_pos_ in let _endpos = _endpos_body_ in - let _v = - let _1 = - let _1 = -# 1814 "parsing/parser.mly" + let _v : (Parsetree.module_type) = let _1 = + let _1 = +# 1798 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmty_functor(arg, body) ) -# 23757 "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 - -# 1028 "parsing/parser.mly" +# 23233 "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 + +# 1012 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 23766 "parsing/parser.ml" - - in - ( -# 1817 "parsing/parser.mly" - ( _1 ) -# 23772 "parsing/parser.ml" - : (Parsetree.module_type)) +# 23242 "parsing/parser.ml" + in + +# 1801 "parsing/parser.mly" + ( _1 ) +# 23248 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23812,24 +23287,22 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let attrs = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let attrs = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 23822 "parsing/parser.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1397 "parsing/parser.mly" - ( mkmod ~loc:_sloc ~attrs (Pmod_structure s) ) -# 23831 "parsing/parser.ml" - : (Parsetree.module_expr)) +# 23296 "parsing/parser.ml" + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1381 "parsing/parser.mly" + ( mkmod ~loc:_sloc ~attrs (Pmod_structure s) ) +# 23305 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23871,23 +23344,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 23881 "parsing/parser.ml" - - in - let _loc__4_ = (_startpos__4_, _endpos__4_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 1399 "parsing/parser.mly" - ( unclosed "struct" _loc__1_ "end" _loc__4_ ) -# 23889 "parsing/parser.ml" - : (Parsetree.module_expr)) +# 23353 "parsing/parser.ml" + in + let _loc__4_ = (_startpos__4_, _endpos__4_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1383 "parsing/parser.mly" + ( unclosed "struct" _loc__1_ "end" _loc__4_ ) +# 23361 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23936,36 +23407,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in - let _v = - let args = - let _1 = _1_inlined2 in - -# 1363 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let args = + let _1 = _1_inlined2 in + +# 1347 "parsing/parser.mly" ( _1 ) -# 23946 "parsing/parser.ml" - - in - let attrs = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 23416 "parsing/parser.ml" + + in + let attrs = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 23954 "parsing/parser.ml" - - in - let _endpos = _endpos_me_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1401 "parsing/parser.mly" +# 23424 "parsing/parser.ml" + + in + let _endpos = _endpos_me_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1385 "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 ) ) -# 23967 "parsing/parser.ml" - : (Parsetree.module_expr)) - in +# 23437 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23987,9 +23456,9 @@ module Tables = struct let _startpos = _startpos_me_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = -# 1407 "parsing/parser.mly" +# 1391 "parsing/parser.mly" ( me ) -# 23993 "parsing/parser.ml" +# 23462 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24019,9 +23488,9 @@ module Tables = struct let _startpos = _startpos_me_ in let _endpos = _endpos_attr_ in let _v : (Parsetree.module_expr) = -# 1409 "parsing/parser.mly" +# 1393 "parsing/parser.mly" ( Mod.attr me attr ) -# 24025 "parsing/parser.ml" +# 23494 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24043,40 +23512,38 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.module_expr) = let _1 = let _1 = - let _1 = - let x = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 24057 "parsing/parser.ml" - - in + let x = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 1413 "parsing/parser.mly" - ( Pmod_ident x ) -# 24063 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 23525 "parsing/parser.ml" in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" - ( mkmod ~loc:_sloc _1 ) -# 24072 "parsing/parser.ml" +# 1397 "parsing/parser.mly" + ( Pmod_ident x ) +# 23531 "parsing/parser.ml" in - ( -# 1425 "parsing/parser.mly" - ( _1 ) -# 24078 "parsing/parser.ml" - : (Parsetree.module_expr)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1010 "parsing/parser.mly" + ( mkmod ~loc:_sloc _1 ) +# 23540 "parsing/parser.ml" + in + +# 1409 "parsing/parser.mly" + ( _1 ) +# 23546 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24104,29 +23571,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_me1_ in let _endpos = _endpos_me2_ in - let _v = - let _1 = - let _1 = -# 1416 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let _1 = + let _1 = +# 1400 "parsing/parser.mly" ( Pmod_apply(me1, me2) ) -# 24113 "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 - -# 1026 "parsing/parser.mly" +# 23579 "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 + +# 1010 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24122 "parsing/parser.ml" - - in - ( -# 1425 "parsing/parser.mly" - ( _1 ) -# 24128 "parsing/parser.ml" - : (Parsetree.module_expr)) +# 23588 "parsing/parser.ml" + in + +# 1409 "parsing/parser.mly" + ( _1 ) +# 23594 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24161,35 +23626,33 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_me1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.module_expr) = let _1 = let _1 = - let _1 = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos_me1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1419 "parsing/parser.mly" - ( (* TODO review mkmod location *) - Pmod_apply(me1, mkmod ~loc:_sloc (Pmod_structure [])) ) -# 24175 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos_me1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1026 "parsing/parser.mly" - ( mkmod ~loc:_sloc _1 ) -# 24185 "parsing/parser.ml" +# 1403 "parsing/parser.mly" + ( (* TODO review mkmod location *) + Pmod_apply(me1, mkmod ~loc:_sloc (Pmod_structure [])) ) +# 23639 "parsing/parser.ml" in - ( -# 1425 "parsing/parser.mly" - ( _1 ) -# 24191 "parsing/parser.ml" - : (Parsetree.module_expr)) + let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1010 "parsing/parser.mly" + ( mkmod ~loc:_sloc _1 ) +# 23649 "parsing/parser.ml" + in + +# 1409 "parsing/parser.mly" + ( _1 ) +# 23655 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24210,29 +23673,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ex_ in let _endpos = _endpos_ex_ in - let _v = - let _1 = - let _1 = -# 1423 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let _1 = + let _1 = +# 1407 "parsing/parser.mly" ( Pmod_extension ex ) -# 24219 "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 - -# 1026 "parsing/parser.mly" +# 23681 "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 + +# 1010 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24228 "parsing/parser.ml" - - in - ( -# 1425 "parsing/parser.mly" - ( _1 ) -# 24234 "parsing/parser.ml" - : (Parsetree.module_expr)) +# 23690 "parsing/parser.ml" + in + +# 1409 "parsing/parser.mly" + ( _1 ) +# 23696 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24250,17 +23711,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : ( -# 850 "parsing/parser.mly" +# 834 "parsing/parser.mly" (string) -# 24256 "parsing/parser.ml" +# 23717 "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) = -# 1380 "parsing/parser.mly" +# 1364 "parsing/parser.mly" ( Some x ) -# 24264 "parsing/parser.ml" +# 23725 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24283,9 +23744,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string option) = -# 1383 "parsing/parser.mly" +# 1367 "parsing/parser.mly" ( None ) -# 24289 "parsing/parser.ml" +# 23750 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24343,9 +23804,9 @@ module Tables = struct let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 850 "parsing/parser.mly" +# 834 "parsing/parser.mly" (string) -# 24349 "parsing/parser.ml" +# 23810 "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 @@ -24353,60 +23814,58 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in - let _v = - let attrs2 = - let _1 = _1_inlined4 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.module_substitution * string Asttypes.loc option) = let attrs2 = + let _1 = _1_inlined4 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 24363 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let body = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 24375 "parsing/parser.ml" - - in - let uid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 23823 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let body = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24386 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 24394 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 23835 "parsing/parser.ml" + + in + let uid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 1847 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 23846 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 23854 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1831 "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 ) -# 24408 "parsing/parser.ml" - : (Parsetree.module_substitution * string Asttypes.loc option)) - in +# 23868 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24456,9 +23915,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 850 "parsing/parser.mly" +# 834 "parsing/parser.mly" (string) -# 24462 "parsing/parser.ml" +# 23921 "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 @@ -24466,33 +23925,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.module_substitution * string Asttypes.loc option) = let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24479 "parsing/parser.ml" - - in - let _3 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 23937 "parsing/parser.ml" + + in + let _3 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 24487 "parsing/parser.ml" - - in - let _loc__6_ = (_startpos__6_, _endpos__6_) in - ( -# 1854 "parsing/parser.mly" - ( expecting _loc__6_ "module path" ) -# 24494 "parsing/parser.ml" - : (Parsetree.module_substitution * string Asttypes.loc option)) +# 23945 "parsing/parser.ml" + in + let _loc__6_ = (_startpos__6_, _endpos__6_) in + +# 1838 "parsing/parser.mly" + ( expecting _loc__6_ "module path" ) +# 23952 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24534,24 +23991,22 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let attrs = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.module_type) = let attrs = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 24544 "parsing/parser.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1697 "parsing/parser.mly" - ( mkmty ~loc:_sloc ~attrs (Pmty_signature s) ) -# 24553 "parsing/parser.ml" - : (Parsetree.module_type)) +# 24000 "parsing/parser.ml" + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1681 "parsing/parser.mly" + ( mkmty ~loc:_sloc ~attrs (Pmty_signature s) ) +# 24009 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24593,23 +24048,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.module_type) = let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 24603 "parsing/parser.ml" - - in - let _loc__4_ = (_startpos__4_, _endpos__4_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 1699 "parsing/parser.mly" - ( unclosed "sig" _loc__1_ "end" _loc__4_ ) -# 24611 "parsing/parser.ml" - : (Parsetree.module_type)) +# 24057 "parsing/parser.ml" + in + let _loc__4_ = (_startpos__4_, _endpos__4_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1683 "parsing/parser.mly" + ( unclosed "sig" _loc__1_ "end" _loc__4_ ) +# 24065 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24658,36 +24111,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_mty_ in - let _v = - let args = - let _1 = _1_inlined2 in - -# 1363 "parsing/parser.mly" + let _v : (Parsetree.module_type) = let args = + let _1 = _1_inlined2 in + +# 1347 "parsing/parser.mly" ( _1 ) -# 24668 "parsing/parser.ml" - - in - let attrs = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 24120 "parsing/parser.ml" + + in + let attrs = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 24676 "parsing/parser.ml" - - in - let _endpos = _endpos_mty_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1703 "parsing/parser.mly" +# 24128 "parsing/parser.ml" + + in + let _endpos = _endpos_mty_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1687 "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 ) ) -# 24689 "parsing/parser.ml" - : (Parsetree.module_type)) - in +# 24141 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24736,24 +24187,22 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _4 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.module_type) = let _4 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 24746 "parsing/parser.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1709 "parsing/parser.mly" - ( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) ) -# 24755 "parsing/parser.ml" - : (Parsetree.module_type)) +# 24196 "parsing/parser.ml" + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1693 "parsing/parser.mly" + ( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) ) +# 24205 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24789,9 +24238,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_type) = -# 1711 "parsing/parser.mly" +# 1695 "parsing/parser.mly" ( _2 ) -# 24795 "parsing/parser.ml" +# 24244 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24827,15 +24276,13 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 1713 "parsing/parser.mly" + let _v : (Parsetree.module_type) = let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1697 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 24837 "parsing/parser.ml" - : (Parsetree.module_type)) - in +# 24285 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24864,9 +24311,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = -# 1715 "parsing/parser.mly" +# 1699 "parsing/parser.mly" ( Mty.attr _1 _2 ) -# 24870 "parsing/parser.ml" +# 24317 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24888,40 +24335,38 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.module_type) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 24902 "parsing/parser.ml" - - in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 1718 "parsing/parser.mly" - ( Pmty_ident _1 ) -# 24908 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 24348 "parsing/parser.ml" in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1028 "parsing/parser.mly" - ( mkmty ~loc:_sloc _1 ) -# 24917 "parsing/parser.ml" +# 1702 "parsing/parser.mly" + ( Pmty_ident _1 ) +# 24354 "parsing/parser.ml" in - ( -# 1729 "parsing/parser.mly" - ( _1 ) -# 24923 "parsing/parser.ml" - : (Parsetree.module_type)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1012 "parsing/parser.mly" + ( mkmty ~loc:_sloc _1 ) +# 24363 "parsing/parser.ml" + in + +# 1713 "parsing/parser.mly" + ( _1 ) +# 24369 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24956,29 +24401,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = - let _1 = -# 1721 "parsing/parser.mly" + let _v : (Parsetree.module_type) = let _1 = + let _1 = +# 1705 "parsing/parser.mly" ( Pmty_functor(Named (mknoloc None, _1), _3) ) -# 24965 "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 - -# 1028 "parsing/parser.mly" +# 24409 "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 + +# 1012 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24974 "parsing/parser.ml" - - in - ( -# 1729 "parsing/parser.mly" - ( _1 ) -# 24980 "parsing/parser.ml" - : (Parsetree.module_type)) +# 24418 "parsing/parser.ml" + in + +# 1713 "parsing/parser.mly" + ( _1 ) +# 24424 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25013,43 +24456,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = + let _v : (Parsetree.module_type) = let _1 = let _1 = - let _1 = - let _3 = - let xs = -# 250 "" + let _3 = + let xs = +# 253 "" ( List.rev xs ) -# 25024 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" - ( xs ) -# 25029 "parsing/parser.ml" - - in +# 24466 "parsing/parser.ml" + in -# 1723 "parsing/parser.mly" - ( Pmty_with(_1, _3) ) -# 25035 "parsing/parser.ml" +# 1101 "parsing/parser.mly" + ( xs ) +# 24471 "parsing/parser.ml" in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1028 "parsing/parser.mly" - ( mkmty ~loc:_sloc _1 ) -# 25045 "parsing/parser.ml" +# 1707 "parsing/parser.mly" + ( Pmty_with(_1, _3) ) +# 24477 "parsing/parser.ml" in - ( -# 1729 "parsing/parser.mly" - ( _1 ) -# 25051 "parsing/parser.ml" - : (Parsetree.module_type)) + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1012 "parsing/parser.mly" + ( mkmty ~loc:_sloc _1 ) +# 24487 "parsing/parser.ml" + in + +# 1713 "parsing/parser.mly" + ( _1 ) +# 24493 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25070,28 +24511,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1727 "parsing/parser.mly" + let _v : (Parsetree.module_type) = let _1 = + let _1 = +# 1711 "parsing/parser.mly" ( Pmty_extension _1 ) -# 25079 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1028 "parsing/parser.mly" +# 24519 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1012 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 25087 "parsing/parser.ml" - - in - ( -# 1729 "parsing/parser.mly" - ( _1 ) -# 25093 "parsing/parser.ml" - : (Parsetree.module_type)) +# 24527 "parsing/parser.ml" + in + +# 1713 "parsing/parser.mly" + ( _1 ) +# 24533 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25154,49 +24593,47 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 25164 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 25176 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 25184 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 24602 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 1643 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 24614 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 24622 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1627 "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 ) -# 25198 "parsing/parser.ml" - : (Parsetree.module_type_declaration * string Asttypes.loc option)) - in +# 24636 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25266,49 +24703,47 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 25276 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 25288 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 25296 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 24712 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 1903 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 24724 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 24732 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1887 "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 ) -# 25310 "parsing/parser.ml" - : (Parsetree.module_type_declaration * string Asttypes.loc option)) - in +# 24746 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25330,9 +24765,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3842 "parsing/parser.mly" +# 3826 "parsing/parser.mly" ( _1 ) -# 25336 "parsing/parser.ml" +# 24771 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25348,9 +24783,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag) = -# 3923 "parsing/parser.mly" +# 3907 "parsing/parser.mly" ( Immutable ) -# 25354 "parsing/parser.ml" +# 24789 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25373,9 +24808,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 3924 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( Mutable ) -# 25379 "parsing/parser.ml" +# 24814 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25391,9 +24826,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 3927 "parsing/parser.mly" +# 3911 "parsing/parser.mly" ( Immutable, Nothing ) -# 25397 "parsing/parser.ml" +# 24832 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25416,9 +24851,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 3928 "parsing/parser.mly" +# 3912 "parsing/parser.mly" ( Mutable, Nothing ) -# 25422 "parsing/parser.ml" +# 24857 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25441,9 +24876,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 3929 "parsing/parser.mly" +# 3913 "parsing/parser.mly" ( Immutable, Global ) -# 25447 "parsing/parser.ml" +# 24882 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25466,9 +24901,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 3930 "parsing/parser.mly" +# 3914 "parsing/parser.mly" ( Immutable, Nonlocal ) -# 25472 "parsing/parser.ml" +# 24907 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25484,9 +24919,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 3943 "parsing/parser.mly" +# 3927 "parsing/parser.mly" ( Immutable, Concrete ) -# 25490 "parsing/parser.ml" +# 24925 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25509,9 +24944,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 3945 "parsing/parser.mly" +# 3929 "parsing/parser.mly" ( Mutable, Concrete ) -# 25515 "parsing/parser.ml" +# 24950 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25534,9 +24969,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 3947 "parsing/parser.mly" +# 3931 "parsing/parser.mly" ( Immutable, Virtual ) -# 25540 "parsing/parser.ml" +# 24975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25566,9 +25001,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 3950 "parsing/parser.mly" +# 3934 "parsing/parser.mly" ( Mutable, Virtual ) -# 25572 "parsing/parser.ml" +# 25007 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25598,9 +25033,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 3950 "parsing/parser.mly" +# 3934 "parsing/parser.mly" ( Mutable, Virtual ) -# 25604 "parsing/parser.ml" +# 25039 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25630,9 +25065,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 3894 "parsing/parser.mly" +# 3878 "parsing/parser.mly" ( _2 ) -# 25636 "parsing/parser.ml" +# 25071 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25651,30 +25086,28 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 25657 "parsing/parser.ml" +# 25092 "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 = - let x = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (string Asttypes.loc list) = let x = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25670 "parsing/parser.ml" - - in - ( -# 218 "" - ( [ x ] ) -# 25676 "parsing/parser.ml" - : (string Asttypes.loc list)) +# 25104 "parsing/parser.ml" + in + +# 221 "" + ( [ x ] ) +# 25110 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25699,30 +25132,28 @@ module Tables = struct } = _menhir_stack in let xs : (string Asttypes.loc list) = Obj.magic xs in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 25705 "parsing/parser.ml" +# 25138 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (string Asttypes.loc list) = let x = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25718 "parsing/parser.ml" - - in - ( -# 220 "" - ( x :: xs ) -# 25724 "parsing/parser.ml" - : (string Asttypes.loc list)) +# 25150 "parsing/parser.ml" + in + +# 223 "" + ( x :: xs ) +# 25156 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25740,25 +25171,23 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let s : ( -# 837 "parsing/parser.mly" +# 821 "parsing/parser.mly" (string * Location.t * string option) -# 25746 "parsing/parser.ml" +# 25177 "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 = - let x = -# 3890 "parsing/parser.mly" + let _v : (string list) = let x = +# 3874 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 25755 "parsing/parser.ml" - in - ( -# 218 "" +# 25185 "parsing/parser.ml" + in + +# 221 "" ( [ x ] ) -# 25760 "parsing/parser.ml" - : (string list)) - in +# 25190 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25783,25 +25212,23 @@ module Tables = struct } = _menhir_stack in let xs : (string list) = Obj.magic xs in let s : ( -# 837 "parsing/parser.mly" +# 821 "parsing/parser.mly" (string * Location.t * string option) -# 25789 "parsing/parser.ml" +# 25218 "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 = - let x = -# 3890 "parsing/parser.mly" + let _v : (string list) = let x = +# 3874 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 25798 "parsing/parser.ml" - in - ( -# 220 "" +# 25226 "parsing/parser.ml" + in + +# 223 "" ( x :: xs ) -# 25803 "parsing/parser.ml" - : (string list)) - in +# 25231 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25822,18 +25249,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in - let _v = - let priv = -# 3919 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3903 "parsing/parser.mly" ( Public ) -# 25830 "parsing/parser.ml" - in - ( -# 3166 "parsing/parser.mly" +# 25256 "parsing/parser.ml" + in + +# 3150 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 25835 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) - in +# 25261 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25861,18 +25286,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_ty_ in - let _v = - let priv = -# 3920 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3904 "parsing/parser.mly" ( Private ) -# 25869 "parsing/parser.ml" - in - ( -# 3166 "parsing/parser.mly" +# 25293 "parsing/parser.ml" + in + +# 3150 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 25874 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) - in +# 25298 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25893,30 +25316,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_cs_ in let _endpos = _endpos_cs_ in - let _v = - let priv = -# 3919 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3903 "parsing/parser.mly" ( Public ) -# 25901 "parsing/parser.ml" - in - let oty = - let _1 = -# 121 "" +# 25323 "parsing/parser.ml" + in + let oty = + let _1 = +# 124 "" ( None ) -# 25907 "parsing/parser.ml" - in - -# 3182 "parsing/parser.mly" +# 25329 "parsing/parser.ml" + in + +# 3166 "parsing/parser.mly" ( _1 ) -# 25912 "parsing/parser.ml" - - in - ( -# 3170 "parsing/parser.mly" - ( (Ptype_variant cs, priv, oty) ) -# 25918 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) +# 25334 "parsing/parser.ml" + in + +# 3154 "parsing/parser.mly" + ( (Ptype_variant cs, priv, oty) ) +# 25340 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25944,30 +25365,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_cs_ in - let _v = - let priv = -# 3920 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3904 "parsing/parser.mly" ( Private ) -# 25952 "parsing/parser.ml" - in - let oty = - let _1 = -# 121 "" +# 25372 "parsing/parser.ml" + in + let oty = + let _1 = +# 124 "" ( None ) -# 25958 "parsing/parser.ml" - in - -# 3182 "parsing/parser.mly" +# 25378 "parsing/parser.ml" + in + +# 3166 "parsing/parser.mly" ( _1 ) -# 25963 "parsing/parser.ml" - - in - ( -# 3170 "parsing/parser.mly" - ( (Ptype_variant cs, priv, oty) ) -# 25969 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) +# 25383 "parsing/parser.ml" + in + +# 3154 "parsing/parser.mly" + ( (Ptype_variant cs, priv, oty) ) +# 25389 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26002,37 +25421,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_cs_ in - let _v = - let priv = -# 3919 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3903 "parsing/parser.mly" ( Public ) -# 26010 "parsing/parser.ml" - in - let oty = - let _1 = - let x = -# 188 "" +# 25428 "parsing/parser.ml" + in + let oty = + let _1 = + let x = +# 191 "" ( x ) -# 26017 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 26022 "parsing/parser.ml" - - in +# 25435 "parsing/parser.ml" + in -# 3182 "parsing/parser.mly" - ( _1 ) -# 26028 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 25440 "parsing/parser.ml" in - ( -# 3170 "parsing/parser.mly" - ( (Ptype_variant cs, priv, oty) ) -# 26034 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + +# 3166 "parsing/parser.mly" + ( _1 ) +# 25446 "parsing/parser.ml" + in + +# 3154 "parsing/parser.mly" + ( (Ptype_variant cs, priv, oty) ) +# 25452 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26074,37 +25491,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_cs_ in - let _v = - let priv = -# 3920 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3904 "parsing/parser.mly" ( Private ) -# 26082 "parsing/parser.ml" - in - let oty = - let _1 = - let x = -# 188 "" +# 25498 "parsing/parser.ml" + in + let oty = + let _1 = + let x = +# 191 "" ( x ) -# 26089 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 26094 "parsing/parser.ml" - - in +# 25505 "parsing/parser.ml" + in -# 3182 "parsing/parser.mly" - ( _1 ) -# 26100 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 25510 "parsing/parser.ml" in - ( -# 3170 "parsing/parser.mly" - ( (Ptype_variant cs, priv, oty) ) -# 26106 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + +# 3166 "parsing/parser.mly" + ( _1 ) +# 25516 "parsing/parser.ml" + in + +# 3154 "parsing/parser.mly" + ( (Ptype_variant cs, priv, oty) ) +# 25522 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26125,30 +25540,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__3_ in let _endpos = _endpos__3_ in - let _v = - let priv = -# 3919 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3903 "parsing/parser.mly" ( Public ) -# 26133 "parsing/parser.ml" - in - let oty = - let _1 = -# 121 "" +# 25547 "parsing/parser.ml" + in + let oty = + let _1 = +# 124 "" ( None ) -# 26139 "parsing/parser.ml" - in - -# 3182 "parsing/parser.mly" +# 25553 "parsing/parser.ml" + in + +# 3166 "parsing/parser.mly" ( _1 ) -# 26144 "parsing/parser.ml" - - in - ( -# 3174 "parsing/parser.mly" - ( (Ptype_open, priv, oty) ) -# 26150 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) +# 25558 "parsing/parser.ml" + in + +# 3158 "parsing/parser.mly" + ( (Ptype_open, priv, oty) ) +# 25564 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26176,30 +25589,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let priv = -# 3920 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3904 "parsing/parser.mly" ( Private ) -# 26184 "parsing/parser.ml" - in - let oty = - let _1 = -# 121 "" +# 25596 "parsing/parser.ml" + in + let oty = + let _1 = +# 124 "" ( None ) -# 26190 "parsing/parser.ml" - in - -# 3182 "parsing/parser.mly" +# 25602 "parsing/parser.ml" + in + +# 3166 "parsing/parser.mly" ( _1 ) -# 26195 "parsing/parser.ml" - - in - ( -# 3174 "parsing/parser.mly" - ( (Ptype_open, priv, oty) ) -# 26201 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) +# 25607 "parsing/parser.ml" + in + +# 3158 "parsing/parser.mly" + ( (Ptype_open, priv, oty) ) +# 25613 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26234,37 +25645,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__3_ in - let _v = - let priv = -# 3919 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3903 "parsing/parser.mly" ( Public ) -# 26242 "parsing/parser.ml" - in - let oty = - let _1 = - let x = -# 188 "" +# 25652 "parsing/parser.ml" + in + let oty = + let _1 = + let x = +# 191 "" ( x ) -# 26249 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 26254 "parsing/parser.ml" - - in +# 25659 "parsing/parser.ml" + in -# 3182 "parsing/parser.mly" - ( _1 ) -# 26260 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 25664 "parsing/parser.ml" in - ( -# 3174 "parsing/parser.mly" - ( (Ptype_open, priv, oty) ) -# 26266 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + +# 3166 "parsing/parser.mly" + ( _1 ) +# 25670 "parsing/parser.ml" + in + +# 3158 "parsing/parser.mly" + ( (Ptype_open, priv, oty) ) +# 25676 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26306,37 +25715,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__3_ in - let _v = - let priv = -# 3920 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3904 "parsing/parser.mly" ( Private ) -# 26314 "parsing/parser.ml" - in - let oty = - let _1 = - let x = -# 188 "" +# 25722 "parsing/parser.ml" + in + let oty = + let _1 = + let x = +# 191 "" ( x ) -# 26321 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 26326 "parsing/parser.ml" - - in +# 25729 "parsing/parser.ml" + in -# 3182 "parsing/parser.mly" - ( _1 ) -# 26332 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 25734 "parsing/parser.ml" in - ( -# 3174 "parsing/parser.mly" - ( (Ptype_open, priv, oty) ) -# 26338 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + +# 3166 "parsing/parser.mly" + ( _1 ) +# 25740 "parsing/parser.ml" + in + +# 3158 "parsing/parser.mly" + ( (Ptype_open, priv, oty) ) +# 25746 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26371,30 +25778,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__3_ in let _endpos = _endpos__5_ in - let _v = - let priv = -# 3919 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3903 "parsing/parser.mly" ( Public ) -# 26379 "parsing/parser.ml" - in - let oty = - let _1 = -# 121 "" +# 25785 "parsing/parser.ml" + in + let oty = + let _1 = +# 124 "" ( None ) -# 26385 "parsing/parser.ml" - in - -# 3182 "parsing/parser.mly" +# 25791 "parsing/parser.ml" + in + +# 3166 "parsing/parser.mly" ( _1 ) -# 26390 "parsing/parser.ml" - - in - ( -# 3178 "parsing/parser.mly" - ( (Ptype_record ls, priv, oty) ) -# 26396 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) +# 25796 "parsing/parser.ml" + in + +# 3162 "parsing/parser.mly" + ( (Ptype_record ls, priv, oty) ) +# 25802 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26436,30 +25841,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let priv = -# 3920 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3904 "parsing/parser.mly" ( Private ) -# 26444 "parsing/parser.ml" - in - let oty = - let _1 = -# 121 "" +# 25848 "parsing/parser.ml" + in + let oty = + let _1 = +# 124 "" ( None ) -# 26450 "parsing/parser.ml" - in - -# 3182 "parsing/parser.mly" +# 25854 "parsing/parser.ml" + in + +# 3166 "parsing/parser.mly" ( _1 ) -# 26455 "parsing/parser.ml" - - in - ( -# 3178 "parsing/parser.mly" - ( (Ptype_record ls, priv, oty) ) -# 26461 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) +# 25859 "parsing/parser.ml" + in + +# 3162 "parsing/parser.mly" + ( (Ptype_record ls, priv, oty) ) +# 25865 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26508,37 +25911,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__5_ in - let _v = - let priv = -# 3919 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3903 "parsing/parser.mly" ( Public ) -# 26516 "parsing/parser.ml" - in - let oty = - let _1 = - let x = -# 188 "" +# 25918 "parsing/parser.ml" + in + let oty = + let _1 = + let x = +# 191 "" ( x ) -# 26523 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 26528 "parsing/parser.ml" - - in +# 25925 "parsing/parser.ml" + in -# 3182 "parsing/parser.mly" - ( _1 ) -# 26534 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 25930 "parsing/parser.ml" in - ( -# 3178 "parsing/parser.mly" - ( (Ptype_record ls, priv, oty) ) -# 26540 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + +# 3166 "parsing/parser.mly" + ( _1 ) +# 25936 "parsing/parser.ml" + in + +# 3162 "parsing/parser.mly" + ( (Ptype_record ls, priv, oty) ) +# 25942 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26594,37 +25995,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__5_ in - let _v = - let priv = -# 3920 "parsing/parser.mly" + let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = +# 3904 "parsing/parser.mly" ( Private ) -# 26602 "parsing/parser.ml" - in - let oty = - let _1 = - let x = -# 188 "" +# 26002 "parsing/parser.ml" + in + let oty = + let _1 = + let x = +# 191 "" ( x ) -# 26609 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 26614 "parsing/parser.ml" - - in +# 26009 "parsing/parser.ml" + in -# 3182 "parsing/parser.mly" - ( _1 ) -# 26620 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 26014 "parsing/parser.ml" in - ( -# 3178 "parsing/parser.mly" - ( (Ptype_record ls, priv, oty) ) -# 26626 "parsing/parser.ml" - : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + +# 3166 "parsing/parser.mly" + ( _1 ) +# 26020 "parsing/parser.ml" + in + +# 3162 "parsing/parser.mly" + ( (Ptype_record ls, priv, oty) ) +# 26026 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26673,43 +26072,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let attrs2 = - let _1 = _1_inlined2 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = + let _1 = _1_inlined2 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 26683 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined2_ in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 26081 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined2_ in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 26692 "parsing/parser.ml" - - in - let override = -# 3977 "parsing/parser.mly" +# 26090 "parsing/parser.ml" + + in + let override = +# 3961 "parsing/parser.mly" ( Fresh ) -# 26698 "parsing/parser.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1662 "parsing/parser.mly" +# 26096 "parsing/parser.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1646 "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 ) -# 26711 "parsing/parser.ml" - : (Parsetree.open_declaration * string Asttypes.loc option)) - in +# 26109 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26765,43 +26162,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 26775 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let attrs1 = - let _1 = _1_inlined2 in - -# 4077 "parsing/parser.mly" +# 26171 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let attrs1 = + let _1 = _1_inlined2 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 26784 "parsing/parser.ml" - - in - let override = -# 3978 "parsing/parser.mly" +# 26180 "parsing/parser.ml" + + in + let override = +# 3962 "parsing/parser.mly" ( Override ) -# 26790 "parsing/parser.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1662 "parsing/parser.mly" +# 26186 "parsing/parser.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1646 "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 ) -# 26803 "parsing/parser.ml" - : (Parsetree.open_declaration * string Asttypes.loc option)) - in +# 26199 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26850,54 +26245,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 26860 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 26254 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 26872 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 26266 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 26880 "parsing/parser.ml" - - in - let override = -# 3977 "parsing/parser.mly" +# 26274 "parsing/parser.ml" + + in + let override = +# 3961 "parsing/parser.mly" ( Fresh ) -# 26886 "parsing/parser.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1677 "parsing/parser.mly" +# 26280 "parsing/parser.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1661 "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 ) -# 26899 "parsing/parser.ml" - : (Parsetree.open_description * string Asttypes.loc option)) - in +# 26293 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26953,54 +26346,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in - let _v = - let attrs2 = - let _1 = _1_inlined4 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = + let _1 = _1_inlined4 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 26963 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 26355 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 26975 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined2 in - -# 4077 "parsing/parser.mly" +# 26367 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined2 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 26983 "parsing/parser.ml" - - in - let override = -# 3978 "parsing/parser.mly" +# 26375 "parsing/parser.ml" + + in + let override = +# 3962 "parsing/parser.mly" ( Override ) -# 26989 "parsing/parser.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1677 "parsing/parser.mly" +# 26381 "parsing/parser.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1661 "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 ) -# 27002 "parsing/parser.ml" - : (Parsetree.open_description * string Asttypes.loc option)) - in +# 26394 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27018,17 +26409,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 823 "parsing/parser.mly" +# 807 "parsing/parser.mly" (string) -# 27024 "parsing/parser.ml" +# 26415 "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) = -# 3758 "parsing/parser.mly" +# 3742 "parsing/parser.mly" ( _1 ) -# 27032 "parsing/parser.ml" +# 26423 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27047,17 +26438,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 779 "parsing/parser.mly" +# 763 "parsing/parser.mly" (string) -# 27053 "parsing/parser.ml" +# 26444 "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) = -# 3759 "parsing/parser.mly" +# 3743 "parsing/parser.mly" ( _1 ) -# 27061 "parsing/parser.ml" +# 26452 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27076,17 +26467,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 780 "parsing/parser.mly" +# 764 "parsing/parser.mly" (string) -# 27082 "parsing/parser.ml" +# 26473 "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) = -# 3760 "parsing/parser.mly" +# 3744 "parsing/parser.mly" ( _1 ) -# 27090 "parsing/parser.ml" +# 26481 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27126,17 +26517,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 27132 "parsing/parser.ml" +# 26523 "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) = -# 3761 "parsing/parser.mly" +# 3745 "parsing/parser.mly" ( "."^ _1 ^"(" ^ _3 ^ ")" ) -# 27140 "parsing/parser.ml" +# 26531 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27183,17 +26574,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 27189 "parsing/parser.ml" +# 26580 "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) = -# 3762 "parsing/parser.mly" +# 3746 "parsing/parser.mly" ( "."^ _1 ^ "(" ^ _3 ^ ")<-" ) -# 27197 "parsing/parser.ml" +# 26588 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27233,17 +26624,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 27239 "parsing/parser.ml" +# 26630 "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) = -# 3763 "parsing/parser.mly" +# 3747 "parsing/parser.mly" ( "."^ _1 ^"[" ^ _3 ^ "]" ) -# 27247 "parsing/parser.ml" +# 26638 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27290,17 +26681,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 27296 "parsing/parser.ml" +# 26687 "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) = -# 3764 "parsing/parser.mly" +# 3748 "parsing/parser.mly" ( "."^ _1 ^ "[" ^ _3 ^ "]<-" ) -# 27304 "parsing/parser.ml" +# 26695 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27340,17 +26731,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 27346 "parsing/parser.ml" +# 26737 "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) = -# 3765 "parsing/parser.mly" +# 3749 "parsing/parser.mly" ( "."^ _1 ^"{" ^ _3 ^ "}" ) -# 27354 "parsing/parser.ml" +# 26745 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27397,17 +26788,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 27403 "parsing/parser.ml" +# 26794 "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) = -# 3766 "parsing/parser.mly" +# 3750 "parsing/parser.mly" ( "."^ _1 ^ "{" ^ _3 ^ "}<-" ) -# 27411 "parsing/parser.ml" +# 26802 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27426,17 +26817,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 834 "parsing/parser.mly" +# 818 "parsing/parser.mly" (string) -# 27432 "parsing/parser.ml" +# 26823 "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) = -# 3767 "parsing/parser.mly" +# 3751 "parsing/parser.mly" ( _1 ) -# 27440 "parsing/parser.ml" +# 26831 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27459,9 +26850,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3768 "parsing/parser.mly" +# 3752 "parsing/parser.mly" ( "!" ) -# 27465 "parsing/parser.ml" +# 26856 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27480,25 +26871,23 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 773 "parsing/parser.mly" +# 757 "parsing/parser.mly" (string) -# 27486 "parsing/parser.ml" +# 26877 "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 = - let _1 = -# 3772 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3756 "parsing/parser.mly" ( op ) -# 27495 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 26885 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27500 "parsing/parser.ml" - : (Asttypes.label)) - in +# 26890 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27516,25 +26905,23 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 774 "parsing/parser.mly" +# 758 "parsing/parser.mly" (string) -# 27522 "parsing/parser.ml" +# 26911 "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 = - let _1 = -# 3773 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3757 "parsing/parser.mly" ( op ) -# 27531 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 26919 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27536 "parsing/parser.ml" - : (Asttypes.label)) - in +# 26924 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27552,25 +26939,23 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 775 "parsing/parser.mly" +# 759 "parsing/parser.mly" (string) -# 27558 "parsing/parser.ml" +# 26945 "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 = - let _1 = -# 3774 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3758 "parsing/parser.mly" ( op ) -# 27567 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 26953 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27572 "parsing/parser.ml" - : (Asttypes.label)) - in +# 26958 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27588,25 +26973,23 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 776 "parsing/parser.mly" +# 760 "parsing/parser.mly" (string) -# 27594 "parsing/parser.ml" +# 26979 "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 = - let _1 = -# 3775 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3759 "parsing/parser.mly" ( op ) -# 27603 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 26987 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27608 "parsing/parser.ml" - : (Asttypes.label)) - in +# 26992 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27624,25 +27007,23 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 777 "parsing/parser.mly" +# 761 "parsing/parser.mly" (string) -# 27630 "parsing/parser.ml" +# 27013 "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 = - let _1 = -# 3776 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3760 "parsing/parser.mly" ( op ) -# 27639 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27021 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27644 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27026 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27663,18 +27044,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3777 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3761 "parsing/parser.mly" ("+") -# 27671 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27051 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27676 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27056 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27695,18 +27074,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3778 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3762 "parsing/parser.mly" ("+.") -# 27703 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27081 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27708 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27086 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27727,18 +27104,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3779 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3763 "parsing/parser.mly" ("+=") -# 27735 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27111 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27740 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27116 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27759,18 +27134,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3780 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3764 "parsing/parser.mly" ("-") -# 27767 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27141 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27772 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27146 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27791,18 +27164,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3781 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3765 "parsing/parser.mly" ("-.") -# 27799 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27171 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27804 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27176 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27823,18 +27194,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3782 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3766 "parsing/parser.mly" ("*") -# 27831 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27201 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27836 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27206 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27855,18 +27224,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3783 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3767 "parsing/parser.mly" ("%") -# 27863 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27231 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27868 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27236 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27887,18 +27254,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3784 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3768 "parsing/parser.mly" ("=") -# 27895 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27261 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27900 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27266 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27919,18 +27284,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3785 "parsing/parser.mly" - ("<") -# 27927 "parsing/parser.ml" - in - ( + let _v : (Asttypes.label) = let _1 = # 3769 "parsing/parser.mly" + ("<") +# 27291 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27932 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27296 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27951,18 +27314,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3786 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3770 "parsing/parser.mly" (">") -# 27959 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27321 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27964 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27326 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27983,18 +27344,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3787 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3771 "parsing/parser.mly" ("or") -# 27991 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27351 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 27996 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27356 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28015,18 +27374,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3788 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3772 "parsing/parser.mly" ("||") -# 28023 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27381 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 28028 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27386 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28047,18 +27404,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3789 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3773 "parsing/parser.mly" ("&") -# 28055 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27411 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 28060 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27416 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28079,18 +27434,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3790 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3774 "parsing/parser.mly" ("&&") -# 28087 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27441 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 28092 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27446 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28111,18 +27464,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3791 "parsing/parser.mly" + let _v : (Asttypes.label) = let _1 = +# 3775 "parsing/parser.mly" (":=") -# 28119 "parsing/parser.ml" - in - ( -# 3769 "parsing/parser.mly" +# 27471 "parsing/parser.ml" + in + +# 3753 "parsing/parser.mly" ( _1 ) -# 28124 "parsing/parser.ml" - : (Asttypes.label)) - in +# 27476 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28144,9 +27495,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (bool) = -# 3673 "parsing/parser.mly" +# 3657 "parsing/parser.mly" ( true ) -# 28150 "parsing/parser.ml" +# 27501 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28162,9 +27513,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (bool) = -# 3674 "parsing/parser.mly" +# 3658 "parsing/parser.mly" ( false ) -# 28168 "parsing/parser.ml" +# 27519 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28180,9 +27531,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (unit option) = -# 111 "" +# 114 "" ( None ) -# 28186 "parsing/parser.ml" +# 27537 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28205,9 +27556,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (unit option) = -# 113 "" +# 116 "" ( Some x ) -# 28211 "parsing/parser.ml" +# 27562 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28223,9 +27574,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (unit option) = -# 111 "" +# 114 "" ( None ) -# 28229 "parsing/parser.ml" +# 27580 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28248,9 +27599,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (unit option) = -# 113 "" +# 116 "" ( Some x ) -# 28254 "parsing/parser.ml" +# 27605 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28266,9 +27617,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string Asttypes.loc option) = -# 111 "" +# 114 "" ( None ) -# 28272 "parsing/parser.ml" +# 27623 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28293,39 +27644,37 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 28299 "parsing/parser.ml" +# 27650 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (string Asttypes.loc option) = let x = let x = - let x = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 28315 "parsing/parser.ml" - - in + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 180 "" - ( x ) -# 28321 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 27665 "parsing/parser.ml" in - ( -# 113 "" - ( Some x ) -# 28327 "parsing/parser.ml" - : (string Asttypes.loc option)) + +# 183 "" + ( x ) +# 27671 "parsing/parser.ml" + in + +# 116 "" + ( Some x ) +# 27677 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28340,9 +27689,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.core_type option) = -# 111 "" +# 114 "" ( None ) -# 28346 "parsing/parser.ml" +# 27695 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28371,18 +27720,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v = - let x = -# 180 "" + let _v : (Parsetree.core_type option) = let x = +# 183 "" ( x ) -# 28379 "parsing/parser.ml" - in - ( -# 113 "" +# 27727 "parsing/parser.ml" + in + +# 116 "" ( Some x ) -# 28384 "parsing/parser.ml" - : (Parsetree.core_type option)) - in +# 27732 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28397,9 +27744,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.expression option) = -# 111 "" +# 114 "" ( None ) -# 28403 "parsing/parser.ml" +# 27750 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28428,18 +27775,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v = - let x = -# 180 "" + let _v : (Parsetree.expression option) = let x = +# 183 "" ( x ) -# 28436 "parsing/parser.ml" - in - ( -# 113 "" +# 27782 "parsing/parser.ml" + in + +# 116 "" ( Some x ) -# 28441 "parsing/parser.ml" - : (Parsetree.expression option)) - in +# 27787 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28454,9 +27799,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.module_type option) = -# 111 "" +# 114 "" ( None ) -# 28460 "parsing/parser.ml" +# 27805 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28485,18 +27830,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v = - let x = -# 180 "" + let _v : (Parsetree.module_type option) = let x = +# 183 "" ( x ) -# 28493 "parsing/parser.ml" - in - ( -# 113 "" +# 27837 "parsing/parser.ml" + in + +# 116 "" ( Some x ) -# 28498 "parsing/parser.ml" - : (Parsetree.module_type option)) - in +# 27842 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28511,9 +27854,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.pattern option) = -# 111 "" +# 114 "" ( None ) -# 28517 "parsing/parser.ml" +# 27860 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28542,18 +27885,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v = - let x = -# 180 "" + let _v : (Parsetree.pattern option) = let x = +# 183 "" ( x ) -# 28550 "parsing/parser.ml" - in - ( -# 113 "" +# 27892 "parsing/parser.ml" + in + +# 116 "" ( Some x ) -# 28555 "parsing/parser.ml" - : (Parsetree.pattern option)) - in +# 27897 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28568,9 +27909,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.expression option) = -# 111 "" +# 114 "" ( None ) -# 28574 "parsing/parser.ml" +# 27915 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28599,18 +27940,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v = - let x = -# 180 "" + let _v : (Parsetree.expression option) = let x = +# 183 "" ( x ) -# 28607 "parsing/parser.ml" - in - ( -# 113 "" +# 27947 "parsing/parser.ml" + in + +# 116 "" ( Some x ) -# 28612 "parsing/parser.ml" - : (Parsetree.expression option)) - in +# 27952 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28625,9 +27964,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : ((Parsetree.core_type option * Parsetree.core_type option) option) = -# 111 "" +# 114 "" ( None ) -# 28631 "parsing/parser.ml" +# 27970 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28650,9 +27989,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Parsetree.core_type option * Parsetree.core_type option) option) = -# 113 "" +# 116 "" ( Some x ) -# 28656 "parsing/parser.ml" +# 27995 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28671,17 +28010,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 816 "parsing/parser.mly" +# 800 "parsing/parser.mly" (string) -# 28677 "parsing/parser.ml" +# 28016 "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) = -# 3989 "parsing/parser.mly" +# 3973 "parsing/parser.mly" ( _1 ) -# 28685 "parsing/parser.ml" +# 28024 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28713,18 +28052,18 @@ module Tables = struct } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 28719 "parsing/parser.ml" +# 28058 "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) = -# 3990 "parsing/parser.mly" +# 3974 "parsing/parser.mly" ( _2 ) -# 28728 "parsing/parser.ml" +# 28067 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28774,16 +28113,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1434 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1418 "parsing/parser.mly" ( mkmod ~loc:_sloc (Pmod_constraint(me, mty)) ) -# 28785 "parsing/parser.ml" - : (Parsetree.module_expr)) - in +# 28123 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28832,15 +28169,13 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 1436 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1420 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 28842 "parsing/parser.ml" - : (Parsetree.module_expr)) - in +# 28178 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28876,9 +28211,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_expr) = -# 1439 "parsing/parser.mly" +# 1423 "parsing/parser.mly" ( me (* TODO consider reloc *) ) -# 28882 "parsing/parser.ml" +# 28217 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28914,15 +28249,13 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 1441 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1425 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 28924 "parsing/parser.ml" - : (Parsetree.module_expr)) - in +# 28258 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28971,264 +28304,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let e = -# 1458 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let e = +# 1442 "parsing/parser.mly" ( e ) -# 28979 "parsing/parser.ml" - in - let attrs = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 28986 "parsing/parser.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1445 "parsing/parser.mly" - ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 28995 "parsing/parser.ml" - : (Parsetree.module_expr)) - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _5; - MenhirLib.EngineTypes.startp = _startpos__5_; - MenhirLib.EngineTypes.endp = _endpos__5_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined2; - MenhirLib.EngineTypes.startp = _startpos__1_inlined2_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2_inlined1; - MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = e; - MenhirLib.EngineTypes.startp = _startpos_e_; - MenhirLib.EngineTypes.endp = _endpos_e_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined1; - MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - }; - }; - }; - } = _menhir_stack in - let _5 : unit = Obj.magic _5 in - let _1_inlined2 : (Parsetree.module_type) = Obj.magic _1_inlined2 in - let _2_inlined1 : unit = Obj.magic _2_inlined1 in - let e : (Parsetree.expression) = Obj.magic e in - let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in - let _2 : unit = Obj.magic _2 in - let _1 : unit = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__5_ in - let _v = - let e = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let ty = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3648 "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 ) -# 29072 "parsing/parser.ml" - - in - let _endpos_ty_ = _endpos__1_ in - let _endpos = _endpos_ty_ in - let _startpos = _startpos_e_ in - let _loc = (_startpos, _endpos) in - -# 1460 "parsing/parser.mly" - ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) -# 29082 "parsing/parser.ml" - - in - let attrs = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 28311 "parsing/parser.ml" + in + let attrs = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 29090 "parsing/parser.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1445 "parsing/parser.mly" - ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 29099 "parsing/parser.ml" - : (Parsetree.module_expr)) +# 28318 "parsing/parser.ml" + in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _5; - MenhirLib.EngineTypes.startp = _startpos__5_; - MenhirLib.EngineTypes.endp = _endpos__5_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined3; - MenhirLib.EngineTypes.startp = _startpos__1_inlined3_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined3_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _4; - MenhirLib.EngineTypes.startp = _startpos__4_; - MenhirLib.EngineTypes.endp = _endpos__4_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined2; - MenhirLib.EngineTypes.startp = _startpos__1_inlined2_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2_inlined1; - MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = e; - MenhirLib.EngineTypes.startp = _startpos_e_; - MenhirLib.EngineTypes.endp = _endpos_e_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _1_inlined1; - MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; - MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - }; - }; - }; - }; - }; - } = _menhir_stack in - let _5 : unit = Obj.magic _5 in - let _1_inlined3 : (Parsetree.module_type) = Obj.magic _1_inlined3 in - let _4 : unit = Obj.magic _4 in - let _1_inlined2 : (Parsetree.module_type) = Obj.magic _1_inlined2 in - let _2_inlined1 : unit = Obj.magic _2_inlined1 in - let e : (Parsetree.expression) = Obj.magic e in - let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in - let _2 : unit = Obj.magic _2 in - let _1 : unit = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let e = - let (_endpos__1_inlined1_, _startpos__1_inlined1_, _endpos__1_, _startpos__1_, _1_inlined1, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined3, _1_inlined2) in - let ty2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3648 "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 ) -# 29191 "parsing/parser.ml" - - in - let _endpos_ty2_ = _endpos__1_inlined1_ in - let ty1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3648 "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 ) -# 29204 "parsing/parser.ml" - - in - let _endpos = _endpos_ty2_ in - let _startpos = _startpos_e_ in - let _loc = (_startpos, _endpos) in - -# 1462 "parsing/parser.mly" - ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) -# 29213 "parsing/parser.ml" - - in - let attrs = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 29221 "parsing/parser.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1445 "parsing/parser.mly" + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1429 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 29230 "parsing/parser.ml" - : (Parsetree.module_expr)) - in +# 28327 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29291,48 +28387,277 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let e = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let ty2 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3648 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let e = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let ty = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3632 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 29307 "parsing/parser.ml" - - in - let _endpos_ty2_ = _endpos__1_ in - let _endpos = _endpos_ty2_ in - let _startpos = _startpos_e_ in - let _loc = (_startpos, _endpos) in +# 28402 "parsing/parser.ml" -# 1464 "parsing/parser.mly" - ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) -# 29317 "parsing/parser.ml" + in + let _endpos_ty_ = _endpos__1_ in + let _endpos = _endpos_ty_ in + let _startpos = _startpos_e_ in + let _loc = (_startpos, _endpos) in + +# 1444 "parsing/parser.mly" + ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) +# 28412 "parsing/parser.ml" + + in + let attrs = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 28420 "parsing/parser.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1429 "parsing/parser.mly" + ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) +# 28429 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _5; + MenhirLib.EngineTypes.startp = _startpos__5_; + MenhirLib.EngineTypes.endp = _endpos__5_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1_inlined3; + MenhirLib.EngineTypes.startp = _startpos__1_inlined3_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _4; + MenhirLib.EngineTypes.startp = _startpos__4_; + MenhirLib.EngineTypes.endp = _endpos__4_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1_inlined2; + MenhirLib.EngineTypes.startp = _startpos__1_inlined2_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2_inlined1; + MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = e; + MenhirLib.EngineTypes.startp = _startpos_e_; + MenhirLib.EngineTypes.endp = _endpos_e_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1_inlined1; + MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + }; + }; + }; + }; + }; + } = _menhir_stack in + let _5 : unit = Obj.magic _5 in + let _1_inlined3 : (Parsetree.module_type) = Obj.magic _1_inlined3 in + let _4 : unit = Obj.magic _4 in + let _1_inlined2 : (Parsetree.module_type) = Obj.magic _1_inlined2 in + let _2_inlined1 : unit = Obj.magic _2_inlined1 in + let e : (Parsetree.expression) = Obj.magic e in + let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in + let _2 : unit = Obj.magic _2 in + let _1 : unit = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__5_ in + let _v : (Parsetree.module_expr) = let e = + let (_endpos__1_inlined1_, _startpos__1_inlined1_, _endpos__1_, _startpos__1_, _1_inlined1, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined3, _1_inlined2) in + let ty2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3632 "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 ) +# 28519 "parsing/parser.ml" in - let attrs = - let _1 = _1_inlined1 in + let _endpos_ty2_ = _endpos__1_inlined1_ in + let ty1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 4077 "parsing/parser.mly" - ( _1 ) -# 29325 "parsing/parser.ml" +# 3632 "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 ) +# 28532 "parsing/parser.ml" in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1445 "parsing/parser.mly" + let _endpos = _endpos_ty2_ in + let _startpos = _startpos_e_ in + let _loc = (_startpos, _endpos) in + +# 1446 "parsing/parser.mly" + ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) +# 28541 "parsing/parser.ml" + + in + let attrs = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 28549 "parsing/parser.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1429 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 29334 "parsing/parser.ml" - : (Parsetree.module_expr)) +# 28558 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _5; + MenhirLib.EngineTypes.startp = _startpos__5_; + MenhirLib.EngineTypes.endp = _endpos__5_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1_inlined2; + MenhirLib.EngineTypes.startp = _startpos__1_inlined2_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2_inlined1; + MenhirLib.EngineTypes.startp = _startpos__2_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__2_inlined1_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = e; + MenhirLib.EngineTypes.startp = _startpos_e_; + MenhirLib.EngineTypes.endp = _endpos_e_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _1_inlined1; + MenhirLib.EngineTypes.startp = _startpos__1_inlined1_; + MenhirLib.EngineTypes.endp = _endpos__1_inlined1_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + }; + }; + }; + } = _menhir_stack in + let _5 : unit = Obj.magic _5 in + let _1_inlined2 : (Parsetree.module_type) = Obj.magic _1_inlined2 in + let _2_inlined1 : unit = Obj.magic _2_inlined1 in + let e : (Parsetree.expression) = Obj.magic e in + let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in + let _2 : unit = Obj.magic _2 in + let _1 : unit = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__5_ in + let _v : (Parsetree.module_expr) = let e = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let ty2 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3632 "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 ) +# 28633 "parsing/parser.ml" + + in + let _endpos_ty2_ = _endpos__1_ in + let _endpos = _endpos_ty2_ in + let _startpos = _startpos_e_ in + let _loc = (_startpos, _endpos) in + +# 1448 "parsing/parser.mly" + ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) +# 28643 "parsing/parser.ml" + in + let attrs = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 28651 "parsing/parser.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1429 "parsing/parser.mly" + ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) +# 28660 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29388,23 +28713,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _3 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 29398 "parsing/parser.ml" - - in - let _loc__6_ = (_startpos__6_, _endpos__6_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 1447 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let _3 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 28722 "parsing/parser.ml" + + in + let _loc__6_ = (_startpos__6_, _endpos__6_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1431 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 29406 "parsing/parser.ml" - : (Parsetree.module_expr)) - in +# 28730 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29460,23 +28783,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _3 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 29470 "parsing/parser.ml" - - in - let _loc__6_ = (_startpos__6_, _endpos__6_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 1449 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let _3 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 28792 "parsing/parser.ml" + + in + let _loc__6_ = (_startpos__6_, _endpos__6_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1433 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 29478 "parsing/parser.ml" - : (Parsetree.module_expr)) - in +# 28800 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29525,23 +28846,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _3 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 29535 "parsing/parser.ml" - - in - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 1451 "parsing/parser.mly" + let _v : (Parsetree.module_expr) = let _3 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 28855 "parsing/parser.ml" + + in + let _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1435 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 29543 "parsing/parser.ml" - : (Parsetree.module_expr)) - in +# 28863 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29570,9 +28889,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1353 "parsing/parser.mly" +# 1337 "parsing/parser.mly" ( _1 ) -# 29576 "parsing/parser.ml" +# 28895 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29602,9 +28921,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1338 "parsing/parser.mly" +# 1322 "parsing/parser.mly" ( _1 ) -# 29608 "parsing/parser.ml" +# 28927 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29634,9 +28953,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = -# 1313 "parsing/parser.mly" +# 1297 "parsing/parser.mly" ( _1 ) -# 29640 "parsing/parser.ml" +# 28959 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29666,9 +28985,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 1318 "parsing/parser.mly" +# 1302 "parsing/parser.mly" ( _1 ) -# 29672 "parsing/parser.ml" +# 28991 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29698,9 +29017,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1343 "parsing/parser.mly" +# 1327 "parsing/parser.mly" ( _1 ) -# 29704 "parsing/parser.ml" +# 29023 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29730,9 +29049,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1348 "parsing/parser.mly" +# 1332 "parsing/parser.mly" ( _1 ) -# 29736 "parsing/parser.ml" +# 29055 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29762,9 +29081,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_expr) = -# 1308 "parsing/parser.mly" +# 1292 "parsing/parser.mly" ( _1 ) -# 29768 "parsing/parser.ml" +# 29087 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29794,9 +29113,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = -# 1303 "parsing/parser.mly" +# 1287 "parsing/parser.mly" ( _1 ) -# 29800 "parsing/parser.ml" +# 29119 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29826,9 +29145,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1328 "parsing/parser.mly" +# 1312 "parsing/parser.mly" ( _1 ) -# 29832 "parsing/parser.ml" +# 29151 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29858,9 +29177,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = -# 1323 "parsing/parser.mly" +# 1307 "parsing/parser.mly" ( _1 ) -# 29864 "parsing/parser.ml" +# 29183 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29890,9 +29209,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1333 "parsing/parser.mly" +# 1317 "parsing/parser.mly" ( _1 ) -# 29896 "parsing/parser.ml" +# 29215 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29928,24 +29247,22 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _loc__2_ = (_startpos__2_, _endpos__2_) in - let _sloc = (_symbolstartpos, _endpos) in - -# 2895 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _loc__2_ = (_startpos__2_, _endpos__2_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 2879 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 29941 "parsing/parser.ml" - - in - ( -# 2883 "parsing/parser.mly" - ( _1 ) -# 29947 "parsing/parser.ml" - : (Parsetree.pattern)) +# 29259 "parsing/parser.ml" + in + +# 2867 "parsing/parser.mly" + ( _1 ) +# 29265 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29973,18 +29290,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = -# 2897 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = +# 2881 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 29981 "parsing/parser.ml" - in - ( -# 2883 "parsing/parser.mly" +# 29297 "parsing/parser.ml" + in + +# 2867 "parsing/parser.mly" ( _1 ) -# 29986 "parsing/parser.ml" - : (Parsetree.pattern)) - in +# 29302 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30005,18 +29320,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 2899 "parsing/parser.mly" - ( _1 ) -# 30013 "parsing/parser.ml" - in - ( + let _v : (Parsetree.pattern) = let _1 = # 2883 "parsing/parser.mly" ( _1 ) -# 30018 "parsing/parser.ml" - : (Parsetree.pattern)) - in +# 29327 "parsing/parser.ml" + in + +# 2867 "parsing/parser.mly" + ( _1 ) +# 29332 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30051,49 +29364,47 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _3 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 30067 "parsing/parser.ml" - - in + let _3 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2902 "parsing/parser.mly" - ( Ppat_alias(_1, _3) ) -# 30073 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 29379 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 30083 "parsing/parser.ml" +# 2886 "parsing/parser.mly" + ( Ppat_alias(_1, _3) ) +# 29385 "parsing/parser.ml" in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2913 "parsing/parser.mly" - ( _1 ) -# 30089 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 29395 "parsing/parser.ml" in - ( -# 2883 "parsing/parser.mly" - ( _1 ) -# 30095 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 29401 "parsing/parser.ml" + in + +# 2867 "parsing/parser.mly" + ( _1 ) +# 29407 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30128,39 +29439,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2904 "parsing/parser.mly" - ( expecting _loc__3_ "identifier" ) -# 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 + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 30150 "parsing/parser.ml" +# 2888 "parsing/parser.mly" + ( expecting _loc__3_ "identifier" ) +# 29450 "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 -# 2913 "parsing/parser.mly" - ( _1 ) -# 30156 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 29460 "parsing/parser.ml" in - ( -# 2883 "parsing/parser.mly" - ( _1 ) -# 30162 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 29466 "parsing/parser.ml" + in + +# 2867 "parsing/parser.mly" + ( _1 ) +# 29472 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30181,35 +29490,33 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _1 = -# 2906 "parsing/parser.mly" + let _1 = +# 2890 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) -# 30191 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 30199 "parsing/parser.ml" - - in +# 29499 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2913 "parsing/parser.mly" - ( _1 ) -# 30205 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 29507 "parsing/parser.ml" in - ( -# 2883 "parsing/parser.mly" - ( _1 ) -# 30211 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 29513 "parsing/parser.ml" + in + +# 2867 "parsing/parser.mly" + ( _1 ) +# 29519 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30244,39 +29551,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2908 "parsing/parser.mly" - ( expecting _loc__3_ "pattern" ) -# 30256 "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 -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 30266 "parsing/parser.ml" +# 2892 "parsing/parser.mly" + ( expecting _loc__3_ "pattern" ) +# 29562 "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 -# 2913 "parsing/parser.mly" - ( _1 ) -# 30272 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 29572 "parsing/parser.ml" in - ( -# 2883 "parsing/parser.mly" - ( _1 ) -# 30278 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 29578 "parsing/parser.ml" + in + +# 2867 "parsing/parser.mly" + ( _1 ) +# 29584 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30311,36 +29616,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _1 = -# 2910 "parsing/parser.mly" + let _1 = +# 2894 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 30321 "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 - -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 30330 "parsing/parser.ml" - - in +# 29625 "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 -# 2913 "parsing/parser.mly" - ( _1 ) -# 30336 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 29634 "parsing/parser.ml" in - ( -# 2883 "parsing/parser.mly" - ( _1 ) -# 30342 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 29640 "parsing/parser.ml" + in + +# 2867 "parsing/parser.mly" + ( _1 ) +# 29646 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30375,39 +29678,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2912 "parsing/parser.mly" - ( expecting _loc__3_ "pattern" ) -# 30387 "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 -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 30397 "parsing/parser.ml" +# 2896 "parsing/parser.mly" + ( expecting _loc__3_ "pattern" ) +# 29689 "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 -# 2913 "parsing/parser.mly" - ( _1 ) -# 30403 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 29699 "parsing/parser.ml" in - ( -# 2883 "parsing/parser.mly" - ( _1 ) -# 30409 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 29705 "parsing/parser.ml" + in + +# 2867 "parsing/parser.mly" + ( _1 ) +# 29711 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30449,32 +29750,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 30461 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 30467 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 29761 "parsing/parser.ml" in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2885 "parsing/parser.mly" - ( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2) -# 30476 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 29767 "parsing/parser.ml" + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2869 "parsing/parser.mly" + ( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2) +# 29776 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30510,9 +29809,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3012 "parsing/parser.mly" +# 2996 "parsing/parser.mly" ( _3 :: _1 ) -# 30516 "parsing/parser.ml" +# 29815 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30549,9 +29848,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3013 "parsing/parser.mly" +# 2997 "parsing/parser.mly" ( [_3; _1] ) -# 30555 "parsing/parser.ml" +# 29854 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30587,14 +29886,12 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 3014 "parsing/parser.mly" + let _v : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2998 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30596 "parsing/parser.ml" - : (Parsetree.pattern list)) - in +# 29894 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30630,9 +29927,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3012 "parsing/parser.mly" +# 2996 "parsing/parser.mly" ( _3 :: _1 ) -# 30636 "parsing/parser.ml" +# 29933 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30669,9 +29966,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3013 "parsing/parser.mly" +# 2997 "parsing/parser.mly" ( [_3; _1] ) -# 30675 "parsing/parser.ml" +# 29972 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30707,14 +30004,12 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 3014 "parsing/parser.mly" + let _v : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 2998 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30716 "parsing/parser.ml" - : (Parsetree.pattern list)) - in +# 30012 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30736,9 +30031,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 2918 "parsing/parser.mly" +# 2902 "parsing/parser.mly" ( _1 ) -# 30742 "parsing/parser.ml" +# 30037 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30767,41 +30062,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 30781 "parsing/parser.ml" - - in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2921 "parsing/parser.mly" - ( Ppat_construct(_1, Some ([], _2)) ) -# 30787 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 30075 "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 -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 30797 "parsing/parser.ml" +# 2905 "parsing/parser.mly" + ( Ppat_construct(_1, Some ([], _2)) ) +# 30081 "parsing/parser.ml" in - ( -# 2927 "parsing/parser.mly" - ( _1 ) -# 30803 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 30091 "parsing/parser.ml" + in + +# 2911 "parsing/parser.mly" + ( _1 ) +# 30097 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30857,46 +30150,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_pat_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let newtypes = -# 2637 "parsing/parser.mly" + let newtypes = +# 2621 "parsing/parser.mly" ( xs ) -# 30867 "parsing/parser.ml" - in - let constr = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 30876 "parsing/parser.ml" - - in +# 30159 "parsing/parser.ml" + in + let constr = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2924 "parsing/parser.mly" - ( Ppat_construct(constr, Some (newtypes, pat)) ) -# 30882 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 30168 "parsing/parser.ml" in - let _endpos__1_ = _endpos_pat_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 30892 "parsing/parser.ml" +# 2908 "parsing/parser.mly" + ( Ppat_construct(constr, Some (newtypes, pat)) ) +# 30174 "parsing/parser.ml" in - ( -# 2927 "parsing/parser.mly" - ( _1 ) -# 30898 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos_pat_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 30184 "parsing/parser.ml" + in + +# 2911 "parsing/parser.mly" + ( _1 ) +# 30190 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30924,29 +30215,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = - let _1 = -# 2926 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _1 = +# 2910 "parsing/parser.mly" ( Ppat_variant(_1, Some _2) ) -# 30933 "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 - -# 1018 "parsing/parser.mly" +# 30223 "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 + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30942 "parsing/parser.ml" - - in - ( -# 2927 "parsing/parser.mly" - ( _1 ) -# 30948 "parsing/parser.ml" - : (Parsetree.pattern)) +# 30232 "parsing/parser.ml" + in + +# 2911 "parsing/parser.mly" + ( _1 ) +# 30238 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30988,32 +30277,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 31000 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 31006 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 30288 "parsing/parser.ml" in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2929 "parsing/parser.mly" - ( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2) -# 31015 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 30294 "parsing/parser.ml" + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2913 "parsing/parser.mly" + ( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2) +# 30303 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31048,24 +30335,22 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _loc__2_ = (_startpos__2_, _endpos__2_) in - let _sloc = (_symbolstartpos, _endpos) in - -# 2895 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _loc__2_ = (_startpos__2_, _endpos__2_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 2879 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 31061 "parsing/parser.ml" - - in - ( -# 2890 "parsing/parser.mly" - ( _1 ) -# 31067 "parsing/parser.ml" - : (Parsetree.pattern)) +# 30347 "parsing/parser.ml" + in + +# 2874 "parsing/parser.mly" + ( _1 ) +# 30353 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31093,18 +30378,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = -# 2897 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = +# 2881 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 31101 "parsing/parser.ml" - in - ( -# 2890 "parsing/parser.mly" +# 30385 "parsing/parser.ml" + in + +# 2874 "parsing/parser.mly" ( _1 ) -# 31106 "parsing/parser.ml" - : (Parsetree.pattern)) - in +# 30390 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31125,18 +30408,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 2899 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = +# 2883 "parsing/parser.mly" ( _1 ) -# 31133 "parsing/parser.ml" - in - ( -# 2890 "parsing/parser.mly" +# 30415 "parsing/parser.ml" + in + +# 2874 "parsing/parser.mly" ( _1 ) -# 31138 "parsing/parser.ml" - : (Parsetree.pattern)) - in +# 30420 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31171,49 +30452,47 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _3 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 31187 "parsing/parser.ml" - - in + let _3 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2902 "parsing/parser.mly" - ( Ppat_alias(_1, _3) ) -# 31193 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 30467 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 31203 "parsing/parser.ml" +# 2886 "parsing/parser.mly" + ( Ppat_alias(_1, _3) ) +# 30473 "parsing/parser.ml" in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2913 "parsing/parser.mly" - ( _1 ) -# 31209 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 30483 "parsing/parser.ml" in - ( -# 2890 "parsing/parser.mly" - ( _1 ) -# 31215 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 30489 "parsing/parser.ml" + in + +# 2874 "parsing/parser.mly" + ( _1 ) +# 30495 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31248,39 +30527,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2904 "parsing/parser.mly" - ( expecting _loc__3_ "identifier" ) -# 31260 "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 -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 31270 "parsing/parser.ml" +# 2888 "parsing/parser.mly" + ( expecting _loc__3_ "identifier" ) +# 30538 "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 -# 2913 "parsing/parser.mly" - ( _1 ) -# 31276 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 30548 "parsing/parser.ml" in - ( -# 2890 "parsing/parser.mly" - ( _1 ) -# 31282 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 30554 "parsing/parser.ml" + in + +# 2874 "parsing/parser.mly" + ( _1 ) +# 30560 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31301,35 +30578,33 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _1 = -# 2906 "parsing/parser.mly" + let _1 = +# 2890 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) -# 31311 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 31319 "parsing/parser.ml" - - in +# 30587 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2913 "parsing/parser.mly" - ( _1 ) -# 31325 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 30595 "parsing/parser.ml" in - ( -# 2890 "parsing/parser.mly" - ( _1 ) -# 31331 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 30601 "parsing/parser.ml" + in + +# 2874 "parsing/parser.mly" + ( _1 ) +# 30607 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31364,39 +30639,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2908 "parsing/parser.mly" - ( expecting _loc__3_ "pattern" ) -# 31376 "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 -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 31386 "parsing/parser.ml" +# 2892 "parsing/parser.mly" + ( expecting _loc__3_ "pattern" ) +# 30650 "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 -# 2913 "parsing/parser.mly" - ( _1 ) -# 31392 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 30660 "parsing/parser.ml" in - ( -# 2890 "parsing/parser.mly" - ( _1 ) -# 31398 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 30666 "parsing/parser.ml" + in + +# 2874 "parsing/parser.mly" + ( _1 ) +# 30672 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31431,36 +30704,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _1 = -# 2910 "parsing/parser.mly" + let _1 = +# 2894 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 31441 "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 - -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 31450 "parsing/parser.ml" - - in +# 30713 "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 -# 2913 "parsing/parser.mly" - ( _1 ) -# 31456 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 30722 "parsing/parser.ml" in - ( -# 2890 "parsing/parser.mly" - ( _1 ) -# 31462 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 30728 "parsing/parser.ml" + in + +# 2874 "parsing/parser.mly" + ( _1 ) +# 30734 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31495,39 +30766,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2912 "parsing/parser.mly" - ( expecting _loc__3_ "pattern" ) -# 31507 "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 -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 31517 "parsing/parser.ml" +# 2896 "parsing/parser.mly" + ( expecting _loc__3_ "pattern" ) +# 30777 "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 -# 2913 "parsing/parser.mly" - ( _1 ) -# 31523 "parsing/parser.ml" +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 30787 "parsing/parser.ml" in - ( -# 2890 "parsing/parser.mly" - ( _1 ) -# 31529 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 2897 "parsing/parser.mly" + ( _1 ) +# 30793 "parsing/parser.ml" + in + +# 2874 "parsing/parser.mly" + ( _1 ) +# 30799 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31545,47 +30814,45 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 31551 "parsing/parser.ml" +# 30820 "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 = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 31566 "parsing/parser.ml" - - in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2322 "parsing/parser.mly" - ( Ppat_var _1 ) -# 31572 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 30834 "parsing/parser.ml" in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 31581 "parsing/parser.ml" +# 2306 "parsing/parser.mly" + ( Ppat_var _1 ) +# 30840 "parsing/parser.ml" in - ( -# 2324 "parsing/parser.mly" - ( _1 ) -# 31587 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 30849 "parsing/parser.ml" + in + +# 2308 "parsing/parser.mly" + ( _1 ) +# 30855 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31606,28 +30873,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 2323 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _1 = +# 2307 "parsing/parser.mly" ( Ppat_any ) -# 31615 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1018 "parsing/parser.mly" +# 30881 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31623 "parsing/parser.ml" - - in - ( -# 2324 "parsing/parser.mly" - ( _1 ) -# 31629 "parsing/parser.ml" - : (Parsetree.pattern)) +# 30889 "parsing/parser.ml" + in + +# 2308 "parsing/parser.mly" + ( _1 ) +# 30895 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31649,9 +30914,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = -# 4103 "parsing/parser.mly" +# 4087 "parsing/parser.mly" ( PStr _1 ) -# 31655 "parsing/parser.ml" +# 30920 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31681,9 +30946,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4104 "parsing/parser.mly" +# 4088 "parsing/parser.mly" ( PSig _2 ) -# 31687 "parsing/parser.ml" +# 30952 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31713,9 +30978,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4105 "parsing/parser.mly" +# 4089 "parsing/parser.mly" ( PTyp _2 ) -# 31719 "parsing/parser.ml" +# 30984 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31745,9 +31010,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4106 "parsing/parser.mly" +# 4090 "parsing/parser.mly" ( PPat (_2, None) ) -# 31751 "parsing/parser.ml" +# 31016 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31791,9 +31056,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.payload) = -# 4107 "parsing/parser.mly" +# 4091 "parsing/parser.mly" ( PPat (_2, Some _4) ) -# 31797 "parsing/parser.ml" +# 31062 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31816,9 +31081,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 3461 "parsing/parser.mly" +# 3445 "parsing/parser.mly" ( _1 ) -# 31822 "parsing/parser.ml" +# 31087 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31854,50 +31119,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let xs = -# 250 "" + let xs = +# 253 "" ( List.rev xs ) -# 31866 "parsing/parser.ml" - in - -# 1085 "parsing/parser.mly" - ( xs ) -# 31871 "parsing/parser.ml" - - in +# 31130 "parsing/parser.ml" + in -# 3453 "parsing/parser.mly" - ( _1 ) -# 31877 "parsing/parser.ml" +# 1069 "parsing/parser.mly" + ( xs ) +# 31135 "parsing/parser.ml" in -# 3457 "parsing/parser.mly" - ( Ptyp_poly(_1, _3) ) -# 31883 "parsing/parser.ml" +# 3437 "parsing/parser.mly" + ( _1 ) +# 31141 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_xs_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 31893 "parsing/parser.ml" +# 3441 "parsing/parser.mly" + ( Ptyp_poly(_1, _3) ) +# 31147 "parsing/parser.ml" in - ( -# 3463 "parsing/parser.mly" - ( _1 ) -# 31899 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_xs_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 31157 "parsing/parser.ml" + in + +# 3447 "parsing/parser.mly" + ( _1 ) +# 31163 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31918,18 +31181,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3492 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = +# 3476 "parsing/parser.mly" ( _1 ) -# 31926 "parsing/parser.ml" - in - ( -# 3461 "parsing/parser.mly" +# 31188 "parsing/parser.ml" + in + +# 3445 "parsing/parser.mly" ( _1 ) -# 31931 "parsing/parser.ml" - : (Parsetree.core_type)) - in +# 31193 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31964,55 +31225,53 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let _3 = -# 3492 "parsing/parser.mly" + let _3 = +# 3476 "parsing/parser.mly" ( _1 ) -# 31974 "parsing/parser.ml" - in +# 31234 "parsing/parser.ml" + in + let _1 = let _1 = - let _1 = - let xs = -# 250 "" + let xs = +# 253 "" ( List.rev xs ) -# 31981 "parsing/parser.ml" - in - -# 1085 "parsing/parser.mly" - ( xs ) -# 31986 "parsing/parser.ml" - - in +# 31241 "parsing/parser.ml" + in -# 3453 "parsing/parser.mly" - ( _1 ) -# 31992 "parsing/parser.ml" +# 1069 "parsing/parser.mly" + ( xs ) +# 31246 "parsing/parser.ml" in -# 3457 "parsing/parser.mly" - ( Ptyp_poly(_1, _3) ) -# 31998 "parsing/parser.ml" +# 3437 "parsing/parser.mly" + ( _1 ) +# 31252 "parsing/parser.ml" in - let _startpos__1_ = _startpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 32008 "parsing/parser.ml" +# 3441 "parsing/parser.mly" + ( Ptyp_poly(_1, _3) ) +# 31258 "parsing/parser.ml" in - ( -# 3463 "parsing/parser.mly" - ( _1 ) -# 32014 "parsing/parser.ml" - : (Parsetree.core_type)) + let _startpos__1_ = _startpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 31268 "parsing/parser.ml" + in + +# 3447 "parsing/parser.mly" + ( _1 ) +# 31274 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32054,16 +31313,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 4064 "parsing/parser.mly" + let _v : (Parsetree.attribute) = let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 4048 "parsing/parser.mly" ( Builtin_attributes.mk_internal ~loc:(make_loc _sloc) _2 _3 ) -# 32065 "parsing/parser.ml" - : (Parsetree.attribute)) - in +# 31323 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32140,48 +31397,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 32150 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 32162 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 32170 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 31406 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3076 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 31418 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 31426 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3060 "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 ) -# 32183 "parsing/parser.ml" - : (Parsetree.value_description * string Asttypes.loc option)) - in +# 31439 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32195,18 +31450,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in - let _v = - let _1 = -# 3919 "parsing/parser.mly" + let _v : (Asttypes.private_flag) = let _1 = +# 3903 "parsing/parser.mly" ( Public ) -# 32203 "parsing/parser.ml" - in - ( -# 3916 "parsing/parser.mly" +# 31457 "parsing/parser.ml" + in + +# 3900 "parsing/parser.mly" ( _1 ) -# 32208 "parsing/parser.ml" - : (Asttypes.private_flag)) - in +# 31462 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32227,18 +31480,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = -# 3920 "parsing/parser.mly" + let _v : (Asttypes.private_flag) = let _1 = +# 3904 "parsing/parser.mly" ( Private ) -# 32235 "parsing/parser.ml" - in - ( -# 3916 "parsing/parser.mly" +# 31487 "parsing/parser.ml" + in + +# 3900 "parsing/parser.mly" ( _1 ) -# 32240 "parsing/parser.ml" - : (Asttypes.private_flag)) - in +# 31492 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32253,9 +31504,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 3953 "parsing/parser.mly" +# 3937 "parsing/parser.mly" ( Public, Concrete ) -# 32259 "parsing/parser.ml" +# 31510 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32278,9 +31529,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 3954 "parsing/parser.mly" +# 3938 "parsing/parser.mly" ( Private, Concrete ) -# 32284 "parsing/parser.ml" +# 31535 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32303,9 +31554,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 3955 "parsing/parser.mly" +# 3939 "parsing/parser.mly" ( Public, Virtual ) -# 32309 "parsing/parser.ml" +# 31560 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32335,9 +31586,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 3956 "parsing/parser.mly" +# 3940 "parsing/parser.mly" ( Private, Virtual ) -# 32341 "parsing/parser.ml" +# 31592 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32367,9 +31618,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 3957 "parsing/parser.mly" +# 3941 "parsing/parser.mly" ( Private, Virtual ) -# 32373 "parsing/parser.ml" +# 31624 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32385,9 +31636,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.rec_flag) = -# 3897 "parsing/parser.mly" +# 3881 "parsing/parser.mly" ( Nonrecursive ) -# 32391 "parsing/parser.ml" +# 31642 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32410,9 +31661,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.rec_flag) = -# 3898 "parsing/parser.mly" +# 3882 "parsing/parser.mly" ( Recursive ) -# 32416 "parsing/parser.ml" +# 31667 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32434,19 +31685,17 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_fields_ in let _endpos = _endpos_fields_ in - let _v = - let eo = -# 121 "" + let _v : (Parsetree.expression option * + (Longident.t Asttypes.loc * Parsetree.expression) list) = let eo = +# 124 "" ( None ) -# 32442 "parsing/parser.ml" - in - ( -# 2815 "parsing/parser.mly" +# 31693 "parsing/parser.ml" + in + +# 2799 "parsing/parser.mly" ( eo, fields ) -# 32447 "parsing/parser.ml" - : (Parsetree.expression option * - (Longident.t Asttypes.loc * Parsetree.expression) list)) - in +# 31698 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32481,26 +31730,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_fields_ in - let _v = - let eo = - let x = -# 188 "" + let _v : (Parsetree.expression option * + (Longident.t Asttypes.loc * Parsetree.expression) list) = let eo = + let x = +# 191 "" ( x ) -# 32490 "parsing/parser.ml" - in - -# 123 "" +# 31739 "parsing/parser.ml" + in + +# 126 "" ( Some x ) -# 32495 "parsing/parser.ml" - - in - ( -# 2815 "parsing/parser.mly" - ( eo, fields ) -# 32501 "parsing/parser.ml" - : (Parsetree.expression option * - (Longident.t Asttypes.loc * Parsetree.expression) list)) +# 31744 "parsing/parser.ml" + in + +# 2799 "parsing/parser.mly" + ( eo, fields ) +# 31750 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32523,21 +31770,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v = - let x = -# 3261 "parsing/parser.mly" + let _v : (Parsetree.constructor_declaration list) = let x = +# 3245 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32534 "parsing/parser.ml" - in - ( -# 1195 "parsing/parser.mly" +# 31780 "parsing/parser.ml" + in + +# 1179 "parsing/parser.mly" ( [x] ) -# 32539 "parsing/parser.ml" - : (Parsetree.constructor_declaration list)) - in +# 31785 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32560,21 +31805,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v = - let x = -# 3261 "parsing/parser.mly" + let _v : (Parsetree.constructor_declaration list) = let x = +# 3245 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32571 "parsing/parser.ml" - in - ( -# 1198 "parsing/parser.mly" +# 31815 "parsing/parser.ml" + in + +# 1182 "parsing/parser.mly" ( [x] ) -# 32576 "parsing/parser.ml" - : (Parsetree.constructor_declaration list)) - in +# 31820 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32604,21 +31847,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in - let _v = - let x = -# 3261 "parsing/parser.mly" + let _v : (Parsetree.constructor_declaration list) = let x = +# 3245 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32615 "parsing/parser.ml" - in - ( -# 1202 "parsing/parser.mly" +# 31857 "parsing/parser.ml" + in + +# 1186 "parsing/parser.mly" ( x :: xs ) -# 32620 "parsing/parser.ml" - : (Parsetree.constructor_declaration list)) - in +# 31862 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32641,28 +31882,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v = - let x = - let _1 = -# 3391 "parsing/parser.mly" + let _v : (Parsetree.extension_constructor list) = let x = + let _1 = +# 3375 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32653 "parsing/parser.ml" - in - -# 3385 "parsing/parser.mly" +# 31893 "parsing/parser.ml" + in + +# 3369 "parsing/parser.mly" ( _1 ) -# 32658 "parsing/parser.ml" - - in - ( -# 1195 "parsing/parser.mly" - ( [x] ) -# 32664 "parsing/parser.ml" - : (Parsetree.extension_constructor list)) +# 31898 "parsing/parser.ml" + in + +# 1179 "parsing/parser.mly" + ( [x] ) +# 31904 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32683,18 +31922,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let x = -# 3387 "parsing/parser.mly" + let _v : (Parsetree.extension_constructor list) = let x = +# 3371 "parsing/parser.mly" ( _1 ) -# 32691 "parsing/parser.ml" - in - ( -# 1195 "parsing/parser.mly" +# 31929 "parsing/parser.ml" + in + +# 1179 "parsing/parser.mly" ( [x] ) -# 32696 "parsing/parser.ml" - : (Parsetree.extension_constructor list)) - in +# 31934 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32717,28 +31954,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v = - let x = - let _1 = -# 3391 "parsing/parser.mly" + let _v : (Parsetree.extension_constructor list) = let x = + let _1 = +# 3375 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32729 "parsing/parser.ml" - in - -# 3385 "parsing/parser.mly" +# 31965 "parsing/parser.ml" + in + +# 3369 "parsing/parser.mly" ( _1 ) -# 32734 "parsing/parser.ml" - - in - ( -# 1198 "parsing/parser.mly" - ( [x] ) -# 32740 "parsing/parser.ml" - : (Parsetree.extension_constructor list)) +# 31970 "parsing/parser.ml" + in + +# 1182 "parsing/parser.mly" + ( [x] ) +# 31976 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32759,18 +31994,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let x = -# 3387 "parsing/parser.mly" + let _v : (Parsetree.extension_constructor list) = let x = +# 3371 "parsing/parser.mly" ( _1 ) -# 32767 "parsing/parser.ml" - in - ( -# 1198 "parsing/parser.mly" +# 32001 "parsing/parser.ml" + in + +# 1182 "parsing/parser.mly" ( [x] ) -# 32772 "parsing/parser.ml" - : (Parsetree.extension_constructor list)) - in +# 32006 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32800,28 +32033,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in - let _v = - let x = - let _1 = -# 3391 "parsing/parser.mly" + let _v : (Parsetree.extension_constructor list) = let x = + let _1 = +# 3375 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32812 "parsing/parser.ml" - in - -# 3385 "parsing/parser.mly" +# 32044 "parsing/parser.ml" + in + +# 3369 "parsing/parser.mly" ( _1 ) -# 32817 "parsing/parser.ml" - - in - ( -# 1202 "parsing/parser.mly" - ( x :: xs ) -# 32823 "parsing/parser.ml" - : (Parsetree.extension_constructor list)) +# 32049 "parsing/parser.ml" + in + +# 1186 "parsing/parser.mly" + ( x :: xs ) +# 32055 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32849,18 +32080,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in - let _v = - let x = -# 3387 "parsing/parser.mly" + let _v : (Parsetree.extension_constructor list) = let x = +# 3371 "parsing/parser.mly" ( _1 ) -# 32857 "parsing/parser.ml" - in - ( -# 1202 "parsing/parser.mly" +# 32087 "parsing/parser.ml" + in + +# 1186 "parsing/parser.mly" ( x :: xs ) -# 32862 "parsing/parser.ml" - : (Parsetree.extension_constructor list)) - in +# 32092 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32883,21 +32112,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v = - let x = -# 3391 "parsing/parser.mly" + let _v : (Parsetree.extension_constructor list) = let x = +# 3375 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32894 "parsing/parser.ml" - in - ( -# 1195 "parsing/parser.mly" +# 32122 "parsing/parser.ml" + in + +# 1179 "parsing/parser.mly" ( [x] ) -# 32899 "parsing/parser.ml" - : (Parsetree.extension_constructor list)) - in +# 32127 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32920,21 +32147,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v = - let x = -# 3391 "parsing/parser.mly" + let _v : (Parsetree.extension_constructor list) = let x = +# 3375 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32931 "parsing/parser.ml" - in - ( -# 1198 "parsing/parser.mly" +# 32157 "parsing/parser.ml" + in + +# 1182 "parsing/parser.mly" ( [x] ) -# 32936 "parsing/parser.ml" - : (Parsetree.extension_constructor list)) - in +# 32162 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32964,21 +32189,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in - let _v = - let x = -# 3391 "parsing/parser.mly" + let _v : (Parsetree.extension_constructor list) = let x = +# 3375 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32975 "parsing/parser.ml" - in - ( -# 1202 "parsing/parser.mly" +# 32199 "parsing/parser.ml" + in + +# 1186 "parsing/parser.mly" ( x :: xs ) -# 32980 "parsing/parser.ml" - : (Parsetree.extension_constructor list)) - in +# 32204 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32993,9 +32216,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) = -# 1061 "parsing/parser.mly" +# 1045 "parsing/parser.mly" ( [] ) -# 32999 "parsing/parser.ml" +# 32222 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33045,31 +32268,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__3_ in - let _v = + let _v : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = let x = let x = - let x = - let (_startpos__1_, _1) = (_startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2197 "parsing/parser.mly" - ( _1, _3, make_loc _sloc ) -# 33059 "parsing/parser.ml" - - in + let (_startpos__1_, _1) = (_startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 180 "" - ( x ) -# 33065 "parsing/parser.ml" +# 2181 "parsing/parser.mly" + ( _1, _3, make_loc _sloc ) +# 32281 "parsing/parser.ml" in - ( -# 1063 "parsing/parser.mly" - ( x :: xs ) -# 33071 "parsing/parser.ml" - : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list)) + +# 183 "" + ( x ) +# 32287 "parsing/parser.ml" + in + +# 1047 "parsing/parser.mly" + ( x :: xs ) +# 32293 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33091,9 +32312,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = -# 1075 "parsing/parser.mly" +# 1059 "parsing/parser.mly" ( [ x ] ) -# 33097 "parsing/parser.ml" +# 32318 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33123,9 +32344,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = -# 1077 "parsing/parser.mly" +# 1061 "parsing/parser.mly" ( x :: xs ) -# 33129 "parsing/parser.ml" +# 32350 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33148,9 +32369,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = -# 1075 "parsing/parser.mly" +# 1059 "parsing/parser.mly" ( [ x ] ) -# 33154 "parsing/parser.ml" +# 32375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33180,9 +32401,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = -# 1077 "parsing/parser.mly" +# 1061 "parsing/parser.mly" ( x :: xs ) -# 33186 "parsing/parser.ml" +# 32407 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33205,9 +32426,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = -# 1075 "parsing/parser.mly" +# 1059 "parsing/parser.mly" ( [ x ] ) -# 33211 "parsing/parser.ml" +# 32432 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33237,9 +32458,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = -# 1077 "parsing/parser.mly" +# 1061 "parsing/parser.mly" ( x :: xs ) -# 33243 "parsing/parser.ml" +# 32464 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33268,31 +32489,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let x = - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 33282 "parsing/parser.ml" - - in + let _v : (Asttypes.label Asttypes.loc list) = let x = + let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 3449 "parsing/parser.mly" - ( _2 ) -# 33288 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 32502 "parsing/parser.ml" in - ( -# 1075 "parsing/parser.mly" - ( [ x ] ) -# 33294 "parsing/parser.ml" - : (Asttypes.label Asttypes.loc list)) + +# 3433 "parsing/parser.mly" + ( _2 ) +# 32508 "parsing/parser.ml" + in + +# 1059 "parsing/parser.mly" + ( [ x ] ) +# 32514 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33327,31 +32546,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let x = - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 33341 "parsing/parser.ml" - - in + let _v : (Asttypes.label Asttypes.loc list) = let x = + let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 3449 "parsing/parser.mly" - ( _2 ) -# 33347 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 32559 "parsing/parser.ml" in - ( -# 1077 "parsing/parser.mly" - ( x :: xs ) -# 33353 "parsing/parser.ml" - : (Asttypes.label Asttypes.loc list)) + +# 3433 "parsing/parser.mly" + ( _2 ) +# 32565 "parsing/parser.ml" + in + +# 1061 "parsing/parser.mly" + ( x :: xs ) +# 32571 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33372,18 +32589,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v = - let _1 = -# 121 "" + let _v : (Parsetree.case list) = let _1 = +# 124 "" ( None ) -# 33380 "parsing/parser.ml" - in - ( -# 1166 "parsing/parser.mly" +# 32596 "parsing/parser.ml" + in + +# 1150 "parsing/parser.mly" ( [x] ) -# 33385 "parsing/parser.ml" - : (Parsetree.case list)) - in +# 32601 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33411,21 +32626,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_inlined1_ in let _endpos = _endpos_x_ in - let _v = - let _1 = - let x = x_inlined1 in - -# 123 "" + let _v : (Parsetree.case list) = let _1 = + let x = x_inlined1 in + +# 126 "" ( Some x ) -# 33421 "parsing/parser.ml" - - in - ( -# 1166 "parsing/parser.mly" - ( [x] ) -# 33427 "parsing/parser.ml" - : (Parsetree.case list)) +# 32635 "parsing/parser.ml" + in + +# 1150 "parsing/parser.mly" + ( [x] ) +# 32641 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33461,9 +32674,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.case list) = -# 1170 "parsing/parser.mly" +# 1154 "parsing/parser.mly" ( x :: xs ) -# 33467 "parsing/parser.ml" +# 32680 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33485,25 +32698,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let xs = - let x = -# 3492 "parsing/parser.mly" + let _v : (Parsetree.core_type list) = let xs = + let x = +# 3476 "parsing/parser.mly" ( _1 ) -# 33494 "parsing/parser.ml" - in - -# 1101 "parsing/parser.mly" +# 32706 "parsing/parser.ml" + in + +# 1085 "parsing/parser.mly" ( [ x ] ) -# 33499 "parsing/parser.ml" - - in - ( -# 1109 "parsing/parser.mly" - ( xs ) -# 33505 "parsing/parser.ml" - : (Parsetree.core_type list)) +# 32711 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" + ( xs ) +# 32717 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33538,25 +32749,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in - let _v = - let xs = - let x = -# 3492 "parsing/parser.mly" + let _v : (Parsetree.core_type list) = let xs = + let x = +# 3476 "parsing/parser.mly" ( _1 ) -# 33547 "parsing/parser.ml" - in - -# 1105 "parsing/parser.mly" +# 32757 "parsing/parser.ml" + in + +# 1089 "parsing/parser.mly" ( x :: xs ) -# 33552 "parsing/parser.ml" - - in - ( -# 1109 "parsing/parser.mly" - ( xs ) -# 33558 "parsing/parser.ml" - : (Parsetree.core_type list)) +# 32762 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" + ( xs ) +# 32768 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33577,18 +32786,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v = - let xs = -# 1101 "parsing/parser.mly" + let _v : (Extensions.comprehension_clause list) = let xs = +# 1085 "parsing/parser.mly" ( [ x ] ) -# 33585 "parsing/parser.ml" - in - ( -# 1109 "parsing/parser.mly" +# 32793 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" ( xs ) -# 33590 "parsing/parser.ml" - : (Extensions.comprehension_clause list)) - in +# 32798 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33623,18 +32830,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in - let _v = - let xs = -# 1105 "parsing/parser.mly" + let _v : (Extensions.comprehension_clause list) = let xs = +# 1089 "parsing/parser.mly" ( x :: xs ) -# 33631 "parsing/parser.ml" - in - ( -# 1109 "parsing/parser.mly" +# 32837 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" ( xs ) -# 33636 "parsing/parser.ml" - : (Extensions.comprehension_clause list)) - in +# 32842 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33655,18 +32860,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v = - let xs = -# 1101 "parsing/parser.mly" + let _v : (Parsetree.with_constraint list) = let xs = +# 1085 "parsing/parser.mly" ( [ x ] ) -# 33663 "parsing/parser.ml" - in - ( -# 1109 "parsing/parser.mly" +# 32867 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" ( xs ) -# 33668 "parsing/parser.ml" - : (Parsetree.with_constraint list)) - in +# 32872 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33701,18 +32904,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in - let _v = - let xs = -# 1105 "parsing/parser.mly" + let _v : (Parsetree.with_constraint list) = let xs = +# 1089 "parsing/parser.mly" ( x :: xs ) -# 33709 "parsing/parser.ml" - in - ( -# 1109 "parsing/parser.mly" +# 32911 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" ( xs ) -# 33714 "parsing/parser.ml" - : (Parsetree.with_constraint list)) - in +# 32916 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33733,18 +32934,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v = - let xs = -# 1101 "parsing/parser.mly" + let _v : (Parsetree.row_field list) = let xs = +# 1085 "parsing/parser.mly" ( [ x ] ) -# 33741 "parsing/parser.ml" - in - ( -# 1109 "parsing/parser.mly" +# 32941 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" ( xs ) -# 33746 "parsing/parser.ml" - : (Parsetree.row_field list)) - in +# 32946 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33779,18 +32978,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in - let _v = - let xs = -# 1105 "parsing/parser.mly" + let _v : (Parsetree.row_field list) = let xs = +# 1089 "parsing/parser.mly" ( x :: xs ) -# 33787 "parsing/parser.ml" - in - ( -# 1109 "parsing/parser.mly" +# 32985 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" ( xs ) -# 33792 "parsing/parser.ml" - : (Parsetree.row_field list)) - in +# 32990 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33811,18 +33008,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v = - let xs = -# 1101 "parsing/parser.mly" + let _v : (Parsetree.core_type list) = let xs = +# 1085 "parsing/parser.mly" ( [ x ] ) -# 33819 "parsing/parser.ml" - in - ( -# 1109 "parsing/parser.mly" +# 33015 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" ( xs ) -# 33824 "parsing/parser.ml" - : (Parsetree.core_type list)) - in +# 33020 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33857,18 +33052,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in - let _v = - let xs = -# 1105 "parsing/parser.mly" + let _v : (Parsetree.core_type list) = let xs = +# 1089 "parsing/parser.mly" ( x :: xs ) -# 33865 "parsing/parser.ml" - in - ( -# 1109 "parsing/parser.mly" +# 33059 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" ( xs ) -# 33870 "parsing/parser.ml" - : (Parsetree.core_type list)) - in +# 33064 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33889,18 +33082,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v = - let xs = -# 1101 "parsing/parser.mly" + let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = +# 1085 "parsing/parser.mly" ( [ x ] ) -# 33897 "parsing/parser.ml" - in - ( -# 1109 "parsing/parser.mly" +# 33089 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" ( xs ) -# 33902 "parsing/parser.ml" - : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) - in +# 33094 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33935,18 +33126,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in - let _v = - let xs = -# 1105 "parsing/parser.mly" + let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = +# 1089 "parsing/parser.mly" ( x :: xs ) -# 33943 "parsing/parser.ml" - in - ( -# 1109 "parsing/parser.mly" +# 33133 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" ( xs ) -# 33948 "parsing/parser.ml" - : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) - in +# 33138 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33967,36 +33156,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_cty_ in let _endpos = _endpos_cty_ in - let _v = - let xs = - let x = - let gbl = -# 3933 "parsing/parser.mly" + let _v : (Parsetree.core_type list) = let xs = + let x = + let gbl = +# 3917 "parsing/parser.mly" ( Nothing ) -# 33977 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 33165 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 33986 "parsing/parser.ml" - - in - -# 1101 "parsing/parser.mly" - ( [ x ] ) -# 33992 "parsing/parser.ml" +# 33174 "parsing/parser.ml" in - ( -# 1109 "parsing/parser.mly" - ( xs ) -# 33998 "parsing/parser.ml" - : (Parsetree.core_type list)) + +# 1085 "parsing/parser.mly" + ( [ x ] ) +# 33180 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" + ( xs ) +# 33186 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34024,36 +33211,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_cty_ in - let _v = - let xs = - let x = - let gbl = -# 3934 "parsing/parser.mly" + let _v : (Parsetree.core_type list) = let xs = + let x = + let gbl = +# 3918 "parsing/parser.mly" ( Global ) -# 34034 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 33220 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34043 "parsing/parser.ml" - - in - -# 1101 "parsing/parser.mly" - ( [ x ] ) -# 34049 "parsing/parser.ml" +# 33229 "parsing/parser.ml" in - ( -# 1109 "parsing/parser.mly" - ( xs ) -# 34055 "parsing/parser.ml" - : (Parsetree.core_type list)) + +# 1085 "parsing/parser.mly" + ( [ x ] ) +# 33235 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" + ( xs ) +# 33241 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34081,36 +33266,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_cty_ in - let _v = - let xs = - let x = - let gbl = -# 3935 "parsing/parser.mly" + let _v : (Parsetree.core_type list) = let xs = + let x = + let gbl = +# 3919 "parsing/parser.mly" ( Nonlocal ) -# 34091 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 33275 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34100 "parsing/parser.ml" - - in - -# 1101 "parsing/parser.mly" - ( [ x ] ) -# 34106 "parsing/parser.ml" +# 33284 "parsing/parser.ml" in - ( -# 1109 "parsing/parser.mly" - ( xs ) -# 34112 "parsing/parser.ml" - : (Parsetree.core_type list)) + +# 1085 "parsing/parser.mly" + ( [ x ] ) +# 33290 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" + ( xs ) +# 33296 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34145,37 +33328,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_cty_ in - let _v = - let xs = - let x = - let _endpos__0_ = _endpos__2_ in - let gbl = -# 3933 "parsing/parser.mly" + let _v : (Parsetree.core_type list) = let xs = + let x = + let _endpos__0_ = _endpos__2_ in + let gbl = +# 3917 "parsing/parser.mly" ( Nothing ) -# 34156 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 33338 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34165 "parsing/parser.ml" - - in - -# 1105 "parsing/parser.mly" - ( x :: xs ) -# 34171 "parsing/parser.ml" +# 33347 "parsing/parser.ml" in - ( -# 1109 "parsing/parser.mly" - ( xs ) -# 34177 "parsing/parser.ml" - : (Parsetree.core_type list)) + +# 1089 "parsing/parser.mly" + ( x :: xs ) +# 33353 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" + ( xs ) +# 33359 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34217,36 +33398,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_cty_ in - let _v = - let xs = - let x = - let gbl = -# 3934 "parsing/parser.mly" + let _v : (Parsetree.core_type list) = let xs = + let x = + let gbl = +# 3918 "parsing/parser.mly" ( Global ) -# 34227 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 33407 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34236 "parsing/parser.ml" - - in - -# 1105 "parsing/parser.mly" - ( x :: xs ) -# 34242 "parsing/parser.ml" +# 33416 "parsing/parser.ml" in - ( -# 1109 "parsing/parser.mly" - ( xs ) -# 34248 "parsing/parser.ml" - : (Parsetree.core_type list)) + +# 1089 "parsing/parser.mly" + ( x :: xs ) +# 33422 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" + ( xs ) +# 33428 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34288,36 +33467,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_cty_ in - let _v = - let xs = - let x = - let gbl = -# 3935 "parsing/parser.mly" + let _v : (Parsetree.core_type list) = let xs = + let x = + let gbl = +# 3919 "parsing/parser.mly" ( Nonlocal ) -# 34298 "parsing/parser.ml" - in - let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in - let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in - -# 3318 "parsing/parser.mly" +# 33476 "parsing/parser.ml" + in + let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in + let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in + +# 3302 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34307 "parsing/parser.ml" - - in - -# 1105 "parsing/parser.mly" - ( x :: xs ) -# 34313 "parsing/parser.ml" +# 33485 "parsing/parser.ml" in - ( -# 1109 "parsing/parser.mly" - ( xs ) -# 34319 "parsing/parser.ml" - : (Parsetree.core_type list)) + +# 1089 "parsing/parser.mly" + ( x :: xs ) +# 33491 "parsing/parser.ml" + in + +# 1093 "parsing/parser.mly" + ( xs ) +# 33497 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34353,9 +33530,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = -# 1132 "parsing/parser.mly" +# 1116 "parsing/parser.mly" ( x :: xs ) -# 34359 "parsing/parser.ml" +# 33536 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34392,9 +33569,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.core_type list) = -# 1136 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34398 "parsing/parser.ml" +# 33575 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34431,9 +33608,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.expression list) = -# 1132 "parsing/parser.mly" +# 1116 "parsing/parser.mly" ( x :: xs ) -# 34437 "parsing/parser.ml" +# 33614 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34470,9 +33647,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.expression list) = -# 1136 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34476 "parsing/parser.ml" +# 33653 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34509,9 +33686,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = -# 1132 "parsing/parser.mly" +# 1116 "parsing/parser.mly" ( x :: xs ) -# 34515 "parsing/parser.ml" +# 33692 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34548,9 +33725,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.core_type list) = -# 1136 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34554 "parsing/parser.ml" +# 33731 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34573,9 +33750,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.row_field) = -# 3658 "parsing/parser.mly" +# 3642 "parsing/parser.mly" ( _1 ) -# 34579 "parsing/parser.ml" +# 33756 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34597,16 +33774,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 3660 "parsing/parser.mly" + let _v : (Parsetree.row_field) = let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3644 "parsing/parser.mly" ( Rf.inherit_ ~loc:(make_loc _sloc) _1 ) -# 34608 "parsing/parser.ml" - : (Parsetree.row_field)) - in +# 33784 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34627,18 +33802,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v = - let _2 = -# 121 "" + let _v : (Parsetree.expression list) = let _2 = +# 124 "" ( None ) -# 34635 "parsing/parser.ml" - in - ( -# 1153 "parsing/parser.mly" +# 33809 "parsing/parser.ml" + in + +# 1137 "parsing/parser.mly" ( [x] ) -# 34640 "parsing/parser.ml" - : (Parsetree.expression list)) - in +# 33814 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34666,21 +33839,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_inlined1_ in - let _v = - let _2 = - let x = x_inlined1 in - -# 123 "" + let _v : (Parsetree.expression list) = let _2 = + let x = x_inlined1 in + +# 126 "" ( Some x ) -# 34676 "parsing/parser.ml" - - in - ( -# 1153 "parsing/parser.mly" - ( [x] ) -# 34682 "parsing/parser.ml" - : (Parsetree.expression list)) +# 33848 "parsing/parser.ml" + in + +# 1137 "parsing/parser.mly" + ( [x] ) +# 33854 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34716,9 +33887,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.expression list) = -# 1157 "parsing/parser.mly" +# 1141 "parsing/parser.mly" ( x :: xs ) -# 34722 "parsing/parser.ml" +# 33893 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34744,37 +33915,36 @@ module Tables = struct } = _menhir_stack in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 34750 "parsing/parser.ml" +# 33921 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_oe_ in - let _v = - let _2 = -# 121 "" + let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = +# 124 "" ( None ) -# 34759 "parsing/parser.ml" - in - let x = - let label = - let _1 = -# 3722 "parsing/parser.mly" +# 33929 "parsing/parser.ml" + in + let x = + let label = + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 34766 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 33936 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34774 "parsing/parser.ml" - - in +# 33944 "parsing/parser.ml" -# 2838 "parsing/parser.mly" + in + +# 2822 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34784,15 +33954,14 @@ module Tables = struct label, e in label, e ) -# 34788 "parsing/parser.ml" - - in - ( -# 1153 "parsing/parser.mly" - ( [x] ) -# 34794 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Parsetree.expression) list)) +# 33958 "parsing/parser.ml" + in + +# 1137 "parsing/parser.mly" + ( [x] ) +# 33964 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34824,37 +33993,36 @@ module Tables = struct let x : unit = Obj.magic x in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 34830 "parsing/parser.ml" +# 33999 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v = - let _2 = -# 123 "" + let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = +# 126 "" ( Some x ) -# 34839 "parsing/parser.ml" - in - let x = - let label = - let _1 = -# 3722 "parsing/parser.mly" +# 34007 "parsing/parser.ml" + in + let x = + let label = + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 34846 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 34014 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34854 "parsing/parser.ml" - - in +# 34022 "parsing/parser.ml" -# 2838 "parsing/parser.mly" + in + +# 2822 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34864,15 +34032,14 @@ module Tables = struct label, e in label, e ) -# 34868 "parsing/parser.ml" - - in - ( -# 1153 "parsing/parser.mly" - ( [x] ) -# 34874 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Parsetree.expression) list)) +# 34036 "parsing/parser.ml" + in + +# 1137 "parsing/parser.mly" + ( [x] ) +# 34042 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34911,32 +34078,31 @@ module Tables = struct let _2 : unit = Obj.magic _2 in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 34917 "parsing/parser.ml" +# 34084 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let label = - let _1 = -# 3722 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let x = + let label = + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 34928 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 34094 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34936 "parsing/parser.ml" - - in +# 34102 "parsing/parser.ml" -# 2838 "parsing/parser.mly" + in + +# 2822 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34946,15 +34112,14 @@ module Tables = struct label, e in label, e ) -# 34950 "parsing/parser.ml" - - in - ( -# 1157 "parsing/parser.mly" - ( x :: xs ) -# 34956 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Parsetree.expression) list)) +# 34116 "parsing/parser.ml" + in + +# 1141 "parsing/parser.mly" + ( x :: xs ) +# 34122 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34975,18 +34140,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v = - let _2 = -# 121 "" + let _v : (Parsetree.pattern list) = let _2 = +# 124 "" ( None ) -# 34983 "parsing/parser.ml" - in - ( -# 1153 "parsing/parser.mly" +# 34147 "parsing/parser.ml" + in + +# 1137 "parsing/parser.mly" ( [x] ) -# 34988 "parsing/parser.ml" - : (Parsetree.pattern list)) - in +# 34152 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35014,21 +34177,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_inlined1_ in - let _v = - let _2 = - let x = x_inlined1 in - -# 123 "" + let _v : (Parsetree.pattern list) = let _2 = + let x = x_inlined1 in + +# 126 "" ( Some x ) -# 35024 "parsing/parser.ml" - - in - ( -# 1153 "parsing/parser.mly" - ( [x] ) -# 35030 "parsing/parser.ml" - : (Parsetree.pattern list)) +# 34186 "parsing/parser.ml" + in + +# 1137 "parsing/parser.mly" + ( [x] ) +# 34192 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35064,9 +34225,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.pattern list) = -# 1157 "parsing/parser.mly" +# 1141 "parsing/parser.mly" ( x :: xs ) -# 35070 "parsing/parser.ml" +# 34231 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35102,29 +34263,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_eo_ in - let _v = - let _2 = -# 121 "" + let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = +# 124 "" ( None ) -# 35110 "parsing/parser.ml" - in - let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 35120 "parsing/parser.ml" - - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_eo_ in - let _symbolstartpos = _startpos_label_ in +# 34270 "parsing/parser.ml" + in + let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2821 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 34280 "parsing/parser.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_eo_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2805 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -35134,15 +34294,14 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35138 "parsing/parser.ml" - - in - ( -# 1153 "parsing/parser.mly" - ( [x] ) -# 35144 "parsing/parser.ml" - : ((Longident.t Asttypes.loc * Parsetree.expression) list)) +# 34298 "parsing/parser.ml" + in + +# 1137 "parsing/parser.mly" + ( [x] ) +# 34304 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35184,29 +34343,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v = - let _2 = -# 123 "" + let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = +# 126 "" ( Some x ) -# 35192 "parsing/parser.ml" - in - let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 35202 "parsing/parser.ml" - - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_eo_ in - let _symbolstartpos = _startpos_label_ in +# 34350 "parsing/parser.ml" + in + let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2821 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 34360 "parsing/parser.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_eo_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2805 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -35216,15 +34374,14 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35220 "parsing/parser.ml" - - in - ( -# 1153 "parsing/parser.mly" - ( [x] ) -# 35226 "parsing/parser.ml" - : ((Longident.t Asttypes.loc * Parsetree.expression) list)) +# 34378 "parsing/parser.ml" + in + +# 1137 "parsing/parser.mly" + ( [x] ) +# 34384 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35273,24 +34430,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 35286 "parsing/parser.ml" - - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_eo_ in - let _symbolstartpos = _startpos_label_ in + let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2821 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 34442 "parsing/parser.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_eo_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2805 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -35300,15 +34456,14 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35304 "parsing/parser.ml" - - in - ( -# 1157 "parsing/parser.mly" - ( x :: xs ) -# 35310 "parsing/parser.ml" - : ((Longident.t Asttypes.loc * Parsetree.expression) list)) +# 34460 "parsing/parser.ml" + in + +# 1141 "parsing/parser.mly" + ( x :: xs ) +# 34466 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35330,9 +34485,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2286 "parsing/parser.mly" +# 2270 "parsing/parser.mly" ( _1 ) -# 35336 "parsing/parser.ml" +# 34491 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35362,9 +34517,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2287 "parsing/parser.mly" +# 2271 "parsing/parser.mly" ( _1 ) -# 35368 "parsing/parser.ml" +# 34523 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35400,29 +34555,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = - let _1 = -# 2289 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _1 = +# 2273 "parsing/parser.mly" ( Pexp_sequence(_1, _3) ) -# 35409 "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 - -# 1016 "parsing/parser.mly" +# 34563 "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 + +# 1000 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 35418 "parsing/parser.ml" - - in - ( -# 2290 "parsing/parser.mly" - ( _1 ) -# 35424 "parsing/parser.ml" - : (Parsetree.expression)) +# 34572 "parsing/parser.ml" + in + +# 2274 "parsing/parser.mly" + ( _1 ) +# 34578 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35471,18 +34624,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2292 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2276 "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)) ) -# 35484 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 34636 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35546,59 +34697,57 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in - let _v = - let attrs = - let _1 = _1_inlined4 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 35556 "parsing/parser.ml" - - in - let _endpos_attrs_ = _endpos__1_inlined4_ in - let attrs2 = - let _1 = _1_inlined3 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 35565 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 35577 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 35585 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs_ in - let _startpos = _startpos__1_ in + let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = + let _1 = _1_inlined4 in + +# 4057 "parsing/parser.mly" + ( _1 ) +# 34706 "parsing/parser.ml" + + in + let _endpos_attrs_ = _endpos__1_inlined4_ in + let attrs2 = + let _1 = _1_inlined3 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 34715 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3291 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 34727 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 34735 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs_ in + let _startpos = _startpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3275 "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 ) -# 35600 "parsing/parser.ml" - : (Parsetree.type_exception * string Asttypes.loc option)) - in +# 34750 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35619,28 +34768,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos_xss_ in - let _v = - let _1 = - let _1 = -# 257 "" + let _v : (Parsetree.signature) = let _1 = + let _1 = +# 260 "" ( List.flatten xss ) -# 35628 "parsing/parser.ml" - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - -# 976 "parsing/parser.mly" +# 34776 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + +# 960 "parsing/parser.mly" ( extra_sig _startpos _endpos _1 ) -# 35636 "parsing/parser.ml" - - in - ( -# 1735 "parsing/parser.mly" - ( _1 ) -# 35642 "parsing/parser.ml" - : (Parsetree.signature)) +# 34784 "parsing/parser.ml" + in + +# 1719 "parsing/parser.mly" + ( _1 ) +# 34790 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35668,26 +34815,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let _2 = - let _1 = _1_inlined1 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.signature_item) = let _2 = + let _1 = _1_inlined1 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 35678 "parsing/parser.ml" - - in - let _endpos__2_ = _endpos__1_inlined1_ in - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1750 "parsing/parser.mly" +# 34824 "parsing/parser.ml" + + in + let _endpos__2_ = _endpos__1_inlined1_ in + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1734 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mksig ~loc:_sloc (Psig_extension (_1, (add_docs_attrs docs _2))) ) -# 35689 "parsing/parser.ml" - : (Parsetree.signature_item)) - in +# 34835 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35708,28 +34853,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1754 "parsing/parser.mly" + let _v : (Parsetree.signature_item) = let _1 = + let _1 = +# 1738 "parsing/parser.mly" ( Psig_attribute _1 ) -# 35717 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1024 "parsing/parser.mly" +# 34861 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1008 "parsing/parser.mly" ( mksig ~loc:_sloc _1 ) -# 35725 "parsing/parser.ml" - - in - ( -# 1756 "parsing/parser.mly" - ( _1 ) -# 35731 "parsing/parser.ml" - : (Parsetree.signature_item)) +# 34869 "parsing/parser.ml" + in + +# 1740 "parsing/parser.mly" + ( _1 ) +# 34875 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35750,28 +34893,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1759 "parsing/parser.mly" + let _v : (Parsetree.signature_item) = let _1 = + let _1 = +# 1743 "parsing/parser.mly" ( psig_value _1 ) -# 35759 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1041 "parsing/parser.mly" +# 34901 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35767 "parsing/parser.ml" - - in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 35773 "parsing/parser.ml" - : (Parsetree.signature_item)) +# 34909 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 34915 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35792,28 +34933,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1761 "parsing/parser.mly" + let _v : (Parsetree.signature_item) = let _1 = + let _1 = +# 1745 "parsing/parser.mly" ( psig_value _1 ) -# 35801 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1041 "parsing/parser.mly" +# 34941 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35809 "parsing/parser.ml" - - in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 35815 "parsing/parser.ml" - : (Parsetree.signature_item)) +# 34949 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 34955 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35842,50 +34981,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_a_ in let _endpos = _endpos_bs_ in - let _v = + let _v : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let _1 = -# 1214 "parsing/parser.mly" + let _1 = +# 1198 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 35854 "parsing/parser.ml" - in - -# 3112 "parsing/parser.mly" - ( _1 ) -# 35859 "parsing/parser.ml" - - in +# 34992 "parsing/parser.ml" + in -# 3095 "parsing/parser.mly" - ( _1 ) -# 35865 "parsing/parser.ml" +# 3096 "parsing/parser.mly" + ( _1 ) +# 34997 "parsing/parser.ml" in -# 1763 "parsing/parser.mly" - ( psig_type _1 ) -# 35871 "parsing/parser.ml" +# 3079 "parsing/parser.mly" + ( _1 ) +# 35003 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1041 "parsing/parser.mly" - ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35881 "parsing/parser.ml" +# 1747 "parsing/parser.mly" + ( psig_type _1 ) +# 35009 "parsing/parser.ml" in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 35887 "parsing/parser.ml" - : (Parsetree.signature_item)) + let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" + ( wrap_mksig_ext ~loc:_sloc _1 ) +# 35019 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 35025 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35914,50 +35051,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_a_ in let _endpos = _endpos_bs_ in - let _v = + let _v : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let _1 = -# 1214 "parsing/parser.mly" + let _1 = +# 1198 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 35926 "parsing/parser.ml" - in - -# 3112 "parsing/parser.mly" - ( _1 ) -# 35931 "parsing/parser.ml" - - in +# 35062 "parsing/parser.ml" + in -# 3100 "parsing/parser.mly" - ( _1 ) -# 35937 "parsing/parser.ml" +# 3096 "parsing/parser.mly" + ( _1 ) +# 35067 "parsing/parser.ml" in -# 1765 "parsing/parser.mly" - ( psig_typesubst _1 ) -# 35943 "parsing/parser.ml" +# 3084 "parsing/parser.mly" + ( _1 ) +# 35073 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1041 "parsing/parser.mly" - ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35953 "parsing/parser.ml" +# 1749 "parsing/parser.mly" + ( psig_typesubst _1 ) +# 35079 "parsing/parser.ml" in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 35959 "parsing/parser.ml" - : (Parsetree.signature_item)) + let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" + ( wrap_mksig_ext ~loc:_sloc _1 ) +# 35089 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 35095 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36034,89 +35169,87 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = + let _v : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 36048 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let cs = -# 1206 "parsing/parser.mly" +# 35182 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let cs = +# 1190 "parsing/parser.mly" ( List.rev xs ) -# 36055 "parsing/parser.ml" - in - let tid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 35189 "parsing/parser.ml" + in + let tid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36065 "parsing/parser.ml" - - in - let _4 = -# 3905 "parsing/parser.mly" +# 35199 "parsing/parser.ml" + + in + let _4 = +# 3889 "parsing/parser.mly" ( Recursive ) -# 36071 "parsing/parser.ml" - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 35205 "parsing/parser.ml" + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 36078 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 35212 "parsing/parser.ml" -# 3378 "parsing/parser.mly" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3362 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 36090 "parsing/parser.ml" - - in - -# 3365 "parsing/parser.mly" - ( _1 ) -# 36096 "parsing/parser.ml" +# 35224 "parsing/parser.ml" in -# 1767 "parsing/parser.mly" - ( psig_typext _1 ) -# 36102 "parsing/parser.ml" +# 3349 "parsing/parser.mly" + ( _1 ) +# 35230 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1041 "parsing/parser.mly" - ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36112 "parsing/parser.ml" +# 1751 "parsing/parser.mly" + ( psig_typext _1 ) +# 35236 "parsing/parser.ml" in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 36118 "parsing/parser.ml" - : (Parsetree.signature_item)) + let _endpos__1_ = _endpos__1_inlined3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" + ( wrap_mksig_ext ~loc:_sloc _1 ) +# 35246 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 35252 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36200,95 +35333,93 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in - let _v = + let _v : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let attrs2 = - let _1 = _1_inlined4 in - -# 4073 "parsing/parser.mly" + let attrs2 = + let _1 = _1_inlined4 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 36214 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let cs = -# 1206 "parsing/parser.mly" +# 35346 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let cs = +# 1190 "parsing/parser.mly" ( List.rev xs ) -# 36221 "parsing/parser.ml" - in - let tid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 35353 "parsing/parser.ml" + in + let tid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36231 "parsing/parser.ml" - - in - let _4 = - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - -# 3907 "parsing/parser.mly" +# 35363 "parsing/parser.ml" + + in + let _4 = + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + let _loc = (_startpos, _endpos) in + +# 3891 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 36242 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 35374 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 36250 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 35382 "parsing/parser.ml" -# 3378 "parsing/parser.mly" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3362 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 36262 "parsing/parser.ml" - - in - -# 3365 "parsing/parser.mly" - ( _1 ) -# 36268 "parsing/parser.ml" +# 35394 "parsing/parser.ml" in -# 1767 "parsing/parser.mly" - ( psig_typext _1 ) -# 36274 "parsing/parser.ml" +# 3349 "parsing/parser.mly" + ( _1 ) +# 35400 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1041 "parsing/parser.mly" - ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36284 "parsing/parser.ml" +# 1751 "parsing/parser.mly" + ( psig_typext _1 ) +# 35406 "parsing/parser.ml" in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 36290 "parsing/parser.ml" - : (Parsetree.signature_item)) + let _endpos__1_ = _endpos__1_inlined4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" + ( wrap_mksig_ext ~loc:_sloc _1 ) +# 35416 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 35422 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36309,28 +35440,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1769 "parsing/parser.mly" + let _v : (Parsetree.signature_item) = let _1 = + let _1 = +# 1753 "parsing/parser.mly" ( psig_exception _1 ) -# 36318 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1041 "parsing/parser.mly" +# 35448 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36326 "parsing/parser.ml" - - in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 36332 "parsing/parser.ml" - : (Parsetree.signature_item)) +# 35456 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 35462 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36386,74 +35515,72 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = + let _v : (Parsetree.signature_item) = let _1 = let _1 = let _1 = - let _1 = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 36399 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let name = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 36411 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 36419 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 35527 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let name = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1800 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 35539 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 35547 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1784 "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 ) -# 36433 "parsing/parser.ml" - - in - -# 1771 "parsing/parser.mly" - ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 36439 "parsing/parser.ml" +# 35561 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1041 "parsing/parser.mly" - ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36449 "parsing/parser.ml" +# 1755 "parsing/parser.mly" + ( let (body, ext) = _1 in (Psig_module body, ext) ) +# 35567 "parsing/parser.ml" in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 36455 "parsing/parser.ml" - : (Parsetree.signature_item)) + let _endpos__1_ = _endpos__1_inlined3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" + ( wrap_mksig_ext ~loc:_sloc _1 ) +# 35577 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 35583 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36516,96 +35643,94 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in - let _v = + let _v : (Parsetree.signature_item) = let _1 = let _1 = let _1 = - let _1 = - let attrs2 = - let _1 = _1_inlined4 in - -# 4073 "parsing/parser.mly" + let attrs2 = + let _1 = _1_inlined4 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 36529 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let body = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let id = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 36542 "parsing/parser.ml" - - in - let (_endpos_id_, _startpos_id_) = (_endpos__1_, _startpos__1_) in - let _endpos = _endpos_id_ in - let _symbolstartpos = _startpos_id_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1837 "parsing/parser.mly" - ( Mty.alias ~loc:(make_loc _sloc) id ) -# 36552 "parsing/parser.ml" - - in - let name = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in +# 35655 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let body = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let id = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 983 "parsing/parser.mly" +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36563 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 36571 "parsing/parser.ml" +# 35668 "parsing/parser.ml" in - let _endpos = _endpos_attrs2_ in + let (_endpos_id_, _startpos_id_) = (_endpos__1_, _startpos__1_) in + let _endpos = _endpos_id_ in + let _symbolstartpos = _startpos_id_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1821 "parsing/parser.mly" + ( Mty.alias ~loc:(make_loc _sloc) id ) +# 35678 "parsing/parser.ml" + + in + let name = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1828 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 35689 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 35697 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1812 "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 ) -# 36585 "parsing/parser.ml" - - in - -# 1773 "parsing/parser.mly" - ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 36591 "parsing/parser.ml" +# 35711 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1041 "parsing/parser.mly" - ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36601 "parsing/parser.ml" +# 1757 "parsing/parser.mly" + ( let (body, ext) = _1 in (Psig_module body, ext) ) +# 35717 "parsing/parser.ml" in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 36607 "parsing/parser.ml" - : (Parsetree.signature_item)) + let _endpos__1_ = _endpos__1_inlined4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" + ( wrap_mksig_ext ~loc:_sloc _1 ) +# 35727 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 35733 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36626,28 +35751,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1775 "parsing/parser.mly" + let _v : (Parsetree.signature_item) = let _1 = + let _1 = +# 1759 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modsubst body, ext) ) -# 36635 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1041 "parsing/parser.mly" +# 35759 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36643 "parsing/parser.ml" - - in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 36649 "parsing/parser.ml" - : (Parsetree.signature_item)) +# 35767 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 35773 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36724,88 +35847,86 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_bs_ in - let _v = + let _v : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let a = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 36739 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let name = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 36751 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let a = + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 36759 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 35861 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let name = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1871 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 35873 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 35881 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1855 "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 ) -# 36773 "parsing/parser.ml" - - in - -# 1214 "parsing/parser.mly" - ( let (x, b) = a in x, b :: bs ) -# 36779 "parsing/parser.ml" +# 35895 "parsing/parser.ml" in -# 1860 "parsing/parser.mly" - ( _1 ) -# 36785 "parsing/parser.ml" +# 1198 "parsing/parser.mly" + ( let (x, b) = a in x, b :: bs ) +# 35901 "parsing/parser.ml" in -# 1777 "parsing/parser.mly" - ( let (ext, l) = _1 in (Psig_recmodule l, ext) ) -# 36791 "parsing/parser.ml" +# 1844 "parsing/parser.mly" + ( _1 ) +# 35907 "parsing/parser.ml" in - let _endpos__1_ = _endpos_bs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1041 "parsing/parser.mly" - ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36801 "parsing/parser.ml" +# 1761 "parsing/parser.mly" + ( let (ext, l) = _1 in (Psig_recmodule l, ext) ) +# 35913 "parsing/parser.ml" in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 36807 "parsing/parser.ml" - : (Parsetree.signature_item)) + let _endpos__1_ = _endpos_bs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" + ( wrap_mksig_ext ~loc:_sloc _1 ) +# 35923 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 35929 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36826,28 +35947,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1779 "parsing/parser.mly" + let _v : (Parsetree.signature_item) = let _1 = + let _1 = +# 1763 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtype body, ext) ) -# 36835 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1041 "parsing/parser.mly" +# 35955 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36843 "parsing/parser.ml" - - in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 36849 "parsing/parser.ml" - : (Parsetree.signature_item)) +# 35963 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 35969 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36868,28 +35987,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1781 "parsing/parser.mly" + let _v : (Parsetree.signature_item) = let _1 = + let _1 = +# 1765 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtypesubst body, ext) ) -# 36877 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1041 "parsing/parser.mly" +# 35995 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36885 "parsing/parser.ml" - - in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 36891 "parsing/parser.ml" - : (Parsetree.signature_item)) +# 36003 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 36009 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36910,28 +36027,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1783 "parsing/parser.mly" + let _v : (Parsetree.signature_item) = let _1 = + let _1 = +# 1767 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_open body, ext) ) -# 36919 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1041 "parsing/parser.mly" +# 36035 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36927 "parsing/parser.ml" - - in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 36933 "parsing/parser.ml" - : (Parsetree.signature_item)) +# 36043 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 36049 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36980,60 +36095,58 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_attrs0_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.signature_item) = let _1 = let _1 = let _1 = - let _1 = - let attrs2 = - let _1 = _1_inlined1 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 36993 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined1_ in - let attrs1 = -# 4077 "parsing/parser.mly" + let attrs2 = + let _1 = _1_inlined1 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 37000 "parsing/parser.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos_attrs0_ in - let _sloc = (_symbolstartpos, _endpos) in +# 36107 "parsing/parser.ml" -# 1627 "parsing/parser.mly" + in + let _endpos_attrs2_ = _endpos__1_inlined1_ in + let attrs1 = +# 4061 "parsing/parser.mly" + ( _1 ) +# 36114 "parsing/parser.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos_attrs0_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1611 "parsing/parser.mly" ( let attrs = attrs0 @ attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Incl.mk thing ~attrs ~loc ~docs, ext ) -# 37013 "parsing/parser.ml" - - in - -# 1785 "parsing/parser.mly" - ( psig_include _1 ) -# 37019 "parsing/parser.ml" +# 36127 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_attrs0_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1041 "parsing/parser.mly" - ( wrap_mksig_ext ~loc:_sloc _1 ) -# 37029 "parsing/parser.ml" +# 1769 "parsing/parser.mly" + ( psig_include _1 ) +# 36133 "parsing/parser.ml" in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 37035 "parsing/parser.ml" - : (Parsetree.signature_item)) + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_attrs0_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" + ( wrap_mksig_ext ~loc:_sloc _1 ) +# 36143 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 36149 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37109,9 +36222,9 @@ module Tables = struct let cty : (Parsetree.class_type) = Obj.magic cty in let _7 : unit = Obj.magic _7 in let _1_inlined2 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 37115 "parsing/parser.ml" +# 36228 "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 @@ -37121,45 +36234,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_bs_ in - let _v = + let _v : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let a = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 37136 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 37148 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let a = + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 37156 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 36248 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2218 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 36260 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 36268 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2202 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -37167,43 +36279,42 @@ module Tables = struct ext, Ci.mk id cty ~virt ~params ~attrs ~loc ~docs ) -# 37171 "parsing/parser.ml" - - in - -# 1214 "parsing/parser.mly" - ( let (x, b) = a in x, b :: bs ) -# 37177 "parsing/parser.ml" +# 36283 "parsing/parser.ml" in -# 2206 "parsing/parser.mly" - ( _1 ) -# 37183 "parsing/parser.ml" +# 1198 "parsing/parser.mly" + ( let (x, b) = a in x, b :: bs ) +# 36289 "parsing/parser.ml" in -# 1787 "parsing/parser.mly" - ( let (ext, l) = _1 in (Psig_class l, ext) ) -# 37189 "parsing/parser.ml" +# 2190 "parsing/parser.mly" + ( _1 ) +# 36295 "parsing/parser.ml" in - let _endpos__1_ = _endpos_bs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1041 "parsing/parser.mly" - ( wrap_mksig_ext ~loc:_sloc _1 ) -# 37199 "parsing/parser.ml" +# 1771 "parsing/parser.mly" + ( let (ext, l) = _1 in (Psig_class l, ext) ) +# 36301 "parsing/parser.ml" in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 37205 "parsing/parser.ml" - : (Parsetree.signature_item)) + let _endpos__1_ = _endpos_bs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" + ( wrap_mksig_ext ~loc:_sloc _1 ) +# 36311 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 36317 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37224,28 +36335,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1789 "parsing/parser.mly" + let _v : (Parsetree.signature_item) = let _1 = + let _1 = +# 1773 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class_type l, ext) ) -# 37233 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1041 "parsing/parser.mly" +# 36343 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1025 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 37241 "parsing/parser.ml" - - in - ( -# 1791 "parsing/parser.mly" - ( _1 ) -# 37247 "parsing/parser.ml" - : (Parsetree.signature_item)) +# 36351 "parsing/parser.ml" + in + +# 1775 "parsing/parser.mly" + ( _1 ) +# 36357 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37267,9 +36376,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = -# 3734 "parsing/parser.mly" +# 3718 "parsing/parser.mly" ( _1 ) -# 37273 "parsing/parser.ml" +# 36382 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37294,18 +36403,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 783 "parsing/parser.mly" +# 767 "parsing/parser.mly" (string * char option) -# 37300 "parsing/parser.ml" +# 36409 "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) = -# 3735 "parsing/parser.mly" +# 3719 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer("-" ^ n, m) ) -# 37309 "parsing/parser.ml" +# 36418 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37330,18 +36439,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 761 "parsing/parser.mly" +# 745 "parsing/parser.mly" (string * char option) -# 37336 "parsing/parser.ml" +# 36445 "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) = -# 3736 "parsing/parser.mly" +# 3720 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float("-" ^ f, m) ) -# 37345 "parsing/parser.ml" +# 36454 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37366,18 +36475,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 783 "parsing/parser.mly" +# 767 "parsing/parser.mly" (string * char option) -# 37372 "parsing/parser.ml" +# 36481 "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) = -# 3737 "parsing/parser.mly" +# 3721 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer (n, m) ) -# 37381 "parsing/parser.ml" +# 36490 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37402,18 +36511,18 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 761 "parsing/parser.mly" +# 745 "parsing/parser.mly" (string * char option) -# 37408 "parsing/parser.ml" +# 36517 "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) = -# 3738 "parsing/parser.mly" +# 3722 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float(f, m) ) -# 37417 "parsing/parser.ml" +# 36526 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37449,42 +36558,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _2 = - let _1 = _1_inlined1 in - -# 3024 "parsing/parser.mly" + let _2 = + let _1 = _1_inlined1 in + +# 3008 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 37463 "parsing/parser.ml" - - in - -# 2995 "parsing/parser.mly" - ( let (fields, closed) = _2 in - Ppat_record(fields, closed) ) -# 37470 "parsing/parser.ml" +# 36571 "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 -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 37480 "parsing/parser.ml" +# 2979 "parsing/parser.mly" + ( let (fields, closed) = _2 in + Ppat_record(fields, closed) ) +# 36578 "parsing/parser.ml" in - ( -# 3009 "parsing/parser.mly" - ( _1 ) -# 37486 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 36588 "parsing/parser.ml" + in + +# 2993 "parsing/parser.mly" + ( _1 ) +# 36594 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37519,108 +36626,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _2 = - let _1 = _1_inlined1 in - -# 3024 "parsing/parser.mly" + let _2 = + let _1 = _1_inlined1 in + +# 3008 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 37533 "parsing/parser.ml" - - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2998 "parsing/parser.mly" - ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 37541 "parsing/parser.ml" +# 36639 "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 + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 37551 "parsing/parser.ml" +# 2982 "parsing/parser.mly" + ( unclosed "{" _loc__1_ "}" _loc__3_ ) +# 36647 "parsing/parser.ml" in - ( -# 3009 "parsing/parser.mly" - ( _1 ) -# 37557 "parsing/parser.ml" - : (Parsetree.pattern)) - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - 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 = - let _1 = - let _1 = - let _2 = -# 3018 "parsing/parser.mly" - ( ps ) -# 37600 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 3000 "parsing/parser.mly" - ( fst (mktailpat _loc__3_ _2) ) -# 37606 "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 - -# 1018 "parsing/parser.mly" + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37616 "parsing/parser.ml" - - in - ( -# 3009 "parsing/parser.mly" - ( _1 ) -# 37622 "parsing/parser.ml" - : (Parsetree.pattern)) +# 36657 "parsing/parser.ml" + in + +# 2993 "parsing/parser.mly" + ( _1 ) +# 36663 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37655,38 +36695,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _2 = -# 3018 "parsing/parser.mly" - ( ps ) -# 37665 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - + let _2 = # 3002 "parsing/parser.mly" - ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 37672 "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 + ( ps ) +# 36704 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 37682 "parsing/parser.ml" +# 2984 "parsing/parser.mly" + ( fst (mktailpat _loc__3_ _2) ) +# 36710 "parsing/parser.ml" in - ( -# 3009 "parsing/parser.mly" - ( _1 ) -# 37688 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 36720 "parsing/parser.ml" + in + +# 2993 "parsing/parser.mly" + ( _1 ) +# 36726 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37721,36 +36758,98 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _2 = -# 3018 "parsing/parser.mly" + let _2 = +# 3002 "parsing/parser.mly" ( ps ) -# 37731 "parsing/parser.ml" - in - -# 3004 "parsing/parser.mly" - ( Ppat_array _2 ) -# 37736 "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 +# 36767 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 37746 "parsing/parser.ml" +# 2986 "parsing/parser.mly" + ( unclosed "[" _loc__1_ "]" _loc__3_ ) +# 36774 "parsing/parser.ml" in - ( -# 3009 "parsing/parser.mly" + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 36784 "parsing/parser.ml" + + in + +# 2993 "parsing/parser.mly" ( _1 ) -# 37752 "parsing/parser.ml" - : (Parsetree.pattern)) +# 36790 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = ps; + MenhirLib.EngineTypes.startp = _startpos_ps_; + MenhirLib.EngineTypes.endp = _endpos_ps_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + } = _menhir_stack in + let _3 : unit = Obj.magic _3 in + let ps : (Parsetree.pattern list) = Obj.magic ps in + let _1 : unit = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__3_ in + let _v : (Parsetree.pattern) = let _1 = + let _1 = + let _2 = +# 3002 "parsing/parser.mly" + ( ps ) +# 36831 "parsing/parser.ml" + in + +# 2988 "parsing/parser.mly" + ( Ppat_array _2 ) +# 36836 "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 + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 36846 "parsing/parser.ml" + in + +# 2993 "parsing/parser.mly" + ( _1 ) +# 36852 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37778,29 +36877,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = - let _1 = -# 3006 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _1 = +# 2990 "parsing/parser.mly" ( Ppat_array [] ) -# 37787 "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 - -# 1018 "parsing/parser.mly" +# 36885 "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 + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37796 "parsing/parser.ml" - - in - ( -# 3009 "parsing/parser.mly" - ( _1 ) -# 37802 "parsing/parser.ml" - : (Parsetree.pattern)) +# 36894 "parsing/parser.ml" + in + +# 2993 "parsing/parser.mly" + ( _1 ) +# 36900 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37835,38 +36932,36 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _2 = -# 3018 "parsing/parser.mly" + let _2 = +# 3002 "parsing/parser.mly" ( ps ) -# 37845 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 3008 "parsing/parser.mly" - ( unclosed "[|" _loc__1_ "|]" _loc__3_ ) -# 37852 "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 +# 36941 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 37862 "parsing/parser.ml" +# 2992 "parsing/parser.mly" + ( unclosed "[|" _loc__1_ "|]" _loc__3_ ) +# 36948 "parsing/parser.ml" in - ( -# 3009 "parsing/parser.mly" - ( _1 ) -# 37868 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 36958 "parsing/parser.ml" + in + +# 2993 "parsing/parser.mly" + ( _1 ) +# 36964 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37901,16 +36996,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2461 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2445 "parsing/parser.mly" ( reloc_exp ~loc:_sloc _2 ) -# 37912 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 37006 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37945,15 +37038,13 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 2463 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 2447 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 37955 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 37047 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37995,16 +37086,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2465 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2449 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _2 _3 ) -# 38006 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 37096 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38053,29 +37142,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let r = -# 2466 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2450 "parsing/parser.mly" ( None ) -# 38062 "parsing/parser.ml" - in - -# 2353 "parsing/parser.mly" +# 37150 "parsing/parser.ml" + in + +# 2337 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38067 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2467 "parsing/parser.mly" - ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38077 "parsing/parser.ml" - : (Parsetree.expression)) +# 37155 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2451 "parsing/parser.mly" + ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) +# 37165 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38124,29 +37211,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let r = -# 2466 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2450 "parsing/parser.mly" ( None ) -# 38133 "parsing/parser.ml" - in - -# 2355 "parsing/parser.mly" +# 37219 "parsing/parser.ml" + in + +# 2339 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38138 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2467 "parsing/parser.mly" - ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38148 "parsing/parser.ml" - : (Parsetree.expression)) +# 37224 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2451 "parsing/parser.mly" + ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) +# 37234 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38195,29 +37280,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let r = -# 2466 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2450 "parsing/parser.mly" ( None ) -# 38204 "parsing/parser.ml" - in - -# 2357 "parsing/parser.mly" +# 37288 "parsing/parser.ml" + in + +# 2341 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 38209 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2467 "parsing/parser.mly" - ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38219 "parsing/parser.ml" - : (Parsetree.expression)) +# 37293 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2451 "parsing/parser.mly" + ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) +# 37303 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38262,54 +37345,52 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 38268 "parsing/parser.ml" +# 37351 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let r = -# 2468 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2452 "parsing/parser.mly" ( None ) -# 38279 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 37361 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 38284 "parsing/parser.ml" - in - let d = - let _1 = -# 121 "" +# 37366 "parsing/parser.ml" + in + let d = + let _1 = +# 124 "" ( None ) -# 38290 "parsing/parser.ml" - in - -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 38295 "parsing/parser.ml" - - in +# 37372 "parsing/parser.ml" + in # 2353 "parsing/parser.mly" - ( array, d, Paren, i, r ) -# 38301 "parsing/parser.ml" + ( _1, _2 ) +# 37377 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2469 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38311 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2337 "parsing/parser.mly" + ( array, d, Paren, i, r ) +# 37383 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2453 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 37393 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38366,9 +37447,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 38372 "parsing/parser.ml" +# 37453 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38376,54 +37457,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let r = -# 2468 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2452 "parsing/parser.mly" ( None ) -# 38385 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 37465 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 38390 "parsing/parser.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = -# 2369 "parsing/parser.mly" +# 37470 "parsing/parser.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = +# 2353 "parsing/parser.mly" (_2) -# 38398 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 38403 "parsing/parser.ml" - - in +# 37478 "parsing/parser.ml" + in -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 38409 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 37483 "parsing/parser.ml" in # 2353 "parsing/parser.mly" - ( array, d, Paren, i, r ) -# 38415 "parsing/parser.ml" + ( _1, _2 ) +# 37489 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2469 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38425 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2337 "parsing/parser.mly" + ( array, d, Paren, i, r ) +# 37495 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2453 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 37505 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38468,54 +37547,52 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 38474 "parsing/parser.ml" +# 37553 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let r = -# 2468 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2452 "parsing/parser.mly" ( None ) -# 38485 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 37563 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 38490 "parsing/parser.ml" - in - let d = - let _1 = -# 121 "" +# 37568 "parsing/parser.ml" + in + let d = + let _1 = +# 124 "" ( None ) -# 38496 "parsing/parser.ml" - in - -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 38501 "parsing/parser.ml" - - in +# 37574 "parsing/parser.ml" + in -# 2355 "parsing/parser.mly" - ( array, d, Brace, i, r ) -# 38507 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 37579 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2469 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38517 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2339 "parsing/parser.mly" + ( array, d, Brace, i, r ) +# 37585 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2453 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 37595 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38572,9 +37649,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 38578 "parsing/parser.ml" +# 37655 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38582,54 +37659,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let r = -# 2468 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2452 "parsing/parser.mly" ( None ) -# 38591 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 37667 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 38596 "parsing/parser.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = -# 2369 "parsing/parser.mly" +# 37672 "parsing/parser.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = +# 2353 "parsing/parser.mly" (_2) -# 38604 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 38609 "parsing/parser.ml" - - in +# 37680 "parsing/parser.ml" + in -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 38615 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 37685 "parsing/parser.ml" in -# 2355 "parsing/parser.mly" - ( array, d, Brace, i, r ) -# 38621 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 37691 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2469 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38631 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2339 "parsing/parser.mly" + ( array, d, Brace, i, r ) +# 37697 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2453 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 37707 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38674,54 +37749,52 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 38680 "parsing/parser.ml" +# 37755 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let r = -# 2468 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2452 "parsing/parser.mly" ( None ) -# 38691 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 37765 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 38696 "parsing/parser.ml" - in - let d = - let _1 = -# 121 "" +# 37770 "parsing/parser.ml" + in + let d = + let _1 = +# 124 "" ( None ) -# 38702 "parsing/parser.ml" - in - -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 38707 "parsing/parser.ml" - - in +# 37776 "parsing/parser.ml" + in -# 2357 "parsing/parser.mly" - ( array, d, Bracket, i, r ) -# 38713 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 37781 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2469 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38723 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2341 "parsing/parser.mly" + ( array, d, Bracket, i, r ) +# 37787 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2453 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 37797 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38778,9 +37851,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 38784 "parsing/parser.ml" +# 37857 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38788,54 +37861,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let r = -# 2468 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let r = +# 2452 "parsing/parser.mly" ( None ) -# 38797 "parsing/parser.ml" - in - let i = -# 2850 "parsing/parser.mly" +# 37869 "parsing/parser.ml" + in + let i = +# 2834 "parsing/parser.mly" ( es ) -# 38802 "parsing/parser.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = -# 2369 "parsing/parser.mly" +# 37874 "parsing/parser.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = +# 2353 "parsing/parser.mly" (_2) -# 38810 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 38815 "parsing/parser.ml" - - in +# 37882 "parsing/parser.ml" + in -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 38821 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 37887 "parsing/parser.ml" in -# 2357 "parsing/parser.mly" - ( array, d, Bracket, i, r ) -# 38827 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 37893 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2469 "parsing/parser.mly" - ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38837 "parsing/parser.ml" - : (Parsetree.expression)) + +# 2341 "parsing/parser.mly" + ( array, d, Bracket, i, r ) +# 37899 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2453 "parsing/parser.mly" + ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) +# 37909 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38884,22 +37955,20 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in - let _v = - let _1 = - let _loc__p_ = (_startpos__p_, _endpos__p_) in - let _loc__e_ = (_startpos__e_, _endpos__e_) in - -# 2362 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _loc__p_ = (_startpos__p_, _endpos__p_) in + let _loc__e_ = (_startpos__e_, _endpos__e_) in + +# 2346 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 38895 "parsing/parser.ml" - - in - ( -# 2470 "parsing/parser.mly" - ( _1 ) -# 38901 "parsing/parser.ml" - : (Parsetree.expression)) +# 37965 "parsing/parser.ml" + in + +# 2454 "parsing/parser.mly" + ( _1 ) +# 37971 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38948,22 +38017,20 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in - let _v = - let _1 = - let _loc__p_ = (_startpos__p_, _endpos__p_) in - let _loc__e_ = (_startpos__e_, _endpos__e_) in - -# 2364 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _loc__p_ = (_startpos__p_, _endpos__p_) in + let _loc__e_ = (_startpos__e_, _endpos__e_) in + +# 2348 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 38959 "parsing/parser.ml" - - in - ( -# 2470 "parsing/parser.mly" - ( _1 ) -# 38965 "parsing/parser.ml" - : (Parsetree.expression)) +# 38027 "parsing/parser.ml" + in + +# 2454 "parsing/parser.mly" + ( _1 ) +# 38033 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39012,22 +38079,20 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in - let _v = - let _1 = - let _loc__p_ = (_startpos__p_, _endpos__p_) in - let _loc__e_ = (_startpos__e_, _endpos__e_) in - -# 2366 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _loc__p_ = (_startpos__p_, _endpos__p_) in + let _loc__e_ = (_startpos__e_, _endpos__e_) in + +# 2350 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39023 "parsing/parser.ml" - - in - ( -# 2470 "parsing/parser.mly" - ( _1 ) -# 39029 "parsing/parser.ml" - : (Parsetree.expression)) +# 38089 "parsing/parser.ml" + in + +# 2454 "parsing/parser.mly" + ( _1 ) +# 38095 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39072,47 +38137,45 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 39078 "parsing/parser.ml" +# 38143 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in - let _v = - let _1 = - let _4 = -# 2850 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _4 = +# 2834 "parsing/parser.mly" ( es ) -# 39089 "parsing/parser.ml" - in - let _2 = - let _1 = -# 121 "" +# 38153 "parsing/parser.ml" + in + let _2 = + let _1 = +# 124 "" ( None ) -# 39095 "parsing/parser.ml" - in - -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 39100 "parsing/parser.ml" - - in - let _loc__p_ = (_startpos__p_, _endpos__p_) in - let _loc__e_ = (_startpos__e_, _endpos__e_) in +# 38159 "parsing/parser.ml" + in -# 2362 "parsing/parser.mly" - ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 39108 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 38164 "parsing/parser.ml" in - ( -# 2471 "parsing/parser.mly" - ( _1 ) -# 39114 "parsing/parser.ml" - : (Parsetree.expression)) + let _loc__p_ = (_startpos__p_, _endpos__p_) in + let _loc__e_ = (_startpos__e_, _endpos__e_) in + +# 2346 "parsing/parser.mly" + ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) +# 38172 "parsing/parser.ml" + in + +# 2455 "parsing/parser.mly" + ( _1 ) +# 38178 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39169,9 +38232,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 39175 "parsing/parser.ml" +# 38238 "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 @@ -39179,47 +38242,45 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in - let _v = - let _1 = - let _4 = -# 2850 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _4 = +# 2834 "parsing/parser.mly" ( es ) -# 39188 "parsing/parser.ml" - in - let _2 = - let _1 = - let _2 = _2_inlined1 in - let x = -# 2369 "parsing/parser.mly" +# 38250 "parsing/parser.ml" + in + let _2 = + let _1 = + let _2 = _2_inlined1 in + let x = +# 2353 "parsing/parser.mly" (_2) -# 39196 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 39201 "parsing/parser.ml" - - in +# 38258 "parsing/parser.ml" + in -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 39207 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 38263 "parsing/parser.ml" in - let _loc__p_ = (_startpos__p_, _endpos__p_) in - let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2362 "parsing/parser.mly" - ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 39215 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 38269 "parsing/parser.ml" in - ( -# 2471 "parsing/parser.mly" - ( _1 ) -# 39221 "parsing/parser.ml" - : (Parsetree.expression)) + let _loc__p_ = (_startpos__p_, _endpos__p_) in + let _loc__e_ = (_startpos__e_, _endpos__e_) in + +# 2346 "parsing/parser.mly" + ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) +# 38277 "parsing/parser.ml" + in + +# 2455 "parsing/parser.mly" + ( _1 ) +# 38283 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39264,47 +38325,45 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 39270 "parsing/parser.ml" +# 38331 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in - let _v = - let _1 = - let _4 = -# 2850 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _4 = +# 2834 "parsing/parser.mly" ( es ) -# 39281 "parsing/parser.ml" - in - let _2 = - let _1 = -# 121 "" +# 38341 "parsing/parser.ml" + in + let _2 = + let _1 = +# 124 "" ( None ) -# 39287 "parsing/parser.ml" - in - -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 39292 "parsing/parser.ml" - - in - let _loc__p_ = (_startpos__p_, _endpos__p_) in - let _loc__e_ = (_startpos__e_, _endpos__e_) in +# 38347 "parsing/parser.ml" + in -# 2364 "parsing/parser.mly" - ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 39300 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 38352 "parsing/parser.ml" in - ( -# 2471 "parsing/parser.mly" - ( _1 ) -# 39306 "parsing/parser.ml" - : (Parsetree.expression)) + let _loc__p_ = (_startpos__p_, _endpos__p_) in + let _loc__e_ = (_startpos__e_, _endpos__e_) in + +# 2348 "parsing/parser.mly" + ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) +# 38360 "parsing/parser.ml" + in + +# 2455 "parsing/parser.mly" + ( _1 ) +# 38366 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39361,9 +38420,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 39367 "parsing/parser.ml" +# 38426 "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 @@ -39371,47 +38430,45 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in - let _v = - let _1 = - let _4 = -# 2850 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _4 = +# 2834 "parsing/parser.mly" ( es ) -# 39380 "parsing/parser.ml" - in - let _2 = - let _1 = - let _2 = _2_inlined1 in - let x = -# 2369 "parsing/parser.mly" +# 38438 "parsing/parser.ml" + in + let _2 = + let _1 = + let _2 = _2_inlined1 in + let x = +# 2353 "parsing/parser.mly" (_2) -# 39388 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 39393 "parsing/parser.ml" - - in +# 38446 "parsing/parser.ml" + in -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 39399 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 38451 "parsing/parser.ml" in - let _loc__p_ = (_startpos__p_, _endpos__p_) in - let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2364 "parsing/parser.mly" - ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 39407 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 38457 "parsing/parser.ml" in - ( -# 2471 "parsing/parser.mly" - ( _1 ) -# 39413 "parsing/parser.ml" - : (Parsetree.expression)) + let _loc__p_ = (_startpos__p_, _endpos__p_) in + let _loc__e_ = (_startpos__e_, _endpos__e_) in + +# 2348 "parsing/parser.mly" + ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) +# 38465 "parsing/parser.ml" + in + +# 2455 "parsing/parser.mly" + ( _1 ) +# 38471 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39456,47 +38513,45 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 39462 "parsing/parser.ml" +# 38519 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in - let _v = - let _1 = - let _4 = -# 2850 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _4 = +# 2834 "parsing/parser.mly" ( es ) -# 39473 "parsing/parser.ml" - in - let _2 = - let _1 = -# 121 "" - ( None ) -# 39479 "parsing/parser.ml" - in - -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 39484 "parsing/parser.ml" - - in - let _loc__p_ = (_startpos__p_, _endpos__p_) in - let _loc__e_ = (_startpos__e_, _endpos__e_) in +# 38529 "parsing/parser.ml" + in + let _2 = + let _1 = +# 124 "" + ( None ) +# 38535 "parsing/parser.ml" + in -# 2366 "parsing/parser.mly" - ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39492 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 38540 "parsing/parser.ml" in - ( -# 2471 "parsing/parser.mly" - ( _1 ) -# 39498 "parsing/parser.ml" - : (Parsetree.expression)) + let _loc__p_ = (_startpos__p_, _endpos__p_) in + let _loc__e_ = (_startpos__e_, _endpos__e_) in + +# 2350 "parsing/parser.mly" + ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) +# 38548 "parsing/parser.ml" + in + +# 2455 "parsing/parser.mly" + ( _1 ) +# 38554 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39553,9 +38608,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 778 "parsing/parser.mly" +# 762 "parsing/parser.mly" (string) -# 39559 "parsing/parser.ml" +# 38614 "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 @@ -39563,47 +38618,45 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in - let _v = - let _1 = - let _4 = -# 2850 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _4 = +# 2834 "parsing/parser.mly" ( es ) -# 39572 "parsing/parser.ml" - in - let _2 = - let _1 = - let _2 = _2_inlined1 in - let x = -# 2369 "parsing/parser.mly" +# 38626 "parsing/parser.ml" + in + let _2 = + let _1 = + let _2 = _2_inlined1 in + let x = +# 2353 "parsing/parser.mly" (_2) -# 39580 "parsing/parser.ml" - in - -# 123 "" - ( Some x ) -# 39585 "parsing/parser.ml" - - in +# 38634 "parsing/parser.ml" + in -# 2369 "parsing/parser.mly" - ( _1, _2 ) -# 39591 "parsing/parser.ml" +# 126 "" + ( Some x ) +# 38639 "parsing/parser.ml" in - let _loc__p_ = (_startpos__p_, _endpos__p_) in - let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2366 "parsing/parser.mly" - ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39599 "parsing/parser.ml" +# 2353 "parsing/parser.mly" + ( _1, _2 ) +# 38645 "parsing/parser.ml" in - ( -# 2471 "parsing/parser.mly" - ( _1 ) -# 39605 "parsing/parser.ml" - : (Parsetree.expression)) + let _loc__p_ = (_startpos__p_, _endpos__p_) in + let _loc__e_ = (_startpos__e_, _endpos__e_) in + +# 2350 "parsing/parser.mly" + ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) +# 38653 "parsing/parser.ml" + in + +# 2455 "parsing/parser.mly" + ( _1 ) +# 38659 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39652,33 +38705,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let attrs = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 39663 "parsing/parser.ml" - - in + let _v : (Parsetree.expression) = let _1 = + let attrs = + let _1 = _1_inlined1 in -# 2480 "parsing/parser.mly" - ( e.pexp_desc, (ext, attrs @ e.pexp_attributes) ) -# 39669 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 38715 "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 - ( -# 2473 "parsing/parser.mly" + +# 2464 "parsing/parser.mly" + ( e.pexp_desc, (ext, attrs @ e.pexp_attributes) ) +# 38721 "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 + +# 2457 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39680 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 38732 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39720,44 +38771,42 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = + let _v : (Parsetree.expression) = let _1 = + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 39733 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 39739 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 38783 "parsing/parser.ml" in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 2482 "parsing/parser.mly" - ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 ) -# 39748 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 38789 "parsing/parser.ml" in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in + let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 2473 "parsing/parser.mly" + +# 2466 "parsing/parser.mly" + ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 ) +# 38798 "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 + +# 2457 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39759 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 38809 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39806,43 +38855,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _1 = + let _v : (Parsetree.expression) = let _1 = + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 39819 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 39825 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 38867 "parsing/parser.ml" in - let _loc__4_ = (_startpos__4_, _endpos__4_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2484 "parsing/parser.mly" - ( unclosed "begin" _loc__1_ "end" _loc__4_ ) -# 39833 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 38873 "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 - ( -# 2473 "parsing/parser.mly" + let _loc__4_ = (_startpos__4_, _endpos__4_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 2468 "parsing/parser.mly" + ( unclosed "begin" _loc__1_ "end" _loc__4_ ) +# 38881 "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 + +# 2457 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39844 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 38892 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39884,52 +38931,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let _1 = - let _3 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _3 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 39898 "parsing/parser.ml" - - in +# 38944 "parsing/parser.ml" + + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 39908 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 39914 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 38954 "parsing/parser.ml" in -# 2486 "parsing/parser.mly" - ( Pexp_new(_3), _2 ) -# 39920 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 38960 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2473 "parsing/parser.mly" + +# 2470 "parsing/parser.mly" + ( Pexp_new(_3), _2 ) +# 38966 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos__1_inlined3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2457 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39931 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 38977 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39985,41 +39030,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 39998 "parsing/parser.ml" - - in + let _v : (Parsetree.expression) = let _1 = + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 40004 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 39042 "parsing/parser.ml" in -# 2488 "parsing/parser.mly" - ( Pexp_pack _4, _3 ) -# 40010 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 39048 "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 - ( -# 2473 "parsing/parser.mly" + +# 2472 "parsing/parser.mly" + ( Pexp_pack _4, _3 ) +# 39054 "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 + +# 2457 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40021 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 39065 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40089,57 +39132,55 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _1 = - let _6 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3648 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _6 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3632 "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 ) -# 40105 "parsing/parser.ml" +# 39147 "parsing/parser.ml" + + in + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in - in - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( _1 ) -# 40115 "parsing/parser.ml" - - in - -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 40121 "parsing/parser.ml" +# 39157 "parsing/parser.ml" in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 2490 "parsing/parser.mly" - ( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 ) -# 40130 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 39163 "parsing/parser.ml" in - let _endpos__1_ = _endpos__7_ in - let _endpos = _endpos__1_ in + let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 2473 "parsing/parser.mly" + +# 2474 "parsing/parser.mly" + ( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 ) +# 39172 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos__7_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2457 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40141 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 39183 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40202,43 +39243,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _1 = - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 40215 "parsing/parser.ml" - - in + let _v : (Parsetree.expression) = let _1 = + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 40221 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 39255 "parsing/parser.ml" in - let _loc__6_ = (_startpos__6_, _endpos__6_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2492 "parsing/parser.mly" - ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 40229 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 39261 "parsing/parser.ml" in - let _endpos__1_ = _endpos__6_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2473 "parsing/parser.mly" + let _loc__6_ = (_startpos__6_, _endpos__6_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 2476 "parsing/parser.mly" + ( unclosed "(" _loc__1_ ")" _loc__6_ ) +# 39269 "parsing/parser.ml" + + in + let _endpos__1_ = _endpos__6_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2457 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40240 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 39280 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40294,71 +39333,69 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _1 = - let _3 = - let _1 = _1_inlined3 in - let _2 = - let _1 = - let _1 = -# 257 "" + let _v : (Parsetree.expression) = let _1 = + let _3 = + let _1 = _1_inlined3 in + let _2 = + let _1 = + let _1 = +# 260 "" ( List.flatten xss ) -# 40307 "parsing/parser.ml" - in - -# 2034 "parsing/parser.mly" - ( _1 ) -# 40312 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in +# 39345 "parsing/parser.ml" + in -# 977 "parsing/parser.mly" - ( extra_cstr _startpos _endpos _1 ) -# 40321 "parsing/parser.ml" +# 2018 "parsing/parser.mly" + ( _1 ) +# 39350 "parsing/parser.ml" in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in -# 2021 "parsing/parser.mly" - ( Cstr.mk _1 _2 ) -# 40327 "parsing/parser.ml" +# 961 "parsing/parser.mly" + ( extra_cstr _startpos _endpos _1 ) +# 39359 "parsing/parser.ml" in + +# 2005 "parsing/parser.mly" + ( Cstr.mk _1 _2 ) +# 39365 "parsing/parser.ml" + + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 40337 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 40343 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 39375 "parsing/parser.ml" in -# 2494 "parsing/parser.mly" - ( Pexp_object _3, _2 ) -# 40349 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 39381 "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 - ( -# 2473 "parsing/parser.mly" + +# 2478 "parsing/parser.mly" + ( Pexp_object _3, _2 ) +# 39387 "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 + +# 2457 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40360 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 39398 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40414,73 +39451,71 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = - let _1 = - let _3 = - let _1 = _1_inlined3 in - let _2 = - let _1 = - let _1 = -# 257 "" + let _v : (Parsetree.expression) = let _1 = + let _3 = + let _1 = _1_inlined3 in + let _2 = + let _1 = + let _1 = +# 260 "" ( List.flatten xss ) -# 40427 "parsing/parser.ml" - in - -# 2034 "parsing/parser.mly" - ( _1 ) -# 40432 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in +# 39463 "parsing/parser.ml" + in -# 977 "parsing/parser.mly" - ( extra_cstr _startpos _endpos _1 ) -# 40441 "parsing/parser.ml" +# 2018 "parsing/parser.mly" + ( _1 ) +# 39468 "parsing/parser.ml" in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in -# 2021 "parsing/parser.mly" - ( Cstr.mk _1 _2 ) -# 40447 "parsing/parser.ml" +# 961 "parsing/parser.mly" + ( extra_cstr _startpos _endpos _1 ) +# 39477 "parsing/parser.ml" in + +# 2005 "parsing/parser.mly" + ( Cstr.mk _1 _2 ) +# 39483 "parsing/parser.ml" + + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 40457 "parsing/parser.ml" - - in + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 40463 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 39493 "parsing/parser.ml" in - let _loc__4_ = (_startpos__4_, _endpos__4_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2496 "parsing/parser.mly" - ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 40471 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 39499 "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 - ( -# 2473 "parsing/parser.mly" + let _loc__4_ = (_startpos__4_, _endpos__4_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 2480 "parsing/parser.mly" + ( unclosed "object" _loc__1_ "end" _loc__4_ ) +# 39507 "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 + +# 2457 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40482 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 39518 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40501,40 +39536,38 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 40515 "parsing/parser.ml" - - in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2529 "parsing/parser.mly" - ( Pexp_ident (_1) ) -# 40521 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 39549 "parsing/parser.ml" in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 40530 "parsing/parser.ml" +# 2513 "parsing/parser.mly" + ( Pexp_ident (_1) ) +# 39555 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 40536 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 39564 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 39570 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40555,28 +39588,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 2531 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _1 = +# 2515 "parsing/parser.mly" ( Pexp_constant _1 ) -# 40564 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1016 "parsing/parser.mly" +# 39596 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40572 "parsing/parser.ml" - - in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 40578 "parsing/parser.ml" - : (Parsetree.expression)) +# 39604 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 39610 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40597,40 +39628,38 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 40611 "parsing/parser.ml" - - in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2533 "parsing/parser.mly" - ( Pexp_construct(_1, None) ) -# 40617 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 39641 "parsing/parser.ml" in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 40626 "parsing/parser.ml" +# 2517 "parsing/parser.mly" + ( Pexp_construct(_1, None) ) +# 39647 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 40632 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 39656 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 39662 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40651,28 +39680,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 2535 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _1 = +# 2519 "parsing/parser.mly" ( Pexp_variant(_1, None) ) -# 40660 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1016 "parsing/parser.mly" +# 39688 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40668 "parsing/parser.ml" - - in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 40674 "parsing/parser.ml" - : (Parsetree.expression)) +# 39696 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 39702 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40697,48 +39724,46 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 823 "parsing/parser.mly" +# 807 "parsing/parser.mly" (string) -# 40703 "parsing/parser.ml" +# 39730 "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 = + let _v : (Parsetree.expression) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 40718 "parsing/parser.ml" - - in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2537 "parsing/parser.mly" - ( Pexp_apply(_1, [Nolabel,_2]) ) -# 40724 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 39744 "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 + in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 40734 "parsing/parser.ml" +# 2521 "parsing/parser.mly" + ( Pexp_apply(_1, [Nolabel,_2]) ) +# 39750 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 40740 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 39760 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 39766 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40766,46 +39791,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = let _1 = - let _1 = - let _1 = -# 2538 "parsing/parser.mly" + let _1 = +# 2522 "parsing/parser.mly" ("!") -# 40777 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 40785 "parsing/parser.ml" - - in +# 39801 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2539 "parsing/parser.mly" - ( Pexp_apply(_1, [Nolabel,_2]) ) -# 40791 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 39809 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 40801 "parsing/parser.ml" +# 2523 "parsing/parser.mly" + ( Pexp_apply(_1, [Nolabel,_2]) ) +# 39815 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 40807 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 39825 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 39831 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40840,36 +39863,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _2 = -# 2833 "parsing/parser.mly" + let _2 = +# 2817 "parsing/parser.mly" ( xs ) -# 40850 "parsing/parser.ml" - in - -# 2541 "parsing/parser.mly" - ( Pexp_override _2 ) -# 40855 "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 +# 39872 "parsing/parser.ml" + in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 40865 "parsing/parser.ml" +# 2525 "parsing/parser.mly" + ( Pexp_override _2 ) +# 39877 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 40871 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 39887 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 39893 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40904,38 +39925,36 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _2 = -# 2833 "parsing/parser.mly" + let _2 = +# 2817 "parsing/parser.mly" ( xs ) -# 40914 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2543 "parsing/parser.mly" - ( unclosed "{<" _loc__1_ ">}" _loc__3_ ) -# 40921 "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 +# 39934 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 40931 "parsing/parser.ml" +# 2527 "parsing/parser.mly" + ( unclosed "{<" _loc__1_ ">}" _loc__3_ ) +# 39941 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 40937 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 39951 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 39957 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40963,29 +39982,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = - let _1 = -# 2545 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _1 = +# 2529 "parsing/parser.mly" ( Pexp_override [] ) -# 40972 "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 - -# 1016 "parsing/parser.mly" +# 39990 "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 + +# 1000 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40981 "parsing/parser.ml" - - in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 40987 "parsing/parser.ml" - : (Parsetree.expression)) +# 39999 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40005 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41020,42 +40037,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _3 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 41035 "parsing/parser.ml" - - in + let _3 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2547 "parsing/parser.mly" - ( Pexp_field(_1, _3) ) -# 41041 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 40051 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 41051 "parsing/parser.ml" +# 2531 "parsing/parser.mly" + ( Pexp_field(_1, _3) ) +# 40057 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41057 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 40067 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40073 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41104,51 +40119,49 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + 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 - -# 983 "parsing/parser.mly" + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41119 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 40133 "parsing/parser.ml" -# 1686 "parsing/parser.mly" + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1670 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41128 "parsing/parser.ml" - - in - -# 2549 "parsing/parser.mly" - ( Pexp_open(od, _4) ) -# 41134 "parsing/parser.ml" +# 40142 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 41144 "parsing/parser.ml" +# 2533 "parsing/parser.mly" + ( Pexp_open(od, _4) ) +# 40148 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41150 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 40158 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40164 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41197,61 +40210,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _4 = -# 2833 "parsing/parser.mly" + let _4 = +# 2817 "parsing/parser.mly" ( xs ) -# 41207 "parsing/parser.ml" - in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 40219 "parsing/parser.ml" + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41217 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 40229 "parsing/parser.ml" -# 1686 "parsing/parser.mly" + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1670 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41226 "parsing/parser.ml" - - in - let _startpos_od_ = _startpos__1_ in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos_od_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2551 "parsing/parser.mly" - ( (* TODO: review the location of Pexp_override *) - Pexp_open(od, mkexp ~loc:_sloc (Pexp_override _4)) ) -# 41237 "parsing/parser.ml" +# 40238 "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__5_ in + let _symbolstartpos = _startpos_od_ in let _sloc = (_symbolstartpos, _endpos) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 41247 "parsing/parser.ml" +# 2535 "parsing/parser.mly" + ( (* TODO: review the location of Pexp_override *) + Pexp_open(od, mkexp ~loc:_sloc (Pexp_override _4)) ) +# 40249 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41253 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 40259 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40265 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41300,38 +40311,36 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _4 = -# 2833 "parsing/parser.mly" + let _4 = +# 2817 "parsing/parser.mly" ( xs ) -# 41310 "parsing/parser.ml" - in - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2554 "parsing/parser.mly" - ( unclosed "{<" _loc__3_ ">}" _loc__5_ ) -# 41317 "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 +# 40320 "parsing/parser.ml" + in + let _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 41327 "parsing/parser.ml" +# 2538 "parsing/parser.mly" + ( unclosed "{<" _loc__3_ ">}" _loc__5_ ) +# 40327 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41333 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 40337 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40343 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41361,56 +40370,54 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 41367 "parsing/parser.ml" +# 40376 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _3 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = -# 3722 "parsing/parser.mly" + let _3 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 41382 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 41390 "parsing/parser.ml" - - in +# 40390 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2556 "parsing/parser.mly" - ( Pexp_send(_1, _3) ) -# 41396 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 40398 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 41406 "parsing/parser.ml" +# 2540 "parsing/parser.mly" + ( Pexp_send(_1, _3) ) +# 40404 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41412 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 40414 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40420 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41441,50 +40448,48 @@ module Tables = struct } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined1 : ( -# 834 "parsing/parser.mly" +# 818 "parsing/parser.mly" (string) -# 41447 "parsing/parser.ml" +# 40454 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1010 "parsing/parser.mly" - ( mkoperator ~loc:_sloc _1 ) -# 41464 "parsing/parser.ml" - - in + let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2558 "parsing/parser.mly" - ( mkinfix _1 _2 _3 ) -# 41470 "parsing/parser.ml" +# 994 "parsing/parser.mly" + ( mkoperator ~loc:_sloc _1 ) +# 40470 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 41480 "parsing/parser.ml" +# 2542 "parsing/parser.mly" + ( mkinfix _1 _2 _3 ) +# 40476 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41486 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 40486 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40492 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41505,28 +40510,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 2560 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _1 = +# 2544 "parsing/parser.mly" ( Pexp_extension _1 ) -# 41514 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1016 "parsing/parser.mly" +# 40518 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41522 "parsing/parser.ml" - - in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41528 "parsing/parser.ml" - : (Parsetree.expression)) +# 40526 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40532 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41568,70 +40571,68 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in - let _v = + 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 = -# 2561 "parsing/parser.mly" + let _3 = + let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in + let _1 = +# 2545 "parsing/parser.mly" (Lident "()") -# 41580 "parsing/parser.ml" - in - let _endpos__1_ = _endpos__2_ in +# 40582 "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 + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 40591 "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 -# 983 "parsing/parser.mly" +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41589 "parsing/parser.ml" +# 40603 "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 - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 41601 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 1686 "parsing/parser.mly" + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1670 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41610 "parsing/parser.ml" - - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2562 "parsing/parser.mly" - ( Pexp_open(od, mkexp ~loc:(_loc__3_) (Pexp_construct(_3, None))) ) -# 41617 "parsing/parser.ml" +# 40612 "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 _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 41627 "parsing/parser.ml" +# 2546 "parsing/parser.mly" + ( Pexp_open(od, mkexp ~loc:(_loc__3_) (Pexp_construct(_3, None))) ) +# 40619 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41633 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__2_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 40629 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40635 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41680,33 +40681,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2564 "parsing/parser.mly" - ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 41692 "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 _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 41702 "parsing/parser.ml" +# 2548 "parsing/parser.mly" + ( unclosed "(" _loc__3_ ")" _loc__5_ ) +# 40692 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41708 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 40702 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40708 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41742,30 +40741,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = - let _1 = -# 2566 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _1 = +# 2550 "parsing/parser.mly" ( let (exten, fields) = _2 in Pexp_record(fields, exten) ) -# 41752 "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 - -# 1016 "parsing/parser.mly" +# 40750 "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 + +# 1000 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41761 "parsing/parser.ml" - - in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41767 "parsing/parser.ml" - : (Parsetree.expression)) +# 40759 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40765 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41801,33 +40798,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2569 "parsing/parser.mly" - ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 41813 "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 + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 41823 "parsing/parser.ml" +# 2553 "parsing/parser.mly" + ( unclosed "{" _loc__1_ "}" _loc__3_ ) +# 40809 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41829 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 40819 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40825 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41877,54 +40872,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + 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 - -# 983 "parsing/parser.mly" + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41892 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 40886 "parsing/parser.ml" -# 1686 "parsing/parser.mly" + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1670 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41901 "parsing/parser.ml" - - in - let _endpos = _endpos__5_ in +# 40895 "parsing/parser.ml" -# 2571 "parsing/parser.mly" + in + let _endpos = _endpos__5_ in + +# 2555 "parsing/parser.mly" ( let (exten, fields) = _4 in Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_record(fields, exten))) ) -# 41910 "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 - -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 41920 "parsing/parser.ml" +# 40904 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 41926 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 40914 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40920 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41974,33 +40967,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2575 "parsing/parser.mly" - ( unclosed "{" _loc__3_ "}" _loc__5_ ) -# 41986 "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 _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 41996 "parsing/parser.ml" +# 2559 "parsing/parser.mly" + ( unclosed "{" _loc__3_ "}" _loc__5_ ) +# 40978 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42002 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 40988 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 40994 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42035,36 +41026,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _2 = -# 2850 "parsing/parser.mly" + let _2 = +# 2834 "parsing/parser.mly" ( es ) -# 42045 "parsing/parser.ml" - in - -# 2577 "parsing/parser.mly" - ( Pexp_array(_2) ) -# 42050 "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 +# 41035 "parsing/parser.ml" + in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42060 "parsing/parser.ml" +# 2561 "parsing/parser.mly" + ( Pexp_array(_2) ) +# 41040 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42066 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 41050 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41056 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42099,38 +41088,36 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _2 = -# 2850 "parsing/parser.mly" + let _2 = +# 2834 "parsing/parser.mly" ( es ) -# 42109 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2579 "parsing/parser.mly" - ( unclosed "[|" _loc__1_ "|]" _loc__3_ ) -# 42116 "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 +# 41097 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42126 "parsing/parser.ml" +# 2563 "parsing/parser.mly" + ( unclosed "[|" _loc__1_ "|]" _loc__3_ ) +# 41104 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42132 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 41114 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41120 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42158,29 +41145,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _1 = - let _1 = -# 2581 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _1 = + let _1 = +# 2565 "parsing/parser.mly" ( Pexp_array [] ) -# 42167 "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 - -# 1016 "parsing/parser.mly" +# 41153 "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 + +# 1000 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42176 "parsing/parser.ml" - - in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42182 "parsing/parser.ml" - : (Parsetree.expression)) +# 41162 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41168 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42229,57 +41214,55 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _4 = -# 2850 "parsing/parser.mly" + let _4 = +# 2834 "parsing/parser.mly" ( es ) -# 42239 "parsing/parser.ml" - in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 41223 "parsing/parser.ml" + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42249 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 41233 "parsing/parser.ml" -# 1686 "parsing/parser.mly" + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1670 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42258 "parsing/parser.ml" - - in - let _endpos = _endpos__5_ in - -# 2583 "parsing/parser.mly" - ( Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_array(_4))) ) -# 42265 "parsing/parser.ml" +# 41242 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42275 "parsing/parser.ml" +# 2567 "parsing/parser.mly" + ( Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_array(_4))) ) +# 41249 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42281 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 41259 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41265 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42321,53 +41304,51 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = + 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 - -# 983 "parsing/parser.mly" + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42336 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 41318 "parsing/parser.ml" -# 1686 "parsing/parser.mly" + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1670 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42345 "parsing/parser.ml" - - in - let _endpos = _endpos__4_ in - -# 2585 "parsing/parser.mly" - ( (* TODO: review the location of Pexp_array *) - Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_array [])) ) -# 42353 "parsing/parser.ml" +# 41327 "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 _endpos = _endpos__4_ in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42363 "parsing/parser.ml" +# 2569 "parsing/parser.mly" + ( (* TODO: review the location of Pexp_array *) + Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_array [])) ) +# 41335 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42369 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 41345 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41351 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42416,38 +41397,36 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _4 = -# 2850 "parsing/parser.mly" + let _4 = +# 2834 "parsing/parser.mly" ( es ) -# 42426 "parsing/parser.ml" - in - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2589 "parsing/parser.mly" - ( unclosed "[|" _loc__3_ "|]" _loc__5_ ) -# 42433 "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 +# 41406 "parsing/parser.ml" + in + let _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42443 "parsing/parser.ml" +# 2573 "parsing/parser.mly" + ( unclosed "[|" _loc__3_ "|]" _loc__5_ ) +# 41413 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42449 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 41423 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41429 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42482,37 +41461,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _2 = -# 2850 "parsing/parser.mly" + let _2 = +# 2834 "parsing/parser.mly" ( es ) -# 42492 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2591 "parsing/parser.mly" - ( fst (mktailexp _loc__3_ _2) ) -# 42498 "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 +# 41470 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42508 "parsing/parser.ml" +# 2575 "parsing/parser.mly" + ( fst (mktailexp _loc__3_ _2) ) +# 41476 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42514 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 41486 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41492 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42547,38 +41524,36 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _2 = -# 2850 "parsing/parser.mly" + let _2 = +# 2834 "parsing/parser.mly" ( es ) -# 42557 "parsing/parser.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2593 "parsing/parser.mly" - ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 42564 "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 +# 41533 "parsing/parser.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42574 "parsing/parser.ml" +# 2577 "parsing/parser.mly" + ( unclosed "[" _loc__1_ "]" _loc__3_ ) +# 41540 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42580 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 41550 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41556 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42613,43 +41588,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2518 "parsing/parser.mly" + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2502 "parsing/parser.mly" ( Pexp_extension( Extensions.payload_of_extension_expr ~loc:(make_loc _sloc) (Eexp_list_comprehension(_2, _3))) ) -# 42629 "parsing/parser.ml" - - in - -# 2594 "parsing/parser.mly" - ( _1 ) -# 42635 "parsing/parser.ml" +# 41603 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42645 "parsing/parser.ml" +# 2578 "parsing/parser.mly" + ( _1 ) +# 41609 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42651 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 41619 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41625 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42684,43 +41657,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2522 "parsing/parser.mly" + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2506 "parsing/parser.mly" ( Pexp_extension( Extensions.payload_of_extension_expr ~loc:(make_loc _sloc) (Eexp_arr_comprehension(_2, _3))) ) -# 42700 "parsing/parser.ml" - - in - -# 2594 "parsing/parser.mly" - ( _1 ) -# 42706 "parsing/parser.ml" +# 41672 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42716 "parsing/parser.ml" +# 2578 "parsing/parser.mly" + ( _1 ) +# 41678 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42722 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 41688 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41694 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42769,66 +41740,64 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _3 = - let (_startpos__1_, _2) = (_startpos__1_inlined1_, _2_inlined1) in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2518 "parsing/parser.mly" + let _3 = + let (_startpos__1_, _2) = (_startpos__1_inlined1_, _2_inlined1) in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2502 "parsing/parser.mly" ( Pexp_extension( Extensions.payload_of_extension_expr ~loc:(make_loc _sloc) (Eexp_list_comprehension(_2, _3))) ) -# 42786 "parsing/parser.ml" +# 41756 "parsing/parser.ml" + + in + let _startpos__3_ = _startpos__1_inlined1_ in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos__3_ = _startpos__1_inlined1_ in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42798 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 41768 "parsing/parser.ml" -# 1686 "parsing/parser.mly" + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1670 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42807 "parsing/parser.ml" - - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2596 "parsing/parser.mly" - ( Pexp_open(od, mkexp ~loc:(_loc__3_) _3) ) -# 42814 "parsing/parser.ml" +# 41777 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42824 "parsing/parser.ml" +# 2580 "parsing/parser.mly" + ( Pexp_open(od, mkexp ~loc:(_loc__3_) _3) ) +# 41784 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42830 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 41794 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41800 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42877,66 +41846,64 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _3 = - let (_startpos__1_, _2) = (_startpos__1_inlined1_, _2_inlined1) in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 2522 "parsing/parser.mly" + let _3 = + let (_startpos__1_, _2) = (_startpos__1_inlined1_, _2_inlined1) in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2506 "parsing/parser.mly" ( Pexp_extension( Extensions.payload_of_extension_expr ~loc:(make_loc _sloc) (Eexp_arr_comprehension(_2, _3))) ) -# 42894 "parsing/parser.ml" +# 41862 "parsing/parser.ml" + + in + let _startpos__3_ = _startpos__1_inlined1_ in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos__3_ = _startpos__1_inlined1_ in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42906 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 41874 "parsing/parser.ml" -# 1686 "parsing/parser.mly" + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1670 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42915 "parsing/parser.ml" - - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2596 "parsing/parser.mly" - ( Pexp_open(od, mkexp ~loc:(_loc__3_) _3) ) -# 42922 "parsing/parser.ml" +# 41883 "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 -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 42932 "parsing/parser.ml" +# 2580 "parsing/parser.mly" + ( Pexp_open(od, mkexp ~loc:(_loc__3_) _3) ) +# 41890 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 42938 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 41900 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 41906 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42985,62 +41952,60 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _4 = -# 2850 "parsing/parser.mly" + let _4 = +# 2834 "parsing/parser.mly" ( es ) -# 42995 "parsing/parser.ml" - in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 41961 "parsing/parser.ml" + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43005 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 41971 "parsing/parser.ml" -# 1686 "parsing/parser.mly" + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1670 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43014 "parsing/parser.ml" - - in - let _endpos = _endpos__5_ in - let _loc__5_ = (_startpos__5_, _endpos__5_) in +# 41980 "parsing/parser.ml" -# 2598 "parsing/parser.mly" + in + let _endpos = _endpos__5_ in + let _loc__5_ = (_startpos__5_, _endpos__5_) in + +# 2582 "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) ) -# 43026 "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 - -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43036 "parsing/parser.ml" +# 41992 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 43042 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 42002 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 42008 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43082,70 +42047,68 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in - let _v = + 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 = -# 2603 "parsing/parser.mly" + let _3 = + let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in + let _1 = +# 2587 "parsing/parser.mly" (Lident "[]") -# 43094 "parsing/parser.ml" - in - let _endpos__1_ = _endpos__2_ in +# 42058 "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 + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 42067 "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 -# 983 "parsing/parser.mly" +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43103 "parsing/parser.ml" +# 42079 "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 - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 43115 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 1686 "parsing/parser.mly" + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1670 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43124 "parsing/parser.ml" - - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2604 "parsing/parser.mly" - ( Pexp_open(od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) ) -# 43131 "parsing/parser.ml" +# 42088 "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 _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43141 "parsing/parser.ml" +# 2588 "parsing/parser.mly" + ( Pexp_open(od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) ) +# 42095 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 43147 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__2_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 42105 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 42111 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43194,38 +42157,36 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.expression) = let _1 = let _1 = - let _1 = - let _4 = -# 2850 "parsing/parser.mly" + let _4 = +# 2834 "parsing/parser.mly" ( es ) -# 43204 "parsing/parser.ml" - in - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2607 "parsing/parser.mly" - ( unclosed "[" _loc__3_ "]" _loc__5_ ) -# 43211 "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 +# 42166 "parsing/parser.ml" + in + let _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43221 "parsing/parser.ml" +# 2591 "parsing/parser.mly" + ( unclosed "[" _loc__3_ "]" _loc__5_ ) +# 42173 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 43227 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 42183 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 42189 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43309,87 +42270,85 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__9_ in - let _v = + let _v : (Parsetree.expression) = let _1 = 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 - -# 3648 "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 + +# 3632 "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 ) -# 43326 "parsing/parser.ml" +# 42286 "parsing/parser.ml" + + in + let _5 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in - in - let _5 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( _1 ) -# 43336 "parsing/parser.ml" - - in +# 42296 "parsing/parser.ml" -# 4090 "parsing/parser.mly" + in + +# 4074 "parsing/parser.mly" ( _1, _2 ) -# 43342 "parsing/parser.ml" +# 42302 "parsing/parser.ml" + + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43353 "parsing/parser.ml" - - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in +# 42313 "parsing/parser.ml" -# 1686 "parsing/parser.mly" + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 1670 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43362 "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 +# 42322 "parsing/parser.ml" -# 2610 "parsing/parser.mly" + in + let _startpos_od_ = _startpos__1_ in + let _endpos = _endpos__9_ in + let _symbolstartpos = _startpos_od_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2594 "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) ) -# 43375 "parsing/parser.ml" - - in - let _endpos__1_ = _endpos__9_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43385 "parsing/parser.ml" +# 42335 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 43391 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__9_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 42345 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 42351 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43464,51 +42423,49 @@ module Tables = struct let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__8_ in - let _v = - let _1 = - let _1 = - let _5 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 43480 "parsing/parser.ml" - - in + let _startpos = _startpos__1_ in + let _endpos = _endpos__8_ in + let _v : (Parsetree.expression) = let _1 = + let _1 = + let _5 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 43486 "parsing/parser.ml" +# 4061 "parsing/parser.mly" + ( _1 ) +# 42438 "parsing/parser.ml" in - let _loc__8_ = (_startpos__8_, _endpos__8_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2616 "parsing/parser.mly" - ( unclosed "(" _loc__3_ ")" _loc__8_ ) -# 43494 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 42444 "parsing/parser.ml" in - let _endpos__1_ = _endpos__8_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let _loc__8_ = (_startpos__8_, _endpos__8_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1016 "parsing/parser.mly" - ( mkexp ~loc:_sloc _1 ) -# 43504 "parsing/parser.ml" +# 2600 "parsing/parser.mly" + ( unclosed "(" _loc__3_ ")" _loc__8_ ) +# 42452 "parsing/parser.ml" in - ( -# 2476 "parsing/parser.mly" - ( _1 ) -# 43510 "parsing/parser.ml" - : (Parsetree.expression)) + let _endpos__1_ = _endpos__8_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1000 "parsing/parser.mly" + ( mkexp ~loc:_sloc _1 ) +# 42462 "parsing/parser.ml" + in + +# 2460 "parsing/parser.mly" + ( _1 ) +# 42468 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43529,40 +42486,38 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 43543 "parsing/parser.ml" - - in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2933 "parsing/parser.mly" - ( Ppat_var (_1) ) -# 43549 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 42499 "parsing/parser.ml" in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 43558 "parsing/parser.ml" +# 2917 "parsing/parser.mly" + ( Ppat_var (_1) ) +# 42505 "parsing/parser.ml" in - ( -# 2934 "parsing/parser.mly" - ( _1 ) -# 43564 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 42514 "parsing/parser.ml" + in + +# 2918 "parsing/parser.mly" + ( _1 ) +# 42520 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43584,9 +42539,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 2935 "parsing/parser.mly" +# 2919 "parsing/parser.mly" ( _1 ) -# 43590 "parsing/parser.ml" +# 42545 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43622,16 +42577,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2940 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2924 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) -# 43633 "parsing/parser.ml" - : (Parsetree.pattern)) - in +# 42587 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43653,9 +42606,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 2942 "parsing/parser.mly" +# 2926 "parsing/parser.mly" ( _1 ) -# 43659 "parsing/parser.ml" +# 42612 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43712,43 +42665,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43725 "parsing/parser.ml" +# 42677 "parsing/parser.ml" + + in + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in - in - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( _1 ) -# 43735 "parsing/parser.ml" - - in - -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 43741 "parsing/parser.ml" +# 42687 "parsing/parser.ml" in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2944 "parsing/parser.mly" - ( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 ) -# 43750 "parsing/parser.ml" - : (Parsetree.pattern)) + +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 42693 "parsing/parser.ml" + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2928 "parsing/parser.mly" + ( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 ) +# 42702 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43818,60 +42769,58 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _6 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined4_, _startpos__1_inlined4_, _1_inlined4) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3648 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _6 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined4_, _startpos__1_inlined4_, _1_inlined4) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3632 "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 ) -# 43833 "parsing/parser.ml" - - in - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 42783 "parsing/parser.ml" + + in + let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43844 "parsing/parser.ml" +# 42794 "parsing/parser.ml" + + in + let (_endpos__4_, _startpos__4_) = (_endpos__1_inlined3_, _startpos__1_inlined3_) in + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in - in - let (_endpos__4_, _startpos__4_) = (_endpos__1_inlined3_, _startpos__1_inlined3_) in - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( _1 ) -# 43855 "parsing/parser.ml" - - in - -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 43861 "parsing/parser.ml" +# 42805 "parsing/parser.ml" in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _loc__4_ = (_startpos__4_, _endpos__4_) in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2946 "parsing/parser.mly" + +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 42811 "parsing/parser.ml" + + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _loc__4_ = (_startpos__4_, _endpos__4_) in + let _sloc = (_symbolstartpos, _endpos) in + +# 2930 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_constraint(mkpat ~loc:_loc__4_ (Ppat_unpack _4), _6)) _3 ) -# 43873 "parsing/parser.ml" - : (Parsetree.pattern)) - in +# 42823 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43892,28 +42841,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 2954 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _1 = +# 2938 "parsing/parser.mly" ( Ppat_any ) -# 43901 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1018 "parsing/parser.mly" +# 42849 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 43909 "parsing/parser.ml" - - in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 43915 "parsing/parser.ml" - : (Parsetree.pattern)) +# 42857 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 42863 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43934,28 +42881,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 2956 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _1 = +# 2940 "parsing/parser.mly" ( Ppat_constant _1 ) -# 43943 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1018 "parsing/parser.mly" +# 42889 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 43951 "parsing/parser.ml" - - in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 43957 "parsing/parser.ml" - : (Parsetree.pattern)) +# 42897 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 42903 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43990,29 +42935,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _1 = - let _1 = -# 2958 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _1 = +# 2942 "parsing/parser.mly" ( Ppat_interval (_1, _3) ) -# 43999 "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 - -# 1018 "parsing/parser.mly" +# 42943 "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 + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44008 "parsing/parser.ml" - - in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44014 "parsing/parser.ml" - : (Parsetree.pattern)) +# 42952 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 42958 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44033,40 +42976,38 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 44047 "parsing/parser.ml" - - in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2960 "parsing/parser.mly" - ( Ppat_construct(_1, None) ) -# 44053 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 42989 "parsing/parser.ml" in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 44062 "parsing/parser.ml" +# 2944 "parsing/parser.mly" + ( Ppat_construct(_1, None) ) +# 42995 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44068 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43004 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43010 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44087,28 +43028,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 2962 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _1 = +# 2946 "parsing/parser.mly" ( Ppat_variant(_1, None) ) -# 44096 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1018 "parsing/parser.mly" +# 43036 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44104 "parsing/parser.ml" - - in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44110 "parsing/parser.ml" - : (Parsetree.pattern)) +# 43044 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43050 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44136,42 +43075,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 44151 "parsing/parser.ml" - - in + let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2964 "parsing/parser.mly" - ( Ppat_type (_2) ) -# 44157 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 43089 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 44167 "parsing/parser.ml" +# 2948 "parsing/parser.mly" + ( Ppat_type (_2) ) +# 43095 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44173 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43105 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43111 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44206,41 +43143,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 44220 "parsing/parser.ml" - - in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2966 "parsing/parser.mly" - ( Ppat_open(_1, _3) ) -# 44226 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 43156 "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 -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 44236 "parsing/parser.ml" +# 2950 "parsing/parser.mly" + ( Ppat_open(_1, _3) ) +# 43162 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44242 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43172 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43178 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44282,62 +43217,60 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _3 = - let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in - let _1 = -# 2967 "parsing/parser.mly" + let _3 = + let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in + let _1 = +# 2951 "parsing/parser.mly" (Lident "[]") -# 44294 "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 - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 44303 "parsing/parser.ml" - - in - let _endpos__3_ = _endpos__2_inlined1_ in - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 43228 "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 + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44314 "parsing/parser.ml" - - in - let _endpos = _endpos__3_ in +# 43237 "parsing/parser.ml" + + in + let _endpos__3_ = _endpos__2_inlined1_ in + let _1 = + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2968 "parsing/parser.mly" - ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 44323 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 43248 "parsing/parser.ml" in - let _endpos__1_ = _endpos__2_inlined1_ in - let _endpos = _endpos__1_ in + let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 44333 "parsing/parser.ml" +# 2952 "parsing/parser.mly" + ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) +# 43257 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44339 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__2_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43267 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43273 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44379,62 +43312,60 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _3 = - let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in - let _1 = -# 2969 "parsing/parser.mly" + let _3 = + let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in + let _1 = +# 2953 "parsing/parser.mly" (Lident "()") -# 44391 "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 - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 44400 "parsing/parser.ml" - - in - let _endpos__3_ = _endpos__2_inlined1_ in - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 43323 "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 + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44411 "parsing/parser.ml" - - in - let _endpos = _endpos__3_ in +# 43332 "parsing/parser.ml" + + in + let _endpos__3_ = _endpos__2_inlined1_ in + let _1 = + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2970 "parsing/parser.mly" - ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 44420 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 43343 "parsing/parser.ml" in - let _endpos__1_ = _endpos__2_inlined1_ in - let _endpos = _endpos__1_ in + let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 44430 "parsing/parser.ml" +# 2954 "parsing/parser.mly" + ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) +# 43352 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44436 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__2_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43362 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43368 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44483,41 +43414,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 44497 "parsing/parser.ml" - - in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 2972 "parsing/parser.mly" - ( Ppat_open (_1, _4) ) -# 44503 "parsing/parser.ml" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 43427 "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 -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 44513 "parsing/parser.ml" +# 2956 "parsing/parser.mly" + ( Ppat_open (_1, _4) ) +# 43433 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44519 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43443 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43449 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44566,33 +43495,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - -# 2974 "parsing/parser.mly" - ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 44578 "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 _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 44588 "parsing/parser.ml" +# 2958 "parsing/parser.mly" + ( unclosed "(" _loc__3_ ")" _loc__5_ ) +# 43506 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44594 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43516 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43522 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44634,32 +43561,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _loc__4_ = (_startpos__4_, _endpos__4_) in - -# 2976 "parsing/parser.mly" - ( expecting _loc__4_ "pattern" ) -# 44645 "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__4_ = (_startpos__4_, _endpos__4_) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 44655 "parsing/parser.ml" +# 2960 "parsing/parser.mly" + ( expecting _loc__4_ "pattern" ) +# 43571 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44661 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43581 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43587 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44694,33 +43619,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2978 "parsing/parser.mly" - ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 44706 "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 + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 44716 "parsing/parser.ml" +# 2962 "parsing/parser.mly" + ( unclosed "(" _loc__1_ ")" _loc__3_ ) +# 43630 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44722 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43640 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43646 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44769,29 +43692,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _1 = - let _1 = -# 2980 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _1 = +# 2964 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) -# 44778 "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 - -# 1018 "parsing/parser.mly" +# 43700 "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 + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44787 "parsing/parser.ml" - - in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44793 "parsing/parser.ml" - : (Parsetree.pattern)) +# 43709 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43715 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44840,33 +43761,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _loc__5_ = (_startpos__5_, _endpos__5_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - -# 2982 "parsing/parser.mly" - ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 44852 "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 _loc__5_ = (_startpos__5_, _endpos__5_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 44862 "parsing/parser.ml" +# 2966 "parsing/parser.mly" + ( unclosed "(" _loc__1_ ")" _loc__5_ ) +# 43772 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44868 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43782 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43788 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44908,32 +43827,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _loc__4_ = (_startpos__4_, _endpos__4_) in - -# 2984 "parsing/parser.mly" - ( expecting _loc__4_ "type" ) -# 44919 "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__4_ = (_startpos__4_, _endpos__4_) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 44929 "parsing/parser.ml" +# 2968 "parsing/parser.mly" + ( expecting _loc__4_ "type" ) +# 43837 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 44935 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43847 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43853 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45003,62 +43920,60 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = + let _v : (Parsetree.pattern) = let _1 = let _1 = - let _1 = - let _6 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 3648 "parsing/parser.mly" + let _6 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3632 "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 ) -# 45020 "parsing/parser.ml" +# 43936 "parsing/parser.ml" + + in + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in - in - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( _1 ) -# 45030 "parsing/parser.ml" - - in - -# 4090 "parsing/parser.mly" - ( _1, _2 ) -# 45036 "parsing/parser.ml" +# 43946 "parsing/parser.ml" in - let _loc__7_ = (_startpos__7_, _endpos__7_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2987 "parsing/parser.mly" - ( unclosed "(" _loc__1_ ")" _loc__7_ ) -# 45044 "parsing/parser.ml" +# 4074 "parsing/parser.mly" + ( _1, _2 ) +# 43952 "parsing/parser.ml" in - let _endpos__1_ = _endpos__7_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let _loc__7_ = (_startpos__7_, _endpos__7_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1018 "parsing/parser.mly" - ( mkpat ~loc:_sloc _1 ) -# 45054 "parsing/parser.ml" +# 2971 "parsing/parser.mly" + ( unclosed "(" _loc__1_ ")" _loc__7_ ) +# 43960 "parsing/parser.ml" in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 45060 "parsing/parser.ml" - : (Parsetree.pattern)) + let _endpos__1_ = _endpos__7_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" + ( mkpat ~loc:_sloc _1 ) +# 43970 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 43976 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45079,28 +43994,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 2989 "parsing/parser.mly" + let _v : (Parsetree.pattern) = let _1 = + let _1 = +# 2973 "parsing/parser.mly" ( Ppat_extension _1 ) -# 45088 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1018 "parsing/parser.mly" +# 44002 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1002 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45096 "parsing/parser.ml" - - in - ( -# 2950 "parsing/parser.mly" - ( _1 ) -# 45102 "parsing/parser.ml" - : (Parsetree.pattern)) +# 44010 "parsing/parser.ml" + in + +# 2934 "parsing/parser.mly" + ( _1 ) +# 44016 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45118,17 +44031,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 45124 "parsing/parser.ml" +# 44037 "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) = -# 3996 "parsing/parser.mly" +# 3980 "parsing/parser.mly" ( _1 ) -# 45132 "parsing/parser.ml" +# 44045 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45147,17 +44060,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 850 "parsing/parser.mly" +# 834 "parsing/parser.mly" (string) -# 45153 "parsing/parser.ml" +# 44066 "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) = -# 3997 "parsing/parser.mly" +# 3981 "parsing/parser.mly" ( _1 ) -# 45161 "parsing/parser.ml" +# 44074 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45180,9 +44093,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 3998 "parsing/parser.mly" +# 3982 "parsing/parser.mly" ( "and" ) -# 45186 "parsing/parser.ml" +# 44099 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45205,9 +44118,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 3999 "parsing/parser.mly" +# 3983 "parsing/parser.mly" ( "as" ) -# 45211 "parsing/parser.ml" +# 44124 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45230,9 +44143,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4000 "parsing/parser.mly" +# 3984 "parsing/parser.mly" ( "assert" ) -# 45236 "parsing/parser.ml" +# 44149 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45255,9 +44168,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4001 "parsing/parser.mly" +# 3985 "parsing/parser.mly" ( "begin" ) -# 45261 "parsing/parser.ml" +# 44174 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45280,9 +44193,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4002 "parsing/parser.mly" +# 3986 "parsing/parser.mly" ( "class" ) -# 45286 "parsing/parser.ml" +# 44199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45305,9 +44218,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4003 "parsing/parser.mly" +# 3987 "parsing/parser.mly" ( "constraint" ) -# 45311 "parsing/parser.ml" +# 44224 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45330,9 +44243,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4004 "parsing/parser.mly" +# 3988 "parsing/parser.mly" ( "do" ) -# 45336 "parsing/parser.ml" +# 44249 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45355,9 +44268,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4005 "parsing/parser.mly" +# 3989 "parsing/parser.mly" ( "done" ) -# 45361 "parsing/parser.ml" +# 44274 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45380,9 +44293,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4006 "parsing/parser.mly" +# 3990 "parsing/parser.mly" ( "downto" ) -# 45386 "parsing/parser.ml" +# 44299 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45405,9 +44318,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4007 "parsing/parser.mly" +# 3991 "parsing/parser.mly" ( "else" ) -# 45411 "parsing/parser.ml" +# 44324 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45430,9 +44343,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4008 "parsing/parser.mly" +# 3992 "parsing/parser.mly" ( "end" ) -# 45436 "parsing/parser.ml" +# 44349 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45455,9 +44368,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4009 "parsing/parser.mly" +# 3993 "parsing/parser.mly" ( "exception" ) -# 45461 "parsing/parser.ml" +# 44374 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45480,9 +44393,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4010 "parsing/parser.mly" +# 3994 "parsing/parser.mly" ( "external" ) -# 45486 "parsing/parser.ml" +# 44399 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45505,9 +44418,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4011 "parsing/parser.mly" +# 3995 "parsing/parser.mly" ( "false" ) -# 45511 "parsing/parser.ml" +# 44424 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45530,9 +44443,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4012 "parsing/parser.mly" +# 3996 "parsing/parser.mly" ( "for" ) -# 45536 "parsing/parser.ml" +# 44449 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45555,9 +44468,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4013 "parsing/parser.mly" +# 3997 "parsing/parser.mly" ( "fun" ) -# 45561 "parsing/parser.ml" +# 44474 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45580,9 +44493,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4014 "parsing/parser.mly" +# 3998 "parsing/parser.mly" ( "function" ) -# 45586 "parsing/parser.ml" +# 44499 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45605,9 +44518,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4015 "parsing/parser.mly" +# 3999 "parsing/parser.mly" ( "functor" ) -# 45611 "parsing/parser.ml" +# 44524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45630,9 +44543,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4016 "parsing/parser.mly" +# 4000 "parsing/parser.mly" ( "nonlocal_" ) -# 45636 "parsing/parser.ml" +# 44549 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45655,9 +44568,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4017 "parsing/parser.mly" +# 4001 "parsing/parser.mly" ( "if" ) -# 45661 "parsing/parser.ml" +# 44574 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45680,9 +44593,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4018 "parsing/parser.mly" +# 4002 "parsing/parser.mly" ( "in" ) -# 45686 "parsing/parser.ml" +# 44599 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45705,9 +44618,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4019 "parsing/parser.mly" +# 4003 "parsing/parser.mly" ( "include" ) -# 45711 "parsing/parser.ml" +# 44624 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45730,9 +44643,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4020 "parsing/parser.mly" +# 4004 "parsing/parser.mly" ( "inherit" ) -# 45736 "parsing/parser.ml" +# 44649 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45755,9 +44668,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4021 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( "initializer" ) -# 45761 "parsing/parser.ml" +# 44674 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45780,9 +44693,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4022 "parsing/parser.mly" +# 4006 "parsing/parser.mly" ( "lazy" ) -# 45786 "parsing/parser.ml" +# 44699 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45805,9 +44718,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4023 "parsing/parser.mly" +# 4007 "parsing/parser.mly" ( "let" ) -# 45811 "parsing/parser.ml" +# 44724 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45830,9 +44743,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4024 "parsing/parser.mly" +# 4008 "parsing/parser.mly" ( "local_" ) -# 45836 "parsing/parser.ml" +# 44749 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45855,9 +44768,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4025 "parsing/parser.mly" +# 4009 "parsing/parser.mly" ( "match" ) -# 45861 "parsing/parser.ml" +# 44774 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45880,9 +44793,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4026 "parsing/parser.mly" +# 4010 "parsing/parser.mly" ( "method" ) -# 45886 "parsing/parser.ml" +# 44799 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45905,9 +44818,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4027 "parsing/parser.mly" +# 4011 "parsing/parser.mly" ( "module" ) -# 45911 "parsing/parser.ml" +# 44824 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45930,9 +44843,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4028 "parsing/parser.mly" +# 4012 "parsing/parser.mly" ( "mutable" ) -# 45936 "parsing/parser.ml" +# 44849 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45955,9 +44868,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4029 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( "new" ) -# 45961 "parsing/parser.ml" +# 44874 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45980,9 +44893,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4030 "parsing/parser.mly" +# 4014 "parsing/parser.mly" ( "nonrec" ) -# 45986 "parsing/parser.ml" +# 44899 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46005,9 +44918,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4031 "parsing/parser.mly" +# 4015 "parsing/parser.mly" ( "object" ) -# 46011 "parsing/parser.ml" +# 44924 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46030,9 +44943,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4032 "parsing/parser.mly" +# 4016 "parsing/parser.mly" ( "of" ) -# 46036 "parsing/parser.ml" +# 44949 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46055,9 +44968,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4033 "parsing/parser.mly" +# 4017 "parsing/parser.mly" ( "open" ) -# 46061 "parsing/parser.ml" +# 44974 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46080,9 +44993,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4034 "parsing/parser.mly" +# 4018 "parsing/parser.mly" ( "or" ) -# 46086 "parsing/parser.ml" +# 44999 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46105,9 +45018,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4035 "parsing/parser.mly" +# 4019 "parsing/parser.mly" ( "private" ) -# 46111 "parsing/parser.ml" +# 45024 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46130,9 +45043,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4036 "parsing/parser.mly" +# 4020 "parsing/parser.mly" ( "rec" ) -# 46136 "parsing/parser.ml" +# 45049 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46155,9 +45068,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4037 "parsing/parser.mly" +# 4021 "parsing/parser.mly" ( "sig" ) -# 46161 "parsing/parser.ml" +# 45074 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46180,9 +45093,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4038 "parsing/parser.mly" +# 4022 "parsing/parser.mly" ( "struct" ) -# 46186 "parsing/parser.ml" +# 45099 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46205,9 +45118,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4039 "parsing/parser.mly" +# 4023 "parsing/parser.mly" ( "then" ) -# 46211 "parsing/parser.ml" +# 45124 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46230,9 +45143,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4040 "parsing/parser.mly" +# 4024 "parsing/parser.mly" ( "to" ) -# 46236 "parsing/parser.ml" +# 45149 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46255,9 +45168,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4041 "parsing/parser.mly" +# 4025 "parsing/parser.mly" ( "true" ) -# 46261 "parsing/parser.ml" +# 45174 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46280,9 +45193,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4042 "parsing/parser.mly" +# 4026 "parsing/parser.mly" ( "try" ) -# 46286 "parsing/parser.ml" +# 45199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46305,9 +45218,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4043 "parsing/parser.mly" +# 4027 "parsing/parser.mly" ( "type" ) -# 46311 "parsing/parser.ml" +# 45224 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46330,9 +45243,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4044 "parsing/parser.mly" +# 4028 "parsing/parser.mly" ( "val" ) -# 46336 "parsing/parser.ml" +# 45249 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46355,9 +45268,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4045 "parsing/parser.mly" +# 4029 "parsing/parser.mly" ( "virtual" ) -# 46361 "parsing/parser.ml" +# 45274 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46380,9 +45293,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4046 "parsing/parser.mly" +# 4030 "parsing/parser.mly" ( "when" ) -# 46386 "parsing/parser.ml" +# 45299 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46405,9 +45318,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4047 "parsing/parser.mly" +# 4031 "parsing/parser.mly" ( "while" ) -# 46411 "parsing/parser.ml" +# 45324 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46430,9 +45343,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4048 "parsing/parser.mly" +# 4032 "parsing/parser.mly" ( "with" ) -# 46436 "parsing/parser.ml" +# 45349 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46455,9 +45368,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.type_exception * string Asttypes.loc option) = -# 3268 "parsing/parser.mly" +# 3252 "parsing/parser.mly" ( _1 ) -# 46461 "parsing/parser.ml" +# 45374 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46528,67 +45441,65 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined5_ in - let _v = - let attrs = - let _1 = _1_inlined5 in - -# 4073 "parsing/parser.mly" + let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = + let _1 = _1_inlined5 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 46538 "parsing/parser.ml" - - in - let _endpos_attrs_ = _endpos__1_inlined5_ in - let attrs2 = - let _1 = _1_inlined4 in - -# 4077 "parsing/parser.mly" +# 45450 "parsing/parser.ml" + + in + let _endpos_attrs_ = _endpos__1_inlined5_ in + let attrs2 = + let _1 = _1_inlined4 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 46547 "parsing/parser.ml" - - in - let lid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 46558 "parsing/parser.ml" - - in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 45459 "parsing/parser.ml" + + in + let lid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 46569 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 46577 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs_ in +# 45470 "parsing/parser.ml" + + in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3277 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 45481 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 45489 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3261 "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 ) -# 46590 "parsing/parser.ml" - : (Parsetree.type_exception * string Asttypes.loc option)) - in +# 45502 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46617,9 +45528,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2761 "parsing/parser.mly" +# 2745 "parsing/parser.mly" ( _2 ) -# 46623 "parsing/parser.ml" +# 45534 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46648,16 +45559,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2763 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2747 "parsing/parser.mly" ( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 46659 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 45569 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46706,21 +45615,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v = - let _3 = -# 2637 "parsing/parser.mly" + let _v : (Parsetree.expression) = let _3 = +# 2621 "parsing/parser.mly" ( xs ) -# 46714 "parsing/parser.ml" - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2765 "parsing/parser.mly" +# 45622 "parsing/parser.ml" + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2749 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 46722 "parsing/parser.ml" - : (Parsetree.expression)) - in +# 45630 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46762,48 +45669,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let domain = -# 981 "parsing/parser.mly" + let domain = +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 46772 "parsing/parser.ml" - in - let local = -# 3558 "parsing/parser.mly" +# 45678 "parsing/parser.ml" + in + let local = +# 3542 "parsing/parser.mly" ( false ) -# 46777 "parsing/parser.ml" - in - let (_endpos_local_, _startpos_local_) = (_endpos_label_, _endpos_label_) in - let label = -# 3550 "parsing/parser.mly" +# 45683 "parsing/parser.ml" + in + let (_endpos_local_, _startpos_local_) = (_endpos_label_, _endpos_label_) in + let label = +# 3534 "parsing/parser.mly" ( Optional label ) -# 46783 "parsing/parser.ml" - in - let _loc_local_ = (_startpos_local_, _endpos_local_) in - -# 3530 "parsing/parser.mly" - ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 46789 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 45689 "parsing/parser.ml" + in + let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 46799 "parsing/parser.ml" +# 3514 "parsing/parser.mly" + ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) +# 45695 "parsing/parser.ml" in - ( -# 3532 "parsing/parser.mly" - ( _1 ) -# 46805 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 45705 "parsing/parser.ml" + in + +# 3516 "parsing/parser.mly" + ( _1 ) +# 45711 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46852,51 +45757,49 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let domain = - let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in - -# 981 "parsing/parser.mly" - ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 46864 "parsing/parser.ml" - - in - let local = -# 3560 "parsing/parser.mly" - ( true ) -# 46870 "parsing/parser.ml" - in - let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in - let label = -# 3550 "parsing/parser.mly" - ( Optional label ) -# 46876 "parsing/parser.ml" - in - let _loc_local_ = (_startpos_local_, _endpos_local_) in + let domain = + let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in -# 3530 "parsing/parser.mly" - ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 46882 "parsing/parser.ml" +# 965 "parsing/parser.mly" + ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) +# 45768 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let local = +# 3544 "parsing/parser.mly" + ( true ) +# 45774 "parsing/parser.ml" + in + let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in + let label = +# 3534 "parsing/parser.mly" + ( Optional label ) +# 45780 "parsing/parser.ml" + in + let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 46892 "parsing/parser.ml" +# 3514 "parsing/parser.mly" + ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) +# 45786 "parsing/parser.ml" in - ( -# 3532 "parsing/parser.mly" - ( _1 ) -# 46898 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 45796 "parsing/parser.ml" + in + +# 3516 "parsing/parser.mly" + ( _1 ) +# 45802 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46942,55 +45845,53 @@ module Tables = struct let _1 : (Parsetree.core_type) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 46948 "parsing/parser.ml" +# 45851 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let domain = -# 981 "parsing/parser.mly" + let domain = +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 46959 "parsing/parser.ml" - in - let local = -# 3558 "parsing/parser.mly" +# 45861 "parsing/parser.ml" + in + let local = +# 3542 "parsing/parser.mly" ( false ) -# 46964 "parsing/parser.ml" - in - let (_endpos_local_, _startpos_local_) = (_endpos__2_, _endpos__2_) in - let label = -# 3552 "parsing/parser.mly" +# 45866 "parsing/parser.ml" + in + let (_endpos_local_, _startpos_local_) = (_endpos__2_, _endpos__2_) in + let label = +# 3536 "parsing/parser.mly" ( Labelled label ) -# 46970 "parsing/parser.ml" - in - let _loc_local_ = (_startpos_local_, _endpos_local_) in - -# 3530 "parsing/parser.mly" - ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 46976 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 45872 "parsing/parser.ml" + in + let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 46986 "parsing/parser.ml" +# 3514 "parsing/parser.mly" + ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) +# 45878 "parsing/parser.ml" in - ( -# 3532 "parsing/parser.mly" - ( _1 ) -# 46992 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 45888 "parsing/parser.ml" + in + +# 3516 "parsing/parser.mly" + ( _1 ) +# 45894 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47043,58 +45944,56 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 47049 "parsing/parser.ml" +# 45950 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let domain = - let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in - -# 981 "parsing/parser.mly" - ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47062 "parsing/parser.ml" - - in - let local = -# 3560 "parsing/parser.mly" - ( true ) -# 47068 "parsing/parser.ml" - in - let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in - let label = -# 3552 "parsing/parser.mly" - ( Labelled label ) -# 47074 "parsing/parser.ml" - in - let _loc_local_ = (_startpos_local_, _endpos_local_) in + let domain = + let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in -# 3530 "parsing/parser.mly" - ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47080 "parsing/parser.ml" +# 965 "parsing/parser.mly" + ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) +# 45962 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let local = +# 3544 "parsing/parser.mly" + ( true ) +# 45968 "parsing/parser.ml" + in + let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in + let label = +# 3536 "parsing/parser.mly" + ( Labelled label ) +# 45974 "parsing/parser.ml" + in + let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 47090 "parsing/parser.ml" +# 3514 "parsing/parser.mly" + ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) +# 45980 "parsing/parser.ml" in - ( -# 3532 "parsing/parser.mly" - ( _1 ) -# 47096 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 45990 "parsing/parser.ml" + in + +# 3516 "parsing/parser.mly" + ( _1 ) +# 45996 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47129,48 +46028,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let domain = -# 981 "parsing/parser.mly" + let domain = +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47139 "parsing/parser.ml" - in - let local = -# 3558 "parsing/parser.mly" +# 46037 "parsing/parser.ml" + in + let local = +# 3542 "parsing/parser.mly" ( false ) -# 47144 "parsing/parser.ml" - in - let (_endpos_local_, _startpos_local_) = (_endpos__0_, _endpos__0_) in - let label = -# 3554 "parsing/parser.mly" +# 46042 "parsing/parser.ml" + in + let (_endpos_local_, _startpos_local_) = (_endpos__0_, _endpos__0_) in + let label = +# 3538 "parsing/parser.mly" ( Nolabel ) -# 47150 "parsing/parser.ml" - in - let _loc_local_ = (_startpos_local_, _endpos_local_) in - -# 3530 "parsing/parser.mly" - ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47156 "parsing/parser.ml" - - in - let _endpos__1_ = _endpos_codomain_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 46048 "parsing/parser.ml" + in + let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 47166 "parsing/parser.ml" +# 3514 "parsing/parser.mly" + ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) +# 46054 "parsing/parser.ml" in - ( -# 3532 "parsing/parser.mly" - ( _1 ) -# 47172 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos_codomain_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 46064 "parsing/parser.ml" + in + +# 3516 "parsing/parser.mly" + ( _1 ) +# 46070 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47212,51 +46109,49 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let domain = - let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in - -# 981 "parsing/parser.mly" - ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47224 "parsing/parser.ml" - - in - let local = -# 3560 "parsing/parser.mly" - ( true ) -# 47230 "parsing/parser.ml" - in - let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in - let label = -# 3554 "parsing/parser.mly" - ( Nolabel ) -# 47236 "parsing/parser.ml" - in - let _loc_local_ = (_startpos_local_, _endpos_local_) in + let domain = + let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in -# 3530 "parsing/parser.mly" - ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 47242 "parsing/parser.ml" +# 965 "parsing/parser.mly" + ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) +# 46120 "parsing/parser.ml" in - let _endpos__1_ = _endpos_codomain_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let local = +# 3544 "parsing/parser.mly" + ( true ) +# 46126 "parsing/parser.ml" + in + let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in + let label = +# 3538 "parsing/parser.mly" + ( Nolabel ) +# 46132 "parsing/parser.ml" + in + let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 47252 "parsing/parser.ml" +# 3514 "parsing/parser.mly" + ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) +# 46138 "parsing/parser.ml" in - ( -# 3532 "parsing/parser.mly" - ( _1 ) -# 47258 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos_codomain_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 46148 "parsing/parser.ml" + in + +# 3516 "parsing/parser.mly" + ( _1 ) +# 46154 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47298,59 +46193,57 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3558 "parsing/parser.mly" + let ret_local = +# 3542 "parsing/parser.mly" ( false ) -# 47308 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in - let domain = -# 981 "parsing/parser.mly" +# 46202 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in + let domain = +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47314 "parsing/parser.ml" - in - let arg_local = -# 3558 "parsing/parser.mly" +# 46208 "parsing/parser.ml" + in + let arg_local = +# 3542 "parsing/parser.mly" ( false ) -# 47319 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in - let label = -# 3550 "parsing/parser.mly" +# 46213 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in + let label = +# 3534 "parsing/parser.mly" ( Optional label ) -# 47325 "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 - -# 3541 "parsing/parser.mly" +# 46219 "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 + +# 3525 "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_) ) -# 47336 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 47346 "parsing/parser.ml" +# 46230 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 47352 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 46240 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 46246 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47399,59 +46292,57 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3560 "parsing/parser.mly" + let ret_local = +# 3544 "parsing/parser.mly" ( true ) -# 47409 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in - let domain = -# 981 "parsing/parser.mly" +# 46301 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in + let domain = +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47415 "parsing/parser.ml" - in - let arg_local = -# 3558 "parsing/parser.mly" +# 46307 "parsing/parser.ml" + in + let arg_local = +# 3542 "parsing/parser.mly" ( false ) -# 47420 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in - let label = -# 3550 "parsing/parser.mly" +# 46312 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in + let label = +# 3534 "parsing/parser.mly" ( Optional label ) -# 47426 "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 - -# 3541 "parsing/parser.mly" +# 46318 "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 + +# 3525 "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_) ) -# 47437 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 47447 "parsing/parser.ml" +# 46329 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 47453 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 46339 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 46345 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47500,62 +46391,60 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3558 "parsing/parser.mly" + let ret_local = +# 3542 "parsing/parser.mly" ( false ) -# 47510 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in - let domain = - let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in - -# 981 "parsing/parser.mly" +# 46400 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in + let domain = + let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in + +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47518 "parsing/parser.ml" - - in - let arg_local = -# 3560 "parsing/parser.mly" +# 46408 "parsing/parser.ml" + + in + let arg_local = +# 3544 "parsing/parser.mly" ( true ) -# 47524 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in - let label = -# 3550 "parsing/parser.mly" +# 46414 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in + let label = +# 3534 "parsing/parser.mly" ( Optional label ) -# 47530 "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 - -# 3541 "parsing/parser.mly" +# 46420 "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 + +# 3525 "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_) ) -# 47541 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 47551 "parsing/parser.ml" +# 46431 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 47557 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 46441 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 46447 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47611,62 +46500,60 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3560 "parsing/parser.mly" + let ret_local = +# 3544 "parsing/parser.mly" ( true ) -# 47621 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in - let domain = - let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in - -# 981 "parsing/parser.mly" +# 46509 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in + let domain = + let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in + +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47629 "parsing/parser.ml" - - in - let arg_local = -# 3560 "parsing/parser.mly" +# 46517 "parsing/parser.ml" + + in + let arg_local = +# 3544 "parsing/parser.mly" ( true ) -# 47635 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in - let label = -# 3550 "parsing/parser.mly" +# 46523 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in + let label = +# 3534 "parsing/parser.mly" ( Optional label ) -# 47641 "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 - -# 3541 "parsing/parser.mly" +# 46529 "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 + +# 3525 "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_) ) -# 47652 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 47662 "parsing/parser.ml" +# 46540 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 47668 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 46550 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 46556 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47712,66 +46599,64 @@ module Tables = struct let _1 : (Parsetree.core_type) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 47718 "parsing/parser.ml" +# 46605 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3558 "parsing/parser.mly" + let ret_local = +# 3542 "parsing/parser.mly" ( false ) -# 47729 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in - let domain = -# 981 "parsing/parser.mly" +# 46615 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in + let domain = +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47735 "parsing/parser.ml" - in - let arg_local = -# 3558 "parsing/parser.mly" +# 46621 "parsing/parser.ml" + in + let arg_local = +# 3542 "parsing/parser.mly" ( false ) -# 47740 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in - let label = -# 3552 "parsing/parser.mly" +# 46626 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in + let label = +# 3536 "parsing/parser.mly" ( Labelled label ) -# 47746 "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 - -# 3541 "parsing/parser.mly" +# 46632 "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 + +# 3525 "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_) ) -# 47757 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 47767 "parsing/parser.ml" +# 46643 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 47773 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 46653 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 46659 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47824,66 +46709,64 @@ module Tables = struct let _1 : (Parsetree.core_type) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 47830 "parsing/parser.ml" +# 46715 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3560 "parsing/parser.mly" + let ret_local = +# 3544 "parsing/parser.mly" ( true ) -# 47841 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in - let domain = -# 981 "parsing/parser.mly" +# 46725 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in + let domain = +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47847 "parsing/parser.ml" - in - let arg_local = -# 3558 "parsing/parser.mly" +# 46731 "parsing/parser.ml" + in + let arg_local = +# 3542 "parsing/parser.mly" ( false ) -# 47852 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in - let label = -# 3552 "parsing/parser.mly" +# 46736 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in + let label = +# 3536 "parsing/parser.mly" ( Labelled label ) -# 47858 "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 - -# 3541 "parsing/parser.mly" +# 46742 "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 + +# 3525 "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_) ) -# 47869 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 47879 "parsing/parser.ml" +# 46753 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 47885 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 46763 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 46769 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47936,69 +46819,67 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 47942 "parsing/parser.ml" +# 46825 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3558 "parsing/parser.mly" + let ret_local = +# 3542 "parsing/parser.mly" ( false ) -# 47953 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in - let domain = - let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in - -# 981 "parsing/parser.mly" +# 46835 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in + let domain = + let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in + +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 47961 "parsing/parser.ml" - - in - let arg_local = -# 3560 "parsing/parser.mly" +# 46843 "parsing/parser.ml" + + in + let arg_local = +# 3544 "parsing/parser.mly" ( true ) -# 47967 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in - let label = -# 3552 "parsing/parser.mly" +# 46849 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in + let label = +# 3536 "parsing/parser.mly" ( Labelled label ) -# 47973 "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 - -# 3541 "parsing/parser.mly" +# 46855 "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 + +# 3525 "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_) ) -# 47984 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 47994 "parsing/parser.ml" +# 46866 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 48000 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 46876 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 46882 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48058,69 +46939,67 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 48064 "parsing/parser.ml" +# 46945 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3560 "parsing/parser.mly" + let ret_local = +# 3544 "parsing/parser.mly" ( true ) -# 48075 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in - let domain = - let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in - -# 981 "parsing/parser.mly" +# 46955 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in + let domain = + let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in + +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48083 "parsing/parser.ml" - - in - let arg_local = -# 3560 "parsing/parser.mly" +# 46963 "parsing/parser.ml" + + in + let arg_local = +# 3544 "parsing/parser.mly" ( true ) -# 48089 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in - let label = -# 3552 "parsing/parser.mly" +# 46969 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in + let label = +# 3536 "parsing/parser.mly" ( Labelled label ) -# 48095 "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 - -# 3541 "parsing/parser.mly" +# 46975 "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 + +# 3525 "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_) ) -# 48106 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 48116 "parsing/parser.ml" +# 46986 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 48122 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 46996 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 47002 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48155,59 +47034,57 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3558 "parsing/parser.mly" + let ret_local = +# 3542 "parsing/parser.mly" ( false ) -# 48165 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in - let domain = -# 981 "parsing/parser.mly" +# 47043 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in + let domain = +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48171 "parsing/parser.ml" - in - let arg_local = -# 3558 "parsing/parser.mly" +# 47049 "parsing/parser.ml" + in + let arg_local = +# 3542 "parsing/parser.mly" ( false ) -# 48176 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in - let label = -# 3554 "parsing/parser.mly" +# 47054 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in + let label = +# 3538 "parsing/parser.mly" ( Nolabel ) -# 48182 "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 - -# 3541 "parsing/parser.mly" +# 47060 "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 + +# 3525 "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_) ) -# 48193 "parsing/parser.ml" - - in - let _endpos__1_ = _endpos_codomain_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 48203 "parsing/parser.ml" +# 47071 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 48209 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos_codomain_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 47081 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 47087 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48249,59 +47126,57 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3560 "parsing/parser.mly" + let ret_local = +# 3544 "parsing/parser.mly" ( true ) -# 48259 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in - let domain = -# 981 "parsing/parser.mly" +# 47135 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in + let domain = +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48265 "parsing/parser.ml" - in - let arg_local = -# 3558 "parsing/parser.mly" +# 47141 "parsing/parser.ml" + in + let arg_local = +# 3542 "parsing/parser.mly" ( false ) -# 48270 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in - let label = -# 3554 "parsing/parser.mly" +# 47146 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in + let label = +# 3538 "parsing/parser.mly" ( Nolabel ) -# 48276 "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 - -# 3541 "parsing/parser.mly" +# 47152 "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 + +# 3525 "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_) ) -# 48287 "parsing/parser.ml" - - in - let _endpos__1_ = _endpos_codomain_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 48297 "parsing/parser.ml" +# 47163 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 48303 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos_codomain_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 47173 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 47179 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48343,62 +47218,60 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3558 "parsing/parser.mly" + let ret_local = +# 3542 "parsing/parser.mly" ( false ) -# 48353 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in - let domain = - let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in - -# 981 "parsing/parser.mly" +# 47227 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in + let domain = + let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in + +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48361 "parsing/parser.ml" - - in - let arg_local = -# 3560 "parsing/parser.mly" +# 47235 "parsing/parser.ml" + + in + let arg_local = +# 3544 "parsing/parser.mly" ( true ) -# 48367 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in - let label = -# 3554 "parsing/parser.mly" +# 47241 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in + let label = +# 3538 "parsing/parser.mly" ( Nolabel ) -# 48373 "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 - -# 3541 "parsing/parser.mly" +# 47247 "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 + +# 3525 "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_) ) -# 48384 "parsing/parser.ml" - - in - let _endpos__1_ = _endpos_codomain_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 48394 "parsing/parser.ml" +# 47258 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 48400 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos_codomain_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 47268 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 47274 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48447,62 +47320,60 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_codomain_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let ret_local = -# 3560 "parsing/parser.mly" + let ret_local = +# 3544 "parsing/parser.mly" ( true ) -# 48457 "parsing/parser.ml" - in - let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in - let domain = - let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in - -# 981 "parsing/parser.mly" +# 47329 "parsing/parser.ml" + in + let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in + let domain = + let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in + +# 965 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48465 "parsing/parser.ml" - - in - let arg_local = -# 3560 "parsing/parser.mly" +# 47337 "parsing/parser.ml" + + in + let arg_local = +# 3544 "parsing/parser.mly" ( true ) -# 48471 "parsing/parser.ml" - in - let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in - let label = -# 3554 "parsing/parser.mly" +# 47343 "parsing/parser.ml" + in + let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in + let label = +# 3538 "parsing/parser.mly" ( Nolabel ) -# 48477 "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 - -# 3541 "parsing/parser.mly" +# 47349 "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 + +# 3525 "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_) ) -# 48488 "parsing/parser.ml" - - in - let _endpos__1_ = _endpos_codomain_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 48498 "parsing/parser.ml" +# 47360 "parsing/parser.ml" in - ( -# 3546 "parsing/parser.mly" - ( _1 ) -# 48504 "parsing/parser.ml" - : (Parsetree.core_type)) + let _endpos__1_ = _endpos_codomain_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 47370 "parsing/parser.ml" + in + +# 3530 "parsing/parser.mly" + ( _1 ) +# 47376 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48523,47 +47394,45 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos_xss_ in - let _v = + let _v : (Parsetree.structure) = let _1 = let _1 = - let _1 = - let ys = -# 257 "" + let ys = +# 260 "" ( List.flatten xss ) -# 48533 "parsing/parser.ml" - in - let xs = - let items = -# 1053 "parsing/parser.mly" +# 47403 "parsing/parser.ml" + in + let xs = + let items = +# 1037 "parsing/parser.mly" ( [] ) -# 48539 "parsing/parser.ml" - in - -# 1482 "parsing/parser.mly" - ( items ) -# 48544 "parsing/parser.ml" - - in +# 47409 "parsing/parser.ml" + in -# 264 "" - ( xs @ ys ) -# 48550 "parsing/parser.ml" +# 1466 "parsing/parser.mly" + ( items ) +# 47414 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in -# 975 "parsing/parser.mly" - ( extra_str _startpos _endpos _1 ) -# 48559 "parsing/parser.ml" +# 267 "" + ( xs @ ys ) +# 47420 "parsing/parser.ml" in - ( -# 1475 "parsing/parser.mly" - ( _1 ) -# 48565 "parsing/parser.ml" - : (Parsetree.structure)) + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + +# 959 "parsing/parser.mly" + ( extra_str _startpos _endpos _1 ) +# 47429 "parsing/parser.ml" + in + +# 1459 "parsing/parser.mly" + ( _1 ) +# 47435 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48598,81 +47467,79 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e_ in let _endpos = _endpos_xss_ in - let _v = + let _v : (Parsetree.structure) = let _1 = let _1 = - let _1 = - let ys = -# 257 "" + let ys = +# 260 "" ( List.flatten xss ) -# 48608 "parsing/parser.ml" - in - let xs = - let items = - let x = +# 47476 "parsing/parser.ml" + in + let xs = + let items = + let x = + let _1 = let _1 = - let _1 = - let attrs = -# 4073 "parsing/parser.mly" - ( _1 ) -# 48618 "parsing/parser.ml" - in - -# 1489 "parsing/parser.mly" - ( mkstrexp e attrs ) -# 48623 "parsing/parser.ml" - - in - let _startpos__1_ = _startpos_e_ in - let _startpos = _startpos__1_ in + let attrs = +# 4057 "parsing/parser.mly" + ( _1 ) +# 47486 "parsing/parser.ml" + in -# 987 "parsing/parser.mly" - ( text_str _startpos @ [_1] ) -# 48631 "parsing/parser.ml" +# 1473 "parsing/parser.mly" + ( mkstrexp e attrs ) +# 47491 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in - let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1006 "parsing/parser.mly" - ( mark_rhs_docs _startpos _endpos; - _1 ) -# 48641 "parsing/parser.ml" +# 971 "parsing/parser.mly" + ( text_str _startpos @ [_1] ) +# 47499 "parsing/parser.ml" in + let _startpos__1_ = _startpos_e_ in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in -# 1055 "parsing/parser.mly" - ( x ) -# 48647 "parsing/parser.ml" +# 990 "parsing/parser.mly" + ( mark_rhs_docs _startpos _endpos; + _1 ) +# 47509 "parsing/parser.ml" in -# 1482 "parsing/parser.mly" - ( items ) -# 48653 "parsing/parser.ml" +# 1039 "parsing/parser.mly" + ( x ) +# 47515 "parsing/parser.ml" in -# 264 "" - ( xs @ ys ) -# 48659 "parsing/parser.ml" +# 1466 "parsing/parser.mly" + ( items ) +# 47521 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in -# 975 "parsing/parser.mly" - ( extra_str _startpos _endpos _1 ) -# 48668 "parsing/parser.ml" +# 267 "" + ( xs @ ys ) +# 47527 "parsing/parser.ml" in - ( -# 1475 "parsing/parser.mly" - ( _1 ) -# 48674 "parsing/parser.ml" - : (Parsetree.structure)) + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + +# 959 "parsing/parser.mly" + ( extra_str _startpos _endpos _1 ) +# 47536 "parsing/parser.ml" + in + +# 1459 "parsing/parser.mly" + ( _1 ) +# 47542 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48693,16 +47560,14 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 1504 "parsing/parser.mly" + let _v : (Parsetree.structure_item) = let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1488 "parsing/parser.mly" ( val_of_let_bindings ~loc:_sloc _1 ) -# 48704 "parsing/parser.ml" - : (Parsetree.structure_item)) - in +# 47570 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48730,44 +47595,42 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.structure_item) = let _1 = let _1 = - let _1 = - let _2 = - let _1 = _1_inlined1 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 48742 "parsing/parser.ml" - - in - let _endpos__2_ = _endpos__1_inlined1_ in - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let _2 = + let _1 = _1_inlined1 in -# 1507 "parsing/parser.mly" - ( let docs = symbol_docs _sloc in - Pstr_extension (_1, add_docs_attrs docs _2) ) -# 48753 "parsing/parser.ml" +# 4057 "parsing/parser.mly" + ( _1 ) +# 47606 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in + let _endpos__2_ = _endpos__1_inlined1_ in + let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1022 "parsing/parser.mly" - ( mkstr ~loc:_sloc _1 ) -# 48763 "parsing/parser.ml" +# 1491 "parsing/parser.mly" + ( let docs = symbol_docs _sloc in + Pstr_extension (_1, add_docs_attrs docs _2) ) +# 47617 "parsing/parser.ml" in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 48769 "parsing/parser.ml" - : (Parsetree.structure_item)) + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1006 "parsing/parser.mly" + ( mkstr ~loc:_sloc _1 ) +# 47627 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 47633 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48788,28 +47651,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1510 "parsing/parser.mly" + let _v : (Parsetree.structure_item) = let _1 = + let _1 = +# 1494 "parsing/parser.mly" ( Pstr_attribute _1 ) -# 48797 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1022 "parsing/parser.mly" +# 47659 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1006 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) -# 48805 "parsing/parser.ml" - - in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 48811 "parsing/parser.ml" - : (Parsetree.structure_item)) +# 47667 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 47673 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48830,28 +47691,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1514 "parsing/parser.mly" + let _v : (Parsetree.structure_item) = let _1 = + let _1 = +# 1498 "parsing/parser.mly" ( pstr_primitive _1 ) -# 48839 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1039 "parsing/parser.mly" +# 47699 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 48847 "parsing/parser.ml" - - in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 48853 "parsing/parser.ml" - : (Parsetree.structure_item)) +# 47707 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 47713 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48872,28 +47731,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1516 "parsing/parser.mly" + let _v : (Parsetree.structure_item) = let _1 = + let _1 = +# 1500 "parsing/parser.mly" ( pstr_primitive _1 ) -# 48881 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1039 "parsing/parser.mly" +# 47739 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 48889 "parsing/parser.ml" - - in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 48895 "parsing/parser.ml" - : (Parsetree.structure_item)) +# 47747 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 47753 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48922,50 +47779,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_a_ in let _endpos = _endpos_bs_ in - let _v = + let _v : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let _1 = -# 1214 "parsing/parser.mly" + let _1 = +# 1198 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 48934 "parsing/parser.ml" - in - -# 3112 "parsing/parser.mly" - ( _1 ) -# 48939 "parsing/parser.ml" - - in +# 47790 "parsing/parser.ml" + in -# 3095 "parsing/parser.mly" - ( _1 ) -# 48945 "parsing/parser.ml" +# 3096 "parsing/parser.mly" + ( _1 ) +# 47795 "parsing/parser.ml" in -# 1518 "parsing/parser.mly" - ( pstr_type _1 ) -# 48951 "parsing/parser.ml" +# 3079 "parsing/parser.mly" + ( _1 ) +# 47801 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1039 "parsing/parser.mly" - ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 48961 "parsing/parser.ml" +# 1502 "parsing/parser.mly" + ( pstr_type _1 ) +# 47807 "parsing/parser.ml" in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 48967 "parsing/parser.ml" - : (Parsetree.structure_item)) + let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" + ( wrap_mkstr_ext ~loc:_sloc _1 ) +# 47817 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 47823 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49042,89 +47897,87 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = + let _v : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 49056 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let cs = -# 1206 "parsing/parser.mly" +# 47910 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let cs = +# 1190 "parsing/parser.mly" ( List.rev xs ) -# 49063 "parsing/parser.ml" - in - let tid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 47917 "parsing/parser.ml" + in + let tid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 49073 "parsing/parser.ml" - - in - let _4 = -# 3905 "parsing/parser.mly" +# 47927 "parsing/parser.ml" + + in + let _4 = +# 3889 "parsing/parser.mly" ( Recursive ) -# 49079 "parsing/parser.ml" - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 47933 "parsing/parser.ml" + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 49086 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 47940 "parsing/parser.ml" -# 3378 "parsing/parser.mly" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3362 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 49098 "parsing/parser.ml" - - in - -# 3361 "parsing/parser.mly" - ( _1 ) -# 49104 "parsing/parser.ml" +# 47952 "parsing/parser.ml" in -# 1520 "parsing/parser.mly" - ( pstr_typext _1 ) -# 49110 "parsing/parser.ml" +# 3345 "parsing/parser.mly" + ( _1 ) +# 47958 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1039 "parsing/parser.mly" - ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49120 "parsing/parser.ml" +# 1504 "parsing/parser.mly" + ( pstr_typext _1 ) +# 47964 "parsing/parser.ml" in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 49126 "parsing/parser.ml" - : (Parsetree.structure_item)) + let _endpos__1_ = _endpos__1_inlined3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" + ( wrap_mkstr_ext ~loc:_sloc _1 ) +# 47974 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 47980 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49208,95 +48061,93 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in - let _v = + let _v : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let attrs2 = - let _1 = _1_inlined4 in - -# 4073 "parsing/parser.mly" + let attrs2 = + let _1 = _1_inlined4 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 49222 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let cs = -# 1206 "parsing/parser.mly" +# 48074 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let cs = +# 1190 "parsing/parser.mly" ( List.rev xs ) -# 49229 "parsing/parser.ml" - in - let tid = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 48081 "parsing/parser.ml" + in + let tid = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 49239 "parsing/parser.ml" - - in - let _4 = - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - -# 3907 "parsing/parser.mly" +# 48091 "parsing/parser.ml" + + in + let _4 = + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + let _loc = (_startpos, _endpos) in + +# 3891 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 49250 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 48102 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 49258 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 48110 "parsing/parser.ml" -# 3378 "parsing/parser.mly" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3362 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 49270 "parsing/parser.ml" - - in - -# 3361 "parsing/parser.mly" - ( _1 ) -# 49276 "parsing/parser.ml" +# 48122 "parsing/parser.ml" in -# 1520 "parsing/parser.mly" - ( pstr_typext _1 ) -# 49282 "parsing/parser.ml" +# 3345 "parsing/parser.mly" + ( _1 ) +# 48128 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1039 "parsing/parser.mly" - ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49292 "parsing/parser.ml" +# 1504 "parsing/parser.mly" + ( pstr_typext _1 ) +# 48134 "parsing/parser.ml" in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 49298 "parsing/parser.ml" - : (Parsetree.structure_item)) + let _endpos__1_ = _endpos__1_inlined4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" + ( wrap_mkstr_ext ~loc:_sloc _1 ) +# 48144 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 48150 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49317,28 +48168,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1522 "parsing/parser.mly" + let _v : (Parsetree.structure_item) = let _1 = + let _1 = +# 1506 "parsing/parser.mly" ( pstr_exception _1 ) -# 49326 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1039 "parsing/parser.mly" +# 48176 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49334 "parsing/parser.ml" - - in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 49340 "parsing/parser.ml" - : (Parsetree.structure_item)) +# 48184 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 48190 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49394,73 +48243,71 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = + let _v : (Parsetree.structure_item) = let _1 = let _1 = let _1 = - let _1 = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 49407 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let name = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 49419 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 49427 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 48255 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let name = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1548 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 48267 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 48275 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1532 "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 ) -# 49440 "parsing/parser.ml" - - in - -# 1524 "parsing/parser.mly" - ( _1 ) -# 49446 "parsing/parser.ml" +# 48288 "parsing/parser.ml" in - let _endpos__1_ = _endpos__1_inlined3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1039 "parsing/parser.mly" - ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49456 "parsing/parser.ml" +# 1508 "parsing/parser.mly" + ( _1 ) +# 48294 "parsing/parser.ml" in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 49462 "parsing/parser.ml" - : (Parsetree.structure_item)) + let _endpos__1_ = _endpos__1_inlined3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" + ( wrap_mkstr_ext ~loc:_sloc _1 ) +# 48304 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 48310 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49530,45 +48377,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_bs_ in - let _v = + let _v : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let a = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 49545 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let name = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 49557 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let a = + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 49565 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 48391 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let name = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1583 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 48403 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 48411 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1567 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in @@ -49576,43 +48422,42 @@ module Tables = struct ext, Mb.mk name body ~attrs ~loc ~docs ) -# 49580 "parsing/parser.ml" - - in - -# 1214 "parsing/parser.mly" - ( let (x, b) = a in x, b :: bs ) -# 49586 "parsing/parser.ml" +# 48426 "parsing/parser.ml" in -# 1571 "parsing/parser.mly" - ( _1 ) -# 49592 "parsing/parser.ml" +# 1198 "parsing/parser.mly" + ( let (x, b) = a in x, b :: bs ) +# 48432 "parsing/parser.ml" in -# 1526 "parsing/parser.mly" - ( pstr_recmodule _1 ) -# 49598 "parsing/parser.ml" +# 1555 "parsing/parser.mly" + ( _1 ) +# 48438 "parsing/parser.ml" in - let _endpos__1_ = _endpos_bs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1039 "parsing/parser.mly" - ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49608 "parsing/parser.ml" +# 1510 "parsing/parser.mly" + ( pstr_recmodule _1 ) +# 48444 "parsing/parser.ml" in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 49614 "parsing/parser.ml" - : (Parsetree.structure_item)) + let _endpos__1_ = _endpos_bs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" + ( wrap_mkstr_ext ~loc:_sloc _1 ) +# 48454 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 48460 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49633,28 +48478,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1528 "parsing/parser.mly" + let _v : (Parsetree.structure_item) = let _1 = + let _1 = +# 1512 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_modtype body, ext) ) -# 49642 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1039 "parsing/parser.mly" +# 48486 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49650 "parsing/parser.ml" - - in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 49656 "parsing/parser.ml" - : (Parsetree.structure_item)) +# 48494 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 48500 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49675,28 +48518,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1530 "parsing/parser.mly" + let _v : (Parsetree.structure_item) = let _1 = + let _1 = +# 1514 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_open body, ext) ) -# 49684 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1039 "parsing/parser.mly" +# 48526 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49692 "parsing/parser.ml" - - in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 49698 "parsing/parser.ml" - : (Parsetree.structure_item)) +# 48534 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 48540 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49765,9 +48606,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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 49771 "parsing/parser.ml" +# 48612 "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 @@ -49777,45 +48618,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_bs_ in - let _v = + let _v : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let _1 = - let _1 = - let a = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 49792 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 49804 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let a = + let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 49812 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 48632 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1928 "parsing/parser.mly" +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 48644 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 48652 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1912 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -49823,43 +48663,42 @@ module Tables = struct ext, Ci.mk id body ~virt ~params ~attrs ~loc ~docs ) -# 49827 "parsing/parser.ml" - - in - -# 1214 "parsing/parser.mly" - ( let (x, b) = a in x, b :: bs ) -# 49833 "parsing/parser.ml" +# 48667 "parsing/parser.ml" in -# 1917 "parsing/parser.mly" - ( _1 ) -# 49839 "parsing/parser.ml" +# 1198 "parsing/parser.mly" + ( let (x, b) = a in x, b :: bs ) +# 48673 "parsing/parser.ml" in -# 1532 "parsing/parser.mly" - ( let (ext, l) = _1 in (Pstr_class l, ext) ) -# 49845 "parsing/parser.ml" +# 1901 "parsing/parser.mly" + ( _1 ) +# 48679 "parsing/parser.ml" in - let _endpos__1_ = _endpos_bs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1039 "parsing/parser.mly" - ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49855 "parsing/parser.ml" +# 1516 "parsing/parser.mly" + ( let (ext, l) = _1 in (Pstr_class l, ext) ) +# 48685 "parsing/parser.ml" in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 49861 "parsing/parser.ml" - : (Parsetree.structure_item)) + let _endpos__1_ = _endpos_bs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" + ( wrap_mkstr_ext ~loc:_sloc _1 ) +# 48695 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 48701 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49880,28 +48719,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 1534 "parsing/parser.mly" + let _v : (Parsetree.structure_item) = let _1 = + let _1 = +# 1518 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class_type l, ext) ) -# 49889 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1039 "parsing/parser.mly" +# 48727 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49897 "parsing/parser.ml" - - in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 49903 "parsing/parser.ml" - : (Parsetree.structure_item)) +# 48735 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 48741 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49950,60 +48787,58 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_attrs0_ in let _endpos = _endpos__1_inlined1_ in - let _v = + let _v : (Parsetree.structure_item) = let _1 = let _1 = let _1 = - let _1 = - let attrs2 = - let _1 = _1_inlined1 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 49963 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined1_ in - let attrs1 = -# 4077 "parsing/parser.mly" + let attrs2 = + let _1 = _1_inlined1 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 49970 "parsing/parser.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos_attrs0_ in - let _sloc = (_symbolstartpos, _endpos) in +# 48799 "parsing/parser.ml" -# 1627 "parsing/parser.mly" + in + let _endpos_attrs2_ = _endpos__1_inlined1_ in + let attrs1 = +# 4061 "parsing/parser.mly" + ( _1 ) +# 48806 "parsing/parser.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos_attrs0_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1611 "parsing/parser.mly" ( let attrs = attrs0 @ attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Incl.mk thing ~attrs ~loc ~docs, ext ) -# 49983 "parsing/parser.ml" - - in - -# 1536 "parsing/parser.mly" - ( pstr_include _1 ) -# 49989 "parsing/parser.ml" +# 48819 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_attrs0_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1039 "parsing/parser.mly" - ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49999 "parsing/parser.ml" +# 1520 "parsing/parser.mly" + ( pstr_include _1 ) +# 48825 "parsing/parser.ml" in - ( -# 1538 "parsing/parser.mly" - ( _1 ) -# 50005 "parsing/parser.ml" - : (Parsetree.structure_item)) + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_attrs0_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1023 "parsing/parser.mly" + ( wrap_mkstr_ext ~loc:_sloc _1 ) +# 48835 "parsing/parser.ml" + in + +# 1522 "parsing/parser.mly" + ( _1 ) +# 48841 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50025,9 +48860,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 3981 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( "-" ) -# 50031 "parsing/parser.ml" +# 48866 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50050,9 +48885,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 3982 "parsing/parser.mly" +# 3966 "parsing/parser.mly" ( "-." ) -# 50056 "parsing/parser.ml" +# 48891 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50102,56 +48937,54 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let _5 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" - ( _1 ) -# 50112 "parsing/parser.ml" - - in - let _endpos__5_ = _endpos__1_inlined1_ in - let _4 = - let _1 = - let xs = -# 250 "" - ( List.rev xs ) -# 50121 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" - ( xs ) -# 50126 "parsing/parser.ml" - - in - -# 3678 "parsing/parser.mly" + let _v : (Parsetree.row_field) = let _5 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 50132 "parsing/parser.ml" - - in +# 48946 "parsing/parser.ml" + + in + let _endpos__5_ = _endpos__1_inlined1_ in + let _4 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in + let xs = +# 253 "" + ( List.rev xs ) +# 48955 "parsing/parser.ml" + in -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 50142 "parsing/parser.ml" +# 1101 "parsing/parser.mly" + ( xs ) +# 48960 "parsing/parser.ml" in - let _endpos = _endpos__5_ in + +# 3662 "parsing/parser.mly" + ( _1 ) +# 48966 "parsing/parser.ml" + + in + let _1 = + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3664 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 48976 "parsing/parser.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3648 "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 ) -# 50153 "parsing/parser.ml" - : (Parsetree.row_field)) - in +# 48987 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50179,37 +49012,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.row_field) = let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 50189 "parsing/parser.ml" - - in - let _endpos__2_ = _endpos__1_inlined1_ in - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 50200 "parsing/parser.ml" - - in - let _endpos = _endpos__2_ in +# 49021 "parsing/parser.ml" + + in + let _endpos__2_ = _endpos__1_inlined1_ in + let _1 = + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3668 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 49032 "parsing/parser.ml" + + in + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3652 "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 [] ) -# 50211 "parsing/parser.ml" - : (Parsetree.row_field)) - in +# 49043 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50237,33 +49068,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v = - let arg = -# 121 "" + let _v : (Parsetree.toplevel_phrase) = let arg = +# 124 "" ( None ) -# 50245 "parsing/parser.ml" - in - let _endpos_arg_ = _endpos__1_inlined1_ in - let dir = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 50256 "parsing/parser.ml" - - in - let _endpos = _endpos_arg_ in +# 49075 "parsing/parser.ml" + in + let _endpos_arg_ = _endpos__1_inlined1_ in + let dir = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3868 "parsing/parser.mly" - ( mk_directive ~loc:_sloc dir arg ) -# 50265 "parsing/parser.ml" - : (Parsetree.toplevel_phrase)) + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 49086 "parsing/parser.ml" + in + let _endpos = _endpos_arg_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3852 "parsing/parser.mly" + ( mk_directive ~loc:_sloc dir arg ) +# 49095 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50293,60 +49122,58 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 837 "parsing/parser.mly" +# 821 "parsing/parser.mly" (string * Location.t * string option) -# 50299 "parsing/parser.ml" +# 49128 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let arg = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let x = - let _1 = -# 3872 "parsing/parser.mly" + let _v : (Parsetree.toplevel_phrase) = let arg = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let x = + let _1 = +# 3856 "parsing/parser.mly" ( let (s, _, _) = _1 in Pdir_string s ) -# 50313 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1044 "parsing/parser.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50321 "parsing/parser.ml" - - in - -# 123 "" - ( Some x ) -# 50327 "parsing/parser.ml" - - in - let _endpos_arg_ = _endpos__1_inlined2_ in - let dir = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in +# 49141 "parsing/parser.ml" + in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 50339 "parsing/parser.ml" +# 1028 "parsing/parser.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 49149 "parsing/parser.ml" in - let _endpos = _endpos_arg_ in + +# 126 "" + ( Some x ) +# 49155 "parsing/parser.ml" + + in + let _endpos_arg_ = _endpos__1_inlined2_ in + let dir = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3868 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 49167 "parsing/parser.ml" + + in + let _endpos = _endpos_arg_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3852 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50348 "parsing/parser.ml" - : (Parsetree.toplevel_phrase)) - in +# 49176 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50376,60 +49203,58 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 783 "parsing/parser.mly" +# 767 "parsing/parser.mly" (string * char option) -# 50382 "parsing/parser.ml" +# 49209 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let arg = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let x = - let _1 = -# 3873 "parsing/parser.mly" + let _v : (Parsetree.toplevel_phrase) = let arg = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let x = + let _1 = +# 3857 "parsing/parser.mly" ( let (n, m) = _1 in Pdir_int (n ,m) ) -# 50396 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1044 "parsing/parser.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50404 "parsing/parser.ml" - - in - -# 123 "" - ( Some x ) -# 50410 "parsing/parser.ml" - - in - let _endpos_arg_ = _endpos__1_inlined2_ in - let dir = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in +# 49222 "parsing/parser.ml" + in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 50422 "parsing/parser.ml" +# 1028 "parsing/parser.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 49230 "parsing/parser.ml" in - let _endpos = _endpos_arg_ in + +# 126 "" + ( Some x ) +# 49236 "parsing/parser.ml" + + in + let _endpos_arg_ = _endpos__1_inlined2_ in + let dir = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3868 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 49248 "parsing/parser.ml" + + in + let _endpos = _endpos_arg_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3852 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50431 "parsing/parser.ml" - : (Parsetree.toplevel_phrase)) - in +# 49257 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50464,51 +49289,49 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let arg = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let x = - let _1 = -# 3874 "parsing/parser.mly" + let _v : (Parsetree.toplevel_phrase) = let arg = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let x = + let _1 = +# 3858 "parsing/parser.mly" ( Pdir_ident _1 ) -# 50475 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1044 "parsing/parser.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50483 "parsing/parser.ml" - - in - -# 123 "" - ( Some x ) -# 50489 "parsing/parser.ml" - - in - let _endpos_arg_ = _endpos__1_inlined2_ in - let dir = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in +# 49299 "parsing/parser.ml" + in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 50501 "parsing/parser.ml" +# 1028 "parsing/parser.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 49307 "parsing/parser.ml" in - let _endpos = _endpos_arg_ in + +# 126 "" + ( Some x ) +# 49313 "parsing/parser.ml" + + in + let _endpos_arg_ = _endpos__1_inlined2_ in + let dir = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3868 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 49325 "parsing/parser.ml" + + in + let _endpos = _endpos_arg_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3852 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50510 "parsing/parser.ml" - : (Parsetree.toplevel_phrase)) - in +# 49334 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50543,51 +49366,49 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let arg = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let x = - let _1 = -# 3875 "parsing/parser.mly" + let _v : (Parsetree.toplevel_phrase) = let arg = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let x = + let _1 = +# 3859 "parsing/parser.mly" ( Pdir_ident _1 ) -# 50554 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1044 "parsing/parser.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50562 "parsing/parser.ml" - - in - -# 123 "" - ( Some x ) -# 50568 "parsing/parser.ml" - - in - let _endpos_arg_ = _endpos__1_inlined2_ in - let dir = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in +# 49376 "parsing/parser.ml" + in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 50580 "parsing/parser.ml" +# 1028 "parsing/parser.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 49384 "parsing/parser.ml" in - let _endpos = _endpos_arg_ in + +# 126 "" + ( Some x ) +# 49390 "parsing/parser.ml" + + in + let _endpos_arg_ = _endpos__1_inlined2_ in + let dir = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3868 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 49402 "parsing/parser.ml" + + in + let _endpos = _endpos_arg_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3852 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50589 "parsing/parser.ml" - : (Parsetree.toplevel_phrase)) - in +# 49411 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50622,51 +49443,49 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let arg = - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in - let x = - let _1 = -# 3876 "parsing/parser.mly" + let _v : (Parsetree.toplevel_phrase) = let arg = + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in + let x = + let _1 = +# 3860 "parsing/parser.mly" ( Pdir_bool false ) -# 50633 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1044 "parsing/parser.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50641 "parsing/parser.ml" - - in - -# 123 "" - ( Some x ) -# 50647 "parsing/parser.ml" - - in - let _endpos_arg_ = _endpos__1_inlined2_ in - let dir = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in +# 49453 "parsing/parser.ml" + in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 50659 "parsing/parser.ml" +# 1028 "parsing/parser.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 49461 "parsing/parser.ml" in - let _endpos = _endpos_arg_ in + +# 126 "" + ( Some x ) +# 49467 "parsing/parser.ml" + + in + let _endpos_arg_ = _endpos__1_inlined2_ in + let dir = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3868 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 49479 "parsing/parser.ml" + + in + let _endpos = _endpos_arg_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3852 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50668 "parsing/parser.ml" - : (Parsetree.toplevel_phrase)) - in +# 49488 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50701,51 +49520,49 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let arg = - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in - let x = - let _1 = -# 3877 "parsing/parser.mly" + let _v : (Parsetree.toplevel_phrase) = let arg = + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in + let x = + let _1 = +# 3861 "parsing/parser.mly" ( Pdir_bool true ) -# 50712 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1044 "parsing/parser.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50720 "parsing/parser.ml" - - in - -# 123 "" - ( Some x ) -# 50726 "parsing/parser.ml" - - in - let _endpos_arg_ = _endpos__1_inlined2_ in - let dir = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in +# 49530 "parsing/parser.ml" + in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 50738 "parsing/parser.ml" +# 1028 "parsing/parser.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 49538 "parsing/parser.ml" in - let _endpos = _endpos_arg_ in + +# 126 "" + ( Some x ) +# 49544 "parsing/parser.ml" + + in + let _endpos_arg_ = _endpos__1_inlined2_ in + let dir = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3868 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 49556 "parsing/parser.ml" + + in + let _endpos = _endpos_arg_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3852 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50747 "parsing/parser.ml" - : (Parsetree.toplevel_phrase)) - in +# 49565 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50780,44 +49597,42 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e_ in let _endpos = _endpos__2_ in - let _v = + let _v : (Parsetree.toplevel_phrase) = let _1 = let _1 = let _1 = - let _1 = - let attrs = -# 4073 "parsing/parser.mly" + let attrs = +# 4057 "parsing/parser.mly" ( _1 ) -# 50791 "parsing/parser.ml" - in - -# 1489 "parsing/parser.mly" - ( mkstrexp e attrs ) -# 50796 "parsing/parser.ml" - - in - let _startpos__1_ = _startpos_e_ in - let _startpos = _startpos__1_ in +# 49607 "parsing/parser.ml" + in -# 987 "parsing/parser.mly" - ( text_str _startpos @ [_1] ) -# 50804 "parsing/parser.ml" +# 1473 "parsing/parser.mly" + ( mkstrexp e attrs ) +# 49612 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in - let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 975 "parsing/parser.mly" - ( extra_str _startpos _endpos _1 ) -# 50813 "parsing/parser.ml" +# 971 "parsing/parser.mly" + ( text_str _startpos @ [_1] ) +# 49620 "parsing/parser.ml" in - ( -# 1254 "parsing/parser.mly" - ( Ptop_def _1 ) -# 50819 "parsing/parser.ml" - : (Parsetree.toplevel_phrase)) + let _startpos__1_ = _startpos_e_ in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + +# 959 "parsing/parser.mly" + ( extra_str _startpos _endpos _1 ) +# 49629 "parsing/parser.ml" + in + +# 1238 "parsing/parser.mly" + ( Ptop_def _1 ) +# 49635 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50845,28 +49660,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos__2_ in - let _v = - let _1 = - let _1 = -# 257 "" + let _v : (Parsetree.toplevel_phrase) = let _1 = + let _1 = +# 260 "" ( List.flatten xss ) -# 50854 "parsing/parser.ml" - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - -# 975 "parsing/parser.mly" +# 49668 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + +# 959 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 50862 "parsing/parser.ml" - - in - ( -# 1258 "parsing/parser.mly" - ( Ptop_def _1 ) -# 50868 "parsing/parser.ml" - : (Parsetree.toplevel_phrase)) +# 49676 "parsing/parser.ml" + in + +# 1242 "parsing/parser.mly" + ( Ptop_def _1 ) +# 49682 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50895,9 +49708,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.toplevel_phrase) = -# 1262 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( _1 ) -# 50901 "parsing/parser.ml" +# 49714 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50920,9 +49733,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.toplevel_phrase) = -# 1265 "parsing/parser.mly" +# 1249 "parsing/parser.mly" ( raise End_of_file ) -# 50926 "parsing/parser.ml" +# 49739 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50945,9 +49758,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3570 "parsing/parser.mly" +# 3554 "parsing/parser.mly" ( ty ) -# 50951 "parsing/parser.ml" +# 49764 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50969,43 +49782,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in - let _v = + let _v : (Parsetree.core_type) = let _1 = let _1 = - let _1 = - let tys = - let xs = -# 250 "" + let tys = + let xs = +# 253 "" ( List.rev xs ) -# 50980 "parsing/parser.ml" - in - -# 1145 "parsing/parser.mly" - ( xs ) -# 50985 "parsing/parser.ml" - - in +# 49792 "parsing/parser.ml" + in -# 3573 "parsing/parser.mly" - ( Ptyp_tuple tys ) -# 50991 "parsing/parser.ml" +# 1129 "parsing/parser.mly" + ( xs ) +# 49797 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in -# 1020 "parsing/parser.mly" - ( mktyp ~loc:_sloc _1 ) -# 51001 "parsing/parser.ml" +# 3557 "parsing/parser.mly" + ( Ptyp_tuple tys ) +# 49803 "parsing/parser.ml" in - ( -# 3575 "parsing/parser.mly" - ( _1 ) -# 51007 "parsing/parser.ml" - : (Parsetree.core_type)) + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" + ( mktyp ~loc:_sloc _1 ) +# 49813 "parsing/parser.ml" + in + +# 3559 "parsing/parser.mly" + ( _1 ) +# 49819 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51034,9 +49845,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2853 "parsing/parser.mly" +# 2837 "parsing/parser.mly" ( (Some _2, None) ) -# 51040 "parsing/parser.ml" +# 49851 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51080,9 +49891,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2854 "parsing/parser.mly" +# 2838 "parsing/parser.mly" ( (Some _2, Some _4) ) -# 51086 "parsing/parser.ml" +# 49897 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51112,9 +49923,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2855 "parsing/parser.mly" +# 2839 "parsing/parser.mly" ( (None, Some _2) ) -# 51118 "parsing/parser.ml" +# 49929 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51144,9 +49955,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2856 "parsing/parser.mly" +# 2840 "parsing/parser.mly" ( syntax_error() ) -# 51150 "parsing/parser.ml" +# 49961 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51176,9 +49987,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 2857 "parsing/parser.mly" +# 2841 "parsing/parser.mly" ( syntax_error() ) -# 51182 "parsing/parser.ml" +# 49993 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51194,9 +50005,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) = -# 3186 "parsing/parser.mly" +# 3170 "parsing/parser.mly" ( (Ptype_abstract, Public, None) ) -# 51200 "parsing/parser.ml" +# 50011 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51226,9 +50037,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) = -# 3188 "parsing/parser.mly" +# 3172 "parsing/parser.mly" ( _2 ) -# 51232 "parsing/parser.ml" +# 50043 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51251,9 +50062,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3829 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( _1 ) -# 51257 "parsing/parser.ml" +# 50068 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51283,9 +50094,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = -# 3203 "parsing/parser.mly" +# 3187 "parsing/parser.mly" ( _2, _1 ) -# 51289 "parsing/parser.ml" +# 50100 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51301,9 +50112,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) = -# 3196 "parsing/parser.mly" +# 3180 "parsing/parser.mly" ( [] ) -# 51307 "parsing/parser.ml" +# 50118 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51326,9 +50137,9 @@ module Tables = struct let _startpos = _startpos_p_ in let _endpos = _endpos_p_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = -# 3198 "parsing/parser.mly" +# 3182 "parsing/parser.mly" ( [p] ) -# 51332 "parsing/parser.ml" +# 50143 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51364,25 +50175,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let ps = - let xs = -# 250 "" + let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let ps = + let xs = +# 253 "" ( List.rev xs ) -# 51373 "parsing/parser.ml" - in - -# 1117 "parsing/parser.mly" +# 50183 "parsing/parser.ml" + in + +# 1101 "parsing/parser.mly" ( xs ) -# 51378 "parsing/parser.ml" - - in - ( -# 3200 "parsing/parser.mly" - ( ps ) -# 51384 "parsing/parser.ml" - : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) +# 50188 "parsing/parser.ml" + in + +# 3184 "parsing/parser.mly" + ( ps ) +# 50194 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51410,29 +50219,27 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_tyvar_ in - let _v = - let _1 = - let _1 = -# 3208 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = + let _1 = +# 3192 "parsing/parser.mly" ( Ptyp_var tyvar ) -# 51419 "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 - -# 1020 "parsing/parser.mly" +# 50227 "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 + +# 1004 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51428 "parsing/parser.ml" - - in - ( -# 3211 "parsing/parser.mly" - ( _1 ) -# 51434 "parsing/parser.ml" - : (Parsetree.core_type)) +# 50236 "parsing/parser.ml" + in + +# 3195 "parsing/parser.mly" + ( _1 ) +# 50242 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51453,28 +50260,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v = - let _1 = - let _1 = -# 3210 "parsing/parser.mly" + let _v : (Parsetree.core_type) = let _1 = + let _1 = +# 3194 "parsing/parser.mly" ( Ptyp_any ) -# 51462 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1020 "parsing/parser.mly" +# 50268 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1004 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51470 "parsing/parser.ml" - - in - ( -# 3211 "parsing/parser.mly" - ( _1 ) -# 51476 "parsing/parser.ml" - : (Parsetree.core_type)) +# 50276 "parsing/parser.ml" + in + +# 3195 "parsing/parser.mly" + ( _1 ) +# 50282 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51489,9 +50294,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3215 "parsing/parser.mly" +# 3199 "parsing/parser.mly" ( NoVariance, NoInjectivity ) -# 51495 "parsing/parser.ml" +# 50300 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51514,9 +50319,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3216 "parsing/parser.mly" +# 3200 "parsing/parser.mly" ( Covariant, NoInjectivity ) -# 51520 "parsing/parser.ml" +# 50325 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51539,9 +50344,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3217 "parsing/parser.mly" +# 3201 "parsing/parser.mly" ( Contravariant, NoInjectivity ) -# 51545 "parsing/parser.ml" +# 50350 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51564,9 +50369,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3218 "parsing/parser.mly" +# 3202 "parsing/parser.mly" ( NoVariance, Injective ) -# 51570 "parsing/parser.ml" +# 50375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51596,9 +50401,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3219 "parsing/parser.mly" +# 3203 "parsing/parser.mly" ( Covariant, Injective ) -# 51602 "parsing/parser.ml" +# 50407 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51628,9 +50433,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3219 "parsing/parser.mly" +# 3203 "parsing/parser.mly" ( Covariant, Injective ) -# 51634 "parsing/parser.ml" +# 50439 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51660,9 +50465,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3220 "parsing/parser.mly" +# 3204 "parsing/parser.mly" ( Contravariant, Injective ) -# 51666 "parsing/parser.ml" +# 50471 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51692,9 +50497,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3220 "parsing/parser.mly" +# 3204 "parsing/parser.mly" ( Contravariant, Injective ) -# 51698 "parsing/parser.ml" +# 50503 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51713,23 +50518,21 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 775 "parsing/parser.mly" +# 759 "parsing/parser.mly" (string) -# 51719 "parsing/parser.ml" +# 50524 "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 = - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 3222 "parsing/parser.mly" + let _v : (Asttypes.variance * Asttypes.injectivity) = let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 3206 "parsing/parser.mly" ( if _1 = "+!" then Covariant, Injective else if _1 = "-!" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 51731 "parsing/parser.ml" - : (Asttypes.variance * Asttypes.injectivity)) - in +# 50535 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51747,23 +50550,21 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 823 "parsing/parser.mly" +# 807 "parsing/parser.mly" (string) -# 51753 "parsing/parser.ml" +# 50556 "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 = - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 3226 "parsing/parser.mly" + let _v : (Asttypes.variance * Asttypes.injectivity) = let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 3210 "parsing/parser.mly" ( if _1 = "!+" then Covariant, Injective else if _1 = "!-" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 51765 "parsing/parser.ml" - : (Asttypes.variance * Asttypes.injectivity)) - in +# 50567 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51791,47 +50592,45 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos__2_ in - let _v = + let _v : (Parsetree.toplevel_phrase list) = let _1 = let _1 = - let _1 = - let ys = -# 257 "" + let ys = +# 260 "" ( List.flatten xss ) -# 51801 "parsing/parser.ml" - in - let xs = - let _1 = -# 1053 "parsing/parser.mly" +# 50601 "parsing/parser.ml" + in + let xs = + let _1 = +# 1037 "parsing/parser.mly" ( [] ) -# 51807 "parsing/parser.ml" - in - -# 1285 "parsing/parser.mly" - ( _1 ) -# 51812 "parsing/parser.ml" - - in +# 50607 "parsing/parser.ml" + in -# 264 "" - ( xs @ ys ) -# 51818 "parsing/parser.ml" +# 1269 "parsing/parser.mly" + ( _1 ) +# 50612 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in -# 979 "parsing/parser.mly" - ( extra_def _startpos _endpos _1 ) -# 51827 "parsing/parser.ml" +# 267 "" + ( xs @ ys ) +# 50618 "parsing/parser.ml" in - ( -# 1278 "parsing/parser.mly" - ( _1 ) -# 51833 "parsing/parser.ml" - : (Parsetree.toplevel_phrase list)) + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + +# 963 "parsing/parser.mly" + ( extra_def _startpos _endpos _1 ) +# 50627 "parsing/parser.ml" + in + +# 1262 "parsing/parser.mly" + ( _1 ) +# 50633 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51873,77 +50672,75 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e_ in let _endpos = _endpos__2_ in - let _v = + let _v : (Parsetree.toplevel_phrase list) = let _1 = let _1 = - let _1 = - let ys = -# 257 "" + let ys = +# 260 "" ( List.flatten xss ) -# 51883 "parsing/parser.ml" - in - let xs = - let _1 = - let x = +# 50681 "parsing/parser.ml" + in + let xs = + let _1 = + let x = + let _1 = let _1 = - let _1 = - let attrs = -# 4073 "parsing/parser.mly" - ( _1 ) -# 51893 "parsing/parser.ml" - in - -# 1489 "parsing/parser.mly" - ( mkstrexp e attrs ) -# 51898 "parsing/parser.ml" - - in + let attrs = +# 4057 "parsing/parser.mly" + ( _1 ) +# 50691 "parsing/parser.ml" + in -# 997 "parsing/parser.mly" - ( Ptop_def [_1] ) -# 51904 "parsing/parser.ml" +# 1473 "parsing/parser.mly" + ( mkstrexp e attrs ) +# 50696 "parsing/parser.ml" in - let _startpos__1_ = _startpos_e_ in - let _startpos = _startpos__1_ in -# 995 "parsing/parser.mly" - ( text_def _startpos @ [_1] ) -# 51912 "parsing/parser.ml" +# 981 "parsing/parser.mly" + ( Ptop_def [_1] ) +# 50702 "parsing/parser.ml" in + let _startpos__1_ = _startpos_e_ in + let _startpos = _startpos__1_ in -# 1055 "parsing/parser.mly" - ( x ) -# 51918 "parsing/parser.ml" +# 979 "parsing/parser.mly" + ( text_def _startpos @ [_1] ) +# 50710 "parsing/parser.ml" in -# 1285 "parsing/parser.mly" - ( _1 ) -# 51924 "parsing/parser.ml" +# 1039 "parsing/parser.mly" + ( x ) +# 50716 "parsing/parser.ml" in -# 264 "" - ( xs @ ys ) -# 51930 "parsing/parser.ml" +# 1269 "parsing/parser.mly" + ( _1 ) +# 50722 "parsing/parser.ml" in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in -# 979 "parsing/parser.mly" - ( extra_def _startpos _endpos _1 ) -# 51939 "parsing/parser.ml" +# 267 "" + ( xs @ ys ) +# 50728 "parsing/parser.ml" in - ( -# 1278 "parsing/parser.mly" - ( _1 ) -# 51945 "parsing/parser.ml" - : (Parsetree.toplevel_phrase list)) + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + +# 963 "parsing/parser.mly" + ( extra_def _startpos _endpos _1 ) +# 50737 "parsing/parser.ml" + in + +# 1262 "parsing/parser.mly" + ( _1 ) +# 50743 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51979,9 +50776,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = -# 3748 "parsing/parser.mly" +# 3732 "parsing/parser.mly" ( _2 ) -# 51985 "parsing/parser.ml" +# 50782 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52017,15 +50814,13 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - ( -# 3749 "parsing/parser.mly" + let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + +# 3733 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 52027 "parsing/parser.ml" - : (Asttypes.label)) - in +# 50823 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52053,14 +50848,12 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v = - let _loc__2_ = (_startpos__2_, _endpos__2_) in - ( -# 3750 "parsing/parser.mly" + let _v : (Asttypes.label) = let _loc__2_ = (_startpos__2_, _endpos__2_) in + +# 3734 "parsing/parser.mly" ( expecting _loc__2_ "operator" ) -# 52062 "parsing/parser.ml" - : (Asttypes.label)) - in +# 50856 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52095,14 +50888,12 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v = - let _loc__3_ = (_startpos__3_, _endpos__3_) in - ( -# 3751 "parsing/parser.mly" + let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in + +# 3735 "parsing/parser.mly" ( expecting _loc__3_ "module-expr" ) -# 52104 "parsing/parser.ml" - : (Asttypes.label)) - in +# 50896 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52120,17 +50911,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 52126 "parsing/parser.ml" +# 50917 "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) = -# 3754 "parsing/parser.mly" +# 3738 "parsing/parser.mly" ( _1 ) -# 52134 "parsing/parser.ml" +# 50925 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52153,9 +50944,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 3755 "parsing/parser.mly" +# 3739 "parsing/parser.mly" ( _1 ) -# 52159 "parsing/parser.ml" +# 50950 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52178,9 +50969,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 3823 "parsing/parser.mly" +# 3807 "parsing/parser.mly" ( _1 ) -# 52184 "parsing/parser.ml" +# 50975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52225,50 +51016,48 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 52231 "parsing/parser.ml" +# 51022 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let mutable_ : (Asttypes.mutable_flag) = Obj.magic mutable_ in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_ty_ in - let _v = - let label = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = -# 3722 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let label = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 52244 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 51036 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 52252 "parsing/parser.ml" - - in - let attrs = -# 4077 "parsing/parser.mly" +# 51044 "parsing/parser.ml" + + in + let attrs = +# 4061 "parsing/parser.mly" ( _1 ) -# 52258 "parsing/parser.ml" - in - let _1 = -# 3974 "parsing/parser.mly" +# 51050 "parsing/parser.ml" + in + let _1 = +# 3958 "parsing/parser.mly" ( Fresh ) -# 52263 "parsing/parser.ml" - in - ( -# 2068 "parsing/parser.mly" +# 51055 "parsing/parser.ml" + in + +# 2052 "parsing/parser.mly" ( (label, mutable_, Cfk_virtual ty), attrs ) -# 52268 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 51060 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52312,50 +51101,48 @@ module Tables = struct let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 52318 "parsing/parser.ml" +# 51107 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = -# 3722 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 52331 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 51121 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 52339 "parsing/parser.ml" - - in - let _2 = -# 4077 "parsing/parser.mly" +# 51129 "parsing/parser.ml" + + in + let _2 = +# 4061 "parsing/parser.mly" ( _1 ) -# 52345 "parsing/parser.ml" - in - let _1 = -# 3977 "parsing/parser.mly" +# 51135 "parsing/parser.ml" + in + let _1 = +# 3961 "parsing/parser.mly" ( Fresh ) -# 52350 "parsing/parser.ml" - in - ( -# 2070 "parsing/parser.mly" +# 51140 "parsing/parser.ml" + in + +# 2054 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 52355 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 51145 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52405,9 +51192,9 @@ module Tables = struct let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 52411 "parsing/parser.ml" +# 51198 "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 @@ -52415,44 +51202,42 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _1 = -# 3722 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 52425 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 51213 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 52433 "parsing/parser.ml" - - in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 51221 "parsing/parser.ml" + + in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 52441 "parsing/parser.ml" - - in - let _1 = -# 3978 "parsing/parser.mly" +# 51229 "parsing/parser.ml" + + in + let _1 = +# 3962 "parsing/parser.mly" ( Override ) -# 52447 "parsing/parser.ml" - in - ( -# 2070 "parsing/parser.mly" +# 51235 "parsing/parser.ml" + in + +# 2054 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 52452 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 51240 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52503,67 +51288,65 @@ 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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 52509 "parsing/parser.ml" +# 51294 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = -# 3722 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 52522 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 51308 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 52530 "parsing/parser.ml" - - in - let _startpos__4_ = _startpos__1_inlined1_ in - let _2 = -# 4077 "parsing/parser.mly" +# 51316 "parsing/parser.ml" + + in + let _startpos__4_ = _startpos__1_inlined1_ in + let _2 = +# 4061 "parsing/parser.mly" ( _1 ) -# 52537 "parsing/parser.ml" - in - let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in - let _1 = -# 3977 "parsing/parser.mly" +# 51323 "parsing/parser.ml" + in + let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in + let _1 = +# 3961 "parsing/parser.mly" ( Fresh ) -# 52543 "parsing/parser.ml" - in - let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in - let _endpos = _endpos__7_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ +# 51329 "parsing/parser.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in + let _endpos = _endpos__7_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + if _startpos__2_ != _endpos__2_ then + _startpos__2_ else - if _startpos__2_ != _endpos__2_ then - _startpos__2_ + if _startpos__3_ != _endpos__3_ then + _startpos__3_ else - if _startpos__3_ != _endpos__3_ then - _startpos__3_ - else - _startpos__4_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2073 "parsing/parser.mly" + _startpos__4_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2057 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 52563 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 51349 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52620,9 +51403,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 : ( -# 797 "parsing/parser.mly" +# 781 "parsing/parser.mly" (string) -# 52626 "parsing/parser.ml" +# 51409 "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 @@ -52630,60 +51413,58 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _1 = -# 3722 "parsing/parser.mly" + let _v : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * + Parsetree.class_field_kind) * + Parsetree.attributes) = let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _1 = +# 3706 "parsing/parser.mly" ( _1 ) -# 52640 "parsing/parser.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 51424 "parsing/parser.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 52648 "parsing/parser.ml" - - in - let _startpos__4_ = _startpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" +# 51432 "parsing/parser.ml" + + in + let _startpos__4_ = _startpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" ( _1 ) -# 52657 "parsing/parser.ml" - - in - let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in - let _1 = -# 3978 "parsing/parser.mly" +# 51441 "parsing/parser.ml" + + in + let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in + let _1 = +# 3962 "parsing/parser.mly" ( Override ) -# 52664 "parsing/parser.ml" - in - let _endpos = _endpos__7_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ +# 51448 "parsing/parser.ml" + in + let _endpos = _endpos__7_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + if _startpos__2_ != _endpos__2_ then + _startpos__2_ else - if _startpos__2_ != _endpos__2_ then - _startpos__2_ + if _startpos__3_ != _endpos__3_ then + _startpos__3_ else - if _startpos__3_ != _endpos__3_ then - _startpos__3_ - else - _startpos__4_ in - let _sloc = (_symbolstartpos, _endpos) in - ( -# 2073 "parsing/parser.mly" + _startpos__4_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2057 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 52683 "parsing/parser.ml" - : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * - Parsetree.class_field_kind) * - Parsetree.attributes)) - in +# 51467 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52746,48 +51527,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v = - let attrs2 = - let _1 = _1_inlined3 in - -# 4073 "parsing/parser.mly" - ( _1 ) -# 52756 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let id = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 52768 "parsing/parser.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - -# 4077 "parsing/parser.mly" + let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = + let _1 = _1_inlined3 in + +# 4057 "parsing/parser.mly" ( _1 ) -# 52776 "parsing/parser.ml" - - in - let _endpos = _endpos_attrs2_ in +# 51536 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let id = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3057 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 51548 "parsing/parser.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + +# 4061 "parsing/parser.mly" + ( _1 ) +# 51556 "parsing/parser.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3041 "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 ) -# 52789 "parsing/parser.ml" - : (Parsetree.value_description * string Asttypes.loc option)) - in +# 51569 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52802,9 +51581,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.virtual_flag) = -# 3938 "parsing/parser.mly" +# 3922 "parsing/parser.mly" ( Concrete ) -# 52808 "parsing/parser.ml" +# 51587 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52827,9 +51606,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.virtual_flag) = -# 3939 "parsing/parser.mly" +# 3923 "parsing/parser.mly" ( Virtual ) -# 52833 "parsing/parser.ml" +# 51612 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52852,9 +51631,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 3962 "parsing/parser.mly" +# 3946 "parsing/parser.mly" ( Immutable ) -# 52858 "parsing/parser.ml" +# 51637 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52884,9 +51663,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 3963 "parsing/parser.mly" +# 3947 "parsing/parser.mly" ( Mutable ) -# 52890 "parsing/parser.ml" +# 51669 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52916,9 +51695,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 3964 "parsing/parser.mly" +# 3948 "parsing/parser.mly" ( Mutable ) -# 52922 "parsing/parser.ml" +# 51701 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52941,9 +51720,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 3969 "parsing/parser.mly" +# 3953 "parsing/parser.mly" ( Public ) -# 52947 "parsing/parser.ml" +# 51726 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52973,9 +51752,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 3970 "parsing/parser.mly" +# 3954 "parsing/parser.mly" ( Private ) -# 52979 "parsing/parser.ml" +# 51758 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53005,9 +51784,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 3971 "parsing/parser.mly" +# 3955 "parsing/parser.mly" ( Private ) -# 53011 "parsing/parser.ml" +# 51790 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53064,51 +51843,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v = - let _6 = - let _1 = - let xs = -# 250 "" + let _v : (Parsetree.with_constraint) = let _6 = + let _1 = + let xs = +# 253 "" ( List.rev xs ) -# 53074 "parsing/parser.ml" - in - -# 1067 "parsing/parser.mly" - ( xs ) -# 53079 "parsing/parser.ml" - - in +# 51852 "parsing/parser.ml" + in -# 3157 "parsing/parser.mly" - ( _1 ) -# 53085 "parsing/parser.ml" +# 1051 "parsing/parser.mly" + ( xs ) +# 51857 "parsing/parser.ml" in - let _endpos__6_ = _endpos_xs_ in - let _5 = - let _1 = _1_inlined2 in - -# 3492 "parsing/parser.mly" + +# 3141 "parsing/parser.mly" ( _1 ) -# 53094 "parsing/parser.ml" - - in - let _3 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 53105 "parsing/parser.ml" - - in - let _endpos = _endpos__6_ in +# 51863 "parsing/parser.ml" + + in + let _endpos__6_ = _endpos_xs_ in + let _5 = + let _1 = _1_inlined2 in + +# 3476 "parsing/parser.mly" + ( _1 ) +# 51872 "parsing/parser.ml" + + in + let _3 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3411 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 51883 "parsing/parser.ml" + + in + let _endpos = _endpos__6_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3395 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_type (_3, @@ -53118,9 +51896,8 @@ module Tables = struct ~manifest:_5 ~priv:_4 ~loc:(make_loc _sloc))) ) -# 53122 "parsing/parser.ml" - : (Parsetree.with_constraint)) - in +# 51900 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53169,32 +51946,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let _5 = - let _1 = _1_inlined2 in - -# 3492 "parsing/parser.mly" + let _v : (Parsetree.with_constraint) = let _5 = + let _1 = _1_inlined2 in + +# 3476 "parsing/parser.mly" ( _1 ) -# 53179 "parsing/parser.ml" - - in - let _endpos__5_ = _endpos__1_inlined2_ in - let _3 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" - ( mkrhs _1 _sloc ) -# 53191 "parsing/parser.ml" - - in - let _endpos = _endpos__5_ in +# 51955 "parsing/parser.ml" + + in + let _endpos__5_ = _endpos__1_inlined2_ in + let _3 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - ( -# 3424 "parsing/parser.mly" + +# 967 "parsing/parser.mly" + ( mkrhs _1 _sloc ) +# 51967 "parsing/parser.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 3408 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_typesubst (_3, @@ -53202,9 +51978,8 @@ module Tables = struct ~params:_2 ~manifest:_5 ~loc:(make_loc _sloc))) ) -# 53206 "parsing/parser.ml" - : (Parsetree.with_constraint)) - in +# 51982 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53246,35 +52021,33 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.with_constraint) = let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53259 "parsing/parser.ml" - - in - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 52033 "parsing/parser.ml" + + in + let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53270 "parsing/parser.ml" - - in - ( -# 3432 "parsing/parser.mly" - ( Pwith_module (_2, _4) ) -# 53276 "parsing/parser.ml" - : (Parsetree.with_constraint)) +# 52044 "parsing/parser.ml" + in + +# 3416 "parsing/parser.mly" + ( Pwith_module (_2, _4) ) +# 52050 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53316,35 +52089,33 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.with_constraint) = let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53329 "parsing/parser.ml" - - in - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" +# 52101 "parsing/parser.ml" + + in + let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53340 "parsing/parser.ml" - - in - ( -# 3434 "parsing/parser.mly" - ( Pwith_modsubst (_2, _4) ) -# 53346 "parsing/parser.ml" - : (Parsetree.with_constraint)) +# 52112 "parsing/parser.ml" + in + +# 3418 "parsing/parser.mly" + ( Pwith_modsubst (_2, _4) ) +# 52118 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53393,24 +52164,22 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_rhs_ in - let _v = - let l = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.with_constraint) = let l = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53406 "parsing/parser.ml" - - in - ( -# 3436 "parsing/parser.mly" - ( Pwith_modtype (l, rhs) ) -# 53412 "parsing/parser.ml" - : (Parsetree.with_constraint)) +# 52176 "parsing/parser.ml" + in + +# 3420 "parsing/parser.mly" + ( Pwith_modtype (l, rhs) ) +# 52182 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53459,24 +52228,22 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_rhs_ in - let _v = - let l = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 983 "parsing/parser.mly" + let _v : (Parsetree.with_constraint) = let l = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 967 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53472 "parsing/parser.ml" - - in - ( -# 3438 "parsing/parser.mly" - ( Pwith_modtypesubst (l, rhs) ) -# 53478 "parsing/parser.ml" - : (Parsetree.with_constraint)) +# 52240 "parsing/parser.ml" + in + +# 3422 "parsing/parser.mly" + ( Pwith_modtypesubst (l, rhs) ) +# 52246 "parsing/parser.ml" + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53498,9 +52265,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 3441 "parsing/parser.mly" +# 3425 "parsing/parser.mly" ( Public ) -# 53504 "parsing/parser.ml" +# 52271 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53530,9 +52297,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 3442 "parsing/parser.mly" +# 3426 "parsing/parser.mly" ( Private ) -# 53536 "parsing/parser.ml" +# 52303 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53682,7 +52449,12 @@ module Incremental = struct end -# 4109 "parsing/parser.mly" +# 4093 "parsing/parser.mly" + + +# 52456 "parsing/parser.ml" + +# 269 "" -# 53689 "parsing/parser.ml" +# 52461 "parsing/parser.ml"