diff --git a/.github/workflows/main.yml b/.github/workflows/main.yml index 825f18c80..803d3c3e0 100644 --- a/.github/workflows/main.yml +++ b/.github/workflows/main.yml @@ -68,7 +68,7 @@ jobs: - name: Build and test in release mode (windows) if: matrix.os == 'windows-latest' run: | - opam exec -- dune runtest -p merlin-lib,dot-merlin-reader,merlin + opam exec -- dune runtest -p merlin-lib,dot-merlin-reader,merlin,ocaml-index - name: Build and test in release mode (macos/linux) if: matrix.os != 'windows-latest' diff --git a/merlin-lib.opam b/merlin-lib.opam index 8f4e8c3e2..c78fbd3fb 100644 --- a/merlin-lib.opam +++ b/merlin-lib.opam @@ -11,7 +11,7 @@ build: [ ] depends: [ "ocaml" {>= "5.2" & < "5.3"} - "dune" {>= "2.9.0"} + "dune" {>= "3.0.0"} "csexp" {>= "1.5.1"} "menhir" {dev & >= "20201216"} "menhirLib" {dev & >= "20201216"} diff --git a/ocaml-index.opam b/ocaml-index.opam new file mode 100644 index 000000000..511bd5a49 --- /dev/null +++ b/ocaml-index.opam @@ -0,0 +1,36 @@ +# This file is generated by dune, edit dune-project instead +opam-version: "2.0" +synopsis: "A tool that indexes value usages from cmt files" +description: + "ocaml-index should integrate with the build system to index codebase and allow tools such as Merlin to perform project-wide occurrences queries." +maintainer: ["ulysse@tarides.com"] +authors: ["ulysse@tarides.com"] +license: "MIT" +homepage: "https://github.com/voodoos/ocaml-index" +bug-reports: "https://github.com/voodoos/ocaml-index/issues" +depends: [ + "dune" {>= "3.0.0"} + "ocaml" {>= "5.2"} + "merlin-lib" {>= "5.1-502"} + "odoc" {with-doc} +] +build: [ + ["dune" "subst"] {dev} + [ + "dune" + "build" + "-p" + name + "-j" + jobs + "--promote-install-files=false" + "@install" + "@runtest" {with-test} + "@doc" {with-doc} + ] + ["dune" "install" "-p" name "--create-install-files" name] +] +dev-repo: "git+https://github.com/voodoos/ocaml-index.git" +pin-depends: [ + ["merlin-lib.5.1-502" "git+https://github.com/ocaml/merlin"] +] diff --git a/src/ocaml-index/CHANGES.md b/src/ocaml-index/CHANGES.md new file mode 100644 index 000000000..b14a5452e --- /dev/null +++ b/src/ocaml-index/CHANGES.md @@ -0,0 +1,10 @@ +1.0 (2024-06-18) +---------------- + +### Added + +- Initial release. +- The `aggregate`` command that finishes reduction of shapes in cmt files and + store the output in a single index file. +- The `stats` command that prints information about an index file. +- The `dump` command that prints all locs of an index. diff --git a/src/ocaml-index/README.md b/src/ocaml-index/README.md new file mode 100644 index 000000000..a78ab6c84 --- /dev/null +++ b/src/ocaml-index/README.md @@ -0,0 +1,62 @@ +# ocaml-index + +Ocaml-index is a tool that indexes values from CMT files. Its current purpose is +to provide project-wide occurrences for OCaml codebases. The tool iterate on +given cmt's occurrences list (`cmt_ident_occurrences`) and determines the +definition of every value found in it. It then write an index to disk where +values corresponding to the same definition are grouped together. The tool can +also take multiple input files, index them and merge the results into a single +index. + +# Usage + +## Process cmt files and merge indexes + + +> ocaml-index aggregate [-o _output_file_] _cmt_file_ ... _index_file_ ... [-I _dir_] ... [--no-cmt-load-path] + + +- Input `cmt` files are indexed and merged into the final output +- Input index files are directly merged into the output +- If no input files is provided an empty index is created +- The default output file name is `project.ocaml-index` + +### Load path: +Identifying definitions while processing `cmt` files may require loading any of +the `cmt` files of every transitive dependency of the compilation unit. By +default the `cmt_load_path` of the first input `cmt` file will be used to search +for these other units. One can add more paths to the load path using the `-I` +option. Usage of the cmt's loadpath can be disabled using the +`--no-cmt-load-path` option. + +### Paths: +By default, the paths stored in the cmt's locations are relative to the +directory where the compiler was called. for build systems that do not always +call the compiler from the same root folder it might be useful to rewrite these +paths. + +Using the `--root ` option stores the given path in the output file. +Additionally, the ` --rewrite-root` option will prepend `root` to all paths in +indexed location. + +[Note: this feature is not used in the reference Dune rules, it might evolve in +the future if needed] + +## Querying indexes + +The tool does not provide actual queries but one can dump an entire index: + +> ocaml-index dump _index_file_ ... + +Or only print the number of definitions it stores: + +> ocaml-index stats _index_file_ ... + +```bash +$ ocaml-index stats _build/default/src/dune_rules/.dune_rules.objs/cctx.ocaml-index +Index ".../cctx.ocaml-index" contains: +- 28083 definitions +- 86850 locations +- 0 approximated definitions +- 0 compilation units shapes +``` diff --git a/src/ocaml-index/bin/dune b/src/ocaml-index/bin/dune new file mode 100644 index 000000000..2e4c04990 --- /dev/null +++ b/src/ocaml-index/bin/dune @@ -0,0 +1,9 @@ +(executable + (name ocaml_index) + (public_name ocaml-index) + (package ocaml-index) + (libraries lib ocaml_typing merlin_index_format) + (flags + :standard + -open Ocaml_typing + -open Merlin_index_format)) diff --git a/src/ocaml-index/bin/ocaml_index.ml b/src/ocaml-index/bin/ocaml_index.ml new file mode 100644 index 000000000..a4fc1f3f9 --- /dev/null +++ b/src/ocaml-index/bin/ocaml_index.ml @@ -0,0 +1,105 @@ +(** The indexer's binary *) + +open Lib + +let usage_msg = + "ocaml-index [COMMAND] [-verbose] [] ... -o " + +let verbose = ref false +let debug = ref false +let input_files = ref [] +let build_path = ref [] +let output_file = ref "project.ocaml-index" +let root = ref "" +let rewrite_root = ref false +let store_shapes = ref false +let do_not_use_cmt_loadpath = ref false + +type command = Aggregate | Dump | Stats + +let parse_command = function + | "aggregate" -> Some Aggregate + | "dump" -> Some Dump + | "stats" -> Some Stats + | _ -> None + +let command = ref None + +let anon_fun arg = + match !command with + | None -> ( + match parse_command arg with + | Some cmd -> command := Some cmd + | None -> + command := Some Aggregate; + input_files := arg :: !input_files) + | Some _ -> input_files := arg :: !input_files + +let speclist = + [ + ("--verbose", Arg.Set verbose, "Output more information"); + ("--debug", Arg.Set debug, "Output debugging information"); + ("-o", Arg.Set_string output_file, "Set output file name"); + ( "--root", + Arg.Set_string root, + "Set the root path for all relative locations" ); + ( "--rewrite-root", + Arg.Set rewrite_root, + "Rewrite locations paths using the provided root" ); + ( "--store-shapes", + Arg.Set store_shapes, + "Aggregate input-indexes shapes and store them in the new index" ); + ( "-I", + Arg.String (fun arg -> build_path := arg :: !build_path), + "An extra directory to add to the load path" ); + ( "--no-cmt-load-path", + Arg.Set do_not_use_cmt_loadpath, + "Do not initialize the load path with the paths found in the first input \ + cmt file" ); + ] + +let set_log_level debug verbose = + Log.set_log_level Error; + if verbose then Log.set_log_level Warning; + if debug then Log.set_log_level Debug + +let () = + Arg.parse speclist anon_fun usage_msg; + set_log_level !debug !verbose; + (match !command with + | Some Aggregate -> + let root = if String.equal "" !root then None else Some !root in + Index.from_files ~store_shapes:!store_shapes ~root + ~rewrite_root:!rewrite_root ~output_file:!output_file + ~build_path:!build_path + ~do_not_use_cmt_loadpath:!do_not_use_cmt_loadpath !input_files + | Some Dump -> + List.iter + (fun file -> + Index_format.( + read_exn ~file |> pp Format.std_formatter)) + !input_files + | Some Stats -> + List.iter + (fun file -> + let open Merlin_index_format.Index_format in + let { defs; approximated; cu_shape; root_directory; _ } = + read_exn ~file + in + Printf.printf + "Index %S contains:\n\ + - %i definitions\n\ + - %i locations\n\ + - %i approximated definitions\n\ + - %i compilation units shapes\n\ + - root dir: %s\n\n" + file (Uid_map.cardinal defs) + (Uid_map.fold + (fun _uid locs acc -> acc + Lid_set.cardinal locs) + defs 0) + (Uid_map.cardinal approximated) + (Hashtbl.length cu_shape) + (Option.value ~default:"none" root_directory)) + !input_files + | _ -> Printf.printf "Nothing to do.\n%!"); + exit 0 diff --git a/src/ocaml-index/lib/dune b/src/ocaml-index/lib/dune new file mode 100644 index 000000000..f21f905bd --- /dev/null +++ b/src/ocaml-index/lib/dune @@ -0,0 +1,17 @@ +(library + (name lib) + (libraries + ocaml_typing + ocaml_parsing + ocaml_utils + merlin_utils + merlin_analysis + merlin_index_format) + (flags + :standard + -open Ocaml_typing + -open Ocaml_parsing + -open Ocaml_utils + -open Merlin_utils + -open Merlin_analysis + -open Merlin_index_format)) diff --git a/src/ocaml-index/lib/index.ml b/src/ocaml-index/lib/index.ml new file mode 100644 index 000000000..05d62307d --- /dev/null +++ b/src/ocaml-index/lib/index.ml @@ -0,0 +1,181 @@ +module Kind = Shape.Sig_component_kind +open Index_format + +let with_root ?root file = + match root with None -> file | Some root -> Filename.concat root file + +let add_root ~root (lid : Longident.t Location.loc) = + match root with + | None -> lid + | Some root -> + let pos_fname = Filename.concat root lid.loc.loc_start.pos_fname in + { + lid with + loc = + { + lid.loc with + loc_start = { lid.loc.loc_start with pos_fname }; + loc_end = { lid.loc.loc_end with pos_fname }; + }; + } + +let merge m m' = + Shape.Uid.Map.union + (fun _uid locs locs' -> Some (Lid_set.union locs locs')) + m m' + +(** Cmt files contains a table of declarations' Uids associated to a typedtree + fragment. [add_locs_from_fragments] gather locations from these *) +let gather_locs_from_fragments ~root ~rewrite_root map fragments = + let to_located_lid (name : string Location.loc) = + { name with txt = Longident.Lident name.txt } + in + let add_loc uid fragment acc = + match Misc_utils.loc_of_decl ~uid fragment with + | None -> acc + | Some lid -> + let lid = to_located_lid lid in + let lid = if rewrite_root then add_root ~root lid else lid in + Shape.Uid.Map.add uid (Lid_set.singleton lid) acc + in + Shape.Uid.Tbl.fold add_loc fragments map + +module Reduce_conf = struct + let fuel = 10 + + let try_load ~unit_name () = + let cmt = Format.sprintf "%s.cmt" unit_name in + match Cmt_cache.read (Load_path.find_normalized cmt) with + | cmt_item -> + Log.debug "Loaded CMT %s" cmt; + cmt_item.cmt_infos.cmt_impl_shape + | exception Not_found -> + Log.warn "Failed to load file %S in load_path: @[%s@]\n%!" cmt + @@ String.concat "; " (Load_path.get_path_list ()); + None + + let read_unit_shape ~unit_name = + Log.debug "Read unit shape: %s\n%!" unit_name; + try_load ~unit_name () +end + +let init_load_path_once ~do_not_use_cmt_loadpath = + let loaded = ref false in + fun ~dirs cmt_loadpath -> + if not !loaded then ( + let cmt_visible, cmt_hidden = + if do_not_use_cmt_loadpath then ([], []) + else (cmt_loadpath.Load_path.visible, cmt_loadpath.Load_path.hidden) + in + let visible = List.concat [ cmt_visible; dirs ] in + Load_path.(init ~auto_include:no_auto_include ~visible ~hidden:cmt_hidden); + loaded := true) + +let index_of_cmt ~root ~rewrite_root ~build_path ~do_not_use_cmt_loadpath + cmt_infos = + let { + Cmt_format.cmt_loadpath; + cmt_impl_shape; + cmt_modname; + cmt_uid_to_decl; + cmt_ident_occurrences; + cmt_initial_env; + cmt_sourcefile; + cmt_source_digest; + _; + } = + cmt_infos + in + init_load_path_once ~do_not_use_cmt_loadpath ~dirs:build_path cmt_loadpath; + let module Reduce = Shape_reduce.Make (Reduce_conf) in + let defs = + if Option.is_none cmt_impl_shape then Shape.Uid.Map.empty + else + gather_locs_from_fragments ~root ~rewrite_root Shape.Uid.Map.empty + cmt_uid_to_decl + in + (* The list [cmt_ident_occurrences] associate each ident usage location in the + module with its (partially) reduced shape. We finish the reduction and + group together all the locations that share the same definition uid. *) + let defs, approximated = + List.fold_left + (fun ((acc_defs, acc_apx) as acc) (lid, (item : Shape_reduce.result)) -> + let lid = if rewrite_root then add_root ~root lid else lid in + let resolved = + match item with + | Unresolved shape -> Reduce.reduce_for_uid cmt_initial_env shape + | Resolved _ when Option.is_none cmt_impl_shape -> + (* Right now, without additional information we cannot take the + risk to mix uids from interfaces with the ones from + implementations. We simply ignore items defined in an interface. *) + Internal_error_missing_uid + | result -> result + in + match Locate.uid_of_result ~traverse_aliases:false resolved with + | Some uid, false -> (add acc_defs uid (Lid_set.singleton lid), acc_apx) + | Some uid, true -> (acc_defs, add acc_apx uid (Lid_set.singleton lid)) + | None, _ -> acc) + (defs, Shape.Uid.Map.empty) + cmt_ident_occurrences + in + let cu_shape = Hashtbl.create 1 in + Option.iter (Hashtbl.add cu_shape cmt_modname) cmt_impl_shape; + let stats = + match cmt_sourcefile with + | None -> Stats.empty + | Some src -> ( + let rooted_src = with_root ?root src in + try + let stats = Unix.stat rooted_src in + let src = if rewrite_root then rooted_src else src in + Stats.singleton src + { + mtime = stats.st_mtime; + size = stats.st_size; + source_digest = cmt_source_digest; + } + with Unix.Unix_error _ -> Stats.empty) + in + { defs; approximated; cu_shape; stats; root_directory = None } + +let merge_index ~store_shapes ~into index = + let defs = merge index.defs into.defs in + let approximated = merge index.approximated into.approximated in + let stats = Stats.union (fun _ f1 _f2 -> Some f1) into.stats index.stats in + if store_shapes then + Hashtbl.add_seq index.cu_shape (Hashtbl.to_seq into.cu_shape); + { into with defs; approximated; stats } + +let from_files ~store_shapes ~output_file ~root ~rewrite_root ~build_path + ~do_not_use_cmt_loadpath files = + Log.debug "Debug log is enabled"; + let initial_index = + { + defs = Shape.Uid.Map.empty; + approximated = Shape.Uid.Map.empty; + cu_shape = Hashtbl.create 64; + stats = Stats.empty; + root_directory = root; + } + in + let final_index = + Ocaml_utils.Local_store.with_store (Ocaml_utils.Local_store.fresh ()) + @@ fun () -> + List.fold_left + (fun into file -> + let index = + match Cmt_cache.read file with + | cmt_item -> + index_of_cmt ~root ~rewrite_root ~build_path + ~do_not_use_cmt_loadpath cmt_item.cmt_infos + | exception _ -> ( + match read ~file with + | Index index -> index + | _ -> + Log.error "Unknown file type: %s" file; + exit 1) + in + merge_index ~store_shapes index ~into) + initial_index files + in + write ~file:output_file final_index diff --git a/src/ocaml-index/lib/log.ml b/src/ocaml-index/lib/log.ml new file mode 100644 index 000000000..ecce9f5ed --- /dev/null +++ b/src/ocaml-index/lib/log.ml @@ -0,0 +1,29 @@ +module Level = struct + type t = Debug | Warning | Error + + let int_of_t = function Debug -> 0 | Warning -> 1 | Error -> 2 + + let string_of_t = function + | Debug -> "debug" + | Warning -> "warning" + | Error -> "error" + + let ( >= ) a b = int_of_t a >= int_of_t b +end + +let log_level = ref Level.Error +let set_log_level level = log_level := level + +let log ~level = + let print = + let formatter = + if level = Level.Error then Format.err_formatter else Format.std_formatter + in + Format.fprintf formatter "[%s] %s\n%!" (Level.string_of_t level) + in + if Level.(level >= !log_level) then Format.kasprintf print + else Format.ikfprintf ignore Format.std_formatter + +let debug fmt = log ~level:Level.Debug fmt +let warn fmt = log ~level:Level.Warning fmt +let error fmt = log ~level:Level.Error fmt diff --git a/src/ocaml-index/lib/log.mli b/src/ocaml-index/lib/log.mli new file mode 100644 index 000000000..a02cb6e70 --- /dev/null +++ b/src/ocaml-index/lib/log.mli @@ -0,0 +1,9 @@ +module Level : sig + type t = Debug | Warning | Error +end + +val set_log_level : Level.t -> unit +val log : level:Level.t -> ('a, Format.formatter, unit, unit) format4 -> 'a +val debug : ('a, Format.formatter, unit, unit) format4 -> 'a +val warn : ('a, Format.formatter, unit, unit) format4 -> 'a +val error : ('a, Format.formatter, unit, unit) format4 -> 'a diff --git a/src/ocaml/preprocess/menhirLib.ml b/src/ocaml/preprocess/menhirLib.ml index f1782933f..ee7f581f2 100644 --- a/src/ocaml/preprocess/menhirLib.ml +++ b/src/ocaml/preprocess/menhirLib.ml @@ -1,14 +1,11 @@ module General = 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. *) (* *) (******************************************************************************) @@ -89,14 +86,11 @@ end module Convert = struct (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -212,14 +206,11 @@ end module IncrementalEngine = struct (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -300,12 +291,12 @@ module type INCREMENTAL_ENGINE = sig 'a checkpoint (* [resume] allows the user to resume the parser after it has suspended - itself with a checkpoint of the form [AboutToReduce (env, prod)] or - [HandlingError env]. [resume] expects the old checkpoint and produces a + itself with a checkpoint of the form [Shifting _], [AboutToReduce _], or + [HandlingError _]. [resume] expects the old checkpoint and produces a new checkpoint. It does not raise any exception. *) (* The optional argument [strategy] influences the manner in which [resume] - deals with checkpoints of the form [ErrorHandling _]. Its default value + deals with checkpoints of the form [HandlingError _]. Its default value is [`Legacy]. It can be briefly described as follows: - If the [error] token is used only to report errors (that is, if the @@ -701,14 +692,11 @@ end module EngineTypes = 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. *) (* *) (******************************************************************************) @@ -789,6 +777,53 @@ 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. *) @@ -910,6 +945,16 @@ module type TABLE = sig ('env -> 'answer) -> 'env -> 'answer + (**[maybe_shift_t s t] determines whether there exists a transition out of + the state [s], labeled with the terminal symbol [t], to some state + [s']. If so, it returns [Some s']. Otherwise, it returns [None]. *) + val maybe_shift_t : state -> terminal -> state option + + (**[may_reduce_prod s t prod] determines whether in the state [s], with + lookahead symbol [t], the automaton reduces production [prod]. This test + accounts for the possible existence of a default reduction. *) + val may_reduce_prod : state -> terminal -> production -> bool + (* This is the automaton's goto table. This table maps a pair of a state and a nonterminal symbol to a new state. By extension, it also maps a pair of a state and a production to a new state. *) @@ -925,6 +970,11 @@ module type TABLE = sig val goto_prod: state -> production -> state val maybe_goto_nt: state -> nonterminal -> state option + (* [lhs prod] returns the left-hand side of production [prod], + a nonterminal symbol. *) + + val lhs: production -> nonterminal + (* [is_start prod] tells whether the production [prod] is a start production. *) val is_start: production -> bool @@ -965,51 +1015,17 @@ 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 - module Log : sig - - (* 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 + (* The logging hooks required by the LR engine. *) - (* Resuming error handling *) - - val resuming_error_handling: unit -> unit - - (* Handling error in state *) - - val handling_error: state -> unit - - end + module Log : LOG + with type state := state + and type terminal := terminal + and type production := production end @@ -1102,14 +1118,11 @@ end module Engine = 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. *) (* *) (******************************************************************************) @@ -1256,8 +1269,7 @@ 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. A semantic action can raise [Error], but this exception is - immediately caught within [reduce]. *) + exception. *) let rec run env please_discard : semantic_value checkpoint = @@ -1413,33 +1425,22 @@ 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. It can raise [Error]. *) - - (* If the semantic action terminates normally, it returns a new stack, + contains a new semantic value. The semantic action returns a new stack, which becomes the current stack. *) - (* If the semantic action raises [Error], we catch it and initiate error - handling. *) - - (* This [match/with/exception] construct requires OCaml 4.02. *) + let stack = T.semantic_action prod env in - 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 - - | exception Error -> - initiate env + let current = T.goto_prod stack.state prod in + let env = { env with stack; current } in + run env false and accept env prod = (* Log an accept event. *) @@ -1509,8 +1510,7 @@ module Make (T : TABLE) = struct (* In the legacy strategy, we call [reduce] instead of [announce_reduce], apparently in an attempt to hide the reduction steps performed during - error handling. This seems inconsistent, as the default reduction steps - are still announced. In the simplified strategy, all reductions are + error handling. In the simplified strategy, all reductions steps are announced. *) match strategy with @@ -1546,7 +1546,15 @@ module Make (T : TABLE) = struct else begin (* The stack is nonempty. Pop a cell, updating the current state - with that found in the popped cell, and try again. *) + to the state [cell.state] found in the popped cell, and continue + error handling there. *) + + (* I note that if the new state [cell.state] has a default reduction, + then it is ignored. It is unclear whether this is intentional. It + could be a good thing, as it avoids a scenario where the parser + diverges by repeatedly popping, performing a default reduction of + an epsilon production, popping, etc. Still, the question of whether + to obey default reductions while error handling seems obscure. *) let env = { env with stack = next; @@ -1611,10 +1619,10 @@ module Make (T : TABLE) = struct checkpoint of the form [InputNeeded env]. It checks that [checkpoint] is indeed of this form, and invokes [discard]. *) - (* [resume checkpoint] is invoked by the user in response to a checkpoint of - the form [AboutToReduce (env, prod)] or [HandlingError env]. It checks - that [checkpoint] is indeed of this form, and invokes [reduce] or - [error], as appropriate. *) + (* [resume checkpoint] is invoked by the user in response to a checkpoint + of the form [Shifting _], [AboutToReduce _], or [HandlingError env]. It + checks that [checkpoint] is indeed of this form, and invokes [reduce] + or [error], as appropriate. *) (* In reality, [offer] and [resume] accept an argument of type [semantic_value checkpoint] and produce a checkpoint of the same type. @@ -2056,14 +2064,11 @@ 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. *) (* *) (******************************************************************************) @@ -2222,14 +2227,11 @@ end module LexerUtil = struct (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -2273,18 +2275,40 @@ let range ((pos1, pos2) as range) = sprintf "File \"%s\", line %d, characters %d-%d:\n" file line char1 char2 (* use [char1 + 1] and [char2 + 1] if *not* using Caml mode *) + +let tabulate (type a) (is_eof : a -> bool) (lexer : unit -> a) : unit -> a = + (* Read tokens from the lexer until we hit an EOF token. *) + let rec read tokens = + let token = lexer() in + let tokens = token :: tokens in + if is_eof token then + (* Once done, reverse the list and convert it to an array. *) + tokens |> List.rev |> Array.of_list + else + read tokens + in + (* We now have an array of tokens. *) + let tokens = read [] in + (* Define a pseudo-lexer that reads from this array. *) + let i = ref 0 in + let lexer () = + (* If this assertion is violated, then the parser is trying to read + past an EOF token. This should not happen. *) + assert (!i < Array.length tokens); + let token = Array.unsafe_get tokens !i in + i := !i + 1; + token + in + lexer end module Printers = struct (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -2400,14 +2424,11 @@ end module InfiniteArray = struct (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -2465,14 +2486,11 @@ 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. *) (* *) (******************************************************************************) @@ -2674,14 +2692,11 @@ end module RowDisplacement = struct (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -2934,14 +2949,11 @@ end module LinearizedArray = struct (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -3016,14 +3028,11 @@ end module TableFormat = 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. *) (* *) (******************************************************************************) @@ -3155,14 +3164,11 @@ end module InspectionTableFormat = struct (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -3231,14 +3237,11 @@ end module InspectionTableInterpreter = struct (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -3542,14 +3545,11 @@ 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. *) (* *) (******************************************************************************) @@ -3623,9 +3623,12 @@ module MakeEngineTable (T : TableFormat.TABLES) = struct let default_reduction state defred nodefred env = let code = PackedIntArray.get T.default_reduction state in if code = 0 then + (* no default reduction *) nodefred env else - defred env (code - 1) + (* default reduction *) + let prod = code - 1 in + defred env prod let is_start prod = prod < T.start @@ -3659,13 +3662,59 @@ module MakeEngineTable (T : TableFormat.TABLES) = struct assert (c = 0); fail env + let maybe_shift_t state terminal = + match PackedIntArray.unflatten1 T.error state terminal with + | 1 -> + let action = unmarshal2 T.action state terminal in + let opcode = action land 0b11 in + if opcode >= 0b10 then + (* 0b10 : shift/discard *) + (* 0b11 : shift/nodiscard *) + let state' = action lsr 2 in + Some state' + else + (* 0b01 : reduce *) + (* 0b00 : cannot happen *) + None + | c -> + assert (c = 0); + None + + let may_reduce_prod state terminal prod = + let code = PackedIntArray.get T.default_reduction state in + if code = 0 then + (* no default reduction *) + match PackedIntArray.unflatten1 T.error state terminal with + | 1 -> + let action = unmarshal2 T.action state terminal in + let opcode = action land 0b11 in + if opcode >= 0b10 then + (* 0b10 : shift/discard *) + (* 0b11 : shift/nodiscard *) + false + else + (* 0b01 : reduce *) + (* 0b00 : cannot happen *) + let prod' = action lsr 2 in + prod = prod' + | c -> + assert (c = 0); + false + else + (* default reduction *) + let prod' = code - 1 in + prod = prod' + let goto_nt state nt = let code = unmarshal2 T.goto state nt in (* code = 1 + state *) code - 1 + let[@inline] lhs prod = + PackedIntArray.get T.lhs prod + let goto_prod state prod = - goto_nt state (PackedIntArray.get T.lhs prod) + goto_nt state (lhs prod) let maybe_goto_nt state nt = let code = unmarshal2 T.goto state nt in @@ -3785,5 +3834,5 @@ module MakeEngineTable (T : TableFormat.TABLES) = struct end end module StaticVersion = struct -let require_20201216 = () +let require_20231231 = () end diff --git a/src/ocaml/preprocess/menhirLib.mli b/src/ocaml/preprocess/menhirLib.mli index 98db99e62..2156459dc 100644 --- a/src/ocaml/preprocess/menhirLib.mli +++ b/src/ocaml/preprocess/menhirLib.mli @@ -1,14 +1,11 @@ module General : 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. *) (* *) (******************************************************************************) @@ -65,14 +62,11 @@ end module Convert : sig (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -144,14 +138,11 @@ end module IncrementalEngine : sig (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -232,12 +223,12 @@ module type INCREMENTAL_ENGINE = sig 'a checkpoint (* [resume] allows the user to resume the parser after it has suspended - itself with a checkpoint of the form [AboutToReduce (env, prod)] or - [HandlingError env]. [resume] expects the old checkpoint and produces a + itself with a checkpoint of the form [Shifting _], [AboutToReduce _], or + [HandlingError _]. [resume] expects the old checkpoint and produces a new checkpoint. It does not raise any exception. *) (* The optional argument [strategy] influences the manner in which [resume] - deals with checkpoints of the form [ErrorHandling _]. Its default value + deals with checkpoints of the form [HandlingError _]. Its default value is [`Legacy]. It can be briefly described as follows: - If the [error] token is used only to report errors (that is, if the @@ -633,14 +624,11 @@ 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. *) (* *) (******************************************************************************) @@ -721,6 +709,53 @@ 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. *) @@ -842,6 +877,16 @@ module type TABLE = sig ('env -> 'answer) -> 'env -> 'answer + (**[maybe_shift_t s t] determines whether there exists a transition out of + the state [s], labeled with the terminal symbol [t], to some state + [s']. If so, it returns [Some s']. Otherwise, it returns [None]. *) + val maybe_shift_t : state -> terminal -> state option + + (**[may_reduce_prod s t prod] determines whether in the state [s], with + lookahead symbol [t], the automaton reduces production [prod]. This test + accounts for the possible existence of a default reduction. *) + val may_reduce_prod : state -> terminal -> production -> bool + (* This is the automaton's goto table. This table maps a pair of a state and a nonterminal symbol to a new state. By extension, it also maps a pair of a state and a production to a new state. *) @@ -857,6 +902,11 @@ module type TABLE = sig val goto_prod: state -> production -> state val maybe_goto_nt: state -> nonterminal -> state option + (* [lhs prod] returns the left-hand side of production [prod], + a nonterminal symbol. *) + + val lhs: production -> nonterminal + (* [is_start prod] tells whether the production [prod] is a start production. *) val is_start: production -> bool @@ -897,51 +947,17 @@ 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 - module Log : sig - - (* 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 (-) *) + (* The logging hooks required by the LR engine. *) - 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 + module Log : LOG + with type state := state + and type terminal := terminal + and type production := production end @@ -1034,14 +1050,11 @@ 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. *) (* *) (******************************************************************************) @@ -1067,14 +1080,11 @@ end module ErrorReports : sig (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -1147,57 +1157,61 @@ end module LexerUtil : sig (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) open Lexing -(* [init filename lexbuf] initializes the lexing buffer [lexbuf] so +(**[init filename lexbuf] initializes the lexing buffer [lexbuf] so that the positions that are subsequently read from it refer to the file [filename]. It returns [lexbuf]. *) - val init: string -> lexbuf -> lexbuf -(* [read filename] reads the entire contents of the file [filename] and +(**[read filename] reads the entire contents of the file [filename] and returns a pair of this content (a string) and a lexing buffer that has been initialized, based on this string. *) - val read: string -> string * lexbuf -(* [newline lexbuf] increments the line counter stored within [lexbuf]. It +(**[newline lexbuf] increments the line counter stored within [lexbuf]. It should be invoked by the lexer itself every time a newline character is consumed. This allows maintaining a current the line number in [lexbuf]. *) - val newline: lexbuf -> unit -(* [range (startpos, endpos)] prints a textual description of the range +(**[range (startpos, endpos)] prints a textual description of the range delimited by the start and end positions [startpos] and [endpos]. This description is one line long and ends in a newline character. This description mentions the file name, the line number, and a range of characters on this line. The line number is correct only if [newline] has been correctly used, as described dabove. *) - val range: position * position -> string + +(**[tabulate is_eof lexer] tabulates the lexer [lexer]: that is, it + immediately runs this lexer all the way until an EOF token is found, stores + the tokens in an array in memory, and returns a new lexer which (when + invoked) reads tokens from this array. The function [lexer] is not allowed + to raise an exception, and must produce a finite stream of tokens: that is, + after a finite number of invocations, it must return a token that is + identified by the function [is_eof] as an EOF token. + + Both the existing lexer [lexer] and the new lexer returned by [tabulate + is_eof lexer] are functions of type [unit -> 'a], where the type ['a] is + likely to be instantiated with a triple of a token and two positions, as + per the revised lexer API described in the module {!Convert}. *) +val tabulate: ('a -> bool) -> (unit -> 'a) -> (unit -> 'a) end module Printers : sig (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -1268,14 +1282,11 @@ 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. *) (* *) (******************************************************************************) @@ -1306,14 +1317,11 @@ end module PackedIntArray : sig (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -1365,14 +1373,11 @@ 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. *) (* *) (******************************************************************************) @@ -1429,14 +1434,11 @@ end module LinearizedArray : sig (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -1503,14 +1505,11 @@ 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. *) (* *) (******************************************************************************) @@ -1642,14 +1641,11 @@ end module InspectionTableFormat : sig (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -1718,14 +1714,11 @@ 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. *) (* *) (******************************************************************************) @@ -1770,14 +1763,11 @@ end module TableInterpreter : sig (******************************************************************************) (* *) -(* Menhir *) -(* *) -(* François Pottier, Inria Paris *) -(* Yann Régis-Gianas, PPS, Université Paris Diderot *) +(* 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. *) +(* 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. *) (* *) (******************************************************************************) @@ -1803,5 +1793,5 @@ module MakeEngineTable and type nonterminal = int end module StaticVersion : sig -val require_20201216: unit +val require_20231231: unit end diff --git a/src/ocaml/preprocess/parser_raw.ml b/src/ocaml/preprocess/parser_raw.ml index 190b5b488..1b31ac618 100644 --- a/src/ocaml/preprocess/parser_raw.ml +++ b/src/ocaml/preprocess/parser_raw.ml @@ -2,12 +2,16 @@ (* This generated code requires the following version of MenhirLib: *) let () = - MenhirLib.StaticVersion.require_20201216 + MenhirLib.StaticVersion.require_20231231 module MenhirBasics = struct exception Error + let _eRR = + fun _s -> + raise Error + type token = | WITH | WHILE @@ -18,7 +22,7 @@ module MenhirBasics = struct | UIDENT of ( # 890 "src/ocaml/preprocess/parser_raw.mly" (string) -# 22 "src/ocaml/preprocess/parser_raw.ml" +# 26 "src/ocaml/preprocess/parser_raw.ml" ) | TYPE | TRY @@ -30,7 +34,7 @@ module MenhirBasics = struct | STRING of ( # 876 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string option) -# 34 "src/ocaml/preprocess/parser_raw.ml" +# 38 "src/ocaml/preprocess/parser_raw.ml" ) | STAR | SIG @@ -43,12 +47,12 @@ module MenhirBasics = struct | QUOTED_STRING_ITEM of ( # 881 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string * Location.t * string option) -# 47 "src/ocaml/preprocess/parser_raw.ml" +# 51 "src/ocaml/preprocess/parser_raw.ml" ) | QUOTED_STRING_EXPR of ( # 878 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string * Location.t * string option) -# 52 "src/ocaml/preprocess/parser_raw.ml" +# 56 "src/ocaml/preprocess/parser_raw.ml" ) | QUOTE | QUESTION @@ -56,7 +60,7 @@ module MenhirBasics = struct | PREFIXOP of ( # 862 "src/ocaml/preprocess/parser_raw.mly" (string) -# 60 "src/ocaml/preprocess/parser_raw.ml" +# 64 "src/ocaml/preprocess/parser_raw.ml" ) | PLUSEQ | PLUSDOT @@ -66,7 +70,7 @@ module MenhirBasics = struct | OPTLABEL of ( # 855 "src/ocaml/preprocess/parser_raw.mly" (string) -# 70 "src/ocaml/preprocess/parser_raw.ml" +# 74 "src/ocaml/preprocess/parser_raw.ml" ) | OPEN | OF @@ -84,12 +88,12 @@ module MenhirBasics = struct | LIDENT of ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 88 "src/ocaml/preprocess/parser_raw.ml" +# 92 "src/ocaml/preprocess/parser_raw.ml" ) | LETOP of ( # 820 "src/ocaml/preprocess/parser_raw.mly" (string) -# 93 "src/ocaml/preprocess/parser_raw.ml" +# 97 "src/ocaml/preprocess/parser_raw.ml" ) | LET | LESSMINUS @@ -109,39 +113,39 @@ module MenhirBasics = struct | LABEL of ( # 825 "src/ocaml/preprocess/parser_raw.mly" (string) -# 113 "src/ocaml/preprocess/parser_raw.ml" +# 117 "src/ocaml/preprocess/parser_raw.ml" ) | INT of ( # 824 "src/ocaml/preprocess/parser_raw.mly" (string * char option) -# 118 "src/ocaml/preprocess/parser_raw.ml" +# 122 "src/ocaml/preprocess/parser_raw.ml" ) | INITIALIZER | INHERIT | INFIXOP4 of ( # 818 "src/ocaml/preprocess/parser_raw.mly" (string) -# 125 "src/ocaml/preprocess/parser_raw.ml" +# 129 "src/ocaml/preprocess/parser_raw.ml" ) | INFIXOP3 of ( # 817 "src/ocaml/preprocess/parser_raw.mly" (string) -# 130 "src/ocaml/preprocess/parser_raw.ml" +# 134 "src/ocaml/preprocess/parser_raw.ml" ) | INFIXOP2 of ( # 816 "src/ocaml/preprocess/parser_raw.mly" (string) -# 135 "src/ocaml/preprocess/parser_raw.ml" +# 139 "src/ocaml/preprocess/parser_raw.ml" ) | INFIXOP1 of ( # 815 "src/ocaml/preprocess/parser_raw.mly" (string) -# 140 "src/ocaml/preprocess/parser_raw.ml" +# 144 "src/ocaml/preprocess/parser_raw.ml" ) | INFIXOP0 of ( # 814 "src/ocaml/preprocess/parser_raw.mly" (string) -# 145 "src/ocaml/preprocess/parser_raw.ml" +# 149 "src/ocaml/preprocess/parser_raw.ml" ) | INCLUDE | IN @@ -149,7 +153,7 @@ module MenhirBasics = struct | HASHOP of ( # 873 "src/ocaml/preprocess/parser_raw.mly" (string) -# 153 "src/ocaml/preprocess/parser_raw.ml" +# 157 "src/ocaml/preprocess/parser_raw.ml" ) | HASH | GREATERRBRACKET @@ -163,7 +167,7 @@ module MenhirBasics = struct | FLOAT of ( # 803 "src/ocaml/preprocess/parser_raw.mly" (string * char option) -# 167 "src/ocaml/preprocess/parser_raw.ml" +# 171 "src/ocaml/preprocess/parser_raw.ml" ) | FALSE | EXTERNAL @@ -178,7 +182,7 @@ module MenhirBasics = struct | DOTOP of ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 182 "src/ocaml/preprocess/parser_raw.ml" +# 186 "src/ocaml/preprocess/parser_raw.ml" ) | DOTLESS | DOTDOT @@ -187,14 +191,14 @@ module MenhirBasics = struct | DOCSTRING of ( # 898 "src/ocaml/preprocess/parser_raw.mly" (Docstrings.docstring) -# 191 "src/ocaml/preprocess/parser_raw.ml" +# 195 "src/ocaml/preprocess/parser_raw.ml" ) | DO | CONSTRAINT | COMMENT of ( # 897 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t) -# 198 "src/ocaml/preprocess/parser_raw.ml" +# 202 "src/ocaml/preprocess/parser_raw.ml" ) | COMMA | COLONGREATER @@ -205,7 +209,7 @@ module MenhirBasics = struct | CHAR of ( # 783 "src/ocaml/preprocess/parser_raw.mly" (char) -# 209 "src/ocaml/preprocess/parser_raw.ml" +# 213 "src/ocaml/preprocess/parser_raw.ml" ) | BEGIN | BARRBRACKET @@ -218,7 +222,7 @@ module MenhirBasics = struct | ANDOP of ( # 821 "src/ocaml/preprocess/parser_raw.mly" (string) -# 222 "src/ocaml/preprocess/parser_raw.ml" +# 226 "src/ocaml/preprocess/parser_raw.ml" ) | AND | AMPERSAND @@ -228,9 +232,6 @@ end include MenhirBasics -let _eRR = - MenhirBasics.Error - # 25 "src/ocaml/preprocess/parser_raw.mly" @@ -933,7 +934,7 @@ let merloc startpos ?endpos x = { x with pexp_attributes = attr :: x.pexp_attributes } -# 937 "src/ocaml/preprocess/parser_raw.ml" +# 938 "src/ocaml/preprocess/parser_raw.ml" module Tables = struct @@ -1490,7 +1491,7 @@ module Tables = struct let _v : (string) = # 4137 "src/ocaml/preprocess/parser_raw.mly" ( "+" ) -# 1494 "src/ocaml/preprocess/parser_raw.ml" +# 1495 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1515,7 +1516,7 @@ module Tables = struct let _v : (string) = # 4138 "src/ocaml/preprocess/parser_raw.mly" ( "+." ) -# 1519 "src/ocaml/preprocess/parser_raw.ml" +# 1520 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1540,7 +1541,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 3630 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 1544 "src/ocaml/preprocess/parser_raw.ml" +# 1545 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1583,40 +1584,42 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos__2_inlined1_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let tyvar = - let (_endpos__2_, _2) = (_endpos__2_inlined1_, _2_inlined1) in - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let tyvar = + let (_endpos__2_, _2) = (_endpos__2_inlined1_, _2_inlined1) in + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 3578 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _2 _sloc ) -# 1597 "src/ocaml/preprocess/parser_raw.ml" +# 1599 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3633 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_alias(ty, tyvar) ) -# 1603 "src/ocaml/preprocess/parser_raw.ml" +# 1605 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__2_inlined1_, _startpos_ty_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__2_inlined1_, _startpos_ty_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 1613 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 1615 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3635 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 1619 "src/ocaml/preprocess/parser_raw.ml" - in +# 1621 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -1659,34 +1662,36 @@ 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 : (Ast_helper.let_binding) = let attrs2 = - let _1 = _1_inlined2 in - + let _v = + let attrs2 = + let _1 = _1_inlined2 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 1668 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined2_ in - let attrs1 = - let _1 = _1_inlined1 in - +# 1672 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined2_ in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 1677 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 1681 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2842 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in mklb ~loc:_sloc false body attrs ) -# 1689 "src/ocaml/preprocess/parser_raw.ml" - in +# 1693 "src/ocaml/preprocess/parser_raw.ml" + : (Ast_helper.let_binding)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -1710,7 +1715,7 @@ module Tables = struct let _v : (Longident.t) = # 4021 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 1714 "src/ocaml/preprocess/parser_raw.ml" +# 1719 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1735,7 +1740,7 @@ module Tables = struct let _v : (Longident.t) = # 4022 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 1739 "src/ocaml/preprocess/parser_raw.ml" +# 1744 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1760,7 +1765,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 3766 "src/ocaml/preprocess/parser_raw.mly" ( type_ ) -# 1764 "src/ocaml/preprocess/parser_raw.ml" +# 1769 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1782,43 +1787,45 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let tid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let tid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 1795 "src/ocaml/preprocess/parser_raw.ml" - - in - let tys = +# 1801 "src/ocaml/preprocess/parser_raw.ml" + + in + let tys = # 3799 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 1801 "src/ocaml/preprocess/parser_raw.ml" - in - +# 1807 "src/ocaml/preprocess/parser_raw.ml" + in + # 3770 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_constr (tid, tys) ) -# 1806 "src/ocaml/preprocess/parser_raw.ml" +# 1812 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 1815 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 1821 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3784 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 1821 "src/ocaml/preprocess/parser_raw.ml" - in +# 1827 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -1846,44 +1853,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let tid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let tid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 1859 "src/ocaml/preprocess/parser_raw.ml" - - in - let tys = +# 1867 "src/ocaml/preprocess/parser_raw.ml" + + in + let tys = # 3801 "src/ocaml/preprocess/parser_raw.mly" ( [ ty ] ) -# 1865 "src/ocaml/preprocess/parser_raw.ml" - in - +# 1873 "src/ocaml/preprocess/parser_raw.ml" + in + # 3770 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_constr (tid, tys) ) -# 1870 "src/ocaml/preprocess/parser_raw.ml" +# 1878 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_ty_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos__1_ = _startpos_ty_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 1880 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 1888 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3784 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 1886 "src/ocaml/preprocess/parser_raw.ml" - in +# 1894 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -1925,59 +1934,61 @@ 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 : (Parsetree.core_type) = let _1 = + let _v = 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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 1939 "src/ocaml/preprocess/parser_raw.ml" - - in - let tys = +# 1949 "src/ocaml/preprocess/parser_raw.ml" + + in let tys = - let xs = -# 253 "" + let tys = + let xs = +# 264 "" ( List.rev xs ) -# 1947 "src/ocaml/preprocess/parser_raw.ml" - in - +# 1957 "src/ocaml/preprocess/parser_raw.ml" + in + # 1210 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 1952 "src/ocaml/preprocess/parser_raw.ml" +# 1962 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3803 "src/ocaml/preprocess/parser_raw.mly" ( tys ) -# 1958 "src/ocaml/preprocess/parser_raw.ml" +# 1968 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3770 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_constr (tid, tys) ) -# 1964 "src/ocaml/preprocess/parser_raw.ml" +# 1974 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 1974 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 1984 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3784 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 1980 "src/ocaml/preprocess/parser_raw.ml" - in +# 1990 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2005,44 +2016,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__2_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let cid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let cid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 2018 "src/ocaml/preprocess/parser_raw.ml" - - in - let tys = +# 2030 "src/ocaml/preprocess/parser_raw.ml" + + in + let tys = # 3799 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 2024 "src/ocaml/preprocess/parser_raw.ml" - in - +# 2036 "src/ocaml/preprocess/parser_raw.ml" + in + # 3774 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_class (cid, tys) ) -# 2029 "src/ocaml/preprocess/parser_raw.ml" +# 2041 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos__1_ = _startpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 2039 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 2051 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3784 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2045 "src/ocaml/preprocess/parser_raw.ml" - in +# 2057 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2077,44 +2090,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let cid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let cid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 2090 "src/ocaml/preprocess/parser_raw.ml" - - in - let tys = +# 2104 "src/ocaml/preprocess/parser_raw.ml" + + in + let tys = # 3801 "src/ocaml/preprocess/parser_raw.mly" ( [ ty ] ) -# 2096 "src/ocaml/preprocess/parser_raw.ml" - in - +# 2110 "src/ocaml/preprocess/parser_raw.ml" + in + # 3774 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_class (cid, tys) ) -# 2101 "src/ocaml/preprocess/parser_raw.ml" +# 2115 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_ty_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos__1_ = _startpos_ty_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 2111 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 2125 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3784 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2117 "src/ocaml/preprocess/parser_raw.ml" - in +# 2131 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2163,59 +2178,61 @@ 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 : (Parsetree.core_type) = let _1 = + let _v = 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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 2177 "src/ocaml/preprocess/parser_raw.ml" - - in - let tys = +# 2193 "src/ocaml/preprocess/parser_raw.ml" + + in let tys = - let xs = -# 253 "" + let tys = + let xs = +# 264 "" ( List.rev xs ) -# 2185 "src/ocaml/preprocess/parser_raw.ml" - in - +# 2201 "src/ocaml/preprocess/parser_raw.ml" + in + # 1210 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 2190 "src/ocaml/preprocess/parser_raw.ml" +# 2206 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3803 "src/ocaml/preprocess/parser_raw.mly" ( tys ) -# 2196 "src/ocaml/preprocess/parser_raw.ml" +# 2212 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3774 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_class (cid, tys) ) -# 2202 "src/ocaml/preprocess/parser_raw.ml" +# 2218 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 2212 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 2228 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3784 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2218 "src/ocaml/preprocess/parser_raw.ml" - in +# 2234 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2250,39 +2267,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_type__ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let mod_ident = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let mod_ident = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 2263 "src/ocaml/preprocess/parser_raw.ml" +# 2281 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3778 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_open (mod_ident, type_) ) -# 2269 "src/ocaml/preprocess/parser_raw.ml" +# 2287 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_type__ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_type__ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 2279 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 2297 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3784 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2285 "src/ocaml/preprocess/parser_raw.ml" - in +# 2303 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2310,27 +2329,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_ident_ in - let _v : (Parsetree.core_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3780 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_var ident ) -# 2318 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos_ident_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 2338 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos_ident_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 2327 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 2347 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3784 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2333 "src/ocaml/preprocess/parser_raw.ml" - in +# 2353 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2351,26 +2372,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.core_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3782 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_any ) -# 2359 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 2381 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 2367 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 2389 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3784 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2373 "src/ocaml/preprocess/parser_raw.ml" - in +# 2395 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2391,26 +2414,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string Location.loc) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 4204 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2399 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 2423 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1057 "src/ocaml/preprocess/parser_raw.mly" ( mkloc _1 (make_loc _sloc) ) -# 2407 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 2431 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 4206 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2413 "src/ocaml/preprocess/parser_raw.ml" - in +# 2437 "src/ocaml/preprocess/parser_raw.ml" + : (string Location.loc)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2445,27 +2470,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (string Location.loc) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 4205 "src/ocaml/preprocess/parser_raw.mly" ( _1 ^ "." ^ _3.txt ) -# 2453 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 2479 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1057 "src/ocaml/preprocess/parser_raw.mly" ( mkloc _1 (make_loc _sloc) ) -# 2462 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 2488 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 4206 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2468 "src/ocaml/preprocess/parser_raw.ml" - in +# 2494 "src/ocaml/preprocess/parser_raw.ml" + : (string Location.loc)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2491,7 +2518,7 @@ module Tables = struct ( Builtin_attributes.mark_payload_attrs_used _1; _1 ) -# 2495 "src/ocaml/preprocess/parser_raw.ml" +# 2522 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2534,14 +2561,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.attribute) = let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 4210 "src/ocaml/preprocess/parser_raw.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 2544 "src/ocaml/preprocess/parser_raw.ml" - in +# 2572 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.attribute)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2565,7 +2594,7 @@ module Tables = struct let _v : (Parsetree.class_expr) = # 2069 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2569 "src/ocaml/preprocess/parser_raw.ml" +# 2598 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2601,22 +2630,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.class_expr) = let _2 = - let _1 = _1_inlined1 in - + let _v = + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2610 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 2640 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2071 "src/ocaml/preprocess/parser_raw.mly" ( wrap_class_attrs ~loc:_sloc _3 _2 ) -# 2619 "src/ocaml/preprocess/parser_raw.ml" - in +# 2649 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2651,14 +2682,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 : (Parsetree.class_expr) = let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2073 "src/ocaml/preprocess/parser_raw.mly" ( class_of_let_bindings ~loc:_sloc _1 _3 ) -# 2661 "src/ocaml/preprocess/parser_raw.ml" - in +# 2693 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2714,41 +2747,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v : (Parsetree.class_expr) = let _5 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 2726 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__5_ = _endpos__1_inlined2_ in - let _4 = - let _1 = _1_inlined1 in - +# 2760 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__5_ = _endpos__1_inlined2_ in + let _4 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2735 "src/ocaml/preprocess/parser_raw.ml" - - in - let _3 = +# 2769 "src/ocaml/preprocess/parser_raw.ml" + + in + let _3 = # 4129 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 2741 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 2775 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2075 "src/ocaml/preprocess/parser_raw.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)) ) -# 2751 "src/ocaml/preprocess/parser_raw.ml" - in +# 2785 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2811,44 +2846,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v : (Parsetree.class_expr) = let _5 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 2823 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__5_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - +# 2859 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__5_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2832 "src/ocaml/preprocess/parser_raw.ml" - - in - let _3 = - let _1 = _1_inlined1 in - +# 2868 "src/ocaml/preprocess/parser_raw.ml" + + in + let _3 = # 4130 "src/ocaml/preprocess/parser_raw.mly" ( Override ) -# 2840 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 2874 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2075 "src/ocaml/preprocess/parser_raw.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)) ) -# 2851 "src/ocaml/preprocess/parser_raw.ml" - in +# 2884 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2879,7 +2913,7 @@ module Tables = struct let _v : (Parsetree.class_expr) = # 2079 "src/ocaml/preprocess/parser_raw.mly" ( Cl.attr _1 _2 ) -# 2883 "src/ocaml/preprocess/parser_raw.ml" +# 2917 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2908,41 +2942,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.class_expr) = let _1 = + let _v = let _1 = - let _2 = - let xs = -# 253 "" + let _1 = + let _2 = + let xs = +# 264 "" ( List.rev xs ) -# 2918 "src/ocaml/preprocess/parser_raw.ml" - in - +# 2953 "src/ocaml/preprocess/parser_raw.ml" + in + # 1129 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 2923 "src/ocaml/preprocess/parser_raw.ml" +# 2958 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2082 "src/ocaml/preprocess/parser_raw.mly" ( Pcl_apply(_1, _2) ) -# 2929 "src/ocaml/preprocess/parser_raw.ml" +# 2964 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1080 "src/ocaml/preprocess/parser_raw.mly" ( mkclass ~loc:_sloc _1 ) -# 2939 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 2974 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2085 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2945 "src/ocaml/preprocess/parser_raw.ml" - in +# 2980 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -2963,26 +2999,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.class_expr) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2084 "src/ocaml/preprocess/parser_raw.mly" ( Pcl_extension _1 ) -# 2971 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3008 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1080 "src/ocaml/preprocess/parser_raw.mly" ( mkclass ~loc:_sloc _1 ) -# 2979 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 3016 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2085 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 2985 "src/ocaml/preprocess/parser_raw.ml" - in +# 3022 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3031,37 +3069,39 @@ 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 : (Parsetree.class_field) = let _6 = - let _1 = _1_inlined2 in - + let _v = + let _6 = + let _1 = _1_inlined2 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3040 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__6_ = _endpos__1_inlined2_ in - let _3 = - let _1 = _1_inlined1 in - +# 3079 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__6_ = _endpos__1_inlined2_ in + let _3 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3049 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = +# 3088 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = # 4129 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 3055 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__6_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3094 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__6_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2140 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 3064 "src/ocaml/preprocess/parser_raw.ml" - in +# 3103 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3117,40 +3157,39 @@ 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 : (Parsetree.class_field) = let _6 = - let _1 = _1_inlined3 in - + let _v = + let _6 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3126 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__6_ = _endpos__1_inlined3_ in - let _3 = - let _1 = _1_inlined2 in - +# 3167 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__6_ = _endpos__1_inlined3_ in + let _3 = + let _1 = _1_inlined2 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3135 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let _1 = _1_inlined1 in - +# 3176 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = # 4130 "src/ocaml/preprocess/parser_raw.mly" ( Override ) -# 3143 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__6_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3182 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__6_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2140 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 3153 "src/ocaml/preprocess/parser_raw.ml" - in +# 3191 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3186,25 +3225,27 @@ 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 : (Parsetree.class_field) = let _3 = - let _1 = _1_inlined1 in - + let _v = + let _3 = + let _1 = _1_inlined1 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3195 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos__1_inlined1_ in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3235 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__3_ = _endpos__1_inlined1_ in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2143 "src/ocaml/preprocess/parser_raw.mly" ( let v, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_val v) ~attrs:(attrs@_3) ~docs ) -# 3207 "src/ocaml/preprocess/parser_raw.ml" - in +# 3247 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3240,25 +3281,27 @@ 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 : (Parsetree.class_field) = let _3 = - let _1 = _1_inlined1 in - + let _v = + let _3 = + let _1 = _1_inlined1 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3249 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos__1_inlined1_ in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3291 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__3_ = _endpos__1_inlined1_ in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2147 "src/ocaml/preprocess/parser_raw.mly" ( let meth, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_method meth) ~attrs:(attrs@_3) ~docs ) -# 3261 "src/ocaml/preprocess/parser_raw.ml" - in +# 3303 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3300,32 +3343,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 : (Parsetree.class_field) = let _4 = - let _1 = _1_inlined2 in - + let _v = + let _4 = + let _1 = _1_inlined2 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3309 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - +# 3353 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3318 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3362 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2151 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 3328 "src/ocaml/preprocess/parser_raw.ml" - in +# 3372 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3367,32 +3412,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 : (Parsetree.class_field) = let _4 = - let _1 = _1_inlined2 in - + let _v = + let _4 = + let _1 = _1_inlined2 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3376 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - +# 3422 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3385 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3431 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2154 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_initializer _3) ~attrs:(_2@_4) ~docs ) -# 3395 "src/ocaml/preprocess/parser_raw.ml" - in +# 3441 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3420,24 +3467,26 @@ 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 : (Parsetree.class_field) = let _2 = - let _1 = _1_inlined1 in - + let _v = + let _2 = + let _1 = _1_inlined1 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3429 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__2_ = _endpos__1_inlined1_ in - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3477 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__2_ = _endpos__1_inlined1_ in + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2157 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_extension _1) ~attrs:_2 ~docs ) -# 3440 "src/ocaml/preprocess/parser_raw.ml" - in +# 3488 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3458,26 +3507,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.class_field) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2160 "src/ocaml/preprocess/parser_raw.mly" ( Pcf_attribute _1 ) -# 3466 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3516 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1078 "src/ocaml/preprocess/parser_raw.mly" ( mkcf ~loc:_sloc _1 ) -# 3474 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 3524 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2161 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3480 "src/ocaml/preprocess/parser_raw.ml" - in +# 3530 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3508,7 +3559,7 @@ module Tables = struct let _v : (Parsetree.class_expr) = # 2049 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 3512 "src/ocaml/preprocess/parser_raw.ml" +# 3563 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3551,27 +3602,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.class_expr) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2052 "src/ocaml/preprocess/parser_raw.mly" ( Pcl_constraint(_4, _2) ) -# 3559 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3611 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1080 "src/ocaml/preprocess/parser_raw.mly" ( mkclass ~loc:_sloc _1 ) -# 3568 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 3620 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2055 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3574 "src/ocaml/preprocess/parser_raw.ml" - in +# 3626 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3599,27 +3652,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.class_expr) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2054 "src/ocaml/preprocess/parser_raw.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, _2) ) -# 3607 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3661 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1080 "src/ocaml/preprocess/parser_raw.mly" ( mkclass ~loc:_sloc _1 ) -# 3616 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 3670 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2055 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3622 "src/ocaml/preprocess/parser_raw.ml" - in +# 3676 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3654,27 +3709,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_e_ in - let _v : (Parsetree.class_expr) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2116 "src/ocaml/preprocess/parser_raw.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 3662 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos_e_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3718 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos_e_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1080 "src/ocaml/preprocess/parser_raw.mly" ( mkclass ~loc:_sloc _1 ) -# 3671 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 3727 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2117 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3677 "src/ocaml/preprocess/parser_raw.ml" - in +# 3733 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3702,27 +3759,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_e_ in - let _v : (Parsetree.class_expr) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2116 "src/ocaml/preprocess/parser_raw.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 3710 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos_e_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3768 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos_e_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1080 "src/ocaml/preprocess/parser_raw.mly" ( mkclass ~loc:_sloc _1 ) -# 3719 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 3777 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2117 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3725 "src/ocaml/preprocess/parser_raw.ml" - in +# 3783 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3746,7 +3805,7 @@ module Tables = struct let _v : (Longident.t) = # 4011 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3750 "src/ocaml/preprocess/parser_raw.ml" +# 3809 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3782,14 +3841,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 : (Parsetree.pattern) = let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2125 "src/ocaml/preprocess/parser_raw.mly" ( reloc_pat ~loc:_sloc _2 ) -# 3792 "src/ocaml/preprocess/parser_raw.ml" - in +# 3852 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3838,27 +3899,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.pattern) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2127 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_constraint(_2, _4) ) -# 3846 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 3908 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 3855 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 3917 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2128 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3861 "src/ocaml/preprocess/parser_raw.ml" - in +# 3923 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3872,14 +3935,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 : (Parsetree.pattern) = let _endpos = _endpos__0_ in - let _symbolstartpos = _endpos in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__0_ in + let _symbolstartpos = _endpos in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2130 "src/ocaml/preprocess/parser_raw.mly" ( ghpat ~loc:_sloc Ppat_any ) -# 3882 "src/ocaml/preprocess/parser_raw.ml" - in +# 3946 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3917,7 +3982,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 2257 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 3921 "src/ocaml/preprocess/parser_raw.ml" +# 3986 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3932,27 +3997,29 @@ 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 : (Parsetree.core_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2258 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_any ) -# 3940 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__0_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _endpos in - let _sloc = (_symbolstartpos, _endpos) in - +# 4006 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__0_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _endpos in + let _sloc = (_symbolstartpos, _endpos) in + # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 3949 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 4015 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2259 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 3955 "src/ocaml/preprocess/parser_raw.ml" - in +# 4021 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -3994,32 +4061,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 : (Parsetree.class_type_field) = let _4 = - let _1 = _1_inlined2 in - + let _v = + let _4 = + let _1 = _1_inlined2 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4003 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - +# 4071 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4012 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 4080 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2267 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_inherit _3) ~attrs:(_2@_4) ~docs ) -# 4022 "src/ocaml/preprocess/parser_raw.ml" - in +# 4090 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4078,7 +4147,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 4082 "src/ocaml/preprocess/parser_raw.ml" +# 4151 "src/ocaml/preprocess/parser_raw.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 @@ -4086,58 +4155,60 @@ 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 : (Parsetree.class_type_field) = let _4 = - let _1 = _1_inlined3 in - + let _v = + let _4 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4095 "src/ocaml/preprocess/parser_raw.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 = +# 4165 "src/ocaml/preprocess/parser_raw.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 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4105 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 4175 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 4113 "src/ocaml/preprocess/parser_raw.ml" +# 4183 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2292 "src/ocaml/preprocess/parser_raw.mly" ( let mut, virt = flags in label, mut, virt, ty ) -# 4122 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let _1 = _1_inlined1 in - +# 4192 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4130 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 4200 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2270 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_val _3) ~attrs:(_2@_4) ~docs ) -# 4140 "src/ocaml/preprocess/parser_raw.ml" - in +# 4210 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4196,7 +4267,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 4200 "src/ocaml/preprocess/parser_raw.ml" +# 4271 "src/ocaml/preprocess/parser_raw.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 @@ -4204,57 +4275,59 @@ 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 : (Parsetree.class_type_field) = let _7 = - let _1 = _1_inlined4 in - + let _v = + let _7 = + let _1 = _1_inlined4 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4213 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__7_ = _endpos__1_inlined4_ in - let _6 = - let _1 = _1_inlined3 in - +# 4285 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__7_ = _endpos__1_inlined4_ in + let _6 = + let _1 = _1_inlined3 in + # 3596 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4222 "src/ocaml/preprocess/parser_raw.ml" - - in - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _1 = +# 4294 "src/ocaml/preprocess/parser_raw.ml" + + in + let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4230 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 4302 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 4238 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let _1 = _1_inlined1 in - +# 4310 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4246 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 4318 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2274 "src/ocaml/preprocess/parser_raw.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 ) -# 4257 "src/ocaml/preprocess/parser_raw.ml" - in +# 4329 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4296,32 +4369,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 : (Parsetree.class_type_field) = let _4 = - let _1 = _1_inlined2 in - + let _v = + let _4 = + let _1 = _1_inlined2 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4305 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - +# 4379 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4314 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 4388 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2278 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 4324 "src/ocaml/preprocess/parser_raw.ml" - in +# 4398 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4349,24 +4424,26 @@ 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 : (Parsetree.class_type_field) = let _2 = - let _1 = _1_inlined1 in - + let _v = + let _2 = + let _1 = _1_inlined1 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4358 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__2_ = _endpos__1_inlined1_ in - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 4434 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__2_ = _endpos__1_inlined1_ in + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2281 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_extension _1) ~attrs:_2 ~docs ) -# 4369 "src/ocaml/preprocess/parser_raw.ml" - in +# 4445 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4387,26 +4464,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.class_type_field) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2284 "src/ocaml/preprocess/parser_raw.mly" ( Pctf_attribute _1 ) -# 4395 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 4473 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1076 "src/ocaml/preprocess/parser_raw.mly" ( mkctf ~loc:_sloc _1 ) -# 4403 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 4481 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2285 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4409 "src/ocaml/preprocess/parser_raw.ml" - in +# 4487 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4427,50 +4506,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.class_type) = let _1 = + let _v = let _1 = - let cid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let cid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 4440 "src/ocaml/preprocess/parser_raw.ml" - - in - let tys = - let tys = +# 4520 "src/ocaml/preprocess/parser_raw.ml" + + in + let tys = + let tys = # 2243 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 4447 "src/ocaml/preprocess/parser_raw.ml" - in - +# 4527 "src/ocaml/preprocess/parser_raw.ml" + in + # 2249 "src/ocaml/preprocess/parser_raw.mly" ( tys ) -# 4452 "src/ocaml/preprocess/parser_raw.ml" +# 4532 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2224 "src/ocaml/preprocess/parser_raw.mly" ( Pcty_constr (cid, tys) ) -# 4458 "src/ocaml/preprocess/parser_raw.ml" +# 4538 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1074 "src/ocaml/preprocess/parser_raw.mly" ( mkcty ~loc:_sloc _1 ) -# 4467 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 4547 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4473 "src/ocaml/preprocess/parser_raw.ml" - in +# 4553 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4512,66 +4593,68 @@ 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 : (Parsetree.class_type) = let _1 = + let _v = 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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 4526 "src/ocaml/preprocess/parser_raw.ml" - - in - let tys = +# 4608 "src/ocaml/preprocess/parser_raw.ml" + + in let tys = - let params = - let xs = -# 253 "" + let tys = + let params = + let xs = +# 264 "" ( List.rev xs ) -# 4535 "src/ocaml/preprocess/parser_raw.ml" - in - +# 4617 "src/ocaml/preprocess/parser_raw.ml" + in + # 1182 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 4540 "src/ocaml/preprocess/parser_raw.ml" +# 4622 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2245 "src/ocaml/preprocess/parser_raw.mly" ( params ) -# 4546 "src/ocaml/preprocess/parser_raw.ml" +# 4628 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2249 "src/ocaml/preprocess/parser_raw.mly" ( tys ) -# 4552 "src/ocaml/preprocess/parser_raw.ml" +# 4634 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2224 "src/ocaml/preprocess/parser_raw.mly" ( Pcty_constr (cid, tys) ) -# 4558 "src/ocaml/preprocess/parser_raw.ml" +# 4640 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1074 "src/ocaml/preprocess/parser_raw.mly" ( mkcty ~loc:_sloc _1 ) -# 4568 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 4650 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4574 "src/ocaml/preprocess/parser_raw.ml" - in +# 4656 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4592,26 +4675,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.class_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2226 "src/ocaml/preprocess/parser_raw.mly" ( Pcty_extension _1 ) -# 4600 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 4684 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1074 "src/ocaml/preprocess/parser_raw.mly" ( mkcty ~loc:_sloc _1 ) -# 4608 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 4692 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4614 "src/ocaml/preprocess/parser_raw.ml" - in +# 4698 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4660,52 +4745,54 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.class_type) = let _3 = - let _1 = _1_inlined2 in - let _2 = - let _1 = - let _1 = -# 260 "" + let _v = + let _3 = + let _1 = _1_inlined2 in + let _2 = + let _1 = + let _1 = +# 271 "" ( List.flatten xss ) -# 4671 "src/ocaml/preprocess/parser_raw.ml" - in - +# 4757 "src/ocaml/preprocess/parser_raw.ml" + in + # 2263 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4676 "src/ocaml/preprocess/parser_raw.ml" +# 4762 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - # 1022 "src/ocaml/preprocess/parser_raw.mly" ( extra_csig _startpos _endpos _1 ) -# 4685 "src/ocaml/preprocess/parser_raw.ml" +# 4771 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2253 "src/ocaml/preprocess/parser_raw.mly" ( Csig.mk _1 _2 ) -# 4691 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let _1 = _1_inlined1 in - +# 4777 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4699 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 4785 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2229 "src/ocaml/preprocess/parser_raw.mly" ( mkcty ~loc:_sloc ~attrs:_2 (Pcty_signature _3) ) -# 4708 "src/ocaml/preprocess/parser_raw.ml" - in +# 4794 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4736,7 +4823,7 @@ module Tables = struct let _v : (Parsetree.class_type) = # 2235 "src/ocaml/preprocess/parser_raw.mly" ( Cty.attr _1 _2 ) -# 4740 "src/ocaml/preprocess/parser_raw.ml" +# 4827 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4793,41 +4880,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v : (Parsetree.class_type) = let _5 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 4805 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__5_ = _endpos__1_inlined2_ in - let _4 = - let _1 = _1_inlined1 in - +# 4893 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__5_ = _endpos__1_inlined2_ in + let _4 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4814 "src/ocaml/preprocess/parser_raw.ml" - - in - let _3 = +# 4902 "src/ocaml/preprocess/parser_raw.ml" + + in + let _3 = # 4129 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 4820 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 4908 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2237 "src/ocaml/preprocess/parser_raw.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)) ) -# 4830 "src/ocaml/preprocess/parser_raw.ml" - in +# 4918 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4890,44 +4979,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v : (Parsetree.class_type) = let _5 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 4902 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__5_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - +# 4992 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__5_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 4911 "src/ocaml/preprocess/parser_raw.ml" - - in - let _3 = - let _1 = _1_inlined1 in - +# 5001 "src/ocaml/preprocess/parser_raw.ml" + + in + let _3 = # 4130 "src/ocaml/preprocess/parser_raw.mly" ( Override ) -# 4919 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__7_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 5007 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2237 "src/ocaml/preprocess/parser_raw.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)) ) -# 4930 "src/ocaml/preprocess/parser_raw.ml" - in +# 5017 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -4965,7 +5053,7 @@ module Tables = struct let _v : (Parsetree.class_expr) = # 2089 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 4969 "src/ocaml/preprocess/parser_raw.ml" +# 5057 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4987,50 +5075,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.class_expr) = let _1 = + let _v = let _1 = - let cid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let cid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 5000 "src/ocaml/preprocess/parser_raw.ml" - - in - let tys = - let tys = +# 5089 "src/ocaml/preprocess/parser_raw.ml" + + in + let tys = + let tys = # 2243 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 5007 "src/ocaml/preprocess/parser_raw.ml" - in - +# 5096 "src/ocaml/preprocess/parser_raw.ml" + in + # 2249 "src/ocaml/preprocess/parser_raw.mly" ( tys ) -# 5012 "src/ocaml/preprocess/parser_raw.ml" +# 5101 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2096 "src/ocaml/preprocess/parser_raw.mly" ( Pcl_constr(cid, tys) ) -# 5018 "src/ocaml/preprocess/parser_raw.ml" +# 5107 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1080 "src/ocaml/preprocess/parser_raw.mly" ( mkclass ~loc:_sloc _1 ) -# 5027 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 5116 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2107 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5033 "src/ocaml/preprocess/parser_raw.ml" - in +# 5122 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5072,66 +5162,68 @@ 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 : (Parsetree.class_expr) = let _1 = + let _v = 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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 5086 "src/ocaml/preprocess/parser_raw.ml" - - in - let tys = +# 5177 "src/ocaml/preprocess/parser_raw.ml" + + in let tys = - let params = - let xs = -# 253 "" + let tys = + let params = + let xs = +# 264 "" ( List.rev xs ) -# 5095 "src/ocaml/preprocess/parser_raw.ml" - in - +# 5186 "src/ocaml/preprocess/parser_raw.ml" + in + # 1182 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 5100 "src/ocaml/preprocess/parser_raw.ml" +# 5191 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2245 "src/ocaml/preprocess/parser_raw.mly" ( params ) -# 5106 "src/ocaml/preprocess/parser_raw.ml" +# 5197 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2249 "src/ocaml/preprocess/parser_raw.mly" ( tys ) -# 5112 "src/ocaml/preprocess/parser_raw.ml" +# 5203 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2096 "src/ocaml/preprocess/parser_raw.mly" ( Pcl_constr(cid, tys) ) -# 5118 "src/ocaml/preprocess/parser_raw.ml" +# 5209 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1080 "src/ocaml/preprocess/parser_raw.mly" ( mkclass ~loc:_sloc _1 ) -# 5128 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 5219 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2107 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5134 "src/ocaml/preprocess/parser_raw.ml" - in +# 5225 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5180,27 +5272,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.class_expr) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2102 "src/ocaml/preprocess/parser_raw.mly" ( Pcl_constraint(_2, _4) ) -# 5188 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 5281 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1080 "src/ocaml/preprocess/parser_raw.mly" ( mkclass ~loc:_sloc _1 ) -# 5197 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 5290 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2107 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5203 "src/ocaml/preprocess/parser_raw.ml" - in +# 5296 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5249,52 +5343,54 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.class_expr) = let _3 = - let _1 = _1_inlined2 in - let _2 = - let _1 = - let _1 = -# 260 "" + let _v = + let _3 = + let _1 = _1_inlined2 in + let _2 = + let _1 = + let _1 = +# 271 "" ( List.flatten xss ) -# 5260 "src/ocaml/preprocess/parser_raw.ml" - in - +# 5355 "src/ocaml/preprocess/parser_raw.ml" + in + # 2134 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5265 "src/ocaml/preprocess/parser_raw.ml" +# 5360 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - # 1021 "src/ocaml/preprocess/parser_raw.mly" ( extra_cstr _startpos _endpos _1 ) -# 5274 "src/ocaml/preprocess/parser_raw.ml" +# 5369 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2121 "src/ocaml/preprocess/parser_raw.mly" ( Cstr.mk _1 _2 ) -# 5280 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let _1 = _1_inlined1 in - +# 5375 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5288 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 5383 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2109 "src/ocaml/preprocess/parser_raw.mly" ( mkclass ~loc:_sloc ~attrs:_2 (Pcl_structure _3) ) -# 5297 "src/ocaml/preprocess/parser_raw.ml" - in +# 5392 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5318,7 +5414,7 @@ module Tables = struct let _v : (Parsetree.class_type) = # 2212 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5322 "src/ocaml/preprocess/parser_raw.ml" +# 5418 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5361,34 +5457,36 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v : (Parsetree.class_type) = let _1 = + let _v = let _1 = - let label = + let _1 = + let label = # 3659 "src/ocaml/preprocess/parser_raw.mly" ( Optional label ) -# 5370 "src/ocaml/preprocess/parser_raw.ml" - in - +# 5467 "src/ocaml/preprocess/parser_raw.ml" + in + # 2218 "src/ocaml/preprocess/parser_raw.mly" ( Pcty_arrow(label, domain, codomain) ) -# 5375 "src/ocaml/preprocess/parser_raw.ml" +# 5472 "src/ocaml/preprocess/parser_raw.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 - 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 - # 1074 "src/ocaml/preprocess/parser_raw.mly" ( mkcty ~loc:_sloc _1 ) -# 5385 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 5482 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2219 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5391 "src/ocaml/preprocess/parser_raw.ml" - in +# 5488 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5436,39 +5534,41 @@ module Tables = struct let label : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 5440 "src/ocaml/preprocess/parser_raw.ml" +# 5538 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v : (Parsetree.class_type) = let _1 = + let _v = let _1 = - let label = + let _1 = + let label = # 3661 "src/ocaml/preprocess/parser_raw.mly" ( Labelled label ) -# 5450 "src/ocaml/preprocess/parser_raw.ml" - in - +# 5549 "src/ocaml/preprocess/parser_raw.ml" + in + # 2218 "src/ocaml/preprocess/parser_raw.mly" ( Pcty_arrow(label, domain, codomain) ) -# 5455 "src/ocaml/preprocess/parser_raw.ml" +# 5554 "src/ocaml/preprocess/parser_raw.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 - 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 - # 1074 "src/ocaml/preprocess/parser_raw.mly" ( mkcty ~loc:_sloc _1 ) -# 5465 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 5564 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2219 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5471 "src/ocaml/preprocess/parser_raw.ml" - in +# 5570 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5503,34 +5603,36 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_domain_ in let _endpos = _endpos_codomain_ in - let _v : (Parsetree.class_type) = let _1 = + let _v = let _1 = - let label = + let _1 = + let label = # 3663 "src/ocaml/preprocess/parser_raw.mly" ( Nolabel ) -# 5512 "src/ocaml/preprocess/parser_raw.ml" - in - +# 5613 "src/ocaml/preprocess/parser_raw.ml" + in + # 2218 "src/ocaml/preprocess/parser_raw.mly" ( Pcty_arrow(label, domain, codomain) ) -# 5517 "src/ocaml/preprocess/parser_raw.ml" +# 5618 "src/ocaml/preprocess/parser_raw.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 - 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 - # 1074 "src/ocaml/preprocess/parser_raw.mly" ( mkcty ~loc:_sloc _1 ) -# 5527 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 5628 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2219 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5533 "src/ocaml/preprocess/parser_raw.ml" - in +# 5634 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5614,7 +5716,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 5618 "src/ocaml/preprocess/parser_raw.ml" +# 5720 "src/ocaml/preprocess/parser_raw.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 @@ -5625,40 +5727,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 : (string Location.loc option * Parsetree.class_type_declaration list) = let _1 = - let a = - let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let _1 = + let a = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5636 "src/ocaml/preprocess/parser_raw.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 - +# 5739 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 5648 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 5751 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5656 "src/ocaml/preprocess/parser_raw.ml" +# 5759 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2359 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -5667,20 +5770,21 @@ module Tables = struct ext, Ci.mk id csig ~virt ~params ~attrs ~loc ~docs ) -# 5671 "src/ocaml/preprocess/parser_raw.ml" +# 5774 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1279 "src/ocaml/preprocess/parser_raw.mly" ( let (x, b) = a in x, b :: bs ) -# 5677 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 5780 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2347 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5683 "src/ocaml/preprocess/parser_raw.ml" - in +# 5786 "src/ocaml/preprocess/parser_raw.ml" + : (string Location.loc option * Parsetree.class_type_declaration list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -5704,7 +5808,7 @@ module Tables = struct let _v : (Longident.t) = # 4008 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5708 "src/ocaml/preprocess/parser_raw.ml" +# 5812 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5725,7 +5829,7 @@ module Tables = struct let _1 : ( # 824 "src/ocaml/preprocess/parser_raw.mly" (string * char option) -# 5729 "src/ocaml/preprocess/parser_raw.ml" +# 5833 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -5733,7 +5837,7 @@ module Tables = struct let _v : (Parsetree.constant) = # 3887 "src/ocaml/preprocess/parser_raw.mly" ( let (n, m) = _1 in Pconst_integer (n, m) ) -# 5737 "src/ocaml/preprocess/parser_raw.ml" +# 5841 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5754,7 +5858,7 @@ module Tables = struct let _1 : ( # 783 "src/ocaml/preprocess/parser_raw.mly" (char) -# 5758 "src/ocaml/preprocess/parser_raw.ml" +# 5862 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -5762,7 +5866,7 @@ module Tables = struct let _v : (Parsetree.constant) = # 3888 "src/ocaml/preprocess/parser_raw.mly" ( Pconst_char _1 ) -# 5766 "src/ocaml/preprocess/parser_raw.ml" +# 5870 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5783,7 +5887,7 @@ module Tables = struct let _1 : ( # 876 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string option) -# 5787 "src/ocaml/preprocess/parser_raw.ml" +# 5891 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -5791,7 +5895,7 @@ module Tables = struct let _v : (Parsetree.constant) = # 3889 "src/ocaml/preprocess/parser_raw.mly" ( let (s, strloc, d) = _1 in Pconst_string (s, strloc, d) ) -# 5795 "src/ocaml/preprocess/parser_raw.ml" +# 5899 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5812,7 +5916,7 @@ module Tables = struct let _1 : ( # 803 "src/ocaml/preprocess/parser_raw.mly" (string * char option) -# 5816 "src/ocaml/preprocess/parser_raw.ml" +# 5920 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -5820,7 +5924,7 @@ module Tables = struct let _v : (Parsetree.constant) = # 3890 "src/ocaml/preprocess/parser_raw.mly" ( let (f, m) = _1 in Pconst_float (f, m) ) -# 5824 "src/ocaml/preprocess/parser_raw.ml" +# 5928 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5852,7 +5956,7 @@ module Tables = struct let _v : (string) = # 3963 "src/ocaml/preprocess/parser_raw.mly" ( "[]" ) -# 5856 "src/ocaml/preprocess/parser_raw.ml" +# 5960 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5884,7 +5988,7 @@ module Tables = struct let _v : (string) = # 3964 "src/ocaml/preprocess/parser_raw.mly" ( "()" ) -# 5888 "src/ocaml/preprocess/parser_raw.ml" +# 5992 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5909,7 +6013,7 @@ module Tables = struct let _v : (string) = # 3965 "src/ocaml/preprocess/parser_raw.mly" ( "false" ) -# 5913 "src/ocaml/preprocess/parser_raw.ml" +# 6017 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5934,7 +6038,7 @@ module Tables = struct let _v : (string) = # 3966 "src/ocaml/preprocess/parser_raw.mly" ( "true" ) -# 5938 "src/ocaml/preprocess/parser_raw.ml" +# 6042 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5955,7 +6059,7 @@ module Tables = struct let _1 : ( # 890 "src/ocaml/preprocess/parser_raw.mly" (string) -# 5959 "src/ocaml/preprocess/parser_raw.ml" +# 6063 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -5963,7 +6067,7 @@ module Tables = struct let _v : (string) = # 3969 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 5967 "src/ocaml/preprocess/parser_raw.ml" +# 6071 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5999,16 +6103,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3960 "src/ocaml/preprocess/parser_raw.mly" ( "::" ) -# 6006 "src/ocaml/preprocess/parser_raw.ml" - in - +# 6111 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3970 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 6011 "src/ocaml/preprocess/parser_raw.ml" - in +# 6116 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6032,7 +6138,7 @@ module Tables = struct let _v : (string) = # 3971 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 6036 "src/ocaml/preprocess/parser_raw.ml" +# 6142 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6057,7 +6163,7 @@ module Tables = struct let _v : (Longident.t) = # 3974 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 6061 "src/ocaml/preprocess/parser_raw.ml" +# 6167 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6107,19 +6213,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Longident.t) = let _3 = - let (_2, _1) = (_2_inlined1, _1_inlined1) in - + let _v = + let _3 = # 3960 "src/ocaml/preprocess/parser_raw.mly" ( "::" ) -# 6116 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 6221 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3975 "src/ocaml/preprocess/parser_raw.mly" ( Ldot(_1,_3) ) -# 6122 "src/ocaml/preprocess/parser_raw.ml" - in +# 6226 "src/ocaml/preprocess/parser_raw.ml" + : (Longident.t)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6154,16 +6259,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Longident.t) = let _1 = + let _v = + let _1 = # 3960 "src/ocaml/preprocess/parser_raw.mly" ( "::" ) -# 6161 "src/ocaml/preprocess/parser_raw.ml" - in - +# 6267 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3976 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 6166 "src/ocaml/preprocess/parser_raw.ml" - in +# 6272 "src/ocaml/preprocess/parser_raw.ml" + : (Longident.t)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6187,7 +6294,7 @@ module Tables = struct let _v : (Longident.t) = # 3977 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 6191 "src/ocaml/preprocess/parser_raw.ml" +# 6298 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6226,7 +6333,7 @@ module Tables = struct let _v : (Parsetree.core_type * Parsetree.core_type) = # 2303 "src/ocaml/preprocess/parser_raw.mly" ( _1, _3 ) -# 6230 "src/ocaml/preprocess/parser_raw.ml" +# 6337 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6248,30 +6355,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.constructor_arguments) = let tys = - let xs = - let xs = + let _v = + let tys = + let xs = + let xs = # 1166 "src/ocaml/preprocess/parser_raw.mly" ( [ x ] ) -# 6257 "src/ocaml/preprocess/parser_raw.ml" - in - -# 253 "" +# 6365 "src/ocaml/preprocess/parser_raw.ml" + in + +# 264 "" ( List.rev xs ) -# 6262 "src/ocaml/preprocess/parser_raw.ml" +# 6370 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1186 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 6268 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 6376 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3462 "src/ocaml/preprocess/parser_raw.mly" ( Pcstr_tuple tys ) -# 6274 "src/ocaml/preprocess/parser_raw.ml" - in +# 6382 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.constructor_arguments)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6306,30 +6415,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.constructor_arguments) = let tys = - let xs = - let xs = + let _v = + let tys = + let xs = + let xs = # 1170 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 6315 "src/ocaml/preprocess/parser_raw.ml" - in - -# 253 "" +# 6425 "src/ocaml/preprocess/parser_raw.ml" + in + +# 264 "" ( List.rev xs ) -# 6320 "src/ocaml/preprocess/parser_raw.ml" +# 6430 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1186 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 6326 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 6436 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3462 "src/ocaml/preprocess/parser_raw.mly" ( Pcstr_tuple tys ) -# 6332 "src/ocaml/preprocess/parser_raw.ml" - in +# 6442 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.constructor_arguments)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6367,7 +6478,7 @@ module Tables = struct let _v : (Parsetree.constructor_arguments) = # 3464 "src/ocaml/preprocess/parser_raw.mly" ( Pcstr_record _2 ) -# 6371 "src/ocaml/preprocess/parser_raw.ml" +# 6482 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6392,7 +6503,7 @@ module Tables = struct let _v : (Parsetree.constructor_declaration list) = # 3378 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 6396 "src/ocaml/preprocess/parser_raw.ml" +# 6507 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6414,16 +6525,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.constructor_declaration list) = let cs = + let _v = + let cs = # 1271 "src/ocaml/preprocess/parser_raw.mly" ( List.rev xs ) -# 6421 "src/ocaml/preprocess/parser_raw.ml" - in - +# 6533 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3380 "src/ocaml/preprocess/parser_raw.mly" ( cs ) -# 6426 "src/ocaml/preprocess/parser_raw.ml" - in +# 6538 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.constructor_declaration list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6444,16 +6557,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = + let _1 = # 3621 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 6451 "src/ocaml/preprocess/parser_raw.ml" - in - +# 6565 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3611 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 6456 "src/ocaml/preprocess/parser_raw.ml" - in +# 6570 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6484,7 +6599,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 3613 "src/ocaml/preprocess/parser_raw.mly" ( Typ.attr _1 _2 ) -# 6488 "src/ocaml/preprocess/parser_raw.ml" +# 6603 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6509,7 +6624,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 3761 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 6513 "src/ocaml/preprocess/parser_raw.ml" +# 6628 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6534,7 +6649,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 3761 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 6538 "src/ocaml/preprocess/parser_raw.ml" +# 6653 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6559,7 +6674,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 3761 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 6563 "src/ocaml/preprocess/parser_raw.ml" +# 6678 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6598,7 +6713,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 3714 "src/ocaml/preprocess/parser_raw.mly" ( type_ ) -# 6602 "src/ocaml/preprocess/parser_raw.ml" +# 6717 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6655,43 +6770,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 : (Parsetree.core_type) = let package_type = - 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 - + let _v = + let package_type = + 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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 6669 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 6785 "src/ocaml/preprocess/parser_raw.ml" + in + let attrs = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 6679 "src/ocaml/preprocess/parser_raw.ml" +# 6795 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 6685 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 6801 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3716 "src/ocaml/preprocess/parser_raw.mly" ( wrap_typ_attrs ~loc:_sloc (reloc_typ ~loc:_sloc package_type) attrs ) -# 6694 "src/ocaml/preprocess/parser_raw.ml" - in +# 6810 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6726,27 +6843,206 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.core_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3719 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_variant([ field ], Closed, None) ) -# 6734 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 6852 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1064 "src/ocaml/preprocess/parser_raw.mly" + ( mktyp ~loc:_sloc _1 ) +# 6861 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 3736 "src/ocaml/preprocess/parser_raw.mly" + ( _1 ) +# 6867 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _4; + MenhirLib.EngineTypes.startp = _startpos__4_; + MenhirLib.EngineTypes.endp = _endpos__4_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = xs; + MenhirLib.EngineTypes.startp = _startpos_xs_; + MenhirLib.EngineTypes.endp = _endpos_xs_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _2; + MenhirLib.EngineTypes.startp = _startpos__2_; + MenhirLib.EngineTypes.endp = _endpos__2_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + } = _menhir_stack in + let _4 : unit = Obj.magic _4 in + let xs : (Parsetree.row_field list) = Obj.magic xs in + let _2 : unit = Obj.magic _2 in + let _1 : unit = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos__4_ in + let _v = + let _1 = + let _1 = + let fields = + let _1 = + let xs = +# 264 "" + ( List.rev xs ) +# 6919 "src/ocaml/preprocess/parser_raw.ml" + in + +# 1182 "src/ocaml/preprocess/parser_raw.mly" + ( xs ) +# 6924 "src/ocaml/preprocess/parser_raw.ml" + + in + +# 3813 "src/ocaml/preprocess/parser_raw.mly" + ( _1 ) +# 6930 "src/ocaml/preprocess/parser_raw.ml" + + in + +# 3721 "src/ocaml/preprocess/parser_raw.mly" + ( Ptyp_variant(fields, Closed, None) ) +# 6936 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 6743 "src/ocaml/preprocess/parser_raw.ml" - +# 6946 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 3736 "src/ocaml/preprocess/parser_raw.mly" + ( _1 ) +# 6952 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) in - + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _5; + MenhirLib.EngineTypes.startp = _startpos__5_; + MenhirLib.EngineTypes.endp = _endpos__5_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = xs; + MenhirLib.EngineTypes.startp = _startpos_xs_; + MenhirLib.EngineTypes.endp = _endpos_xs_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = _3; + MenhirLib.EngineTypes.startp = _startpos__3_; + MenhirLib.EngineTypes.endp = _endpos__3_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = field; + MenhirLib.EngineTypes.startp = _startpos_field_; + MenhirLib.EngineTypes.endp = _endpos_field_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + }; + } = _menhir_stack in + let _5 : unit = Obj.magic _5 in + let xs : (Parsetree.row_field list) = Obj.magic xs in + let _3 : unit = Obj.magic _3 in + let field : (Parsetree.row_field) = Obj.magic field in + 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 _1 = + let _1 = + let fields = + let _1 = + let xs = +# 264 "" + ( List.rev xs ) +# 7011 "src/ocaml/preprocess/parser_raw.ml" + in + +# 1182 "src/ocaml/preprocess/parser_raw.mly" + ( xs ) +# 7016 "src/ocaml/preprocess/parser_raw.ml" + + in + +# 3813 "src/ocaml/preprocess/parser_raw.mly" + ( _1 ) +# 7022 "src/ocaml/preprocess/parser_raw.ml" + + in + +# 3723 "src/ocaml/preprocess/parser_raw.mly" + ( Ptyp_variant(field :: fields, Closed, None) ) +# 7028 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1064 "src/ocaml/preprocess/parser_raw.mly" + ( mktyp ~loc:_sloc _1 ) +# 7038 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3736 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 6749 "src/ocaml/preprocess/parser_raw.ml" - in +# 7044 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -6783,226 +7079,55 @@ module Tables = struct } = _menhir_stack in let _4 : unit = Obj.magic _4 in let xs : (Parsetree.row_field list) = Obj.magic xs in - let _2 : unit = Obj.magic _2 in + let _2 : (unit option) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let fields = - let _1 = - let xs = -# 253 "" + let _1 = + let fields = + let _1 = + let xs = +# 264 "" ( List.rev xs ) -# 6799 "src/ocaml/preprocess/parser_raw.ml" - in - +# 7096 "src/ocaml/preprocess/parser_raw.ml" + in + # 1182 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 6804 "src/ocaml/preprocess/parser_raw.ml" +# 7101 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3813 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 6810 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 3721 "src/ocaml/preprocess/parser_raw.mly" - ( Ptyp_variant(fields, Closed, None) ) -# 6816 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1064 "src/ocaml/preprocess/parser_raw.mly" - ( mktyp ~loc:_sloc _1 ) -# 6826 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 3736 "src/ocaml/preprocess/parser_raw.mly" - ( _1 ) -# 6832 "src/ocaml/preprocess/parser_raw.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _5; - MenhirLib.EngineTypes.startp = _startpos__5_; - MenhirLib.EngineTypes.endp = _endpos__5_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = xs; - MenhirLib.EngineTypes.startp = _startpos_xs_; - MenhirLib.EngineTypes.endp = _endpos_xs_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _3; - MenhirLib.EngineTypes.startp = _startpos__3_; - MenhirLib.EngineTypes.endp = _endpos__3_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = field; - MenhirLib.EngineTypes.startp = _startpos_field_; - MenhirLib.EngineTypes.endp = _endpos_field_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - }; - } = _menhir_stack in - let _5 : unit = Obj.magic _5 in - let xs : (Parsetree.row_field list) = Obj.magic xs in - let _3 : unit = Obj.magic _3 in - let field : (Parsetree.row_field) = Obj.magic field in - let _1 : unit = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__5_ in - let _v : (Parsetree.core_type) = let _1 = - let _1 = - let fields = - let _1 = - let xs = -# 253 "" - ( List.rev xs ) -# 6889 "src/ocaml/preprocess/parser_raw.ml" - in - -# 1182 "src/ocaml/preprocess/parser_raw.mly" - ( xs ) -# 6894 "src/ocaml/preprocess/parser_raw.ml" +# 7107 "src/ocaml/preprocess/parser_raw.ml" in -# 3813 "src/ocaml/preprocess/parser_raw.mly" - ( _1 ) -# 6900 "src/ocaml/preprocess/parser_raw.ml" +# 3725 "src/ocaml/preprocess/parser_raw.mly" + ( Ptyp_variant(fields, Open, None) ) +# 7113 "src/ocaml/preprocess/parser_raw.ml" in + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 3723 "src/ocaml/preprocess/parser_raw.mly" - ( Ptyp_variant(field :: fields, Closed, None) ) -# 6906 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 6916 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 3736 "src/ocaml/preprocess/parser_raw.mly" - ( _1 ) -# 6922 "src/ocaml/preprocess/parser_raw.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _4; - MenhirLib.EngineTypes.startp = _startpos__4_; - MenhirLib.EngineTypes.endp = _endpos__4_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = xs; - MenhirLib.EngineTypes.startp = _startpos_xs_; - MenhirLib.EngineTypes.endp = _endpos_xs_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = _2; - MenhirLib.EngineTypes.startp = _startpos__2_; - MenhirLib.EngineTypes.endp = _endpos__2_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - } = _menhir_stack in - let _4 : unit = Obj.magic _4 in - let xs : (Parsetree.row_field list) = Obj.magic xs in - let _2 : (unit option) = Obj.magic _2 in - let _1 : unit = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos__4_ in - let _v : (Parsetree.core_type) = let _1 = - let _1 = - let fields = - let _1 = - let xs = -# 253 "" - ( List.rev xs ) -# 6972 "src/ocaml/preprocess/parser_raw.ml" - in - -# 1182 "src/ocaml/preprocess/parser_raw.mly" - ( xs ) -# 6977 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 3813 "src/ocaml/preprocess/parser_raw.mly" - ( _1 ) -# 6983 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 3725 "src/ocaml/preprocess/parser_raw.mly" - ( Ptyp_variant(fields, Open, None) ) -# 6989 "src/ocaml/preprocess/parser_raw.ml" +# 7123 "src/ocaml/preprocess/parser_raw.ml" in - let _endpos__1_ = _endpos__4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1064 "src/ocaml/preprocess/parser_raw.mly" - ( mktyp ~loc:_sloc _1 ) -# 6999 "src/ocaml/preprocess/parser_raw.ml" - - in - + ( # 3736 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7005 "src/ocaml/preprocess/parser_raw.ml" - in +# 7129 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7030,27 +7155,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.core_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3727 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_variant([], Open, None) ) -# 7038 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 7164 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 7047 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 7173 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3736 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7053 "src/ocaml/preprocess/parser_raw.ml" - in +# 7179 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7092,48 +7219,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let fields = - let _1 = - let xs = -# 253 "" + let _1 = + let fields = + let _1 = + let xs = +# 264 "" ( List.rev xs ) -# 7103 "src/ocaml/preprocess/parser_raw.ml" - in - +# 7231 "src/ocaml/preprocess/parser_raw.ml" + in + # 1182 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 7108 "src/ocaml/preprocess/parser_raw.ml" +# 7236 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3813 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7114 "src/ocaml/preprocess/parser_raw.ml" +# 7242 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3729 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_variant(fields, Closed, Some []) ) -# 7120 "src/ocaml/preprocess/parser_raw.ml" +# 7248 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 7130 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 7258 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3736 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7136 "src/ocaml/preprocess/parser_raw.ml" - in +# 7264 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7189,68 +7318,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 : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let tags = - let xs = xs_inlined1 in - let _1 = - let xs = -# 253 "" + let _1 = + let tags = + let xs = xs_inlined1 in + let _1 = + let xs = +# 264 "" ( List.rev xs ) -# 7201 "src/ocaml/preprocess/parser_raw.ml" - in - +# 7331 "src/ocaml/preprocess/parser_raw.ml" + in + # 1129 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 7206 "src/ocaml/preprocess/parser_raw.ml" +# 7336 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3841 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7212 "src/ocaml/preprocess/parser_raw.ml" - - in - let fields = - let _1 = - let xs = -# 253 "" - ( List.rev xs ) -# 7220 "src/ocaml/preprocess/parser_raw.ml" - in +# 7342 "src/ocaml/preprocess/parser_raw.ml" + in + let fields = + let _1 = + let xs = +# 264 "" + ( List.rev xs ) +# 7350 "src/ocaml/preprocess/parser_raw.ml" + in + # 1182 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 7225 "src/ocaml/preprocess/parser_raw.ml" +# 7355 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3813 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7231 "src/ocaml/preprocess/parser_raw.ml" +# 7361 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3734 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_variant(fields, Closed, Some tags) ) -# 7237 "src/ocaml/preprocess/parser_raw.ml" +# 7367 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__6_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__6_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 7247 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 7377 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3736 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7253 "src/ocaml/preprocess/parser_raw.ml" - in +# 7383 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7274,7 +7405,7 @@ module Tables = struct let _v : (Asttypes.direction_flag) = # 4074 "src/ocaml/preprocess/parser_raw.mly" ( Upto ) -# 7278 "src/ocaml/preprocess/parser_raw.ml" +# 7409 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7299,7 +7430,7 @@ module Tables = struct let _v : (Asttypes.direction_flag) = # 4075 "src/ocaml/preprocess/parser_raw.mly" ( Downto ) -# 7303 "src/ocaml/preprocess/parser_raw.ml" +# 7434 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7317,7 +7448,7 @@ module Tables = struct let _v : (string Location.loc option) = # 4230 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 7321 "src/ocaml/preprocess/parser_raw.ml" +# 7452 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7349,7 +7480,7 @@ module Tables = struct let _v : (string Location.loc option) = # 4231 "src/ocaml/preprocess/parser_raw.mly" ( Some _2 ) -# 7353 "src/ocaml/preprocess/parser_raw.ml" +# 7484 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7395,7 +7526,7 @@ module Tables = struct let _v : (Parsetree.extension) = # 4243 "src/ocaml/preprocess/parser_raw.mly" ( (_2, _3) ) -# 7399 "src/ocaml/preprocess/parser_raw.ml" +# 7530 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7416,19 +7547,21 @@ module Tables = struct let _1 : ( # 878 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string * Location.t * string option) -# 7420 "src/ocaml/preprocess/parser_raw.ml" +# 7551 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.extension) = let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 4245 "src/ocaml/preprocess/parser_raw.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 7431 "src/ocaml/preprocess/parser_raw.ml" - in +# 7563 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7477,46 +7610,48 @@ 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 : (Parsetree.extension_constructor) = let attrs = - let _1 = _1_inlined3 in - + let _v = + let attrs = + let _1 = _1_inlined3 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7486 "src/ocaml/preprocess/parser_raw.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 - +# 7620 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 7498 "src/ocaml/preprocess/parser_raw.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 - +# 7632 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 7509 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 7643 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3531 "src/ocaml/preprocess/parser_raw.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 7519 "src/ocaml/preprocess/parser_raw.ml" - in +# 7653 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension_constructor)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7558,51 +7693,53 @@ 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 : (Parsetree.extension_constructor) = let attrs = - let _1 = _1_inlined2 in - + let _v = + let attrs = + let _1 = _1_inlined2 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7567 "src/ocaml/preprocess/parser_raw.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 - +# 7703 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 7579 "src/ocaml/preprocess/parser_raw.ml" - - in - let cid = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 7715 "src/ocaml/preprocess/parser_raw.ml" + + in + let cid = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 7589 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos_cid_ = _startpos__1_ in - let _1 = +# 7725 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_cid_ = _startpos__1_ in + let _1 = # 4048 "src/ocaml/preprocess/parser_raw.mly" ( () ) -# 7596 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos_attrs_ in - let _symbolstartpos = _startpos_cid_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 7732 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos_attrs_ in + let _symbolstartpos = _startpos_cid_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3531 "src/ocaml/preprocess/parser_raw.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 7605 "src/ocaml/preprocess/parser_raw.ml" - in +# 7741 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension_constructor)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7623,27 +7760,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ext_ in let _endpos = _endpos_ext_ in - let _v : (Parsetree.core_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3752 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_extension ext ) -# 7631 "src/ocaml/preprocess/parser_raw.ml" - in - let (_endpos__1_, _startpos__1_) = (_endpos_ext_, _startpos_ext_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 7769 "src/ocaml/preprocess/parser_raw.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_ext_, _startpos_ext_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 7640 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 7778 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3754 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7646 "src/ocaml/preprocess/parser_raw.ml" - in +# 7784 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7685,15 +7824,17 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.attribute) = let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 4218 "src/ocaml/preprocess/parser_raw.mly" ( mark_symbol_docs _sloc; mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 7696 "src/ocaml/preprocess/parser_raw.ml" - in +# 7836 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.attribute)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7707,16 +7848,18 @@ 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 : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let params = + let _v = + let params = # 2243 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 7714 "src/ocaml/preprocess/parser_raw.ml" - in - +# 7856 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 2060 "src/ocaml/preprocess/parser_raw.mly" ( params ) -# 7719 "src/ocaml/preprocess/parser_raw.ml" - in +# 7861 "src/ocaml/preprocess/parser_raw.ml" + : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7751,30 +7894,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let params = + let _v = let params = - let xs = -# 253 "" + let params = + let xs = +# 264 "" ( List.rev xs ) -# 7760 "src/ocaml/preprocess/parser_raw.ml" - in - +# 7904 "src/ocaml/preprocess/parser_raw.ml" + in + # 1182 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 7765 "src/ocaml/preprocess/parser_raw.ml" +# 7909 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2245 "src/ocaml/preprocess/parser_raw.mly" ( params ) -# 7771 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 7915 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2060 "src/ocaml/preprocess/parser_raw.mly" ( params ) -# 7777 "src/ocaml/preprocess/parser_raw.ml" - in +# 7921 "src/ocaml/preprocess/parser_raw.ml" + : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7816,46 +7961,47 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.function_body) = let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 7825 "src/ocaml/preprocess/parser_raw.ml" - in - +# 7971 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 7830 "src/ocaml/preprocess/parser_raw.ml" +# 7976 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 7836 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 7982 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7847 "src/ocaml/preprocess/parser_raw.ml" +# 7993 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 7853 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 7999 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2879 "src/ocaml/preprocess/parser_raw.mly" ( let ext, attrs = _2 in match ext with @@ -7866,8 +8012,9 @@ module Tables = struct Pfunction_body (mkexp_attrs ~loc:_sloc (mkfunction [] None cases) _2) ) -# 7870 "src/ocaml/preprocess/parser_raw.ml" - in +# 8016 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.function_body)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -7891,7 +8038,7 @@ module Tables = struct let _v : (Parsetree.function_body) = # 2889 "src/ocaml/preprocess/parser_raw.mly" ( Pfunction_body _1 ) -# 7895 "src/ocaml/preprocess/parser_raw.ml" +# 8042 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7916,7 +8063,7 @@ module Tables = struct let _v : (Parsetree.expression) = # 2501 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 7920 "src/ocaml/preprocess/parser_raw.ml" +# 8067 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7987,50 +8134,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v : (Parsetree.expression) = let _1 = - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 8000 "src/ocaml/preprocess/parser_raw.ml" - - in - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 8148 "src/ocaml/preprocess/parser_raw.ml" + in + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8010 "src/ocaml/preprocess/parser_raw.ml" +# 8158 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 8016 "src/ocaml/preprocess/parser_raw.ml" +# 8164 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2539 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_letmodule(_4, _5, (merloc _endpos__6_ _7)), _3 ) -# 8022 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__7_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 8170 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__7_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8033 "src/ocaml/preprocess/parser_raw.ml" - in +# 8181 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8108,70 +8257,72 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v : (Parsetree.expression) = let _1 = - let _4 = - let (_endpos__1_inlined1_, _endpos__1_, _startpos__1_, _1_inlined1, _2, _1) = (_endpos__1_inlined4_, _endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined4, _2_inlined1, _1_inlined3) in - let _3 = - let _1 = _1_inlined1 in - + 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 + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8120 "src/ocaml/preprocess/parser_raw.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 - +# 8270 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 8131 "src/ocaml/preprocess/parser_raw.ml" +# 8281 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3442 "src/ocaml/preprocess/parser_raw.mly" ( let vars, args, res = _2 in Te.decl _1 ~vars ~args ?res ~attrs:_3 ~loc:(make_loc _sloc) ) -# 8141 "src/ocaml/preprocess/parser_raw.ml" - - in - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 8291 "src/ocaml/preprocess/parser_raw.ml" + in + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8151 "src/ocaml/preprocess/parser_raw.ml" +# 8301 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 8157 "src/ocaml/preprocess/parser_raw.ml" +# 8307 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2541 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_letexception(_4, _6), _3 ) -# 8163 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__6_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 8313 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__6_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8174 "src/ocaml/preprocess/parser_raw.ml" - in +# 8324 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8234,46 +8385,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v : (Parsetree.expression) = let _1 = - let _4 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - + let _v = + let _1 = + let _4 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8246 "src/ocaml/preprocess/parser_raw.ml" +# 8398 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 8252 "src/ocaml/preprocess/parser_raw.ml" - - in - let _3 = +# 8404 "src/ocaml/preprocess/parser_raw.ml" + + in + let _3 = # 4129 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 8258 "src/ocaml/preprocess/parser_raw.ml" - in - +# 8410 "src/ocaml/preprocess/parser_raw.ml" + in + # 2543 "src/ocaml/preprocess/parser_raw.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, (merloc _endpos__6_ _7)), _4 ) -# 8265 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__7_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 8417 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__7_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8276 "src/ocaml/preprocess/parser_raw.ml" - in +# 8428 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8343,49 +8496,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v : (Parsetree.expression) = let _1 = - let _4 = - let (_1_inlined1, _1) = (_1_inlined3, _1_inlined2) in - let _2 = - let _1 = _1_inlined1 in - + let _v = + let _1 = + let _4 = + let (_1_inlined1, _1) = (_1_inlined3, _1_inlined2) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8355 "src/ocaml/preprocess/parser_raw.ml" +# 8509 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 8361 "src/ocaml/preprocess/parser_raw.ml" - - in - let _3 = - let _1 = _1_inlined1 in - +# 8515 "src/ocaml/preprocess/parser_raw.ml" + + in + let _3 = # 4130 "src/ocaml/preprocess/parser_raw.mly" ( Override ) -# 8369 "src/ocaml/preprocess/parser_raw.ml" +# 8521 "src/ocaml/preprocess/parser_raw.ml" + in - in - # 2543 "src/ocaml/preprocess/parser_raw.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, (merloc _endpos__6_ _7)), _4 ) -# 8377 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__7_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 8528 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__7_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8388 "src/ocaml/preprocess/parser_raw.ml" - in +# 8539 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8448,41 +8600,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v : (Parsetree.expression) = let _1 = - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _v = + let _1 = let _2 = - let _1 = _1_inlined1 in - + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8460 "src/ocaml/preprocess/parser_raw.ml" +# 8613 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 8466 "src/ocaml/preprocess/parser_raw.ml" +# 8619 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2549 "src/ocaml/preprocess/parser_raw.mly" ( let body_constraint = Option.map (fun x -> Pconstraint x) _4 in mkfunction _3 body_constraint _6, _2 ) -# 8474 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__6_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 8627 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__6_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8485 "src/ocaml/preprocess/parser_raw.ml" - in +# 8638 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8538,58 +8692,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 : (Parsetree.expression) = let _1 = - let _5 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let _5 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 8548 "src/ocaml/preprocess/parser_raw.ml" - in - +# 8703 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 8553 "src/ocaml/preprocess/parser_raw.ml" +# 8708 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 8559 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 8714 "src/ocaml/preprocess/parser_raw.ml" + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8569 "src/ocaml/preprocess/parser_raw.ml" +# 8724 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 8575 "src/ocaml/preprocess/parser_raw.ml" +# 8730 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2553 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_match(_3, _5), _2 ) -# 8581 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 8736 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8592 "src/ocaml/preprocess/parser_raw.ml" - in +# 8747 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8645,58 +8801,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 : (Parsetree.expression) = let _1 = - let _5 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let _5 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 8655 "src/ocaml/preprocess/parser_raw.ml" - in - +# 8812 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 8660 "src/ocaml/preprocess/parser_raw.ml" +# 8817 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 8666 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 8823 "src/ocaml/preprocess/parser_raw.ml" + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8676 "src/ocaml/preprocess/parser_raw.ml" +# 8833 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 8682 "src/ocaml/preprocess/parser_raw.ml" +# 8839 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2555 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_try(_3, _5), _2 ) -# 8688 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 8845 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8699 "src/ocaml/preprocess/parser_raw.ml" - in +# 8856 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8766,65 +8924,67 @@ 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 : (Parsetree.expression) = let _1 = - let _7 = - let _1 = _1_inlined4 in - let _1 = + let _v = + let _1 = + let _7 = + let _1 = _1_inlined4 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8776 "src/ocaml/preprocess/parser_raw.ml" - in - +# 8935 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8781 "src/ocaml/preprocess/parser_raw.ml" - - in - let _5 = - let _1 = _1_inlined3 in - let _1 = +# 8940 "src/ocaml/preprocess/parser_raw.ml" + + in + let _5 = + let _1 = _1_inlined3 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8789 "src/ocaml/preprocess/parser_raw.ml" - in - +# 8948 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8794 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 8953 "src/ocaml/preprocess/parser_raw.ml" + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8804 "src/ocaml/preprocess/parser_raw.ml" +# 8963 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 8810 "src/ocaml/preprocess/parser_raw.ml" +# 8969 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2561 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_ifthenelse(_3, (merloc _endpos__4_ _5), Some (merloc _endpos__6_ _7)), _2 ) -# 8816 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__1_inlined4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 8975 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8827 "src/ocaml/preprocess/parser_raw.ml" - in +# 8986 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -8915,50 +9075,51 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = - let _7 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined4_, _1_inlined6, _1_inlined5, _1_inlined4) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let _7 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined4_, _1_inlined6, _1_inlined5) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 8928 "src/ocaml/preprocess/parser_raw.ml" - in - +# 9089 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 8933 "src/ocaml/preprocess/parser_raw.ml" +# 9094 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 8939 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 9100 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8950 "src/ocaml/preprocess/parser_raw.ml" +# 9111 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 8956 "src/ocaml/preprocess/parser_raw.ml" +# 9117 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -8972,60 +9133,61 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 8976 "src/ocaml/preprocess/parser_raw.ml" +# 9137 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8982 "src/ocaml/preprocess/parser_raw.ml" - - in - let _5 = - let _1 = _1_inlined3 in - let _1 = +# 9143 "src/ocaml/preprocess/parser_raw.ml" + + in + let _5 = + let _1 = _1_inlined3 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8990 "src/ocaml/preprocess/parser_raw.ml" - in - +# 9151 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 8995 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 9156 "src/ocaml/preprocess/parser_raw.ml" + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9005 "src/ocaml/preprocess/parser_raw.ml" +# 9166 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 9011 "src/ocaml/preprocess/parser_raw.ml" +# 9172 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2561 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_ifthenelse(_3, (merloc _endpos__4_ _5), Some (merloc _endpos__6_ _7)), _2 ) -# 9017 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 9178 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9028 "src/ocaml/preprocess/parser_raw.ml" - in +# 9189 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9116,63 +9278,64 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined6_ in - let _v : (Parsetree.expression) = let _1 = - let _7 = - let _1 = _1_inlined6 in - let _1 = + let _v = + let _1 = + let _7 = + let _1 = _1_inlined6 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9126 "src/ocaml/preprocess/parser_raw.ml" - in - +# 9289 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9131 "src/ocaml/preprocess/parser_raw.ml" - - in - let _5 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined3_, _1_inlined5, _1_inlined4, _1_inlined3) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" +# 9294 "src/ocaml/preprocess/parser_raw.ml" + + in + let _5 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined3_, _1_inlined5, _1_inlined4) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 9142 "src/ocaml/preprocess/parser_raw.ml" - in - +# 9305 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 9147 "src/ocaml/preprocess/parser_raw.ml" +# 9310 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 9153 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 9316 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9164 "src/ocaml/preprocess/parser_raw.ml" +# 9327 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 9170 "src/ocaml/preprocess/parser_raw.ml" +# 9333 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -9186,47 +9349,48 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 9190 "src/ocaml/preprocess/parser_raw.ml" +# 9353 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9196 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 9359 "src/ocaml/preprocess/parser_raw.ml" + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9206 "src/ocaml/preprocess/parser_raw.ml" +# 9369 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 9212 "src/ocaml/preprocess/parser_raw.ml" +# 9375 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2561 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_ifthenelse(_3, (merloc _endpos__4_ _5), Some (merloc _endpos__6_ _7)), _2 ) -# 9218 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__1_inlined6_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 9381 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined6_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9229 "src/ocaml/preprocess/parser_raw.ml" - in +# 9392 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9338,50 +9502,51 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_inlined1_ in - let _v : (Parsetree.expression) = let _1 = - let _7 = - let (_endpos_xs_, _startpos__1_, xs, _1_inlined2, _1_inlined1, _1) = (_endpos_xs_inlined1_, _startpos__1_inlined6_, xs_inlined1, _1_inlined8, _1_inlined7, _1_inlined6) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let _7 = + let (_endpos_xs_, _startpos__1_, xs, _1_inlined2, _1_inlined1) = (_endpos_xs_inlined1_, _startpos__1_inlined6_, xs_inlined1, _1_inlined8, _1_inlined7) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 9351 "src/ocaml/preprocess/parser_raw.ml" - in - +# 9516 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 9356 "src/ocaml/preprocess/parser_raw.ml" +# 9521 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 9362 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 9527 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9373 "src/ocaml/preprocess/parser_raw.ml" +# 9538 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 9379 "src/ocaml/preprocess/parser_raw.ml" +# 9544 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -9395,58 +9560,58 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 9399 "src/ocaml/preprocess/parser_raw.ml" +# 9564 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9405 "src/ocaml/preprocess/parser_raw.ml" - - in - let _5 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined3_, _1_inlined5, _1_inlined4, _1_inlined3) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" +# 9570 "src/ocaml/preprocess/parser_raw.ml" + + in + let _5 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined3_, _1_inlined5, _1_inlined4) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 9416 "src/ocaml/preprocess/parser_raw.ml" - in - +# 9581 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 9421 "src/ocaml/preprocess/parser_raw.ml" +# 9586 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 9427 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 9592 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9438 "src/ocaml/preprocess/parser_raw.ml" +# 9603 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 9444 "src/ocaml/preprocess/parser_raw.ml" +# 9609 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -9460,47 +9625,48 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 9464 "src/ocaml/preprocess/parser_raw.ml" +# 9629 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9470 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 9635 "src/ocaml/preprocess/parser_raw.ml" + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9480 "src/ocaml/preprocess/parser_raw.ml" +# 9645 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 9486 "src/ocaml/preprocess/parser_raw.ml" +# 9651 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2561 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_ifthenelse(_3, (merloc _endpos__4_ _5), Some (merloc _endpos__6_ _7)), _2 ) -# 9492 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos_xs_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 9657 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_xs_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9503 "src/ocaml/preprocess/parser_raw.ml" - in +# 9668 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9556,52 +9722,54 @@ 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 : (Parsetree.expression) = let _1 = - let _5 = - let _1 = _1_inlined3 in - let _1 = + let _v = + let _1 = + let _5 = + let _1 = _1_inlined3 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9566 "src/ocaml/preprocess/parser_raw.ml" - in - +# 9733 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9571 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 9738 "src/ocaml/preprocess/parser_raw.ml" + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9581 "src/ocaml/preprocess/parser_raw.ml" +# 9748 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 9587 "src/ocaml/preprocess/parser_raw.ml" +# 9754 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2563 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_ifthenelse(_3, (merloc _endpos__4_ _5), None), _2 ) -# 9593 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__1_inlined3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 9760 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9604 "src/ocaml/preprocess/parser_raw.ml" - in +# 9771 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9678,50 +9846,51 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = - let _5 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined3_, _1_inlined5, _1_inlined4, _1_inlined3) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let _5 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined3_, _1_inlined5, _1_inlined4) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 9691 "src/ocaml/preprocess/parser_raw.ml" - in - +# 9860 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 9696 "src/ocaml/preprocess/parser_raw.ml" +# 9865 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 9702 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 9871 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9713 "src/ocaml/preprocess/parser_raw.ml" +# 9882 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 9719 "src/ocaml/preprocess/parser_raw.ml" +# 9888 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -9735,47 +9904,48 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 9739 "src/ocaml/preprocess/parser_raw.ml" +# 9908 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9745 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 9914 "src/ocaml/preprocess/parser_raw.ml" + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9755 "src/ocaml/preprocess/parser_raw.ml" +# 9924 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 9761 "src/ocaml/preprocess/parser_raw.ml" +# 9930 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2563 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_ifthenelse(_3, (merloc _endpos__4_ _5), None), _2 ) -# 9767 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 9936 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9778 "src/ocaml/preprocess/parser_raw.ml" - in +# 9947 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9838,39 +10008,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 : (Parsetree.expression) = let _1 = - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _v = + let _1 = let _2 = - let _1 = _1_inlined1 in - + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9850 "src/ocaml/preprocess/parser_raw.ml" +# 10021 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 9856 "src/ocaml/preprocess/parser_raw.ml" +# 10027 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2565 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_while(_3, (merloc _endpos__4_ _5)), _2 ) -# 9862 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__6_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 10033 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__6_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9873 "src/ocaml/preprocess/parser_raw.ml" - in +# 10044 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -9961,39 +10133,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__10_ in - let _v : (Parsetree.expression) = let _1 = - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _v = + let _1 = let _2 = - let _1 = _1_inlined1 in - + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 9973 "src/ocaml/preprocess/parser_raw.ml" +# 10146 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 9979 "src/ocaml/preprocess/parser_raw.ml" +# 10152 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2572 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_for(_3, (merloc _endpos__4_ _5), (merloc _endpos__6_ _7), _6, (merloc _endpos__8_ _9)), _2 ) -# 9985 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__10_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 10158 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__10_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9996 "src/ocaml/preprocess/parser_raw.ml" - in +# 10169 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10035,39 +10209,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 : (Parsetree.expression) = let _1 = - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _v = + let _1 = let _2 = - let _1 = _1_inlined1 in - + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10047 "src/ocaml/preprocess/parser_raw.ml" +# 10222 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 10053 "src/ocaml/preprocess/parser_raw.ml" +# 10228 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2574 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_assert _3, _2 ) -# 10059 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 10234 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 10070 "src/ocaml/preprocess/parser_raw.ml" - in +# 10245 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10109,39 +10285,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 : (Parsetree.expression) = let _1 = - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _v = + let _1 = let _2 = - let _1 = _1_inlined1 in - + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10121 "src/ocaml/preprocess/parser_raw.ml" +# 10298 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 10127 "src/ocaml/preprocess/parser_raw.ml" +# 10304 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2576 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_lazy _3, _2 ) -# 10133 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 10310 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2503 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 10144 "src/ocaml/preprocess/parser_raw.ml" - in +# 10321 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10169,41 +10347,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _2 = - let xs = -# 253 "" + let _1 = + let _2 = + let xs = +# 264 "" ( List.rev xs ) -# 10179 "src/ocaml/preprocess/parser_raw.ml" - in - +# 10358 "src/ocaml/preprocess/parser_raw.ml" + in + # 1129 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 10184 "src/ocaml/preprocess/parser_raw.ml" +# 10363 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2580 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_apply(_1, _2) ) -# 10190 "src/ocaml/preprocess/parser_raw.ml" +# 10369 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 10200 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 10379 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10206 "src/ocaml/preprocess/parser_raw.ml" - in +# 10385 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10224,48 +10404,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = let _1 = - let es = - let xs = -# 253 "" + let _1 = + let es = + let xs = +# 264 "" ( List.rev xs ) -# 10235 "src/ocaml/preprocess/parser_raw.ml" - in - +# 10416 "src/ocaml/preprocess/parser_raw.ml" + in + # 1210 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 10240 "src/ocaml/preprocess/parser_raw.ml" +# 10421 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2946 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 10246 "src/ocaml/preprocess/parser_raw.ml" +# 10427 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2582 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_tuple(_1) ) -# 10252 "src/ocaml/preprocess/parser_raw.ml" +# 10433 "src/ocaml/preprocess/parser_raw.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 - 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 - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 10262 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 10443 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10268 "src/ocaml/preprocess/parser_raw.ml" - in +# 10449 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10293,39 +10475,41 @@ module Tables = struct 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 _v = let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 10306 "src/ocaml/preprocess/parser_raw.ml" +# 10489 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2584 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_construct(_1, Some _2) ) -# 10312 "src/ocaml/preprocess/parser_raw.ml" +# 10495 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 10322 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 10505 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10328 "src/ocaml/preprocess/parser_raw.ml" - in +# 10511 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10353,27 +10537,29 @@ module Tables = struct 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 _v = + let _1 = + let _1 = # 2586 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_variant(_1, Some _2) ) -# 10361 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 10546 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 10370 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 10555 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10376 "src/ocaml/preprocess/parser_raw.ml" - in +# 10561 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10406,63 +10592,65 @@ module Tables = struct let op : ( # 814 "src/ocaml/preprocess/parser_raw.mly" (string) -# 10410 "src/ocaml/preprocess/parser_raw.ml" +# 10596 "src/ocaml/preprocess/parser_raw.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__1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = + let _1 = + let e2 = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10422 "src/ocaml/preprocess/parser_raw.ml" - in - +# 10609 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10427 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 10614 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3933 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 10434 "src/ocaml/preprocess/parser_raw.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 - +# 10621 "src/ocaml/preprocess/parser_raw.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 + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 10443 "src/ocaml/preprocess/parser_raw.ml" +# 10630 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 10449 "src/ocaml/preprocess/parser_raw.ml" +# 10636 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_e1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos__1_ = _startpos_e1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 10459 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 10646 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10465 "src/ocaml/preprocess/parser_raw.ml" - in +# 10652 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10516,56 +10704,57 @@ module Tables = struct let op : ( # 814 "src/ocaml/preprocess/parser_raw.mly" (string) -# 10520 "src/ocaml/preprocess/parser_raw.ml" +# 10708 "src/ocaml/preprocess/parser_raw.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_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 10535 "src/ocaml/preprocess/parser_raw.ml" - in - +# 10724 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 10540 "src/ocaml/preprocess/parser_raw.ml" +# 10729 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 10546 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 10735 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10557 "src/ocaml/preprocess/parser_raw.ml" +# 10746 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 10563 "src/ocaml/preprocess/parser_raw.ml" +# 10752 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -10579,52 +10768,53 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 10583 "src/ocaml/preprocess/parser_raw.ml" +# 10772 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10589 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 10778 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3933 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 10596 "src/ocaml/preprocess/parser_raw.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 - +# 10785 "src/ocaml/preprocess/parser_raw.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 + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 10605 "src/ocaml/preprocess/parser_raw.ml" +# 10794 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 10611 "src/ocaml/preprocess/parser_raw.ml" +# 10800 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 10621 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 10810 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10627 "src/ocaml/preprocess/parser_raw.ml" - in +# 10816 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10657,63 +10847,65 @@ module Tables = struct let op : ( # 815 "src/ocaml/preprocess/parser_raw.mly" (string) -# 10661 "src/ocaml/preprocess/parser_raw.ml" +# 10851 "src/ocaml/preprocess/parser_raw.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__1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = + let _1 = + let e2 = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10673 "src/ocaml/preprocess/parser_raw.ml" - in - +# 10864 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10678 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 10869 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3934 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 10685 "src/ocaml/preprocess/parser_raw.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 - +# 10876 "src/ocaml/preprocess/parser_raw.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 + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 10694 "src/ocaml/preprocess/parser_raw.ml" +# 10885 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 10700 "src/ocaml/preprocess/parser_raw.ml" +# 10891 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_e1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos__1_ = _startpos_e1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 10710 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 10901 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10716 "src/ocaml/preprocess/parser_raw.ml" - in +# 10907 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10767,56 +10959,57 @@ module Tables = struct let op : ( # 815 "src/ocaml/preprocess/parser_raw.mly" (string) -# 10771 "src/ocaml/preprocess/parser_raw.ml" +# 10963 "src/ocaml/preprocess/parser_raw.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_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 10786 "src/ocaml/preprocess/parser_raw.ml" - in - +# 10979 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 10791 "src/ocaml/preprocess/parser_raw.ml" +# 10984 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 10797 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 10990 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10808 "src/ocaml/preprocess/parser_raw.ml" +# 11001 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 10814 "src/ocaml/preprocess/parser_raw.ml" +# 11007 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -10830,52 +11023,53 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 10834 "src/ocaml/preprocess/parser_raw.ml" +# 11027 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10840 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 11033 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3934 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 10847 "src/ocaml/preprocess/parser_raw.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 - +# 11040 "src/ocaml/preprocess/parser_raw.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 + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 10856 "src/ocaml/preprocess/parser_raw.ml" +# 11049 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 10862 "src/ocaml/preprocess/parser_raw.ml" +# 11055 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 10872 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 11065 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10878 "src/ocaml/preprocess/parser_raw.ml" - in +# 11071 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -10908,63 +11102,65 @@ module Tables = struct let op : ( # 816 "src/ocaml/preprocess/parser_raw.mly" (string) -# 10912 "src/ocaml/preprocess/parser_raw.ml" +# 11106 "src/ocaml/preprocess/parser_raw.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__1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = + let _1 = + let e2 = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10924 "src/ocaml/preprocess/parser_raw.ml" - in - +# 11119 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10929 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 11124 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3935 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 10936 "src/ocaml/preprocess/parser_raw.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 - +# 11131 "src/ocaml/preprocess/parser_raw.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 + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 10945 "src/ocaml/preprocess/parser_raw.ml" +# 11140 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 10951 "src/ocaml/preprocess/parser_raw.ml" +# 11146 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_e1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos__1_ = _startpos_e1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 10961 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 11156 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 10967 "src/ocaml/preprocess/parser_raw.ml" - in +# 11162 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11018,56 +11214,57 @@ module Tables = struct let op : ( # 816 "src/ocaml/preprocess/parser_raw.mly" (string) -# 11022 "src/ocaml/preprocess/parser_raw.ml" +# 11218 "src/ocaml/preprocess/parser_raw.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_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 11037 "src/ocaml/preprocess/parser_raw.ml" - in - +# 11234 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 11042 "src/ocaml/preprocess/parser_raw.ml" +# 11239 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 11048 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 11245 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11059 "src/ocaml/preprocess/parser_raw.ml" +# 11256 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 11065 "src/ocaml/preprocess/parser_raw.ml" +# 11262 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -11081,52 +11278,53 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 11085 "src/ocaml/preprocess/parser_raw.ml" +# 11282 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11091 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 11288 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3935 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 11098 "src/ocaml/preprocess/parser_raw.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 - +# 11295 "src/ocaml/preprocess/parser_raw.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 + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 11107 "src/ocaml/preprocess/parser_raw.ml" +# 11304 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 11113 "src/ocaml/preprocess/parser_raw.ml" +# 11310 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 11123 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 2506 "src/ocaml/preprocess/parser_raw.mly" +# 11320 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11129 "src/ocaml/preprocess/parser_raw.ml" - in +# 11326 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11159,63 +11357,65 @@ module Tables = struct let op : ( # 817 "src/ocaml/preprocess/parser_raw.mly" (string) -# 11163 "src/ocaml/preprocess/parser_raw.ml" +# 11361 "src/ocaml/preprocess/parser_raw.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__1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = + let _1 = + let e2 = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11175 "src/ocaml/preprocess/parser_raw.ml" - in - +# 11374 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11180 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 11379 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3936 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 11187 "src/ocaml/preprocess/parser_raw.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 - +# 11386 "src/ocaml/preprocess/parser_raw.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 + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 11196 "src/ocaml/preprocess/parser_raw.ml" +# 11395 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 11202 "src/ocaml/preprocess/parser_raw.ml" +# 11401 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_e1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos__1_ = _startpos_e1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 11212 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 11411 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11218 "src/ocaml/preprocess/parser_raw.ml" - in +# 11417 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11269,56 +11469,57 @@ module Tables = struct let op : ( # 817 "src/ocaml/preprocess/parser_raw.mly" (string) -# 11273 "src/ocaml/preprocess/parser_raw.ml" +# 11473 "src/ocaml/preprocess/parser_raw.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_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 11288 "src/ocaml/preprocess/parser_raw.ml" - in - +# 11489 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 11293 "src/ocaml/preprocess/parser_raw.ml" +# 11494 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 11299 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 11500 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11310 "src/ocaml/preprocess/parser_raw.ml" +# 11511 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 11316 "src/ocaml/preprocess/parser_raw.ml" +# 11517 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -11332,52 +11533,53 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 11336 "src/ocaml/preprocess/parser_raw.ml" +# 11537 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11342 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 11543 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3936 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 11349 "src/ocaml/preprocess/parser_raw.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 - +# 11550 "src/ocaml/preprocess/parser_raw.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 + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 11358 "src/ocaml/preprocess/parser_raw.ml" +# 11559 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 11364 "src/ocaml/preprocess/parser_raw.ml" +# 11565 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 11374 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 11575 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11380 "src/ocaml/preprocess/parser_raw.ml" - in +# 11581 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11410,63 +11612,65 @@ module Tables = struct let op : ( # 818 "src/ocaml/preprocess/parser_raw.mly" (string) -# 11414 "src/ocaml/preprocess/parser_raw.ml" +# 11616 "src/ocaml/preprocess/parser_raw.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__1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = + let _1 = + let e2 = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11426 "src/ocaml/preprocess/parser_raw.ml" - in - +# 11629 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11431 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 11634 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3937 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 11438 "src/ocaml/preprocess/parser_raw.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 - +# 11641 "src/ocaml/preprocess/parser_raw.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 + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 11447 "src/ocaml/preprocess/parser_raw.ml" +# 11650 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 11453 "src/ocaml/preprocess/parser_raw.ml" +# 11656 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_e1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos__1_ = _startpos_e1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 11463 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 11666 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11469 "src/ocaml/preprocess/parser_raw.ml" - in +# 11672 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11520,56 +11724,57 @@ module Tables = struct let op : ( # 818 "src/ocaml/preprocess/parser_raw.mly" (string) -# 11524 "src/ocaml/preprocess/parser_raw.ml" +# 11728 "src/ocaml/preprocess/parser_raw.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_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 11539 "src/ocaml/preprocess/parser_raw.ml" - in - +# 11744 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 11544 "src/ocaml/preprocess/parser_raw.ml" +# 11749 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 11550 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 11755 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11561 "src/ocaml/preprocess/parser_raw.ml" +# 11766 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 11567 "src/ocaml/preprocess/parser_raw.ml" +# 11772 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -11583,52 +11788,53 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 11587 "src/ocaml/preprocess/parser_raw.ml" +# 11792 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11593 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 11798 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3937 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 11600 "src/ocaml/preprocess/parser_raw.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 - +# 11805 "src/ocaml/preprocess/parser_raw.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 + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 11609 "src/ocaml/preprocess/parser_raw.ml" +# 11814 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 11615 "src/ocaml/preprocess/parser_raw.ml" +# 11820 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 11625 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 11830 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11631 "src/ocaml/preprocess/parser_raw.ml" - in +# 11836 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11663,57 +11869,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11674 "src/ocaml/preprocess/parser_raw.ml" - in - +# 11881 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11679 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 11886 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3938 "src/ocaml/preprocess/parser_raw.mly" ("+") -# 11686 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 11893 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 11694 "src/ocaml/preprocess/parser_raw.ml" +# 11901 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 11700 "src/ocaml/preprocess/parser_raw.ml" +# 11907 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 11710 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 11917 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11716 "src/ocaml/preprocess/parser_raw.ml" - in +# 11923 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11769,51 +11977,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 11783 "src/ocaml/preprocess/parser_raw.ml" - in - +# 11992 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 11788 "src/ocaml/preprocess/parser_raw.ml" +# 11997 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 11794 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 12003 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11805 "src/ocaml/preprocess/parser_raw.ml" +# 12014 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 11811 "src/ocaml/preprocess/parser_raw.ml" +# 12020 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -11827,51 +12036,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 11831 "src/ocaml/preprocess/parser_raw.ml" +# 12040 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11837 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 12046 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3938 "src/ocaml/preprocess/parser_raw.mly" ("+") -# 11844 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 12053 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 11852 "src/ocaml/preprocess/parser_raw.ml" +# 12061 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 11858 "src/ocaml/preprocess/parser_raw.ml" +# 12067 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 11868 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 12077 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11874 "src/ocaml/preprocess/parser_raw.ml" - in +# 12083 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -11906,57 +12116,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11917 "src/ocaml/preprocess/parser_raw.ml" - in - +# 12128 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11922 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 12133 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3939 "src/ocaml/preprocess/parser_raw.mly" ("+.") -# 11929 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 12140 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 11937 "src/ocaml/preprocess/parser_raw.ml" +# 12148 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 11943 "src/ocaml/preprocess/parser_raw.ml" +# 12154 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 11953 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 12164 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 11959 "src/ocaml/preprocess/parser_raw.ml" - in +# 12170 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12012,51 +12224,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 12026 "src/ocaml/preprocess/parser_raw.ml" - in - +# 12239 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 12031 "src/ocaml/preprocess/parser_raw.ml" +# 12244 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 12037 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 12250 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12048 "src/ocaml/preprocess/parser_raw.ml" +# 12261 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 12054 "src/ocaml/preprocess/parser_raw.ml" +# 12267 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -12070,51 +12283,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 12074 "src/ocaml/preprocess/parser_raw.ml" +# 12287 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12080 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 12293 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3939 "src/ocaml/preprocess/parser_raw.mly" ("+.") -# 12087 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 12300 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 12095 "src/ocaml/preprocess/parser_raw.ml" +# 12308 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 12101 "src/ocaml/preprocess/parser_raw.ml" +# 12314 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 12111 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 12324 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12117 "src/ocaml/preprocess/parser_raw.ml" - in +# 12330 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12149,57 +12363,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12160 "src/ocaml/preprocess/parser_raw.ml" - in - +# 12375 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12165 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 12380 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3940 "src/ocaml/preprocess/parser_raw.mly" ("+=") -# 12172 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 12387 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 12180 "src/ocaml/preprocess/parser_raw.ml" +# 12395 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 12186 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 12401 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 12196 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 12411 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12202 "src/ocaml/preprocess/parser_raw.ml" - in +# 12417 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12255,51 +12471,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 12269 "src/ocaml/preprocess/parser_raw.ml" - in - +# 12486 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 12274 "src/ocaml/preprocess/parser_raw.ml" +# 12491 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 12280 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 12497 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12291 "src/ocaml/preprocess/parser_raw.ml" +# 12508 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 12297 "src/ocaml/preprocess/parser_raw.ml" +# 12514 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -12313,51 +12530,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 12317 "src/ocaml/preprocess/parser_raw.ml" +# 12534 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12323 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 12540 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3940 "src/ocaml/preprocess/parser_raw.mly" ("+=") -# 12330 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 12547 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 12338 "src/ocaml/preprocess/parser_raw.ml" +# 12555 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 12344 "src/ocaml/preprocess/parser_raw.ml" +# 12561 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 12354 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 12571 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12360 "src/ocaml/preprocess/parser_raw.ml" - in +# 12577 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12392,57 +12610,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12403 "src/ocaml/preprocess/parser_raw.ml" - in - +# 12622 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12408 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 12627 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3941 "src/ocaml/preprocess/parser_raw.mly" ("-") -# 12415 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 12634 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 12423 "src/ocaml/preprocess/parser_raw.ml" +# 12642 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 12429 "src/ocaml/preprocess/parser_raw.ml" +# 12648 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 12439 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 12658 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12445 "src/ocaml/preprocess/parser_raw.ml" - in +# 12664 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12498,51 +12718,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 12512 "src/ocaml/preprocess/parser_raw.ml" - in - +# 12733 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 12517 "src/ocaml/preprocess/parser_raw.ml" +# 12738 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 12523 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 12744 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12534 "src/ocaml/preprocess/parser_raw.ml" +# 12755 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 12540 "src/ocaml/preprocess/parser_raw.ml" +# 12761 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -12556,51 +12777,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 12560 "src/ocaml/preprocess/parser_raw.ml" +# 12781 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12566 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 12787 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3941 "src/ocaml/preprocess/parser_raw.mly" ("-") -# 12573 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 12794 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 12581 "src/ocaml/preprocess/parser_raw.ml" +# 12802 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 12587 "src/ocaml/preprocess/parser_raw.ml" +# 12808 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 12597 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 12818 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12603 "src/ocaml/preprocess/parser_raw.ml" - in +# 12824 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12635,57 +12857,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12646 "src/ocaml/preprocess/parser_raw.ml" - in - +# 12869 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12651 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 12874 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3942 "src/ocaml/preprocess/parser_raw.mly" ("-.") -# 12658 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 12881 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 12666 "src/ocaml/preprocess/parser_raw.ml" +# 12889 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 12672 "src/ocaml/preprocess/parser_raw.ml" +# 12895 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 12682 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 12905 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12688 "src/ocaml/preprocess/parser_raw.ml" - in +# 12911 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12741,51 +12965,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 12755 "src/ocaml/preprocess/parser_raw.ml" - in - +# 12980 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 12760 "src/ocaml/preprocess/parser_raw.ml" +# 12985 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 12766 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 12991 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12777 "src/ocaml/preprocess/parser_raw.ml" +# 13002 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 12783 "src/ocaml/preprocess/parser_raw.ml" +# 13008 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -12799,51 +13024,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 12803 "src/ocaml/preprocess/parser_raw.ml" +# 13028 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12809 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 13034 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3942 "src/ocaml/preprocess/parser_raw.mly" ("-.") -# 12816 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 13041 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 12824 "src/ocaml/preprocess/parser_raw.ml" +# 13049 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 12830 "src/ocaml/preprocess/parser_raw.ml" +# 13055 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 12840 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 13065 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12846 "src/ocaml/preprocess/parser_raw.ml" - in +# 13071 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12878,57 +13104,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12889 "src/ocaml/preprocess/parser_raw.ml" - in - +# 13116 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12894 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 13121 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3943 "src/ocaml/preprocess/parser_raw.mly" ("*") -# 12901 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 13128 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 12909 "src/ocaml/preprocess/parser_raw.ml" +# 13136 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 12915 "src/ocaml/preprocess/parser_raw.ml" +# 13142 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 12925 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 13152 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 12931 "src/ocaml/preprocess/parser_raw.ml" - in +# 13158 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -12984,51 +13212,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 12998 "src/ocaml/preprocess/parser_raw.ml" - in - +# 13227 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 13003 "src/ocaml/preprocess/parser_raw.ml" +# 13232 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 13009 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 13238 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13020 "src/ocaml/preprocess/parser_raw.ml" +# 13249 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 13026 "src/ocaml/preprocess/parser_raw.ml" +# 13255 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -13042,51 +13271,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 13046 "src/ocaml/preprocess/parser_raw.ml" +# 13275 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13052 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 13281 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3943 "src/ocaml/preprocess/parser_raw.mly" ("*") -# 13059 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 13288 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 13067 "src/ocaml/preprocess/parser_raw.ml" +# 13296 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 13073 "src/ocaml/preprocess/parser_raw.ml" +# 13302 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 13083 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 13312 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13089 "src/ocaml/preprocess/parser_raw.ml" - in +# 13318 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13121,57 +13351,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13132 "src/ocaml/preprocess/parser_raw.ml" - in - +# 13363 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13137 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 13368 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3944 "src/ocaml/preprocess/parser_raw.mly" ("%") -# 13144 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 13375 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 13152 "src/ocaml/preprocess/parser_raw.ml" +# 13383 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 13158 "src/ocaml/preprocess/parser_raw.ml" +# 13389 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 13168 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 13399 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13174 "src/ocaml/preprocess/parser_raw.ml" - in +# 13405 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13227,51 +13459,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 13241 "src/ocaml/preprocess/parser_raw.ml" - in - +# 13474 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 13246 "src/ocaml/preprocess/parser_raw.ml" +# 13479 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 13252 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 13485 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13263 "src/ocaml/preprocess/parser_raw.ml" +# 13496 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 13269 "src/ocaml/preprocess/parser_raw.ml" +# 13502 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -13285,51 +13518,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 13289 "src/ocaml/preprocess/parser_raw.ml" +# 13522 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13295 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 13528 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3944 "src/ocaml/preprocess/parser_raw.mly" ("%") -# 13302 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 13535 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 13310 "src/ocaml/preprocess/parser_raw.ml" +# 13543 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 13316 "src/ocaml/preprocess/parser_raw.ml" +# 13549 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 13326 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 13559 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13332 "src/ocaml/preprocess/parser_raw.ml" - in +# 13565 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13364,57 +13598,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13375 "src/ocaml/preprocess/parser_raw.ml" - in - +# 13610 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13380 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 13615 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3945 "src/ocaml/preprocess/parser_raw.mly" ("=") -# 13387 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 13622 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 13395 "src/ocaml/preprocess/parser_raw.ml" +# 13630 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 13401 "src/ocaml/preprocess/parser_raw.ml" +# 13636 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 13411 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 13646 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13417 "src/ocaml/preprocess/parser_raw.ml" - in +# 13652 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13470,51 +13706,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 13484 "src/ocaml/preprocess/parser_raw.ml" - in - +# 13721 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 13489 "src/ocaml/preprocess/parser_raw.ml" +# 13726 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 13495 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 13732 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13506 "src/ocaml/preprocess/parser_raw.ml" +# 13743 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 13512 "src/ocaml/preprocess/parser_raw.ml" +# 13749 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -13528,51 +13765,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 13532 "src/ocaml/preprocess/parser_raw.ml" +# 13769 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13538 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 13775 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3945 "src/ocaml/preprocess/parser_raw.mly" ("=") -# 13545 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 13782 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 13553 "src/ocaml/preprocess/parser_raw.ml" +# 13790 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 13559 "src/ocaml/preprocess/parser_raw.ml" +# 13796 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 13569 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 13806 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13575 "src/ocaml/preprocess/parser_raw.ml" - in +# 13812 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13607,57 +13845,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13618 "src/ocaml/preprocess/parser_raw.ml" - in - +# 13857 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13623 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 13862 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3946 "src/ocaml/preprocess/parser_raw.mly" ("<") -# 13630 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 13869 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 13638 "src/ocaml/preprocess/parser_raw.ml" +# 13877 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 13644 "src/ocaml/preprocess/parser_raw.ml" +# 13883 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 13654 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 13893 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13660 "src/ocaml/preprocess/parser_raw.ml" - in +# 13899 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13713,51 +13953,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 13727 "src/ocaml/preprocess/parser_raw.ml" - in - +# 13968 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 13732 "src/ocaml/preprocess/parser_raw.ml" +# 13973 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 13738 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 13979 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13749 "src/ocaml/preprocess/parser_raw.ml" +# 13990 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 13755 "src/ocaml/preprocess/parser_raw.ml" +# 13996 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -13771,51 +14012,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 13775 "src/ocaml/preprocess/parser_raw.ml" +# 14016 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13781 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 14022 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3946 "src/ocaml/preprocess/parser_raw.mly" ("<") -# 13788 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 14029 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 13796 "src/ocaml/preprocess/parser_raw.ml" +# 14037 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 13802 "src/ocaml/preprocess/parser_raw.ml" +# 14043 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 13812 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 14053 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13818 "src/ocaml/preprocess/parser_raw.ml" - in +# 14059 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13850,57 +14092,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13861 "src/ocaml/preprocess/parser_raw.ml" - in - +# 14104 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13866 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 14109 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3947 "src/ocaml/preprocess/parser_raw.mly" (">") -# 13873 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 14116 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 13881 "src/ocaml/preprocess/parser_raw.ml" +# 14124 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 13887 "src/ocaml/preprocess/parser_raw.ml" +# 14130 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 13897 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 14140 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13903 "src/ocaml/preprocess/parser_raw.ml" - in +# 14146 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -13956,51 +14200,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 13970 "src/ocaml/preprocess/parser_raw.ml" - in - +# 14215 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 13975 "src/ocaml/preprocess/parser_raw.ml" +# 14220 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 13981 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 14226 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 13992 "src/ocaml/preprocess/parser_raw.ml" +# 14237 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 13998 "src/ocaml/preprocess/parser_raw.ml" +# 14243 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -14014,51 +14259,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 14018 "src/ocaml/preprocess/parser_raw.ml" +# 14263 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14024 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 14269 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3947 "src/ocaml/preprocess/parser_raw.mly" (">") -# 14031 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 14276 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 14039 "src/ocaml/preprocess/parser_raw.ml" +# 14284 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 14045 "src/ocaml/preprocess/parser_raw.ml" +# 14290 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 14055 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 14300 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14061 "src/ocaml/preprocess/parser_raw.ml" - in +# 14306 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14093,57 +14339,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14104 "src/ocaml/preprocess/parser_raw.ml" - in - +# 14351 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14109 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 14356 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3948 "src/ocaml/preprocess/parser_raw.mly" ("or") -# 14116 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 14363 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 14124 "src/ocaml/preprocess/parser_raw.ml" +# 14371 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 14130 "src/ocaml/preprocess/parser_raw.ml" +# 14377 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 14140 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 14387 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14146 "src/ocaml/preprocess/parser_raw.ml" - in +# 14393 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14199,51 +14447,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 14213 "src/ocaml/preprocess/parser_raw.ml" - in - +# 14462 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 14218 "src/ocaml/preprocess/parser_raw.ml" +# 14467 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 14224 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 14473 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14235 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 14484 "src/ocaml/preprocess/parser_raw.ml" + + in + # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 14241 "src/ocaml/preprocess/parser_raw.ml" +# 14490 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -14257,51 +14506,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 14261 "src/ocaml/preprocess/parser_raw.ml" +# 14510 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14267 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 14516 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3948 "src/ocaml/preprocess/parser_raw.mly" ("or") -# 14274 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 14523 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 14282 "src/ocaml/preprocess/parser_raw.ml" +# 14531 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 14288 "src/ocaml/preprocess/parser_raw.ml" +# 14537 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 14298 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 14547 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14304 "src/ocaml/preprocess/parser_raw.ml" - in +# 14553 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14336,57 +14586,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14347 "src/ocaml/preprocess/parser_raw.ml" - in - +# 14598 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14352 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 14603 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3949 "src/ocaml/preprocess/parser_raw.mly" ("||") -# 14359 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 14610 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 14367 "src/ocaml/preprocess/parser_raw.ml" +# 14618 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 14373 "src/ocaml/preprocess/parser_raw.ml" +# 14624 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 14383 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 14634 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14389 "src/ocaml/preprocess/parser_raw.ml" - in +# 14640 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14442,51 +14694,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 14456 "src/ocaml/preprocess/parser_raw.ml" - in - +# 14709 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 14461 "src/ocaml/preprocess/parser_raw.ml" +# 14714 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 14467 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 14720 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14478 "src/ocaml/preprocess/parser_raw.ml" +# 14731 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 14484 "src/ocaml/preprocess/parser_raw.ml" +# 14737 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -14500,51 +14753,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 14504 "src/ocaml/preprocess/parser_raw.ml" +# 14757 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14510 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 14763 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3949 "src/ocaml/preprocess/parser_raw.mly" ("||") -# 14517 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 14770 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 14525 "src/ocaml/preprocess/parser_raw.ml" +# 14778 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 14531 "src/ocaml/preprocess/parser_raw.ml" +# 14784 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 14541 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 14794 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14547 "src/ocaml/preprocess/parser_raw.ml" - in +# 14800 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14579,57 +14833,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14590 "src/ocaml/preprocess/parser_raw.ml" - in - +# 14845 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14595 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 14850 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3950 "src/ocaml/preprocess/parser_raw.mly" ("&") -# 14602 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 14857 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 14610 "src/ocaml/preprocess/parser_raw.ml" +# 14865 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 14616 "src/ocaml/preprocess/parser_raw.ml" +# 14871 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 14626 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 14881 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14632 "src/ocaml/preprocess/parser_raw.ml" - in +# 14887 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14685,51 +14941,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 14699 "src/ocaml/preprocess/parser_raw.ml" - in - +# 14956 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 14704 "src/ocaml/preprocess/parser_raw.ml" +# 14961 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 14710 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 14967 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14721 "src/ocaml/preprocess/parser_raw.ml" +# 14978 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 14727 "src/ocaml/preprocess/parser_raw.ml" +# 14984 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -14743,51 +15000,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 14747 "src/ocaml/preprocess/parser_raw.ml" +# 15004 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14753 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 15010 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3950 "src/ocaml/preprocess/parser_raw.mly" ("&") -# 14760 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 15017 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 14768 "src/ocaml/preprocess/parser_raw.ml" +# 15025 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 14774 "src/ocaml/preprocess/parser_raw.ml" +# 15031 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 14784 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 15041 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14790 "src/ocaml/preprocess/parser_raw.ml" - in +# 15047 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14822,57 +15080,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14833 "src/ocaml/preprocess/parser_raw.ml" - in - +# 15092 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14838 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 15097 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3951 "src/ocaml/preprocess/parser_raw.mly" ("&&") -# 14845 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 15104 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 14853 "src/ocaml/preprocess/parser_raw.ml" +# 15112 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 14859 "src/ocaml/preprocess/parser_raw.ml" +# 15118 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 14869 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 15128 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14875 "src/ocaml/preprocess/parser_raw.ml" - in +# 15134 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -14928,51 +15188,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 14942 "src/ocaml/preprocess/parser_raw.ml" - in - +# 15203 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 14947 "src/ocaml/preprocess/parser_raw.ml" +# 15208 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 14953 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 15214 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14964 "src/ocaml/preprocess/parser_raw.ml" +# 15225 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 14970 "src/ocaml/preprocess/parser_raw.ml" +# 15231 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -14986,51 +15247,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 14990 "src/ocaml/preprocess/parser_raw.ml" +# 15251 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 14996 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 15257 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3951 "src/ocaml/preprocess/parser_raw.mly" ("&&") -# 15003 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 15264 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 15011 "src/ocaml/preprocess/parser_raw.ml" +# 15272 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 15017 "src/ocaml/preprocess/parser_raw.ml" +# 15278 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 15027 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 15288 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15033 "src/ocaml/preprocess/parser_raw.ml" - in +# 15294 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15065,57 +15327,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let e2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15076 "src/ocaml/preprocess/parser_raw.ml" - in - +# 15339 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15081 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 15344 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3952 "src/ocaml/preprocess/parser_raw.mly" (":=") -# 15088 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 15351 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 15096 "src/ocaml/preprocess/parser_raw.ml" +# 15359 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 15102 "src/ocaml/preprocess/parser_raw.ml" +# 15365 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 15112 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 15375 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15118 "src/ocaml/preprocess/parser_raw.ml" - in +# 15381 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15171,51 +15435,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let e2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let e2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 15185 "src/ocaml/preprocess/parser_raw.ml" - in - +# 15450 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 15190 "src/ocaml/preprocess/parser_raw.ml" +# 15455 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 15196 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 15461 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15207 "src/ocaml/preprocess/parser_raw.ml" +# 15472 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 15213 "src/ocaml/preprocess/parser_raw.ml" +# 15478 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -15229,51 +15494,52 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 15233 "src/ocaml/preprocess/parser_raw.ml" +# 15498 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15239 "src/ocaml/preprocess/parser_raw.ml" - - in - let op = - let _1 = +# 15504 "src/ocaml/preprocess/parser_raw.ml" + + in + let op = + let _1 = # 3952 "src/ocaml/preprocess/parser_raw.mly" (":=") -# 15246 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 15511 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 15254 "src/ocaml/preprocess/parser_raw.ml" +# 15519 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2588 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix e1 op e2 ) -# 15260 "src/ocaml/preprocess/parser_raw.ml" +# 15525 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 15270 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 15535 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15276 "src/ocaml/preprocess/parser_raw.ml" - in +# 15541 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15301,43 +15567,45 @@ 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 : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let _2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15312 "src/ocaml/preprocess/parser_raw.ml" - in - +# 15579 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15317 "src/ocaml/preprocess/parser_raw.ml" +# 15584 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - # 2590 "src/ocaml/preprocess/parser_raw.mly" ( mkuminus ~oploc:_loc__1_ _1 _2 ) -# 15324 "src/ocaml/preprocess/parser_raw.ml" +# 15591 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 15334 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 15601 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15340 "src/ocaml/preprocess/parser_raw.ml" - in +# 15607 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15386,51 +15654,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let _2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 15400 "src/ocaml/preprocess/parser_raw.ml" - in - +# 15669 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 15405 "src/ocaml/preprocess/parser_raw.ml" +# 15674 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 15411 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 15680 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15422 "src/ocaml/preprocess/parser_raw.ml" +# 15691 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 15428 "src/ocaml/preprocess/parser_raw.ml" +# 15697 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -15444,37 +15713,38 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 15448 "src/ocaml/preprocess/parser_raw.ml" +# 15717 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15454 "src/ocaml/preprocess/parser_raw.ml" +# 15723 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - # 2590 "src/ocaml/preprocess/parser_raw.mly" ( mkuminus ~oploc:_loc__1_ _1 _2 ) -# 15461 "src/ocaml/preprocess/parser_raw.ml" +# 15730 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 15471 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 15740 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15477 "src/ocaml/preprocess/parser_raw.ml" - in +# 15746 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15502,43 +15772,45 @@ 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 : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _2 = - let _1 = _1_inlined1 in - let _1 = + let _1 = + let _2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15513 "src/ocaml/preprocess/parser_raw.ml" - in - +# 15784 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15518 "src/ocaml/preprocess/parser_raw.ml" +# 15789 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - # 2592 "src/ocaml/preprocess/parser_raw.mly" ( mkuplus ~oploc:_loc__1_ _1 _2 ) -# 15525 "src/ocaml/preprocess/parser_raw.ml" +# 15796 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 15535 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 15806 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15541 "src/ocaml/preprocess/parser_raw.ml" - in +# 15812 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15587,51 +15859,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _1 = + let _2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 15601 "src/ocaml/preprocess/parser_raw.ml" - in - +# 15874 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 15606 "src/ocaml/preprocess/parser_raw.ml" +# 15879 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 15612 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 15885 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15623 "src/ocaml/preprocess/parser_raw.ml" +# 15896 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 15629 "src/ocaml/preprocess/parser_raw.ml" +# 15902 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -15645,37 +15918,38 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 15649 "src/ocaml/preprocess/parser_raw.ml" +# 15922 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15655 "src/ocaml/preprocess/parser_raw.ml" +# 15928 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - # 2592 "src/ocaml/preprocess/parser_raw.mly" ( mkuplus ~oploc:_loc__1_ _1 _2 ) -# 15662 "src/ocaml/preprocess/parser_raw.ml" +# 15935 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 15672 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 15945 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2506 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15678 "src/ocaml/preprocess/parser_raw.ml" - in +# 15951 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15710,14 +15984,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 : (Parsetree.expression) = let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2508 "src/ocaml/preprocess/parser_raw.mly" ( expr_of_let_bindings ~loc:_sloc _1 (merloc _endpos__2_ _3) ) -# 15720 "src/ocaml/preprocess/parser_raw.ml" - in +# 15995 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15758,34 +16034,36 @@ module Tables = struct let _1 : ( # 820 "src/ocaml/preprocess/parser_raw.mly" (string) -# 15762 "src/ocaml/preprocess/parser_raw.ml" +# 16038 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_body_ in - let _v : (Parsetree.expression) = let pbop_op = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let pbop_op = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 15774 "src/ocaml/preprocess/parser_raw.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 - +# 16051 "src/ocaml/preprocess/parser_raw.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 + ( # 2510 "src/ocaml/preprocess/parser_raw.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}) ) -# 15788 "src/ocaml/preprocess/parser_raw.ml" - in +# 16065 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15820,29 +16098,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 : (Parsetree.expression) = let _3 = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _3 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15829 "src/ocaml/preprocess/parser_raw.ml" - in - +# 16108 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15834 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos__1_inlined1_ in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _loc__2_ = (_startpos__2_, _endpos__2_) in - let _sloc = (_symbolstartpos, _endpos) in - +# 16113 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__3_ = _endpos__1_inlined1_ in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _loc__2_ = (_startpos__2_, _endpos__2_) in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2516 "src/ocaml/preprocess/parser_raw.mly" ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[_1;(merloc _endpos__2_ _3)])) ) -# 15845 "src/ocaml/preprocess/parser_raw.ml" - in +# 16124 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -15898,49 +16178,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 : (Parsetree.expression) = let _3 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _3 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 15910 "src/ocaml/preprocess/parser_raw.ml" - in - +# 16191 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 15915 "src/ocaml/preprocess/parser_raw.ml" +# 16196 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 15921 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 16202 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15932 "src/ocaml/preprocess/parser_raw.ml" +# 16213 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 15938 "src/ocaml/preprocess/parser_raw.ml" +# 16219 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -15954,25 +16235,26 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 15958 "src/ocaml/preprocess/parser_raw.ml" +# 16239 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 15964 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _loc__2_ = (_startpos__2_, _endpos__2_) in - let _sloc = (_symbolstartpos, _endpos) in - +# 16245 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__3_ = _endpos_xs_ in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _loc__2_ = (_startpos__2_, _endpos__2_) in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2516 "src/ocaml/preprocess/parser_raw.mly" ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[_1;(merloc _endpos__2_ _3)])) ) -# 15975 "src/ocaml/preprocess/parser_raw.ml" - in +# 16256 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16006,48 +16288,50 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 16010 "src/ocaml/preprocess/parser_raw.ml" +# 16292 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _3 = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _3 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16020 "src/ocaml/preprocess/parser_raw.ml" - in - +# 16303 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16025 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos__1_inlined1_ in - let _1 = - let _1 = +# 16308 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__3_ = _endpos__1_inlined1_ in + let _1 = + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16033 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 16316 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 16041 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 16324 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2518 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) ) -# 16050 "src/ocaml/preprocess/parser_raw.ml" - in +# 16333 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16102,54 +16386,55 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 16106 "src/ocaml/preprocess/parser_raw.ml" +# 16390 "src/ocaml/preprocess/parser_raw.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 : (Parsetree.expression) = let _3 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _3 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 16119 "src/ocaml/preprocess/parser_raw.ml" - in - +# 16404 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 16124 "src/ocaml/preprocess/parser_raw.ml" +# 16409 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 16130 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 16415 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16141 "src/ocaml/preprocess/parser_raw.ml" +# 16426 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 16147 "src/ocaml/preprocess/parser_raw.ml" +# 16432 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -16163,39 +16448,40 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 16167 "src/ocaml/preprocess/parser_raw.ml" +# 16452 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16173 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _1 = - let _1 = +# 16458 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__3_ = _endpos_xs_ in + let _1 = + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16181 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 16466 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 16189 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 16474 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2518 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) ) -# 16198 "src/ocaml/preprocess/parser_raw.ml" - in +# 16483 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16244,39 +16530,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 : (Parsetree.expression) = let _5 = - let _1 = _1_inlined2 in - let _1 = + let _v = + let _5 = + let _1 = _1_inlined2 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16253 "src/ocaml/preprocess/parser_raw.ml" - in - +# 16540 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16258 "src/ocaml/preprocess/parser_raw.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 - +# 16545 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 16270 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 16557 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2520 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) ) -# 16279 "src/ocaml/preprocess/parser_raw.ml" - in +# 16566 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16346,49 +16634,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 : (Parsetree.expression) = let _5 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3, _1_inlined2) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _5 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 16358 "src/ocaml/preprocess/parser_raw.ml" - in - +# 16647 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 16363 "src/ocaml/preprocess/parser_raw.ml" +# 16652 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 16369 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 16658 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16380 "src/ocaml/preprocess/parser_raw.ml" +# 16669 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 16386 "src/ocaml/preprocess/parser_raw.ml" +# 16675 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -16402,35 +16691,36 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 16406 "src/ocaml/preprocess/parser_raw.ml" +# 16695 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16412 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__5_ = _endpos_xs_ 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 - +# 16701 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__5_ = _endpos_xs_ 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 16424 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 16713 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2520 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) ) -# 16433 "src/ocaml/preprocess/parser_raw.ml" - in +# 16722 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16493,42 +16783,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _1 = + let r = + let v = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16504 "src/ocaml/preprocess/parser_raw.ml" - in - +# 16795 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16509 "src/ocaml/preprocess/parser_raw.ml" +# 16800 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2521 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 16515 "src/ocaml/preprocess/parser_raw.ml" +# 16806 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2481 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Paren, i, r ) -# 16521 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 16812 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2522 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 16531 "src/ocaml/preprocess/parser_raw.ml" - in +# 16822 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16612,51 +16904,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let r = + let v = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 16626 "src/ocaml/preprocess/parser_raw.ml" - in - +# 16919 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 16631 "src/ocaml/preprocess/parser_raw.ml" +# 16924 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 16637 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 16930 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16648 "src/ocaml/preprocess/parser_raw.ml" +# 16941 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 16654 "src/ocaml/preprocess/parser_raw.ml" +# 16947 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -16670,36 +16963,37 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 16674 "src/ocaml/preprocess/parser_raw.ml" +# 16967 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16680 "src/ocaml/preprocess/parser_raw.ml" +# 16973 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2521 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 16686 "src/ocaml/preprocess/parser_raw.ml" +# 16979 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2481 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Paren, i, r ) -# 16692 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 16985 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2522 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 16702 "src/ocaml/preprocess/parser_raw.ml" - in +# 16995 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16762,42 +17056,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _1 = + let r = + let v = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16773 "src/ocaml/preprocess/parser_raw.ml" - in - +# 17068 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16778 "src/ocaml/preprocess/parser_raw.ml" +# 17073 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2521 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 16784 "src/ocaml/preprocess/parser_raw.ml" +# 17079 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2483 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Brace, i, r ) -# 16790 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 17085 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2522 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 16800 "src/ocaml/preprocess/parser_raw.ml" - in +# 17095 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -16881,51 +17177,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let r = + let v = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 16895 "src/ocaml/preprocess/parser_raw.ml" - in - +# 17192 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 16900 "src/ocaml/preprocess/parser_raw.ml" +# 17197 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 16906 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 17203 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16917 "src/ocaml/preprocess/parser_raw.ml" +# 17214 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 16923 "src/ocaml/preprocess/parser_raw.ml" +# 17220 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -16939,36 +17236,37 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 16943 "src/ocaml/preprocess/parser_raw.ml" +# 17240 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 16949 "src/ocaml/preprocess/parser_raw.ml" +# 17246 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2521 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 16955 "src/ocaml/preprocess/parser_raw.ml" +# 17252 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2483 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Brace, i, r ) -# 16961 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 17258 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2522 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 16971 "src/ocaml/preprocess/parser_raw.ml" - in +# 17268 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17031,42 +17329,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _1 = + let r = + let v = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17042 "src/ocaml/preprocess/parser_raw.ml" - in - +# 17341 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17047 "src/ocaml/preprocess/parser_raw.ml" +# 17346 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2521 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 17053 "src/ocaml/preprocess/parser_raw.ml" +# 17352 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2485 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Bracket, i, r ) -# 17059 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 17358 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2522 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 17069 "src/ocaml/preprocess/parser_raw.ml" - in +# 17368 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17150,51 +17450,52 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let r = + let v = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 17164 "src/ocaml/preprocess/parser_raw.ml" - in - +# 17465 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 17169 "src/ocaml/preprocess/parser_raw.ml" +# 17470 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 17175 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 17476 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17186 "src/ocaml/preprocess/parser_raw.ml" +# 17487 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 17192 "src/ocaml/preprocess/parser_raw.ml" +# 17493 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -17208,36 +17509,37 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 17212 "src/ocaml/preprocess/parser_raw.ml" +# 17513 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17218 "src/ocaml/preprocess/parser_raw.ml" +# 17519 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2521 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 17224 "src/ocaml/preprocess/parser_raw.ml" +# 17525 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2485 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Bracket, i, r ) -# 17230 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 17531 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2522 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 17240 "src/ocaml/preprocess/parser_raw.ml" - in +# 17541 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17298,65 +17600,67 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 17302 "src/ocaml/preprocess/parser_raw.ml" +# 17604 "src/ocaml/preprocess/parser_raw.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__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _1 = + let r = + let v = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17315 "src/ocaml/preprocess/parser_raw.ml" - in - +# 17618 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17320 "src/ocaml/preprocess/parser_raw.ml" +# 17623 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 17326 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 17629 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 17332 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = -# 124 "" - ( None ) -# 17338 "src/ocaml/preprocess/parser_raw.ml" +# 17635 "src/ocaml/preprocess/parser_raw.ml" in - + let d = + let _1 = +# 123 "" + ( None ) +# 17641 "src/ocaml/preprocess/parser_raw.ml" + in + # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 17343 "src/ocaml/preprocess/parser_raw.ml" +# 17646 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2481 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Paren, i, r ) -# 17349 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 17652 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 17359 "src/ocaml/preprocess/parser_raw.ml" - in +# 17662 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17438,57 +17742,58 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 17442 "src/ocaml/preprocess/parser_raw.ml" +# 17746 "src/ocaml/preprocess/parser_raw.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_xs_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let r = + let v = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 17458 "src/ocaml/preprocess/parser_raw.ml" - in - +# 17763 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 17463 "src/ocaml/preprocess/parser_raw.ml" +# 17768 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 17469 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 17774 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17480 "src/ocaml/preprocess/parser_raw.ml" +# 17785 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 17486 "src/ocaml/preprocess/parser_raw.ml" +# 17791 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -17502,53 +17807,54 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 17506 "src/ocaml/preprocess/parser_raw.ml" +# 17811 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17512 "src/ocaml/preprocess/parser_raw.ml" +# 17817 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 17518 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 17823 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 17524 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = -# 124 "" - ( None ) -# 17530 "src/ocaml/preprocess/parser_raw.ml" +# 17829 "src/ocaml/preprocess/parser_raw.ml" in - + let d = + let _1 = +# 123 "" + ( None ) +# 17835 "src/ocaml/preprocess/parser_raw.ml" + in + # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 17535 "src/ocaml/preprocess/parser_raw.ml" +# 17840 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2481 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Paren, i, r ) -# 17541 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 17846 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 17551 "src/ocaml/preprocess/parser_raw.ml" - in +# 17856 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17621,7 +17927,7 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 17625 "src/ocaml/preprocess/parser_raw.ml" +# 17931 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -17629,68 +17935,70 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined2_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let v = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _1 = + let r = + let _1_inlined1 = _1_inlined2 in + let v = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17641 "src/ocaml/preprocess/parser_raw.ml" - in - +# 17948 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17646 "src/ocaml/preprocess/parser_raw.ml" +# 17953 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 17652 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 17959 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 17658 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = +# 17965 "src/ocaml/preprocess/parser_raw.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = # 2497 "src/ocaml/preprocess/parser_raw.mly" (_2) -# 17666 "src/ocaml/preprocess/parser_raw.ml" - in - +# 17973 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 17671 "src/ocaml/preprocess/parser_raw.ml" +# 17978 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 17677 "src/ocaml/preprocess/parser_raw.ml" +# 17984 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2481 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Paren, i, r ) -# 17683 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 17990 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 17693 "src/ocaml/preprocess/parser_raw.ml" - in +# 18000 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17784,7 +18092,7 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 17788 "src/ocaml/preprocess/parser_raw.ml" +# 18096 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -17792,52 +18100,53 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3, _1_inlined2, _1_inlined1) in - let v = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let r = + let (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in + let v = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 17807 "src/ocaml/preprocess/parser_raw.ml" - in - +# 18116 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 17812 "src/ocaml/preprocess/parser_raw.ml" +# 18121 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 17818 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 18127 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17829 "src/ocaml/preprocess/parser_raw.ml" +# 18138 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 17835 "src/ocaml/preprocess/parser_raw.ml" +# 18144 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -17851,61 +18160,62 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 17855 "src/ocaml/preprocess/parser_raw.ml" +# 18164 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17861 "src/ocaml/preprocess/parser_raw.ml" +# 18170 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 17867 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 18176 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 17873 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = +# 18182 "src/ocaml/preprocess/parser_raw.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = # 2497 "src/ocaml/preprocess/parser_raw.mly" (_2) -# 17881 "src/ocaml/preprocess/parser_raw.ml" - in - +# 18190 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 17886 "src/ocaml/preprocess/parser_raw.ml" +# 18195 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 17892 "src/ocaml/preprocess/parser_raw.ml" +# 18201 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2481 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Paren, i, r ) -# 17898 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 18207 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 17908 "src/ocaml/preprocess/parser_raw.ml" - in +# 18217 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -17966,65 +18276,67 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 17970 "src/ocaml/preprocess/parser_raw.ml" +# 18280 "src/ocaml/preprocess/parser_raw.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__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _1 = + let r = + let v = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17983 "src/ocaml/preprocess/parser_raw.ml" - in - +# 18294 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 17988 "src/ocaml/preprocess/parser_raw.ml" +# 18299 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 17994 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 18305 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 18000 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = -# 124 "" - ( None ) -# 18006 "src/ocaml/preprocess/parser_raw.ml" +# 18311 "src/ocaml/preprocess/parser_raw.ml" in - + let d = + let _1 = +# 123 "" + ( None ) +# 18317 "src/ocaml/preprocess/parser_raw.ml" + in + # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 18011 "src/ocaml/preprocess/parser_raw.ml" +# 18322 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2483 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Brace, i, r ) -# 18017 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 18328 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 18027 "src/ocaml/preprocess/parser_raw.ml" - in +# 18338 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18106,57 +18418,58 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 18110 "src/ocaml/preprocess/parser_raw.ml" +# 18422 "src/ocaml/preprocess/parser_raw.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_xs_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let r = + let v = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 18126 "src/ocaml/preprocess/parser_raw.ml" - in - +# 18439 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 18131 "src/ocaml/preprocess/parser_raw.ml" +# 18444 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 18137 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 18450 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18148 "src/ocaml/preprocess/parser_raw.ml" +# 18461 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 18154 "src/ocaml/preprocess/parser_raw.ml" +# 18467 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -18170,53 +18483,54 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 18174 "src/ocaml/preprocess/parser_raw.ml" +# 18487 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18180 "src/ocaml/preprocess/parser_raw.ml" +# 18493 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 18186 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 18499 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 18192 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = -# 124 "" - ( None ) -# 18198 "src/ocaml/preprocess/parser_raw.ml" +# 18505 "src/ocaml/preprocess/parser_raw.ml" in - + let d = + let _1 = +# 123 "" + ( None ) +# 18511 "src/ocaml/preprocess/parser_raw.ml" + in + # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 18203 "src/ocaml/preprocess/parser_raw.ml" +# 18516 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2483 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Brace, i, r ) -# 18209 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 18522 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 18219 "src/ocaml/preprocess/parser_raw.ml" - in +# 18532 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18289,7 +18603,7 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 18293 "src/ocaml/preprocess/parser_raw.ml" +# 18607 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -18297,68 +18611,70 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined2_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let v = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _1 = + let r = + let _1_inlined1 = _1_inlined2 in + let v = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18309 "src/ocaml/preprocess/parser_raw.ml" - in - +# 18624 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18314 "src/ocaml/preprocess/parser_raw.ml" +# 18629 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 18320 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 18635 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 18326 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = +# 18641 "src/ocaml/preprocess/parser_raw.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = # 2497 "src/ocaml/preprocess/parser_raw.mly" (_2) -# 18334 "src/ocaml/preprocess/parser_raw.ml" - in - +# 18649 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 18339 "src/ocaml/preprocess/parser_raw.ml" +# 18654 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 18345 "src/ocaml/preprocess/parser_raw.ml" +# 18660 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2483 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Brace, i, r ) -# 18351 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 18666 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 18361 "src/ocaml/preprocess/parser_raw.ml" - in +# 18676 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18452,7 +18768,7 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 18456 "src/ocaml/preprocess/parser_raw.ml" +# 18772 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -18460,52 +18776,53 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3, _1_inlined2, _1_inlined1) in - let v = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let r = + let (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in + let v = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 18475 "src/ocaml/preprocess/parser_raw.ml" - in - +# 18792 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 18480 "src/ocaml/preprocess/parser_raw.ml" +# 18797 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 18486 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 18803 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18497 "src/ocaml/preprocess/parser_raw.ml" +# 18814 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 18503 "src/ocaml/preprocess/parser_raw.ml" +# 18820 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -18519,61 +18836,62 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 18523 "src/ocaml/preprocess/parser_raw.ml" +# 18840 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18529 "src/ocaml/preprocess/parser_raw.ml" +# 18846 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 18535 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 18852 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 18541 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = +# 18858 "src/ocaml/preprocess/parser_raw.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = # 2497 "src/ocaml/preprocess/parser_raw.mly" (_2) -# 18549 "src/ocaml/preprocess/parser_raw.ml" - in - +# 18866 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 18554 "src/ocaml/preprocess/parser_raw.ml" +# 18871 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 18560 "src/ocaml/preprocess/parser_raw.ml" +# 18877 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2483 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Brace, i, r ) -# 18566 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 18883 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 18576 "src/ocaml/preprocess/parser_raw.ml" - in +# 18893 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18634,65 +18952,67 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 18638 "src/ocaml/preprocess/parser_raw.ml" +# 18956 "src/ocaml/preprocess/parser_raw.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__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _1 = + let r = + let v = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18651 "src/ocaml/preprocess/parser_raw.ml" - in - +# 18970 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18656 "src/ocaml/preprocess/parser_raw.ml" +# 18975 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 18662 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 18981 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 18668 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = -# 124 "" - ( None ) -# 18674 "src/ocaml/preprocess/parser_raw.ml" +# 18987 "src/ocaml/preprocess/parser_raw.ml" in - + let d = + let _1 = +# 123 "" + ( None ) +# 18993 "src/ocaml/preprocess/parser_raw.ml" + in + # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 18679 "src/ocaml/preprocess/parser_raw.ml" +# 18998 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2485 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Bracket, i, r ) -# 18685 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 19004 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 18695 "src/ocaml/preprocess/parser_raw.ml" - in +# 19014 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18774,57 +19094,58 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 18778 "src/ocaml/preprocess/parser_raw.ml" +# 19098 "src/ocaml/preprocess/parser_raw.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_xs_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let v = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let r = + let v = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 18794 "src/ocaml/preprocess/parser_raw.ml" - in - +# 19115 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 18799 "src/ocaml/preprocess/parser_raw.ml" +# 19120 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 18805 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 19126 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18816 "src/ocaml/preprocess/parser_raw.ml" +# 19137 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 18822 "src/ocaml/preprocess/parser_raw.ml" +# 19143 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -18838,53 +19159,54 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 18842 "src/ocaml/preprocess/parser_raw.ml" +# 19163 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18848 "src/ocaml/preprocess/parser_raw.ml" +# 19169 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 18854 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 19175 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 18860 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = -# 124 "" - ( None ) -# 18866 "src/ocaml/preprocess/parser_raw.ml" +# 19181 "src/ocaml/preprocess/parser_raw.ml" in - + let d = + let _1 = +# 123 "" + ( None ) +# 19187 "src/ocaml/preprocess/parser_raw.ml" + in + # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 18871 "src/ocaml/preprocess/parser_raw.ml" +# 19192 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2485 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Bracket, i, r ) -# 18877 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 19198 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 18887 "src/ocaml/preprocess/parser_raw.ml" - in +# 19208 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -18957,7 +19279,7 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 18961 "src/ocaml/preprocess/parser_raw.ml" +# 19283 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -18965,68 +19287,70 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined2_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let v = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _1 = + let r = + let _1_inlined1 = _1_inlined2 in + let v = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18977 "src/ocaml/preprocess/parser_raw.ml" - in - +# 19300 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 18982 "src/ocaml/preprocess/parser_raw.ml" +# 19305 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 18988 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 19311 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 18994 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = +# 19317 "src/ocaml/preprocess/parser_raw.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = # 2497 "src/ocaml/preprocess/parser_raw.mly" (_2) -# 19002 "src/ocaml/preprocess/parser_raw.ml" - in - +# 19325 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 19007 "src/ocaml/preprocess/parser_raw.ml" +# 19330 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 19013 "src/ocaml/preprocess/parser_raw.ml" +# 19336 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2485 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Bracket, i, r ) -# 19019 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 19342 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 19029 "src/ocaml/preprocess/parser_raw.ml" - in +# 19352 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19120,7 +19444,7 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 19124 "src/ocaml/preprocess/parser_raw.ml" +# 19448 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -19128,52 +19452,53 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = - let r = - let (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3, _1_inlined2, _1_inlined1) in - let v = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let r = + let (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in + let v = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 19143 "src/ocaml/preprocess/parser_raw.ml" - in - +# 19468 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 19148 "src/ocaml/preprocess/parser_raw.ml" +# 19473 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 19154 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 19479 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 19165 "src/ocaml/preprocess/parser_raw.ml" +# 19490 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 19171 "src/ocaml/preprocess/parser_raw.ml" +# 19496 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -19187,61 +19512,62 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 19191 "src/ocaml/preprocess/parser_raw.ml" +# 19516 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 19197 "src/ocaml/preprocess/parser_raw.ml" +# 19522 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2523 "src/ocaml/preprocess/parser_raw.mly" (Some v) -# 19203 "src/ocaml/preprocess/parser_raw.ml" - - in - let i = +# 19528 "src/ocaml/preprocess/parser_raw.ml" + + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 19209 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = +# 19534 "src/ocaml/preprocess/parser_raw.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = # 2497 "src/ocaml/preprocess/parser_raw.mly" (_2) -# 19217 "src/ocaml/preprocess/parser_raw.ml" - in - +# 19542 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 19222 "src/ocaml/preprocess/parser_raw.ml" +# 19547 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 19228 "src/ocaml/preprocess/parser_raw.ml" +# 19553 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2485 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Bracket, i, r ) -# 19234 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 19559 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2524 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 19244 "src/ocaml/preprocess/parser_raw.ml" - in +# 19569 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19272,7 +19598,7 @@ module Tables = struct let _v : (Parsetree.expression) = # 2526 "src/ocaml/preprocess/parser_raw.mly" ( Exp.attr _1 _2 ) -# 19276 "src/ocaml/preprocess/parser_raw.ml" +# 19602 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19315,15 +19641,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.function_param list) = let ty_params = + let _v = + let ty_params = # 2774 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 19322 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 19649 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2923 "src/ocaml/preprocess/parser_raw.mly" ( (* We desugar (type a b c) to (type a) (type b) (type c). If we do this desugaring, the loc for each parameter is a ghost. @@ -19338,8 +19665,9 @@ module Tables = struct (fun x -> { pparam_loc = loc; pparam_desc = Pparam_newtype x }) ty_params ) -# 19342 "src/ocaml/preprocess/parser_raw.ml" - in +# 19669 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.function_param list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19360,16 +19688,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.function_param list) = let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2937 "src/ocaml/preprocess/parser_raw.mly" ( let a, b, c = _1 in [ { pparam_loc = make_loc _sloc; pparam_desc = Pparam_val (a, b, c) } ] ) -# 19372 "src/ocaml/preprocess/parser_raw.ml" - in +# 19701 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.function_param list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19390,23 +19720,25 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.function_param list) = let _1 = - let xs = -# 253 "" + let _v = + let _1 = + let xs = +# 264 "" ( List.rev xs ) -# 19398 "src/ocaml/preprocess/parser_raw.ml" - in - +# 19729 "src/ocaml/preprocess/parser_raw.ml" + in + # 1150 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 19403 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 19734 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2942 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 19409 "src/ocaml/preprocess/parser_raw.ml" - in +# 19740 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.function_param list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19430,7 +19762,7 @@ module Tables = struct let _v : (Parsetree.expression) = # 2416 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 19434 "src/ocaml/preprocess/parser_raw.ml" +# 19766 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19462,7 +19794,7 @@ module Tables = struct let _v : (Parsetree.expression) = # 2417 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 19466 "src/ocaml/preprocess/parser_raw.ml" +# 19798 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19498,27 +19830,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2419 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_sequence(_1, _3) ) -# 19506 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 19839 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 19515 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 19848 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2420 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 19521 "src/ocaml/preprocess/parser_raw.ml" - in +# 19854 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19567,16 +19901,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2422 "src/ocaml/preprocess/parser_raw.mly" ( let seq = mkexp ~loc:_sloc (Pexp_sequence (_1, _5)) in let payload = PStr [mkstrexp seq []] in mkexp ~loc:_sloc (Pexp_extension (_4, payload)) ) -# 19579 "src/ocaml/preprocess/parser_raw.ml" - in +# 19914 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19600,7 +19936,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 3647 "src/ocaml/preprocess/parser_raw.mly" ( ty ) -# 19604 "src/ocaml/preprocess/parser_raw.ml" +# 19940 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19643,39 +19979,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let domain = + let _1 = + let domain = # 1025 "src/ocaml/preprocess/parser_raw.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 19652 "src/ocaml/preprocess/parser_raw.ml" - in - let label = +# 19989 "src/ocaml/preprocess/parser_raw.ml" + in + let label = # 3659 "src/ocaml/preprocess/parser_raw.mly" ( Optional label ) -# 19657 "src/ocaml/preprocess/parser_raw.ml" - in - +# 19994 "src/ocaml/preprocess/parser_raw.ml" + in + # 3653 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_arrow(label, domain, codomain) ) -# 19662 "src/ocaml/preprocess/parser_raw.ml" +# 19999 "src/ocaml/preprocess/parser_raw.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 - 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 - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 19672 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 20009 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3655 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 19678 "src/ocaml/preprocess/parser_raw.ml" - in +# 20015 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19723,44 +20061,46 @@ module Tables = struct let label : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 19727 "src/ocaml/preprocess/parser_raw.ml" +# 20065 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let domain = + let _1 = + let domain = # 1025 "src/ocaml/preprocess/parser_raw.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 19737 "src/ocaml/preprocess/parser_raw.ml" - in - let label = +# 20076 "src/ocaml/preprocess/parser_raw.ml" + in + let label = # 3661 "src/ocaml/preprocess/parser_raw.mly" ( Labelled label ) -# 19742 "src/ocaml/preprocess/parser_raw.ml" - in - +# 20081 "src/ocaml/preprocess/parser_raw.ml" + in + # 3653 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_arrow(label, domain, codomain) ) -# 19747 "src/ocaml/preprocess/parser_raw.ml" +# 20086 "src/ocaml/preprocess/parser_raw.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 - 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 - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 19757 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 20096 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3655 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 19763 "src/ocaml/preprocess/parser_raw.ml" - in +# 20102 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19795,39 +20135,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_codomain_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let domain = + let _1 = + let domain = # 1025 "src/ocaml/preprocess/parser_raw.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 19804 "src/ocaml/preprocess/parser_raw.ml" - in - let label = +# 20145 "src/ocaml/preprocess/parser_raw.ml" + in + let label = # 3663 "src/ocaml/preprocess/parser_raw.mly" ( Nolabel ) -# 19809 "src/ocaml/preprocess/parser_raw.ml" - in - +# 20150 "src/ocaml/preprocess/parser_raw.ml" + in + # 3653 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_arrow(label, domain, codomain) ) -# 19814 "src/ocaml/preprocess/parser_raw.ml" +# 20155 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_codomain_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_codomain_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 19824 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 20165 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3655 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 19830 "src/ocaml/preprocess/parser_raw.ml" - in +# 20171 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19855,12 +20197,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 : (Lexing.position * Parsetree.functor_parameter) = let _startpos = _startpos__1_ in - + let _v = + let _startpos = _startpos__1_ in + ( # 1437 "src/ocaml/preprocess/parser_raw.mly" ( _startpos, Unit ) -# 19863 "src/ocaml/preprocess/parser_raw.ml" - in +# 20206 "src/ocaml/preprocess/parser_raw.ml" + : (Lexing.position * Parsetree.functor_parameter)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19909,23 +20253,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 : (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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 19921 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos = _startpos__1_ in - +# 20266 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos = _startpos__1_ in + ( # 1440 "src/ocaml/preprocess/parser_raw.mly" ( _startpos, Named (x, mty) ) -# 19928 "src/ocaml/preprocess/parser_raw.ml" - in +# 20273 "src/ocaml/preprocess/parser_raw.ml" + : (Lexing.position * Parsetree.functor_parameter)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -19949,7 +20295,7 @@ module Tables = struct let _v : ((Lexing.position * Parsetree.functor_parameter) list) = # 1429 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 19953 "src/ocaml/preprocess/parser_raw.ml" +# 20299 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19968,7 +20314,7 @@ module Tables = struct Parsetree.core_type option) = # 3446 "src/ocaml/preprocess/parser_raw.mly" ( ([],Pcstr_tuple [],None) ) -# 19972 "src/ocaml/preprocess/parser_raw.ml" +# 20318 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20001,7 +20347,7 @@ module Tables = struct Parsetree.core_type option) = # 3447 "src/ocaml/preprocess/parser_raw.mly" ( ([],_2,None) ) -# 20005 "src/ocaml/preprocess/parser_raw.ml" +# 20351 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20048,7 +20394,7 @@ module Tables = struct Parsetree.core_type option) = # 3449 "src/ocaml/preprocess/parser_raw.mly" ( ([],_2,Some _4) ) -# 20052 "src/ocaml/preprocess/parser_raw.ml" +# 20398 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20105,31 +20451,33 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v : (Ocaml_parsing.Ast_helper.str list * Parsetree.constructor_arguments * - Parsetree.core_type option) = let _2 = - let _1 = - let xs = -# 253 "" + let _v = + let _2 = + let _1 = + let xs = +# 264 "" ( List.rev xs ) -# 20115 "src/ocaml/preprocess/parser_raw.ml" - in - +# 20461 "src/ocaml/preprocess/parser_raw.ml" + in + # 1129 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 20120 "src/ocaml/preprocess/parser_raw.ml" +# 20466 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3582 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20126 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 20472 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3452 "src/ocaml/preprocess/parser_raw.mly" ( (_2,_4,Some _6) ) -# 20132 "src/ocaml/preprocess/parser_raw.ml" - in +# 20478 "src/ocaml/preprocess/parser_raw.ml" + : (Ocaml_parsing.Ast_helper.str list * Parsetree.constructor_arguments * + Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20161,7 +20509,7 @@ module Tables = struct Parsetree.core_type option) = # 3454 "src/ocaml/preprocess/parser_raw.mly" ( ([],Pcstr_tuple [],Some _2) ) -# 20165 "src/ocaml/preprocess/parser_raw.ml" +# 20513 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20204,31 +20552,33 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Ocaml_parsing.Ast_helper.str list * Parsetree.constructor_arguments * - Parsetree.core_type option) = let _2 = - let _1 = - let xs = -# 253 "" + let _v = + let _2 = + let _1 = + let xs = +# 264 "" ( List.rev xs ) -# 20214 "src/ocaml/preprocess/parser_raw.ml" - in - +# 20562 "src/ocaml/preprocess/parser_raw.ml" + in + # 1129 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 20219 "src/ocaml/preprocess/parser_raw.ml" +# 20567 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3582 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20225 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 20573 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3456 "src/ocaml/preprocess/parser_raw.mly" ( (_2,Pcstr_tuple [],Some _4) ) -# 20231 "src/ocaml/preprocess/parser_raw.ml" - in +# 20579 "src/ocaml/preprocess/parser_raw.ml" + : (Ocaml_parsing.Ast_helper.str list * Parsetree.constructor_arguments * + Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20271,32 +20621,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 : (Ocaml_parsing.Ast_helper.str * Ocaml_parsing.Ast_helper.str list * - Parsetree.constructor_arguments * Parsetree.core_type option * - Parsetree.attributes * Location.t * Ocaml_parsing.Docstrings.info) = let attrs = - let _1 = _1_inlined2 in - + let _v = + let attrs = + let _1 = _1_inlined2 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20282 "src/ocaml/preprocess/parser_raw.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 - +# 20631 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 20294 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 20643 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3394 "src/ocaml/preprocess/parser_raw.mly" ( let vars, args, res = vars_args_res in @@ -20304,8 +20653,11 @@ module Tables = struct let loc = make_loc _sloc in cid, vars, args, res, attrs, loc, info ) -# 20308 "src/ocaml/preprocess/parser_raw.ml" - in +# 20657 "src/ocaml/preprocess/parser_raw.ml" + : (Ocaml_parsing.Ast_helper.str * Ocaml_parsing.Ast_helper.str list * + Parsetree.constructor_arguments * Parsetree.core_type option * + Parsetree.attributes * Location.t * Ocaml_parsing.Docstrings.info)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20341,37 +20693,36 @@ 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 : (Ocaml_parsing.Ast_helper.str * Ocaml_parsing.Ast_helper.str list * - Parsetree.constructor_arguments * Parsetree.core_type option * - Parsetree.attributes * Location.t * Ocaml_parsing.Docstrings.info) = let attrs = - let _1 = _1_inlined1 in - + let _v = + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20352 "src/ocaml/preprocess/parser_raw.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 - +# 20703 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 20363 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos_cid_ = _startpos__1_ in - let _1 = +# 20714 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_cid_ = _startpos__1_ in + let _1 = # 4048 "src/ocaml/preprocess/parser_raw.mly" ( () ) -# 20370 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos_attrs_ in - let _symbolstartpos = _startpos_cid_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 20721 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos_attrs_ in + let _symbolstartpos = _startpos_cid_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3394 "src/ocaml/preprocess/parser_raw.mly" ( let vars, args, res = vars_args_res in @@ -20379,8 +20730,11 @@ module Tables = struct let loc = make_loc _sloc in cid, vars, args, res, attrs, loc, info ) -# 20383 "src/ocaml/preprocess/parser_raw.ml" - in +# 20734 "src/ocaml/preprocess/parser_raw.ml" + : (Ocaml_parsing.Ast_helper.str * Ocaml_parsing.Ast_helper.str list * + Parsetree.constructor_arguments * Parsetree.core_type option * + Parsetree.attributes * Location.t * Ocaml_parsing.Docstrings.info)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20452,7 +20806,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 20456 "src/ocaml/preprocess/parser_raw.ml" +# 20810 "src/ocaml/preprocess/parser_raw.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 @@ -20461,71 +20815,68 @@ 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 : ((Asttypes.rec_flag * string Location.loc option) * - Parsetree.type_declaration) = let attrs2 = - let _1 = _1_inlined4 in - + let _v = + let attrs2 = + let _1 = _1_inlined4 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20471 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let cstrs = - let _1 = - let xs = -# 253 "" - ( List.rev xs ) -# 20480 "src/ocaml/preprocess/parser_raw.ml" - in +# 20825 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let cstrs = + let _1 = + let xs = +# 264 "" + ( List.rev xs ) +# 20834 "src/ocaml/preprocess/parser_raw.ml" + in + # 1111 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 20485 "src/ocaml/preprocess/parser_raw.ml" +# 20839 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3297 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20491 "src/ocaml/preprocess/parser_raw.ml" - - in - let kind_priv_manifest = - let _1 = _1_inlined3 in - +# 20845 "src/ocaml/preprocess/parser_raw.ml" + + in + let kind_priv_manifest = # 3332 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 20499 "src/ocaml/preprocess/parser_raw.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 - +# 20851 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 20510 "src/ocaml/preprocess/parser_raw.ml" - - in - let flag = +# 20861 "src/ocaml/preprocess/parser_raw.ml" + + in + let flag = # 4068 "src/ocaml/preprocess/parser_raw.mly" ( Recursive ) -# 20516 "src/ocaml/preprocess/parser_raw.ml" - in - let attrs1 = - let _1 = _1_inlined1 in - +# 20867 "src/ocaml/preprocess/parser_raw.ml" + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20523 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 20874 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3269 "src/ocaml/preprocess/parser_raw.mly" ( let (kind, priv, manifest) = kind_priv_manifest in @@ -20535,8 +20886,10 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 20539 "src/ocaml/preprocess/parser_raw.ml" - in +# 20890 "src/ocaml/preprocess/parser_raw.ml" + : ((Asttypes.rec_flag * string Location.loc option) * + Parsetree.type_declaration)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20614,7 +20967,7 @@ module Tables = struct let _1_inlined3 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 20618 "src/ocaml/preprocess/parser_raw.ml" +# 20971 "src/ocaml/preprocess/parser_raw.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 @@ -20624,77 +20977,74 @@ 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 : ((Asttypes.rec_flag * string Location.loc option) * - Parsetree.type_declaration) = let attrs2 = - let _1 = _1_inlined5 in - + let _v = + let attrs2 = + let _1 = _1_inlined5 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20634 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined5_ in - let cstrs = - let _1 = - let xs = -# 253 "" - ( List.rev xs ) -# 20643 "src/ocaml/preprocess/parser_raw.ml" - in +# 20987 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos_attrs2_ = _endpos__1_inlined5_ in + let cstrs = + let _1 = + let xs = +# 264 "" + ( List.rev xs ) +# 20996 "src/ocaml/preprocess/parser_raw.ml" + in + # 1111 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 20648 "src/ocaml/preprocess/parser_raw.ml" +# 21001 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3297 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20654 "src/ocaml/preprocess/parser_raw.ml" - - in - let kind_priv_manifest = - let _1 = _1_inlined4 in - +# 21007 "src/ocaml/preprocess/parser_raw.ml" + + in + let kind_priv_manifest = # 3332 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 20662 "src/ocaml/preprocess/parser_raw.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 - +# 21013 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 20673 "src/ocaml/preprocess/parser_raw.ml" - - in - let flag = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - +# 21023 "src/ocaml/preprocess/parser_raw.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 + # 4070 "src/ocaml/preprocess/parser_raw.mly" ( not_expecting _loc "nonrec flag"; Recursive ) -# 20684 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 21034 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20692 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 21042 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3269 "src/ocaml/preprocess/parser_raw.mly" ( let (kind, priv, manifest) = kind_priv_manifest in @@ -20704,8 +21054,10 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 20708 "src/ocaml/preprocess/parser_raw.ml" - in +# 21058 "src/ocaml/preprocess/parser_raw.ml" + : ((Asttypes.rec_flag * string Location.loc option) * + Parsetree.type_declaration)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20770,7 +21122,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 20774 "src/ocaml/preprocess/parser_raw.ml" +# 21126 "src/ocaml/preprocess/parser_raw.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 @@ -20779,63 +21131,63 @@ 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 : ((Asttypes.rec_flag * string Location.loc option) * - Parsetree.type_declaration) = let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20789 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let cstrs = - let _1 = - let xs = -# 253 "" - ( List.rev xs ) -# 20798 "src/ocaml/preprocess/parser_raw.ml" - in +# 21141 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let cstrs = + let _1 = + let xs = +# 264 "" + ( List.rev xs ) +# 21150 "src/ocaml/preprocess/parser_raw.ml" + in + # 1111 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 20803 "src/ocaml/preprocess/parser_raw.ml" +# 21155 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3297 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20809 "src/ocaml/preprocess/parser_raw.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 - +# 21161 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 20820 "src/ocaml/preprocess/parser_raw.ml" - - in - let flag = +# 21172 "src/ocaml/preprocess/parser_raw.ml" + + in + let flag = # 4064 "src/ocaml/preprocess/parser_raw.mly" ( Recursive ) -# 20826 "src/ocaml/preprocess/parser_raw.ml" - in - let attrs1 = - let _1 = _1_inlined1 in - +# 21178 "src/ocaml/preprocess/parser_raw.ml" + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20833 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 21185 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3269 "src/ocaml/preprocess/parser_raw.mly" ( let (kind, priv, manifest) = kind_priv_manifest in @@ -20845,8 +21197,10 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 20849 "src/ocaml/preprocess/parser_raw.ml" - in +# 21201 "src/ocaml/preprocess/parser_raw.ml" + : ((Asttypes.rec_flag * string Location.loc option) * + Parsetree.type_declaration)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -20917,7 +21271,7 @@ module Tables = struct let _1_inlined3 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 20921 "src/ocaml/preprocess/parser_raw.ml" +# 21275 "src/ocaml/preprocess/parser_raw.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 @@ -20927,66 +21281,63 @@ 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 : ((Asttypes.rec_flag * string Location.loc option) * - Parsetree.type_declaration) = let attrs2 = - let _1 = _1_inlined4 in - + let _v = + let attrs2 = + let _1 = _1_inlined4 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20937 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let cstrs = - let _1 = - let xs = -# 253 "" - ( List.rev xs ) -# 20946 "src/ocaml/preprocess/parser_raw.ml" - in +# 21291 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let cstrs = + let _1 = + let xs = +# 264 "" + ( List.rev xs ) +# 21300 "src/ocaml/preprocess/parser_raw.ml" + in + # 1111 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 20951 "src/ocaml/preprocess/parser_raw.ml" +# 21305 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3297 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20957 "src/ocaml/preprocess/parser_raw.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 - +# 21311 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 20968 "src/ocaml/preprocess/parser_raw.ml" - - in - let flag = - let _1 = _1_inlined2 in - +# 21322 "src/ocaml/preprocess/parser_raw.ml" + + in + let flag = # 4065 "src/ocaml/preprocess/parser_raw.mly" ( Nonrecursive ) -# 20976 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 21328 "src/ocaml/preprocess/parser_raw.ml" + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 20984 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 21335 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3269 "src/ocaml/preprocess/parser_raw.mly" ( let (kind, priv, manifest) = kind_priv_manifest in @@ -20996,8 +21347,10 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 21000 "src/ocaml/preprocess/parser_raw.ml" - in +# 21351 "src/ocaml/preprocess/parser_raw.ml" + : ((Asttypes.rec_flag * string Location.loc option) * + Parsetree.type_declaration)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21017,7 +21370,7 @@ module Tables = struct let _1 : ( # 890 "src/ocaml/preprocess/parser_raw.mly" (string) -# 21021 "src/ocaml/preprocess/parser_raw.ml" +# 21374 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21025,7 +21378,7 @@ module Tables = struct let _v : (string) = # 3903 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21029 "src/ocaml/preprocess/parser_raw.ml" +# 21382 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21046,7 +21399,7 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 21050 "src/ocaml/preprocess/parser_raw.ml" +# 21403 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21054,7 +21407,7 @@ module Tables = struct let _v : (string) = # 3904 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21058 "src/ocaml/preprocess/parser_raw.ml" +# 21411 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21086,7 +21439,7 @@ module Tables = struct let _v : (Parsetree.structure) = # 1303 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21090 "src/ocaml/preprocess/parser_raw.ml" +# 21443 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21104,7 +21457,7 @@ module Tables = struct let _v : (string) = # 3955 "src/ocaml/preprocess/parser_raw.mly" ( "" ) -# 21108 "src/ocaml/preprocess/parser_raw.ml" +# 21461 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21136,7 +21489,7 @@ module Tables = struct let _v : (string) = # 3956 "src/ocaml/preprocess/parser_raw.mly" ( ";.." ) -# 21140 "src/ocaml/preprocess/parser_raw.ml" +# 21493 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21168,7 +21521,7 @@ module Tables = struct let _v : (Parsetree.signature) = # 1310 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21172 "src/ocaml/preprocess/parser_raw.ml" +# 21525 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21214,7 +21567,7 @@ module Tables = struct let _v : (Parsetree.extension) = # 4248 "src/ocaml/preprocess/parser_raw.mly" ( (_2, _3) ) -# 21218 "src/ocaml/preprocess/parser_raw.ml" +# 21571 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21235,19 +21588,21 @@ module Tables = struct let _1 : ( # 881 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string * Location.t * string option) -# 21239 "src/ocaml/preprocess/parser_raw.ml" +# 21592 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.extension) = let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 4250 "src/ocaml/preprocess/parser_raw.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 21250 "src/ocaml/preprocess/parser_raw.ml" - in +# 21604 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21294,58 +21649,60 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 21298 "src/ocaml/preprocess/parser_raw.ml" +# 21653 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1_inlined1 in let _1 : (Asttypes.mutable_flag) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v : (Parsetree.label_declaration) = let _5 = - let _1 = _1_inlined3 in - + let _v = + let _5 = + let _1 = _1_inlined3 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21309 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__5_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - +# 21665 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__5_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + # 3600 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21318 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = +# 21674 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21326 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 21682 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 21334 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos__2_ = _startpos__1_inlined1_ in - let _endpos = _endpos__5_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ - else - _startpos__2_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 21690 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__2_ = _startpos__1_inlined1_ in + let _endpos = _endpos__5_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + _startpos__2_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3473 "src/ocaml/preprocess/parser_raw.mly" ( let info = symbol_info _endpos in Type.field _2 _4 ~mut:_1 ~attrs:_5 ~loc:(make_loc _sloc) ~info ) -# 21348 "src/ocaml/preprocess/parser_raw.ml" - in +# 21704 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.label_declaration)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21406,62 +21763,63 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 21410 "src/ocaml/preprocess/parser_raw.ml" +# 21767 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1_inlined1 in let _1 : (Asttypes.mutable_flag) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in - let _v : (Parsetree.label_declaration) = let _7 = - let _1 = _1_inlined4 in - + let _v = + let _7 = + let _1 = _1_inlined4 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21421 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__7_ = _endpos__1_inlined4_ in - let _5 = - let _1 = _1_inlined3 in - +# 21779 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__7_ = _endpos__1_inlined4_ in + let _5 = + let _1 = _1_inlined3 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21430 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__5_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - +# 21788 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__5_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + # 3600 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21439 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = +# 21797 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21447 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 21805 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 21455 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos__2_ = _startpos__1_inlined1_ in - let _endpos = _endpos__7_ in - let _symbolstartpos = if _startpos__1_ != _endpos__1_ then - _startpos__1_ - else - _startpos__2_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 21813 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__2_ = _startpos__1_inlined1_ in + let _endpos = _endpos__7_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ + else + _startpos__2_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3478 "src/ocaml/preprocess/parser_raw.mly" ( let info = match rhs_info _endpos__5_ with @@ -21469,8 +21827,9 @@ module Tables = struct | None -> symbol_info _endpos in Type.field _2 _4 ~mut:_1 ~attrs:(_5 @ _7) ~loc:(make_loc _sloc) ~info ) -# 21473 "src/ocaml/preprocess/parser_raw.ml" - in +# 21831 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.label_declaration)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21494,7 +21853,7 @@ module Tables = struct let _v : (Parsetree.label_declaration list) = # 3467 "src/ocaml/preprocess/parser_raw.mly" ( [_1] ) -# 21498 "src/ocaml/preprocess/parser_raw.ml" +# 21857 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21519,7 +21878,7 @@ module Tables = struct let _v : (Parsetree.label_declaration list) = # 3468 "src/ocaml/preprocess/parser_raw.mly" ( [_1] ) -# 21523 "src/ocaml/preprocess/parser_raw.ml" +# 21882 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21551,7 +21910,7 @@ module Tables = struct let _v : (Parsetree.label_declaration list) = # 3469 "src/ocaml/preprocess/parser_raw.mly" ( _1 :: _2 ) -# 21555 "src/ocaml/preprocess/parser_raw.ml" +# 21914 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21572,36 +21931,38 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 21576 "src/ocaml/preprocess/parser_raw.ml" +# 21935 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string * Parsetree.pattern) = let x = - let _1 = + let _v = + let x = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 21949 "src/ocaml/preprocess/parser_raw.ml" + + in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 21589 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2469 "src/ocaml/preprocess/parser_raw.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 21598 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 21958 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2461 "src/ocaml/preprocess/parser_raw.mly" ( x ) -# 21604 "src/ocaml/preprocess/parser_raw.ml" - in +# 21964 "src/ocaml/preprocess/parser_raw.ml" + : (string * Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21635,42 +21996,44 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 21639 "src/ocaml/preprocess/parser_raw.ml" +# 22000 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_cty_ in - let _v : (string * Parsetree.pattern) = let x = - let _1 = + let _v = + let x = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 22014 "src/ocaml/preprocess/parser_raw.ml" + + in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 21652 "src/ocaml/preprocess/parser_raw.ml" +# 2469 "src/ocaml/preprocess/parser_raw.mly" + ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) +# 22023 "src/ocaml/preprocess/parser_raw.ml" in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in + let _startpos_x_ = _startpos__1_ in + let _endpos = _endpos_cty_ in + let _symbolstartpos = _startpos_x_ in let _sloc = (_symbolstartpos, _endpos) in - -# 2469 "src/ocaml/preprocess/parser_raw.mly" - ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 21661 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos_x_ = _startpos__1_ in - let _endpos = _endpos_cty_ in - let _symbolstartpos = _startpos_x_ in - let _sloc = (_symbolstartpos, _endpos) in - + ( # 2463 "src/ocaml/preprocess/parser_raw.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) -# 21673 "src/ocaml/preprocess/parser_raw.ml" - in +# 22035 "src/ocaml/preprocess/parser_raw.ml" + : (string * Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21694,7 +22057,7 @@ module Tables = struct let _v : (Longident.t) = # 3987 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21698 "src/ocaml/preprocess/parser_raw.ml" +# 22061 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21719,7 +22082,7 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression) = # 2757 "src/ocaml/preprocess/parser_raw.mly" ( (Nolabel, _1) ) -# 21723 "src/ocaml/preprocess/parser_raw.ml" +# 22086 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21747,7 +22110,7 @@ module Tables = struct let _1 : ( # 825 "src/ocaml/preprocess/parser_raw.mly" (string) -# 21751 "src/ocaml/preprocess/parser_raw.ml" +# 22114 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21755,7 +22118,7 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression) = # 2759 "src/ocaml/preprocess/parser_raw.mly" ( (Labelled _1, _2) ) -# 21759 "src/ocaml/preprocess/parser_raw.ml" +# 22122 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21782,19 +22145,21 @@ module Tables = struct let label : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 21786 "src/ocaml/preprocess/parser_raw.ml" +# 22149 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in - let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in - + let _v = + let _loc_label_ = (_startpos_label_, _endpos_label_) in + ( # 2761 "src/ocaml/preprocess/parser_raw.mly" ( let loc = _loc_label_ in (Labelled label, mkexpvar ~loc label) ) -# 21797 "src/ocaml/preprocess/parser_raw.ml" - in +# 22161 "src/ocaml/preprocess/parser_raw.ml" + : (Asttypes.arg_label * Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21840,21 +22205,23 @@ module Tables = struct let label : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 21844 "src/ocaml/preprocess/parser_raw.ml" +# 22209 "src/ocaml/preprocess/parser_raw.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 : (Asttypes.arg_label * Parsetree.expression) = let _endpos = _endpos__5_ in - let _loc_label_ = (_startpos_label_, _endpos_label_) in - + let _v = + let _endpos = _endpos__5_ in + let _loc_label_ = (_startpos_label_, _endpos_label_) in + ( # 2764 "src/ocaml/preprocess/parser_raw.mly" ( (Labelled label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty) ) -# 21857 "src/ocaml/preprocess/parser_raw.ml" - in +# 22223 "src/ocaml/preprocess/parser_raw.ml" + : (Asttypes.arg_label * Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21880,19 +22247,21 @@ module Tables = struct let label : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 21884 "src/ocaml/preprocess/parser_raw.ml" +# 22251 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in - let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in - + let _v = + let _loc_label_ = (_startpos_label_, _endpos_label_) in + ( # 2767 "src/ocaml/preprocess/parser_raw.mly" ( let loc = _loc_label_ in (Optional label, mkexpvar ~loc label) ) -# 21895 "src/ocaml/preprocess/parser_raw.ml" - in +# 22263 "src/ocaml/preprocess/parser_raw.ml" + : (Asttypes.arg_label * Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -21919,7 +22288,7 @@ module Tables = struct let _1 : ( # 855 "src/ocaml/preprocess/parser_raw.mly" (string) -# 21923 "src/ocaml/preprocess/parser_raw.ml" +# 22292 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21927,7 +22296,7 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression) = # 2770 "src/ocaml/preprocess/parser_raw.mly" ( (Optional _1, _2) ) -# 21931 "src/ocaml/preprocess/parser_raw.ml" +# 22300 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21977,19 +22346,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 : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _4 = - let _1 = _1_inlined1 in - + let _v = + let _4 = + let _1 = _1_inlined1 in + # 2457 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 21986 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 22356 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2431 "src/ocaml/preprocess/parser_raw.mly" ( (Optional (fst _3), _4, snd _3) ) -# 21992 "src/ocaml/preprocess/parser_raw.ml" - in +# 22362 "src/ocaml/preprocess/parser_raw.ml" + : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22015,38 +22386,40 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 22019 "src/ocaml/preprocess/parser_raw.ml" +# 22390 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = + let _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 + +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 22406 "src/ocaml/preprocess/parser_raw.ml" + + in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 22034 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2469 "src/ocaml/preprocess/parser_raw.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 22043 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 22415 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2433 "src/ocaml/preprocess/parser_raw.mly" ( (Optional (fst _2), None, snd _2) ) -# 22049 "src/ocaml/preprocess/parser_raw.ml" - in +# 22421 "src/ocaml/preprocess/parser_raw.ml" + : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22094,24 +22467,26 @@ module Tables = struct let _1 : ( # 855 "src/ocaml/preprocess/parser_raw.mly" (string) -# 22098 "src/ocaml/preprocess/parser_raw.ml" +# 22471 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _4 = - let _1 = _1_inlined1 in - + let _v = + let _4 = + let _1 = _1_inlined1 in + # 2457 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 22108 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 22482 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2435 "src/ocaml/preprocess/parser_raw.mly" ( (Optional _1, _4, _3) ) -# 22114 "src/ocaml/preprocess/parser_raw.ml" - in +# 22488 "src/ocaml/preprocess/parser_raw.ml" + : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22138,7 +22513,7 @@ module Tables = struct let _1 : ( # 855 "src/ocaml/preprocess/parser_raw.mly" (string) -# 22142 "src/ocaml/preprocess/parser_raw.ml" +# 22517 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -22146,7 +22521,7 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = # 2437 "src/ocaml/preprocess/parser_raw.mly" ( (Optional _1, None, _2) ) -# 22150 "src/ocaml/preprocess/parser_raw.ml" +# 22525 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22192,7 +22567,7 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = # 2439 "src/ocaml/preprocess/parser_raw.mly" ( (Labelled (fst _3), None, snd _3) ) -# 22196 "src/ocaml/preprocess/parser_raw.ml" +# 22571 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22219,38 +22594,40 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 22223 "src/ocaml/preprocess/parser_raw.ml" +# 22598 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _2 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = + let _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 + +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 22614 "src/ocaml/preprocess/parser_raw.ml" + + in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 22238 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2469 "src/ocaml/preprocess/parser_raw.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 22247 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 22623 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2441 "src/ocaml/preprocess/parser_raw.mly" ( (Labelled (fst _2), None, snd _2) ) -# 22253 "src/ocaml/preprocess/parser_raw.ml" - in +# 22629 "src/ocaml/preprocess/parser_raw.ml" + : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22277,7 +22654,7 @@ module Tables = struct let _1 : ( # 825 "src/ocaml/preprocess/parser_raw.mly" (string) -# 22281 "src/ocaml/preprocess/parser_raw.ml" +# 22658 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -22285,7 +22662,7 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = # 2443 "src/ocaml/preprocess/parser_raw.mly" ( (Labelled _1, None, _2) ) -# 22289 "src/ocaml/preprocess/parser_raw.ml" +# 22666 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22310,7 +22687,7 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = # 2445 "src/ocaml/preprocess/parser_raw.mly" ( (Nolabel, None, _1) ) -# 22314 "src/ocaml/preprocess/parser_raw.ml" +# 22691 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22337,7 +22714,7 @@ module Tables = struct Parsetree.value_constraint option * bool) = # 2809 "src/ocaml/preprocess/parser_raw.mly" ( let p,e,c = _1 in (p,e,c,false) ) -# 22341 "src/ocaml/preprocess/parser_raw.ml" +# 22718 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22359,15 +22736,17 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern * Parsetree.expression * - Parsetree.value_constraint option * bool) = let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - + let _v = + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + let _loc = (_startpos, _endpos) in + ( # 2812 "src/ocaml/preprocess/parser_raw.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1, None, true) ) -# 22370 "src/ocaml/preprocess/parser_raw.ml" - in +# 22747 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern * Parsetree.expression * + Parsetree.value_constraint option * bool)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22395,22 +22774,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.pattern * Parsetree.expression * - Parsetree.value_constraint option) = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 2777 "src/ocaml/preprocess/parser_raw.mly" ( mkpatvar ~loc:_sloc _1 ) -# 22407 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 22786 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2781 "src/ocaml/preprocess/parser_raw.mly" ( (_1, _2, None) ) -# 22413 "src/ocaml/preprocess/parser_raw.ml" - in +# 22792 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern * Parsetree.expression * + Parsetree.value_constraint option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22452,18 +22833,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.pattern * Parsetree.expression * - Parsetree.value_constraint option) = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 2777 "src/ocaml/preprocess/parser_raw.mly" ( mkpatvar ~loc:_sloc _1 ) -# 22464 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 22845 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2783 "src/ocaml/preprocess/parser_raw.mly" ( let v = _1 in (* PR#7344 *) let t = @@ -22474,8 +22855,10 @@ module Tables = struct in (v, _4, Some t) ) -# 22478 "src/ocaml/preprocess/parser_raw.ml" - in +# 22859 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern * Parsetree.expression * + Parsetree.value_constraint option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22538,54 +22921,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 : (Parsetree.pattern * Parsetree.expression * - Parsetree.value_constraint option) = let _3 = - let _2 = _2_inlined1 in - let _1 = + let _v = + let _3 = let _1 = - let xs = -# 253 "" + let _1 = + let xs = +# 264 "" ( List.rev xs ) -# 22550 "src/ocaml/preprocess/parser_raw.ml" - in - +# 22932 "src/ocaml/preprocess/parser_raw.ml" + in + # 1129 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 22555 "src/ocaml/preprocess/parser_raw.ml" +# 22937 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3582 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 22561 "src/ocaml/preprocess/parser_raw.ml" +# 22943 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3586 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_poly(_1, _3) ) -# 22567 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos__3_ = _startpos_xs_ in - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 22949 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__3_ = _startpos_xs_ in + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 2777 "src/ocaml/preprocess/parser_raw.mly" ( mkpatvar ~loc:_sloc _1 ) -# 22578 "src/ocaml/preprocess/parser_raw.ml" - - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - +# 22960 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + ( # 2793 "src/ocaml/preprocess/parser_raw.mly" ( let t = ghtyp ~loc:(_loc__3_) _3 in (_1, _5, Some (Pvc_constraint { locally_abstract_univars = []; typ=t })) ) -# 22588 "src/ocaml/preprocess/parser_raw.ml" - in +# 22970 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern * Parsetree.expression * + Parsetree.value_constraint option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22655,30 +23039,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 : (Parsetree.pattern * Parsetree.expression * - Parsetree.value_constraint option) = let _4 = + let _v = + let _4 = # 2774 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 22663 "src/ocaml/preprocess/parser_raw.ml" - in - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 23047 "src/ocaml/preprocess/parser_raw.ml" + in + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 2777 "src/ocaml/preprocess/parser_raw.mly" ( mkpatvar ~loc:_sloc _1 ) -# 22672 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 23056 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2798 "src/ocaml/preprocess/parser_raw.mly" ( let constraint' = Pvc_constraint { locally_abstract_univars=_4; typ = _6} in (_1, _8, Some constraint') ) -# 22681 "src/ocaml/preprocess/parser_raw.ml" - in +# 23065 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern * Parsetree.expression * + Parsetree.value_constraint option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22717,7 +23103,7 @@ module Tables = struct Parsetree.value_constraint option) = # 2803 "src/ocaml/preprocess/parser_raw.mly" ( (_1, _3, None) ) -# 22721 "src/ocaml/preprocess/parser_raw.ml" +# 23107 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22771,7 +23157,7 @@ module Tables = struct Parsetree.value_constraint option) = # 2805 "src/ocaml/preprocess/parser_raw.mly" ( (_1, _5, Some(Pvc_constraint { locally_abstract_univars=[]; typ=_3 })) ) -# 22775 "src/ocaml/preprocess/parser_raw.ml" +# 23161 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22829,41 +23215,43 @@ 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 : (Ast_helper.let_bindings) = let _1 = - let attrs2 = - let _1 = _1_inlined2 in - + let _v = + let _1 = + let attrs2 = + let _1 = _1_inlined2 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 22839 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined2_ in - let attrs1 = - let _1 = _1_inlined1 in - +# 23226 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined2_ in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 22848 "src/ocaml/preprocess/parser_raw.ml" +# 23235 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2832 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 22860 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 23247 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2822 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 22866 "src/ocaml/preprocess/parser_raw.ml" - in +# 23253 "src/ocaml/preprocess/parser_raw.ml" + : (Ast_helper.let_bindings)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -22894,7 +23282,7 @@ module Tables = struct let _v : (Ast_helper.let_bindings) = # 2823 "src/ocaml/preprocess/parser_raw.mly" ( addlb _1 _2 ) -# 22898 "src/ocaml/preprocess/parser_raw.ml" +# 23286 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22945,46 +23333,48 @@ 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 : (Ast_helper.let_bindings) = let _1 = - let attrs2 = - let _1 = _1_inlined2 in - + let _v = + let _1 = + let attrs2 = + let _1 = _1_inlined2 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 22955 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined2_ in - let attrs1 = - let _1 = _1_inlined1 in - +# 23344 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined2_ in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 22964 "src/ocaml/preprocess/parser_raw.ml" - - in - let ext = +# 23353 "src/ocaml/preprocess/parser_raw.ml" + + in + let ext = # 4234 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 22970 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 23359 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 2832 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 22981 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 23370 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2822 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 22987 "src/ocaml/preprocess/parser_raw.ml" - in +# 23376 "src/ocaml/preprocess/parser_raw.ml" + : (Ast_helper.let_bindings)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23048,52 +23438,54 @@ 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 : (Ast_helper.let_bindings) = let _1 = - let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let _1 = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23058 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let attrs1 = - let _1 = _1_inlined2 in - +# 23449 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let attrs1 = + let _1 = _1_inlined2 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23067 "src/ocaml/preprocess/parser_raw.ml" - - in - let ext = - let (_startpos__1_, _1) = (_startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__2_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - +# 23458 "src/ocaml/preprocess/parser_raw.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 + # 4236 "src/ocaml/preprocess/parser_raw.mly" ( not_expecting _loc "extension"; None ) -# 23078 "src/ocaml/preprocess/parser_raw.ml" +# 23469 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2832 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 23090 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 23481 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2822 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23096 "src/ocaml/preprocess/parser_raw.ml" - in +# 23487 "src/ocaml/preprocess/parser_raw.ml" + : (Ast_helper.let_bindings)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23124,7 +23516,7 @@ module Tables = struct let _v : (Ast_helper.let_bindings) = # 2823 "src/ocaml/preprocess/parser_raw.mly" ( addlb _1 _2 ) -# 23128 "src/ocaml/preprocess/parser_raw.ml" +# 23520 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23149,7 +23541,7 @@ module Tables = struct let _v : (Parsetree.pattern) = # 2473 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23153 "src/ocaml/preprocess/parser_raw.ml" +# 23545 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23185,27 +23577,29 @@ module Tables = struct 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 _v = + let _1 = + let _1 = # 2475 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_constraint(_1, _3) ) -# 23193 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 23586 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 23202 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 23595 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2476 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23208 "src/ocaml/preprocess/parser_raw.ml" - in +# 23601 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23233,21 +23627,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_exp_ in - let _v : (Parsetree.pattern * Parsetree.expression) = let pat = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let pat = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 2777 "src/ocaml/preprocess/parser_raw.mly" ( mkpatvar ~loc:_sloc _1 ) -# 23244 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 23639 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2849 "src/ocaml/preprocess/parser_raw.mly" ( (pat, exp) ) -# 23250 "src/ocaml/preprocess/parser_raw.ml" - in +# 23645 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern * Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23268,14 +23664,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 : (Parsetree.pattern * Parsetree.expression) = let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - + let _v = + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + let _loc = (_startpos, _endpos) in + ( # 2852 "src/ocaml/preprocess/parser_raw.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1) ) -# 23278 "src/ocaml/preprocess/parser_raw.ml" - in +# 23675 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern * Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23328,7 +23726,7 @@ module Tables = struct # 2854 "src/ocaml/preprocess/parser_raw.mly" ( let loc = (_startpos_pat_, _endpos_typ_) in (ghpat ~loc (Ppat_constraint(pat, typ)), exp) ) -# 23332 "src/ocaml/preprocess/parser_raw.ml" +# 23730 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23367,7 +23765,7 @@ module Tables = struct let _v : (Parsetree.pattern * Parsetree.expression) = # 2857 "src/ocaml/preprocess/parser_raw.mly" ( (pat, exp) ) -# 23371 "src/ocaml/preprocess/parser_raw.ml" +# 23769 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23393,7 +23791,7 @@ module Tables = struct # 2861 "src/ocaml/preprocess/parser_raw.mly" ( let let_pat, let_exp = body in let_pat, let_exp, [] ) -# 23397 "src/ocaml/preprocess/parser_raw.ml" +# 23795 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23427,34 +23825,36 @@ module Tables = struct let _1 : ( # 821 "src/ocaml/preprocess/parser_raw.mly" (string) -# 23431 "src/ocaml/preprocess/parser_raw.ml" +# 23829 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let bindings : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = Obj.magic bindings in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_bindings_ in let _endpos = _endpos_body_ in - let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = let pbop_op = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let pbop_op = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 23444 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_body_ in - let _symbolstartpos = _startpos_bindings_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 23843 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_body_ in + let _symbolstartpos = _startpos_bindings_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2864 "src/ocaml/preprocess/parser_raw.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 ) -# 23457 "src/ocaml/preprocess/parser_raw.ml" - in +# 23856 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23469,9 +23869,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_expr Parsetree.class_infos list) = -# 211 "" +# 216 "" ( [] ) -# 23475 "src/ocaml/preprocess/parser_raw.ml" +# 23875 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23537,7 +23937,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 23541 "src/ocaml/preprocess/parser_raw.ml" +# 23941 "src/ocaml/preprocess/parser_raw.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 @@ -23546,39 +23946,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 : (Parsetree.class_expr Parsetree.class_infos list) = let x = - let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let x = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23556 "src/ocaml/preprocess/parser_raw.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 - +# 23957 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 23568 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 23969 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23576 "src/ocaml/preprocess/parser_raw.ml" +# 23977 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2038 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -23587,14 +23988,15 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id body ~virt ~params ~attrs ~loc ~text ~docs ) -# 23591 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 23992 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 23597 "src/ocaml/preprocess/parser_raw.ml" - in +# 23998 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_expr Parsetree.class_infos list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23609,9 +24011,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_type Parsetree.class_infos list) = -# 211 "" +# 216 "" ( [] ) -# 23615 "src/ocaml/preprocess/parser_raw.ml" +# 24017 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23684,7 +24086,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 23688 "src/ocaml/preprocess/parser_raw.ml" +# 24090 "src/ocaml/preprocess/parser_raw.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 @@ -23693,39 +24095,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 : (Parsetree.class_type Parsetree.class_infos list) = let x = - let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let x = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23703 "src/ocaml/preprocess/parser_raw.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 - +# 24106 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 23715 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 24118 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23723 "src/ocaml/preprocess/parser_raw.ml" +# 24126 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2337 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -23734,14 +24137,15 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id cty ~virt ~params ~attrs ~loc ~text ~docs ) -# 23738 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 24141 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 23744 "src/ocaml/preprocess/parser_raw.ml" - in +# 24147 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type Parsetree.class_infos list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23756,9 +24160,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_type Parsetree.class_infos list) = -# 211 "" +# 216 "" ( [] ) -# 23762 "src/ocaml/preprocess/parser_raw.ml" +# 24166 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23831,7 +24235,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 23835 "src/ocaml/preprocess/parser_raw.ml" +# 24239 "src/ocaml/preprocess/parser_raw.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 @@ -23840,39 +24244,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 : (Parsetree.class_type Parsetree.class_infos list) = let x = - let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let x = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23850 "src/ocaml/preprocess/parser_raw.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 - +# 24255 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 23862 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 24267 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23870 "src/ocaml/preprocess/parser_raw.ml" +# 24275 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2376 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -23881,14 +24286,15 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id csig ~virt ~params ~attrs ~loc ~text ~docs ) -# 23885 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 24290 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 23891 "src/ocaml/preprocess/parser_raw.ml" - in +# 24296 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type Parsetree.class_infos list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -23903,9 +24309,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.module_binding list) = -# 211 "" +# 216 "" ( [] ) -# 23909 "src/ocaml/preprocess/parser_raw.ml" +# 24315 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23962,39 +24368,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 : (Parsetree.module_binding list) = let x = - let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let x = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23972 "src/ocaml/preprocess/parser_raw.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 - +# 24379 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 23984 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 24391 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 23992 "src/ocaml/preprocess/parser_raw.ml" +# 24399 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1684 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in @@ -24003,14 +24410,15 @@ module Tables = struct let text = symbol_text _symbolstartpos in Mb.mk name body ~attrs ~loc ~text ~docs ) -# 24007 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 24414 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 24013 "src/ocaml/preprocess/parser_raw.ml" - in +# 24420 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_binding list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24025,9 +24433,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.module_declaration list) = -# 211 "" +# 216 "" ( [] ) -# 24031 "src/ocaml/preprocess/parser_raw.ml" +# 24439 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24091,39 +24499,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 : (Parsetree.module_declaration list) = let x = - let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let x = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24101 "src/ocaml/preprocess/parser_raw.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 - +# 24510 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 24113 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 24522 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24121 "src/ocaml/preprocess/parser_raw.ml" +# 24530 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1979 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -24132,14 +24541,15 @@ module Tables = struct let text = symbol_text _symbolstartpos in Md.mk name mty ~attrs ~loc ~text ~docs ) -# 24136 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 24545 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 24142 "src/ocaml/preprocess/parser_raw.ml" - in +# 24551 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_declaration list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24154,9 +24564,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.attributes) = -# 211 "" +# 216 "" ( [] ) -# 24160 "src/ocaml/preprocess/parser_raw.ml" +# 24570 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24186,9 +24596,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.attributes) = -# 213 "" +# 219 "" ( x :: xs ) -# 24192 "src/ocaml/preprocess/parser_raw.ml" +# 24602 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24204,9 +24614,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.type_declaration list) = -# 211 "" +# 216 "" ( [] ) -# 24210 "src/ocaml/preprocess/parser_raw.ml" +# 24620 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24273,7 +24683,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 24277 "src/ocaml/preprocess/parser_raw.ml" +# 24687 "src/ocaml/preprocess/parser_raw.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 @@ -24281,59 +24691,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 : (Parsetree.type_declaration list) = let x = - let xs = xs_inlined1 in - let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let x = + let xs = xs_inlined1 in + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24292 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let cstrs = - let _1 = - let xs = -# 253 "" - ( List.rev xs ) -# 24301 "src/ocaml/preprocess/parser_raw.ml" - in +# 24703 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let cstrs = + let _1 = + let xs = +# 264 "" + ( List.rev xs ) +# 24712 "src/ocaml/preprocess/parser_raw.ml" + in + # 1111 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 24306 "src/ocaml/preprocess/parser_raw.ml" +# 24717 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3297 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24312 "src/ocaml/preprocess/parser_raw.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 - +# 24723 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 24323 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 24734 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24331 "src/ocaml/preprocess/parser_raw.ml" +# 24742 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3286 "src/ocaml/preprocess/parser_raw.mly" ( let (kind, priv, manifest) = kind_priv_manifest in @@ -24343,14 +24754,15 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 24347 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 24758 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 24353 "src/ocaml/preprocess/parser_raw.ml" - in +# 24764 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_declaration list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24365,9 +24777,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.type_declaration list) = -# 211 "" +# 216 "" ( [] ) -# 24371 "src/ocaml/preprocess/parser_raw.ml" +# 24783 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24441,7 +24853,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 24445 "src/ocaml/preprocess/parser_raw.ml" +# 24857 "src/ocaml/preprocess/parser_raw.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 @@ -24449,67 +24861,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 : (Parsetree.type_declaration list) = let x = - let xs = xs_inlined1 in - let attrs2 = - let _1 = _1_inlined4 in - + let _v = + let x = + let xs = xs_inlined1 in + let attrs2 = + let _1 = _1_inlined4 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24460 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let cstrs = - let _1 = - let xs = -# 253 "" - ( List.rev xs ) -# 24469 "src/ocaml/preprocess/parser_raw.ml" - in +# 24873 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let cstrs = + let _1 = + let xs = +# 264 "" + ( List.rev xs ) +# 24882 "src/ocaml/preprocess/parser_raw.ml" + in + # 1111 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 24474 "src/ocaml/preprocess/parser_raw.ml" +# 24887 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3297 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24480 "src/ocaml/preprocess/parser_raw.ml" - - in - let kind_priv_manifest = - let _1 = _1_inlined3 in - +# 24893 "src/ocaml/preprocess/parser_raw.ml" + + in + let kind_priv_manifest = # 3332 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 24488 "src/ocaml/preprocess/parser_raw.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 - +# 24899 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 24499 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 24909 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24507 "src/ocaml/preprocess/parser_raw.ml" +# 24917 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3286 "src/ocaml/preprocess/parser_raw.mly" ( let (kind, priv, manifest) = kind_priv_manifest in @@ -24519,14 +24929,15 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 24523 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 24933 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 24529 "src/ocaml/preprocess/parser_raw.ml" - in +# 24939 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_declaration list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24541,9 +24952,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.attributes) = -# 211 "" +# 216 "" ( [] ) -# 24547 "src/ocaml/preprocess/parser_raw.ml" +# 24958 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24573,9 +24984,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.attributes) = -# 213 "" +# 219 "" ( x :: xs ) -# 24579 "src/ocaml/preprocess/parser_raw.ml" +# 24990 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24591,9 +25002,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.signature_item list list) = -# 211 "" +# 216 "" ( [] ) -# 24597 "src/ocaml/preprocess/parser_raw.ml" +# 25008 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24622,26 +25033,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.signature_item list list) = let x = - let _1 = - let _startpos = _startpos__1_ in - + let _v = + let x = + let _1 = + let _startpos = _startpos__1_ in + # 1037 "src/ocaml/preprocess/parser_raw.mly" ( text_sig _startpos ) -# 24632 "src/ocaml/preprocess/parser_raw.ml" +# 25044 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1832 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24638 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 25050 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 24644 "src/ocaml/preprocess/parser_raw.ml" - in +# 25056 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item list list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24669,26 +25082,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.signature_item list list) = let x = - let _1 = - let _startpos = _startpos__1_ in - + let _v = + let x = + let _1 = + let _startpos = _startpos__1_ in + # 1035 "src/ocaml/preprocess/parser_raw.mly" ( text_sig _startpos @ [_1] ) -# 24679 "src/ocaml/preprocess/parser_raw.ml" +# 25093 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1832 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24685 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 25099 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 24691 "src/ocaml/preprocess/parser_raw.ml" - in +# 25105 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item list list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24703,9 +25118,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.structure_item list list) = -# 211 "" +# 216 "" ( [] ) -# 24709 "src/ocaml/preprocess/parser_raw.ml" +# 25124 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24734,45 +25149,47 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.structure_item list list) = let x = - let _1 = - let ys = - let items = + let _v = + let x = + let _1 = + let ys = + let items = # 1097 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 24744 "src/ocaml/preprocess/parser_raw.ml" - in - +# 25160 "src/ocaml/preprocess/parser_raw.ml" + in + # 1563 "src/ocaml/preprocess/parser_raw.mly" ( items ) -# 24749 "src/ocaml/preprocess/parser_raw.ml" - - in - let xs = - let _startpos = _startpos__1_ in - +# 25165 "src/ocaml/preprocess/parser_raw.ml" + + in + let xs = + let _startpos = _startpos__1_ in + # 1033 "src/ocaml/preprocess/parser_raw.mly" ( text_str _startpos ) -# 24757 "src/ocaml/preprocess/parser_raw.ml" +# 25173 "src/ocaml/preprocess/parser_raw.ml" + + in - in - -# 267 "" +# 278 "" ( xs @ ys ) -# 24763 "src/ocaml/preprocess/parser_raw.ml" +# 25179 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1579 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24769 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 25185 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 24775 "src/ocaml/preprocess/parser_raw.ml" - in +# 25191 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item list list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -24814,79 +25231,148 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.structure_item list list) = let x = - let _1 = - let ys = - let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in - let items = - let x = - let _1 = + let _v = + let x = + let _1 = + let ys = + let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in + let items = + let x = let _1 = - let attrs = + let _1 = + let attrs = # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24829 "src/ocaml/preprocess/parser_raw.ml" - in - +# 25247 "src/ocaml/preprocess/parser_raw.ml" + in + # 1570 "src/ocaml/preprocess/parser_raw.mly" ( mkstrexp e attrs ) -# 24834 "src/ocaml/preprocess/parser_raw.ml" +# 25252 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_e_ in + let _startpos = _startpos__1_ in + +# 1031 "src/ocaml/preprocess/parser_raw.mly" + ( text_str _startpos @ [_1] ) +# 25260 "src/ocaml/preprocess/parser_raw.ml" in let _startpos__1_ = _startpos_e_ in + let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1031 "src/ocaml/preprocess/parser_raw.mly" - ( text_str _startpos @ [_1] ) -# 24842 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos__1_ = _startpos_e_ in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - # 1050 "src/ocaml/preprocess/parser_raw.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 24852 "src/ocaml/preprocess/parser_raw.ml" +# 25270 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1099 "src/ocaml/preprocess/parser_raw.mly" ( x ) -# 24858 "src/ocaml/preprocess/parser_raw.ml" +# 25276 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1563 "src/ocaml/preprocess/parser_raw.mly" ( items ) -# 24864 "src/ocaml/preprocess/parser_raw.ml" - - in - let xs = - let _startpos = _startpos__1_ in - +# 25282 "src/ocaml/preprocess/parser_raw.ml" + + in + let xs = + let _startpos = _startpos__1_ in + # 1033 "src/ocaml/preprocess/parser_raw.mly" ( text_str _startpos ) -# 24872 "src/ocaml/preprocess/parser_raw.ml" +# 25290 "src/ocaml/preprocess/parser_raw.ml" + + in + +# 278 "" + ( xs @ ys ) +# 25296 "src/ocaml/preprocess/parser_raw.ml" in -# 267 "" - ( xs @ ys ) -# 24878 "src/ocaml/preprocess/parser_raw.ml" +# 1579 "src/ocaml/preprocess/parser_raw.mly" + ( _1 ) +# 25302 "src/ocaml/preprocess/parser_raw.ml" in - + ( +# 219 "" + ( x :: xs ) +# 25308 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item list list)) + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let { + MenhirLib.EngineTypes.state = _; + MenhirLib.EngineTypes.semv = xs; + MenhirLib.EngineTypes.startp = _startpos_xs_; + MenhirLib.EngineTypes.endp = _endpos_xs_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = _1; + MenhirLib.EngineTypes.startp = _startpos__1_; + MenhirLib.EngineTypes.endp = _endpos__1_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + } = _menhir_stack in + let xs : (Parsetree.structure_item list list) = Obj.magic xs in + let _1 : (Parsetree.structure_item) = Obj.magic _1 in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos__1_ in + let _endpos = _endpos_xs_ in + let _v = + let x = + let _1 = + let _startpos = _startpos__1_ in + +# 1031 "src/ocaml/preprocess/parser_raw.mly" + ( text_str _startpos @ [_1] ) +# 25345 "src/ocaml/preprocess/parser_raw.ml" + + in + # 1579 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 24884 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 25351 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 24890 "src/ocaml/preprocess/parser_raw.ml" +# 25357 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item list list)) + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + MenhirLib.EngineTypes.next = _menhir_stack; + }); + (fun _menhir_env -> + let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in + let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in + let _endpos = _startpos in + let _v : (Parsetree.class_type_field list list) = +# 216 "" + ( [] ) +# 25376 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24910,89 +25396,26 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in - let xs : (Parsetree.structure_item list list) = Obj.magic xs in - let _1 : (Parsetree.structure_item) = Obj.magic _1 in + let xs : (Parsetree.class_type_field list list) = Obj.magic xs in + let _1 : (Parsetree.class_type_field) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.structure_item list list) = let x = - let _1 = + let _v = + let x = let _startpos = _startpos__1_ in -# 1031 "src/ocaml/preprocess/parser_raw.mly" - ( text_str _startpos @ [_1] ) -# 24925 "src/ocaml/preprocess/parser_raw.ml" +# 1045 "src/ocaml/preprocess/parser_raw.mly" + ( text_csig _startpos @ [_1] ) +# 25411 "src/ocaml/preprocess/parser_raw.ml" in - -# 1579 "src/ocaml/preprocess/parser_raw.mly" - ( _1 ) -# 24931 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" + ( +# 219 "" ( x :: xs ) -# 24937 "src/ocaml/preprocess/parser_raw.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in - let _endpos = _startpos in - let _v : (Parsetree.class_type_field list list) = -# 211 "" - ( [] ) -# 24955 "src/ocaml/preprocess/parser_raw.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - MenhirLib.EngineTypes.next = _menhir_stack; - }); - (fun _menhir_env -> - let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in - let { - MenhirLib.EngineTypes.state = _; - MenhirLib.EngineTypes.semv = xs; - MenhirLib.EngineTypes.startp = _startpos_xs_; - MenhirLib.EngineTypes.endp = _endpos_xs_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = _1; - MenhirLib.EngineTypes.startp = _startpos__1_; - MenhirLib.EngineTypes.endp = _endpos__1_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - } = _menhir_stack in - let xs : (Parsetree.class_type_field list list) = Obj.magic xs in - let _1 : (Parsetree.class_type_field) = Obj.magic _1 in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos__1_ in - let _endpos = _endpos_xs_ in - let _v : (Parsetree.class_type_field list list) = let x = - let _startpos = _startpos__1_ in - -# 1045 "src/ocaml/preprocess/parser_raw.mly" - ( text_csig _startpos @ [_1] ) -# 24989 "src/ocaml/preprocess/parser_raw.ml" - +# 25417 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_type_field list list)) in - -# 213 "" - ( x :: xs ) -# 24995 "src/ocaml/preprocess/parser_raw.ml" - in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25007,9 +25430,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_field list list) = -# 211 "" +# 216 "" ( [] ) -# 25013 "src/ocaml/preprocess/parser_raw.ml" +# 25436 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25038,19 +25461,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.class_field list list) = let x = - let _startpos = _startpos__1_ in - + let _v = + let x = + let _startpos = _startpos__1_ in + # 1043 "src/ocaml/preprocess/parser_raw.mly" ( text_cstr _startpos @ [_1] ) -# 25047 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 25471 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 25053 "src/ocaml/preprocess/parser_raw.ml" - in +# 25477 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.class_field list list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25065,9 +25490,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.structure_item list list) = -# 211 "" +# 216 "" ( [] ) -# 25071 "src/ocaml/preprocess/parser_raw.ml" +# 25496 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25096,19 +25521,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.structure_item list list) = let x = - let _startpos = _startpos__1_ in - + let _v = + let x = + let _startpos = _startpos__1_ in + # 1031 "src/ocaml/preprocess/parser_raw.mly" ( text_str _startpos @ [_1] ) -# 25105 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 25531 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 25111 "src/ocaml/preprocess/parser_raw.ml" - in +# 25537 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item list list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25123,9 +25550,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.toplevel_phrase list list) = -# 211 "" +# 216 "" ( [] ) -# 25129 "src/ocaml/preprocess/parser_raw.ml" +# 25556 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25154,37 +25581,39 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.toplevel_phrase list list) = let x = - let _1 = - let x = - let _1 = + let _v = + let x = + let _1 = + let x = + let _1 = # 1097 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 25164 "src/ocaml/preprocess/parser_raw.ml" - in - +# 25592 "src/ocaml/preprocess/parser_raw.ml" + in + # 1350 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 25169 "src/ocaml/preprocess/parser_raw.ml" +# 25597 "src/ocaml/preprocess/parser_raw.ml" + + in - in - -# 183 "" +# 188 "" ( x ) -# 25175 "src/ocaml/preprocess/parser_raw.ml" +# 25603 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1362 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 25181 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 25609 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 25187 "src/ocaml/preprocess/parser_raw.ml" - in +# 25615 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase list list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25226,68 +25655,70 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.toplevel_phrase list list) = let x = - let _1 = - let x = - let _1 = _1_inlined1 in - let _1 = - let x = - let _1 = + let _v = + let x = + let _1 = + let x = + let _1 = _1_inlined1 in + let _1 = + let x = let _1 = - let attrs = + let _1 = + let attrs = # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 25241 "src/ocaml/preprocess/parser_raw.ml" - in - +# 25671 "src/ocaml/preprocess/parser_raw.ml" + in + # 1570 "src/ocaml/preprocess/parser_raw.mly" ( mkstrexp e attrs ) -# 25246 "src/ocaml/preprocess/parser_raw.ml" +# 25676 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1041 "src/ocaml/preprocess/parser_raw.mly" ( Ptop_def [_1] ) -# 25252 "src/ocaml/preprocess/parser_raw.ml" +# 25682 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_e_ in + let _startpos = _startpos__1_ in - in - let _startpos__1_ = _startpos_e_ in - let _startpos = _startpos__1_ in - # 1039 "src/ocaml/preprocess/parser_raw.mly" ( text_def _startpos @ [_1] ) -# 25260 "src/ocaml/preprocess/parser_raw.ml" +# 25690 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1099 "src/ocaml/preprocess/parser_raw.mly" ( x ) -# 25266 "src/ocaml/preprocess/parser_raw.ml" +# 25696 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1350 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 25272 "src/ocaml/preprocess/parser_raw.ml" +# 25702 "src/ocaml/preprocess/parser_raw.ml" + + in - in - -# 183 "" +# 188 "" ( x ) -# 25278 "src/ocaml/preprocess/parser_raw.ml" +# 25708 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1362 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 25284 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 25714 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 25290 "src/ocaml/preprocess/parser_raw.ml" - in +# 25720 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase list list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25315,31 +25746,33 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.toplevel_phrase list list) = let x = - let _1 = - let _1 = + let _v = + let x = + let _1 = + let _1 = # 1041 "src/ocaml/preprocess/parser_raw.mly" ( Ptop_def [_1] ) -# 25324 "src/ocaml/preprocess/parser_raw.ml" - in - let _startpos = _startpos__1_ in - +# 25756 "src/ocaml/preprocess/parser_raw.ml" + in + let _startpos = _startpos__1_ in + # 1039 "src/ocaml/preprocess/parser_raw.mly" ( text_def _startpos @ [_1] ) -# 25330 "src/ocaml/preprocess/parser_raw.ml" +# 25762 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1362 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 25336 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 25768 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 25342 "src/ocaml/preprocess/parser_raw.ml" - in +# 25774 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase list list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25367,36 +25800,38 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.toplevel_phrase list list) = let x = - let _1 = + let _v = + let x = let _1 = - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - + let _1 = + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + # 1050 "src/ocaml/preprocess/parser_raw.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 25380 "src/ocaml/preprocess/parser_raw.ml" +# 25814 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos = _startpos__1_ in - in - let _startpos = _startpos__1_ in - # 1039 "src/ocaml/preprocess/parser_raw.mly" ( text_def _startpos @ [_1] ) -# 25387 "src/ocaml/preprocess/parser_raw.ml" +# 25821 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1362 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 25393 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 213 "" +# 25827 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 219 "" ( x :: xs ) -# 25399 "src/ocaml/preprocess/parser_raw.ml" - in +# 25833 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase list list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25431,27 +25866,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 : ((Longident.t Location.loc * Parsetree.pattern) list * unit option) = let _2 = -# 124 "" + let _v = + let _2 = +# 123 "" ( None ) -# 25438 "src/ocaml/preprocess/parser_raw.ml" - in - let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 25874 "src/ocaml/preprocess/parser_raw.ml" + in + let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 25448 "src/ocaml/preprocess/parser_raw.ml" +# 25884 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_opat_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_opat_ in - let _symbolstartpos = _startpos_label_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3172 "src/ocaml/preprocess/parser_raw.mly" ( let constraint_loc, label, pat = match opat with @@ -25466,14 +25902,15 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 25470 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 25906 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1287 "src/ocaml/preprocess/parser_raw.mly" ( [x], None ) -# 25476 "src/ocaml/preprocess/parser_raw.ml" - in +# 25912 "src/ocaml/preprocess/parser_raw.ml" + : ((Longident.t Location.loc * Parsetree.pattern) list * unit option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25515,27 +25952,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 : ((Longident.t Location.loc * Parsetree.pattern) list * unit option) = let _2 = + let _v = + let _2 = # 126 "" ( Some x ) -# 25522 "src/ocaml/preprocess/parser_raw.ml" - in - let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 25960 "src/ocaml/preprocess/parser_raw.ml" + in + let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 25532 "src/ocaml/preprocess/parser_raw.ml" +# 25970 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_opat_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_opat_ in - let _symbolstartpos = _startpos_label_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3172 "src/ocaml/preprocess/parser_raw.mly" ( let constraint_loc, label, pat = match opat with @@ -25550,14 +25988,15 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 25554 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 25992 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1287 "src/ocaml/preprocess/parser_raw.mly" ( [x], None ) -# 25560 "src/ocaml/preprocess/parser_raw.ml" - in +# 25998 "src/ocaml/preprocess/parser_raw.ml" + : ((Longident.t Location.loc * Parsetree.pattern) list * unit option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25613,22 +26052,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 : ((Longident.t Location.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 - + let _v = + let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 25625 "src/ocaml/preprocess/parser_raw.ml" +# 26065 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_opat_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_opat_ in - let _symbolstartpos = _startpos_label_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3172 "src/ocaml/preprocess/parser_raw.mly" ( let constraint_loc, label, pat = match opat with @@ -25643,14 +26083,15 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 25647 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 26087 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1289 "src/ocaml/preprocess/parser_raw.mly" ( [x], Some y ) -# 25653 "src/ocaml/preprocess/parser_raw.ml" - in +# 26093 "src/ocaml/preprocess/parser_raw.ml" + : ((Longident.t Location.loc * Parsetree.pattern) list * unit option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25699,22 +26140,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 : ((Longident.t Location.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 - + let _v = + let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 25711 "src/ocaml/preprocess/parser_raw.ml" +# 26153 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_opat_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_opat_ in - let _symbolstartpos = _startpos_label_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3172 "src/ocaml/preprocess/parser_raw.mly" ( let constraint_loc, label, pat = match opat with @@ -25729,15 +26171,16 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 25733 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 26175 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1293 "src/ocaml/preprocess/parser_raw.mly" ( let xs, y = tail in x :: xs, y ) -# 25740 "src/ocaml/preprocess/parser_raw.ml" - in +# 26182 "src/ocaml/preprocess/parser_raw.ml" + : ((Longident.t Location.loc * Parsetree.pattern) list * unit option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25775,7 +26218,7 @@ module Tables = struct let _v : (Parsetree.case) = # 2897 "src/ocaml/preprocess/parser_raw.mly" ( Exp.case _1 (merloc _endpos__2_ _3) ) -# 25779 "src/ocaml/preprocess/parser_raw.ml" +# 26222 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25828,7 +26271,7 @@ module Tables = struct let _v : (Parsetree.case) = # 2899 "src/ocaml/preprocess/parser_raw.mly" ( Exp.case _1 ~guard:(merloc _endpos__2_ _3) (merloc _endpos__4_ _5) ) -# 25832 "src/ocaml/preprocess/parser_raw.ml" +# 26275 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25864,13 +26307,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 : (Parsetree.case) = let _loc__3_ = (_startpos__3_, _endpos__3_) in - + let _v = + let _loc__3_ = (_startpos__3_, _endpos__3_) in + ( # 2901 "src/ocaml/preprocess/parser_raw.mly" ( Exp.case _1 (merloc _endpos__2_ (Exp.unreachable ~loc:(make_loc _loc__3_) ())) ) -# 25873 "src/ocaml/preprocess/parser_raw.ml" - in +# 26317 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.case)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -25932,57 +26377,58 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 25936 "src/ocaml/preprocess/parser_raw.ml" +# 26381 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_tail_ in - let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = - let _6 = - let _1 = _1_inlined3 in - + let _v = + let head = + let _6 = + let _1 = _1_inlined3 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 25947 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__6_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - +# 26393 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__6_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 25956 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _3 = - let _1 = _1_inlined1 in - +# 26402 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _3 = + let _1 = _1_inlined1 in + # 3600 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 25965 "src/ocaml/preprocess/parser_raw.ml" - - in - let _1 = - let _1 = +# 26411 "src/ocaml/preprocess/parser_raw.ml" + + in + let _1 = + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 25972 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 26418 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 25980 "src/ocaml/preprocess/parser_raw.ml" +# 26426 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__6_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__6_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3866 "src/ocaml/preprocess/parser_raw.mly" ( let info = match rhs_info _endpos__4_ with @@ -25991,14 +26437,15 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 25995 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 26441 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3847 "src/ocaml/preprocess/parser_raw.mly" ( let (f, c) = tail in (head :: f, c) ) -# 26001 "src/ocaml/preprocess/parser_raw.ml" - in +# 26447 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.object_field list * Asttypes.closed_flag)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26033,21 +26480,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_tail_ in - let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = - let _endpos = _endpos_ty_ in - let _symbolstartpos = _startpos_ty_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let head = + let _endpos = _endpos_ty_ in + let _symbolstartpos = _startpos_ty_ in + let _sloc = (_symbolstartpos, _endpos) in + # 3877 "src/ocaml/preprocess/parser_raw.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 26044 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 26492 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3847 "src/ocaml/preprocess/parser_raw.mly" ( let (f, c) = tail in (head :: f, c) ) -# 26050 "src/ocaml/preprocess/parser_raw.ml" - in +# 26498 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.object_field list * Asttypes.closed_flag)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26102,57 +26551,58 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 26106 "src/ocaml/preprocess/parser_raw.ml" +# 26555 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in - let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = - let _6 = - let _1 = _1_inlined3 in - + let _v = + let head = + let _6 = + let _1 = _1_inlined3 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26117 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__6_ = _endpos__1_inlined3_ in - let _4 = - let _1 = _1_inlined2 in - +# 26567 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__6_ = _endpos__1_inlined3_ in + let _4 = + let _1 = _1_inlined2 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26126 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _3 = - let _1 = _1_inlined1 in - +# 26576 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _3 = + let _1 = _1_inlined1 in + # 3600 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26135 "src/ocaml/preprocess/parser_raw.ml" - - in - let _1 = - let _1 = +# 26585 "src/ocaml/preprocess/parser_raw.ml" + + in + let _1 = + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26142 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 26592 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 26150 "src/ocaml/preprocess/parser_raw.ml" +# 26600 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__6_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__6_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3866 "src/ocaml/preprocess/parser_raw.mly" ( let info = match rhs_info _endpos__4_ with @@ -26161,14 +26611,15 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 26165 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 26615 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3850 "src/ocaml/preprocess/parser_raw.mly" ( [head], Closed ) -# 26171 "src/ocaml/preprocess/parser_raw.ml" - in +# 26621 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.object_field list * Asttypes.closed_flag)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26196,21 +26647,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = - let _endpos = _endpos_ty_ in - let _symbolstartpos = _startpos_ty_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let head = + let _endpos = _endpos_ty_ in + let _symbolstartpos = _startpos_ty_ in + let _sloc = (_symbolstartpos, _endpos) in + # 3877 "src/ocaml/preprocess/parser_raw.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 26207 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 26659 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3850 "src/ocaml/preprocess/parser_raw.mly" ( [head], Closed ) -# 26213 "src/ocaml/preprocess/parser_raw.ml" - in +# 26665 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.object_field list * Asttypes.closed_flag)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26251,60 +26704,62 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 26255 "src/ocaml/preprocess/parser_raw.ml" +# 26708 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = - let _4 = - let _1 = _1_inlined2 in - + let _v = + let head = + let _4 = + let _1 = _1_inlined2 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26266 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__4_ = _endpos__1_inlined2_ in - let _3 = - let _1 = _1_inlined1 in - +# 26720 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__4_ = _endpos__1_inlined2_ in + let _3 = + let _1 = _1_inlined1 in + # 3600 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26275 "src/ocaml/preprocess/parser_raw.ml" - - in - let _1 = - let _1 = +# 26729 "src/ocaml/preprocess/parser_raw.ml" + + in + let _1 = + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26282 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 26736 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 26290 "src/ocaml/preprocess/parser_raw.ml" +# 26744 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3859 "src/ocaml/preprocess/parser_raw.mly" ( let info = symbol_info _endpos in let attrs = add_info_attrs info _4 in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 26301 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 26755 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3853 "src/ocaml/preprocess/parser_raw.mly" ( [head], Closed ) -# 26307 "src/ocaml/preprocess/parser_raw.ml" - in +# 26761 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.object_field list * Asttypes.closed_flag)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26325,21 +26780,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in - let _v : (Parsetree.object_field list * Asttypes.closed_flag) = let head = - let _endpos = _endpos_ty_ in - let _symbolstartpos = _startpos_ty_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let head = + let _endpos = _endpos_ty_ in + let _symbolstartpos = _startpos_ty_ in + let _sloc = (_symbolstartpos, _endpos) in + # 3877 "src/ocaml/preprocess/parser_raw.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 26336 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 26792 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3853 "src/ocaml/preprocess/parser_raw.mly" ( [head], Closed ) -# 26342 "src/ocaml/preprocess/parser_raw.ml" - in +# 26798 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.object_field list * Asttypes.closed_flag)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26363,7 +26820,7 @@ module Tables = struct let _v : (Parsetree.object_field list * Asttypes.closed_flag) = # 3855 "src/ocaml/preprocess/parser_raw.mly" ( [], Open ) -# 26367 "src/ocaml/preprocess/parser_raw.ml" +# 26824 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26410,53 +26867,55 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 26414 "src/ocaml/preprocess/parser_raw.ml" +# 26871 "src/ocaml/preprocess/parser_raw.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 : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * - Parsetree.attributes) = let ty = - let _1 = _1_inlined2 in - + let _v = + let ty = + let _1 = _1_inlined2 in + # 3596 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26427 "src/ocaml/preprocess/parser_raw.ml" - - in - let label = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = +# 26884 "src/ocaml/preprocess/parser_raw.ml" + + in + let label = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26435 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 26892 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 26443 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs = +# 26900 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs = # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26449 "src/ocaml/preprocess/parser_raw.ml" - in - let _1 = +# 26906 "src/ocaml/preprocess/parser_raw.ml" + in + let _1 = # 4126 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 26454 "src/ocaml/preprocess/parser_raw.ml" - in - +# 26911 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 2182 "src/ocaml/preprocess/parser_raw.mly" ( (label, private_, Cfk_virtual ty), attrs ) -# 26459 "src/ocaml/preprocess/parser_raw.ml" - in +# 26916 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26495,48 +26954,50 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 26499 "src/ocaml/preprocess/parser_raw.ml" +# 26958 "src/ocaml/preprocess/parser_raw.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 : ((string Location.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 = + let _v = + let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26512 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 26971 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 26520 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = +# 26979 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26526 "src/ocaml/preprocess/parser_raw.ml" - in - let _1 = +# 26985 "src/ocaml/preprocess/parser_raw.ml" + in + let _1 = # 4129 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 26531 "src/ocaml/preprocess/parser_raw.ml" - in - +# 26990 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 2184 "src/ocaml/preprocess/parser_raw.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 ) -# 26539 "src/ocaml/preprocess/parser_raw.ml" - in +# 26998 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26581,7 +27042,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 26585 "src/ocaml/preprocess/parser_raw.ml" +# 27046 "src/ocaml/preprocess/parser_raw.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 @@ -26589,44 +27050,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : ((string Location.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 = + let _v = + let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26599 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 27060 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 26607 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let _1 = _1_inlined1 in - +# 27068 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26615 "src/ocaml/preprocess/parser_raw.ml" - - in - let _1 = +# 27076 "src/ocaml/preprocess/parser_raw.ml" + + in + let _1 = # 4130 "src/ocaml/preprocess/parser_raw.mly" ( Override ) -# 26621 "src/ocaml/preprocess/parser_raw.ml" - in - +# 27082 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 2184 "src/ocaml/preprocess/parser_raw.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 ) -# 26629 "src/ocaml/preprocess/parser_raw.ml" - in +# 27090 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26686,57 +27149,59 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 26690 "src/ocaml/preprocess/parser_raw.ml" +# 27153 "src/ocaml/preprocess/parser_raw.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 : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * - Parsetree.attributes) = let _6 = - let _1 = _1_inlined2 in - + let _v = + let _6 = + let _1 = _1_inlined2 in + # 3596 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26703 "src/ocaml/preprocess/parser_raw.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 = +# 27166 "src/ocaml/preprocess/parser_raw.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 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26712 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 27175 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 26720 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = +# 27183 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26726 "src/ocaml/preprocess/parser_raw.ml" - in - let _1 = +# 27189 "src/ocaml/preprocess/parser_raw.ml" + in + let _1 = # 4129 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 26731 "src/ocaml/preprocess/parser_raw.ml" - in - +# 27194 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 2190 "src/ocaml/preprocess/parser_raw.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 ) -# 26739 "src/ocaml/preprocess/parser_raw.ml" - in +# 27202 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26802,7 +27267,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 26806 "src/ocaml/preprocess/parser_raw.ml" +# 27271 "src/ocaml/preprocess/parser_raw.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 @@ -26810,53 +27275,55 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in - let _v : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * - Parsetree.attributes) = let _6 = - let _1 = _1_inlined3 in - + let _v = + let _6 = + let _1 = _1_inlined3 in + # 3596 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26820 "src/ocaml/preprocess/parser_raw.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 = +# 27285 "src/ocaml/preprocess/parser_raw.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 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26829 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 27294 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 26837 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let _1 = _1_inlined1 in - +# 27302 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26845 "src/ocaml/preprocess/parser_raw.ml" - - in - let _1 = +# 27310 "src/ocaml/preprocess/parser_raw.ml" + + in + let _1 = # 4130 "src/ocaml/preprocess/parser_raw.mly" ( Override ) -# 26851 "src/ocaml/preprocess/parser_raw.ml" - in - +# 27316 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 2190 "src/ocaml/preprocess/parser_raw.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 ) -# 26859 "src/ocaml/preprocess/parser_raw.ml" - in +# 27324 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -26937,62 +27404,62 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 26941 "src/ocaml/preprocess/parser_raw.ml" +# 27408 "src/ocaml/preprocess/parser_raw.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 : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * - Parsetree.attributes) = let _7 = + let _v = + let _7 = # 2774 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 26952 "src/ocaml/preprocess/parser_raw.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 = +# 27419 "src/ocaml/preprocess/parser_raw.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 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26960 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 27427 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 26968 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos__4_ = _startpos__1_inlined1_ in - let _2 = +# 27435 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__4_ = _startpos__1_inlined1_ in + let _2 = # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 26975 "src/ocaml/preprocess/parser_raw.ml" - in - let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in - let _1 = +# 27442 "src/ocaml/preprocess/parser_raw.ml" + in + let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in + let _1 = # 4129 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 26981 "src/ocaml/preprocess/parser_raw.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_ +# 27448 "src/ocaml/preprocess/parser_raw.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__3_ != _endpos__3_ then - _startpos__3_ + if _startpos__2_ != _endpos__2_ then + _startpos__2_ else - _startpos__4_ in - let _sloc = (_symbolstartpos, _endpos) in - + if _startpos__3_ != _endpos__3_ then + _startpos__3_ + else + _startpos__4_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2196 "src/ocaml/preprocess/parser_raw.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = @@ -27004,8 +27471,10 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 27008 "src/ocaml/preprocess/parser_raw.ml" - in +# 27475 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27092,7 +27561,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 27096 "src/ocaml/preprocess/parser_raw.ml" +# 27565 "src/ocaml/preprocess/parser_raw.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 @@ -27100,57 +27569,57 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__11_ in - let _v : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * - Parsetree.attributes) = let _7 = + let _v = + let _7 = # 2774 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 27108 "src/ocaml/preprocess/parser_raw.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 = +# 27577 "src/ocaml/preprocess/parser_raw.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 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 27116 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 27585 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 27124 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos__4_ = _startpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - +# 27593 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__4_ = _startpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 27133 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in - let _1 = +# 27602 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in + let _1 = # 4130 "src/ocaml/preprocess/parser_raw.mly" ( Override ) -# 27140 "src/ocaml/preprocess/parser_raw.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_ +# 27609 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__11_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ else - if _startpos__3_ != _endpos__3_ then - _startpos__3_ + if _startpos__2_ != _endpos__2_ then + _startpos__2_ else - _startpos__4_ in - let _sloc = (_symbolstartpos, _endpos) in - + if _startpos__3_ != _endpos__3_ then + _startpos__3_ + else + _startpos__4_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2196 "src/ocaml/preprocess/parser_raw.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = @@ -27162,8 +27631,10 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 27166 "src/ocaml/preprocess/parser_raw.ml" - in +# 27635 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.private_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27183,7 +27654,7 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 27187 "src/ocaml/preprocess/parser_raw.ml" +# 27658 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -27191,7 +27662,7 @@ module Tables = struct let _v : (Longident.t) = # 3980 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 27195 "src/ocaml/preprocess/parser_raw.ml" +# 27666 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27224,7 +27695,7 @@ module Tables = struct let _3 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 27228 "src/ocaml/preprocess/parser_raw.ml" +# 27699 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -27234,7 +27705,7 @@ module Tables = struct let _v : (Longident.t) = # 3981 "src/ocaml/preprocess/parser_raw.mly" ( Ldot(_1,_3) ) -# 27238 "src/ocaml/preprocess/parser_raw.ml" +# 27709 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27255,7 +27726,7 @@ module Tables = struct let _1 : ( # 890 "src/ocaml/preprocess/parser_raw.mly" (string) -# 27259 "src/ocaml/preprocess/parser_raw.ml" +# 27730 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -27263,7 +27734,7 @@ module Tables = struct let _v : (Longident.t) = # 3980 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 27267 "src/ocaml/preprocess/parser_raw.ml" +# 27738 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27296,7 +27767,7 @@ module Tables = struct let _3 : ( # 890 "src/ocaml/preprocess/parser_raw.mly" (string) -# 27300 "src/ocaml/preprocess/parser_raw.ml" +# 27771 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -27306,7 +27777,7 @@ module Tables = struct let _v : (Longident.t) = # 3981 "src/ocaml/preprocess/parser_raw.mly" ( Ldot(_1,_3) ) -# 27310 "src/ocaml/preprocess/parser_raw.ml" +# 27781 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27328,16 +27799,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Longident.t) = let _1 = + let _v = + let _1 = # 4020 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 27335 "src/ocaml/preprocess/parser_raw.ml" - in - +# 27807 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3980 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 27340 "src/ocaml/preprocess/parser_raw.ml" - in +# 27812 "src/ocaml/preprocess/parser_raw.ml" + : (Longident.t)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27372,23 +27845,25 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Longident.t) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3960 "src/ocaml/preprocess/parser_raw.mly" ( "::" ) -# 27380 "src/ocaml/preprocess/parser_raw.ml" - in - +# 27854 "src/ocaml/preprocess/parser_raw.ml" + in + # 4020 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 27385 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 27859 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3980 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 27391 "src/ocaml/preprocess/parser_raw.ml" - in +# 27865 "src/ocaml/preprocess/parser_raw.ml" + : (Longident.t)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27409,16 +27884,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Longident.t) = let _1 = + let _v = + let _1 = # 4020 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 27416 "src/ocaml/preprocess/parser_raw.ml" - in - +# 27892 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3980 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 27421 "src/ocaml/preprocess/parser_raw.ml" - in +# 27897 "src/ocaml/preprocess/parser_raw.ml" + : (Longident.t)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27453,19 +27930,21 @@ 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 : (Longident.t) = let _3 = - let _1 = _1_inlined1 in - + let _v = + let _3 = + let _1 = _1_inlined1 in + # 4020 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 27462 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 27940 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3981 "src/ocaml/preprocess/parser_raw.mly" ( Ldot(_1,_3) ) -# 27468 "src/ocaml/preprocess/parser_raw.ml" - in +# 27946 "src/ocaml/preprocess/parser_raw.ml" + : (Longident.t)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27514,24 +27993,25 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Longident.t) = let _3 = - let (_2, _1) = (_2_inlined1, _1_inlined1) in - let _1 = + let _v = + let _3 = + let _1 = # 3960 "src/ocaml/preprocess/parser_raw.mly" ( "::" ) -# 27523 "src/ocaml/preprocess/parser_raw.ml" - in - +# 28002 "src/ocaml/preprocess/parser_raw.ml" + in + # 4020 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 27528 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 28007 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3981 "src/ocaml/preprocess/parser_raw.mly" ( Ldot(_1,_3) ) -# 27534 "src/ocaml/preprocess/parser_raw.ml" - in +# 28013 "src/ocaml/preprocess/parser_raw.ml" + : (Longident.t)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27566,19 +28046,21 @@ 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 : (Longident.t) = let _3 = - let _1 = _1_inlined1 in - + let _v = + let _3 = + let _1 = _1_inlined1 in + # 4020 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 27575 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 28056 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3981 "src/ocaml/preprocess/parser_raw.mly" ( Ldot(_1,_3) ) -# 27581 "src/ocaml/preprocess/parser_raw.ml" - in +# 28062 "src/ocaml/preprocess/parser_raw.ml" + : (Longident.t)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27602,7 +28084,7 @@ module Tables = struct let _v : (Longident.t) = # 3980 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 27606 "src/ocaml/preprocess/parser_raw.ml" +# 28088 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27641,7 +28123,7 @@ module Tables = struct let _v : (Longident.t) = # 3981 "src/ocaml/preprocess/parser_raw.mly" ( Ldot(_1,_3) ) -# 27645 "src/ocaml/preprocess/parser_raw.ml" +# 28127 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27662,7 +28144,7 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 27666 "src/ocaml/preprocess/parser_raw.ml" +# 28148 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -27670,7 +28152,7 @@ module Tables = struct let _v : (Longident.t) = # 3980 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 27674 "src/ocaml/preprocess/parser_raw.ml" +# 28156 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27703,7 +28185,7 @@ module Tables = struct let _3 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 27707 "src/ocaml/preprocess/parser_raw.ml" +# 28189 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -27713,7 +28195,7 @@ module Tables = struct let _v : (Longident.t) = # 3981 "src/ocaml/preprocess/parser_raw.mly" ( Ldot(_1,_3) ) -# 27717 "src/ocaml/preprocess/parser_raw.ml" +# 28199 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27734,7 +28216,7 @@ module Tables = struct let _1 : ( # 890 "src/ocaml/preprocess/parser_raw.mly" (string) -# 27738 "src/ocaml/preprocess/parser_raw.ml" +# 28220 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -27742,7 +28224,7 @@ module Tables = struct let _v : (Longident.t) = # 3980 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 27746 "src/ocaml/preprocess/parser_raw.ml" +# 28228 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27775,7 +28257,7 @@ module Tables = struct let _3 : ( # 890 "src/ocaml/preprocess/parser_raw.mly" (string) -# 27779 "src/ocaml/preprocess/parser_raw.ml" +# 28261 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -27785,7 +28267,7 @@ module Tables = struct let _v : (Longident.t) = # 3981 "src/ocaml/preprocess/parser_raw.mly" ( Ldot(_1,_3) ) -# 27789 "src/ocaml/preprocess/parser_raw.ml" +# 28271 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27810,7 +28292,7 @@ module Tables = struct let _v : (Longident.t) = # 3980 "src/ocaml/preprocess/parser_raw.mly" ( Lident _1 ) -# 27814 "src/ocaml/preprocess/parser_raw.ml" +# 28296 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27849,7 +28331,7 @@ module Tables = struct let _v : (Longident.t) = # 3981 "src/ocaml/preprocess/parser_raw.mly" ( Ldot(_1,_3) ) -# 27853 "src/ocaml/preprocess/parser_raw.ml" +# 28335 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27874,7 +28356,7 @@ module Tables = struct let _v : (Longident.t) = # 3996 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 27878 "src/ocaml/preprocess/parser_raw.ml" +# 28360 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27917,14 +28399,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Longident.t) = let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3998 "src/ocaml/preprocess/parser_raw.mly" ( lapply ~loc:_sloc _1 _3 ) -# 27927 "src/ocaml/preprocess/parser_raw.ml" - in +# 28410 "src/ocaml/preprocess/parser_raw.ml" + : (Longident.t)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -27948,7 +28432,7 @@ module Tables = struct let _v : (Longident.t) = # 3993 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 27952 "src/ocaml/preprocess/parser_raw.ml" +# 28436 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27980,7 +28464,7 @@ module Tables = struct let _v : (Parsetree.module_expr) = # 1639 "src/ocaml/preprocess/parser_raw.mly" ( me ) -# 27984 "src/ocaml/preprocess/parser_raw.ml" +# 28468 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28023,27 +28507,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in - let _v : (Parsetree.module_expr) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1646 "src/ocaml/preprocess/parser_raw.mly" ( Pmod_constraint(me, mty) ) -# 28031 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos_me_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 28516 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos_me_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1070 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc _1 ) -# 28040 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 28525 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1650 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28046 "src/ocaml/preprocess/parser_raw.ml" - in +# 28531 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28071,28 +28557,30 @@ 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 : (Parsetree.module_expr) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1648 "src/ocaml/preprocess/parser_raw.mly" ( let (_, arg) = arg_and_pos in Pmod_functor(arg, body) ) -# 28080 "src/ocaml/preprocess/parser_raw.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 - +# 28567 "src/ocaml/preprocess/parser_raw.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 + # 1070 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc _1 ) -# 28089 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 28576 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1650 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28095 "src/ocaml/preprocess/parser_raw.ml" - in +# 28582 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28123,7 +28611,7 @@ module Tables = struct let _v : (Parsetree.module_type) = # 1899 "src/ocaml/preprocess/parser_raw.mly" ( mty ) -# 28127 "src/ocaml/preprocess/parser_raw.ml" +# 28615 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28152,28 +28640,30 @@ 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 : (Parsetree.module_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1906 "src/ocaml/preprocess/parser_raw.mly" ( let (_, arg) = arg_and_pos in Pmty_functor(arg, body) ) -# 28161 "src/ocaml/preprocess/parser_raw.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 - +# 28650 "src/ocaml/preprocess/parser_raw.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 + # 1072 "src/ocaml/preprocess/parser_raw.mly" ( mkmty ~loc:_sloc _1 ) -# 28170 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 28659 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1909 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28176 "src/ocaml/preprocess/parser_raw.ml" - in +# 28665 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28215,22 +28705,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.module_expr) = let attrs = - let _1 = _1_inlined1 in - + let _v = + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28224 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 28715 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1463 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_structure s) ) -# 28233 "src/ocaml/preprocess/parser_raw.ml" - in +# 28724 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28279,26 +28771,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in - let _v : (Parsetree.module_expr) = let attrs = - let _1 = _1_inlined1 in - + let _v = + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28288 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_me_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 28781 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_me_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1473 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mod_attrs ~loc:_sloc attrs ( List.fold_left (fun acc (startpos, arg) -> mkmod ~loc:(startpos, _endpos) (Pmod_functor (arg, acc)) ) me args ) ) -# 28301 "src/ocaml/preprocess/parser_raw.ml" - in +# 28794 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28322,7 +28816,7 @@ module Tables = struct let _v : (Parsetree.module_expr) = # 1479 "src/ocaml/preprocess/parser_raw.mly" ( me ) -# 28326 "src/ocaml/preprocess/parser_raw.ml" +# 28820 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28354,7 +28848,7 @@ module Tables = struct let _v : (Parsetree.module_expr) = # 1481 "src/ocaml/preprocess/parser_raw.mly" ( Mod.attr me attr ) -# 28358 "src/ocaml/preprocess/parser_raw.ml" +# 28852 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28376,38 +28870,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.module_expr) = let _1 = + let _v = let _1 = - let x = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let x = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 28389 "src/ocaml/preprocess/parser_raw.ml" +# 28884 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1485 "src/ocaml/preprocess/parser_raw.mly" ( Pmod_ident x ) -# 28395 "src/ocaml/preprocess/parser_raw.ml" +# 28890 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1070 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc _1 ) -# 28404 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 28899 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1500 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28410 "src/ocaml/preprocess/parser_raw.ml" - in +# 28905 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28435,27 +28931,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_me1_ in let _endpos = _endpos_me2_ in - let _v : (Parsetree.module_expr) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1488 "src/ocaml/preprocess/parser_raw.mly" ( Pmod_apply(me1, me2) ) -# 28443 "src/ocaml/preprocess/parser_raw.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 - +# 28940 "src/ocaml/preprocess/parser_raw.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 + # 1070 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc _1 ) -# 28452 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 28949 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1500 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28458 "src/ocaml/preprocess/parser_raw.ml" - in +# 28955 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28490,27 +28988,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_me_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.module_expr) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1491 "src/ocaml/preprocess/parser_raw.mly" ( Pmod_apply_unit me ) -# 28498 "src/ocaml/preprocess/parser_raw.ml" - in - let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 28997 "src/ocaml/preprocess/parser_raw.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1070 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc _1 ) -# 28507 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 29006 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1500 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28513 "src/ocaml/preprocess/parser_raw.ml" - in +# 29012 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28531,27 +29031,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ex_ in let _endpos = _endpos_ex_ in - let _v : (Parsetree.module_expr) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1494 "src/ocaml/preprocess/parser_raw.mly" ( Pmod_extension ex ) -# 28539 "src/ocaml/preprocess/parser_raw.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 - +# 29040 "src/ocaml/preprocess/parser_raw.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 + # 1070 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc _1 ) -# 28548 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 29049 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1500 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28554 "src/ocaml/preprocess/parser_raw.ml" - in +# 29055 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28572,32 +29074,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.module_expr) = let _1 = + let _v = let _1 = - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + let _loc = (_startpos, _endpos) in + # 1497 "src/ocaml/preprocess/parser_raw.mly" ( let id = mkrhs Ast_helper.hole_txt _loc in Pmod_extension (id, PStr []) ) -# 28585 "src/ocaml/preprocess/parser_raw.ml" +# 29088 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1070 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc _1 ) -# 28594 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 29097 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1500 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28600 "src/ocaml/preprocess/parser_raw.ml" - in +# 29103 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28617,7 +29121,7 @@ module Tables = struct let x : ( # 890 "src/ocaml/preprocess/parser_raw.mly" (string) -# 28621 "src/ocaml/preprocess/parser_raw.ml" +# 29125 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic x in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in @@ -28625,7 +29129,7 @@ module Tables = struct let _v : (string option) = # 1446 "src/ocaml/preprocess/parser_raw.mly" ( Some x ) -# 28629 "src/ocaml/preprocess/parser_raw.ml" +# 29133 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28650,7 +29154,7 @@ module Tables = struct let _v : (string option) = # 1449 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 28654 "src/ocaml/preprocess/parser_raw.ml" +# 29158 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28710,7 +29214,7 @@ module Tables = struct let _1_inlined2 : ( # 890 "src/ocaml/preprocess/parser_raw.mly" (string) -# 28714 "src/ocaml/preprocess/parser_raw.ml" +# 29218 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Location.loc option) = Obj.magic ext in @@ -28718,49 +29222,50 @@ 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 : (Parsetree.module_substitution * string Location.loc option) = let attrs2 = - let _1 = _1_inlined4 in - + let _v = + let attrs2 = + let _1 = _1_inlined4 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28727 "src/ocaml/preprocess/parser_raw.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 - +# 29232 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 28739 "src/ocaml/preprocess/parser_raw.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 - +# 29244 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 28750 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 29255 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28758 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 29263 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1939 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -28768,8 +29273,9 @@ module Tables = struct let docs = symbol_docs _sloc in Ms.mk uid body ~attrs ~loc ~docs, ext ) -# 28772 "src/ocaml/preprocess/parser_raw.ml" - in +# 29277 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_substitution * string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28811,22 +29317,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.module_type) = let attrs = - let _1 = _1_inlined1 in - + let _v = + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28820 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 29327 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1775 "src/ocaml/preprocess/parser_raw.mly" ( mkmty ~loc:_sloc ~attrs (Pmty_signature s) ) -# 28829 "src/ocaml/preprocess/parser_raw.ml" - in +# 29336 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28875,26 +29383,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_mty_ in - let _v : (Parsetree.module_type) = let attrs = - let _1 = _1_inlined1 in - + let _v = + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28884 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_mty_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 29393 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_mty_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1787 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mty_attrs ~loc:_sloc attrs ( List.fold_left (fun acc (startpos, arg) -> mkmty ~loc:(startpos, _endpos) (Pmty_functor (arg, acc)) ) mty args ) ) -# 28897 "src/ocaml/preprocess/parser_raw.ml" - in +# 29406 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28943,22 +29453,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.module_type) = let _4 = - let _1 = _1_inlined1 in - + let _v = + let _4 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 28952 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 29463 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1793 "src/ocaml/preprocess/parser_raw.mly" ( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) ) -# 28961 "src/ocaml/preprocess/parser_raw.ml" - in +# 29472 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -28996,7 +29508,7 @@ module Tables = struct let _v : (Parsetree.module_type) = # 1795 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 29000 "src/ocaml/preprocess/parser_raw.ml" +# 29512 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29028,7 +29540,7 @@ module Tables = struct let _v : (Parsetree.module_type) = # 1801 "src/ocaml/preprocess/parser_raw.mly" ( Mty.attr _1 _2 ) -# 29032 "src/ocaml/preprocess/parser_raw.ml" +# 29544 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29050,38 +29562,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.module_type) = let _1 = + let _v = let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 29063 "src/ocaml/preprocess/parser_raw.ml" +# 29576 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1804 "src/ocaml/preprocess/parser_raw.mly" ( Pmty_ident _1 ) -# 29069 "src/ocaml/preprocess/parser_raw.ml" +# 29582 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1072 "src/ocaml/preprocess/parser_raw.mly" ( mkmty ~loc:_sloc _1 ) -# 29078 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 29591 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1817 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 29084 "src/ocaml/preprocess/parser_raw.ml" - in +# 29597 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29123,27 +29637,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.module_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1806 "src/ocaml/preprocess/parser_raw.mly" ( Pmty_functor(Unit, _4) ) -# 29131 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 29646 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1072 "src/ocaml/preprocess/parser_raw.mly" ( mkmty ~loc:_sloc _1 ) -# 29140 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 29655 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1817 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 29146 "src/ocaml/preprocess/parser_raw.ml" - in +# 29661 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29178,27 +29694,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.module_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1809 "src/ocaml/preprocess/parser_raw.mly" ( Pmty_functor(Named (mknoloc None, _1), _3) ) -# 29186 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 29703 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1072 "src/ocaml/preprocess/parser_raw.mly" ( mkmty ~loc:_sloc _1 ) -# 29195 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 29712 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1817 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 29201 "src/ocaml/preprocess/parser_raw.ml" - in +# 29718 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29233,41 +29751,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.module_type) = let _1 = + let _v = let _1 = - let _3 = - let xs = -# 253 "" + let _1 = + let _3 = + let xs = +# 264 "" ( List.rev xs ) -# 29243 "src/ocaml/preprocess/parser_raw.ml" - in - +# 29762 "src/ocaml/preprocess/parser_raw.ml" + in + # 1182 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 29248 "src/ocaml/preprocess/parser_raw.ml" +# 29767 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1811 "src/ocaml/preprocess/parser_raw.mly" ( Pmty_with(_1, _3) ) -# 29254 "src/ocaml/preprocess/parser_raw.ml" +# 29773 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1072 "src/ocaml/preprocess/parser_raw.mly" ( mkmty ~loc:_sloc _1 ) -# 29264 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 29783 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1817 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 29270 "src/ocaml/preprocess/parser_raw.ml" - in +# 29789 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29288,26 +29808,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.module_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1815 "src/ocaml/preprocess/parser_raw.mly" ( Pmty_extension _1 ) -# 29296 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 29817 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1072 "src/ocaml/preprocess/parser_raw.mly" ( mkmty ~loc:_sloc _1 ) -# 29304 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 29825 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1817 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 29310 "src/ocaml/preprocess/parser_raw.ml" - in +# 29831 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29370,38 +29892,39 @@ 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 : (Parsetree.module_type_declaration * string Location.loc option) = let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 29379 "src/ocaml/preprocess/parser_raw.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 - +# 29902 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 29391 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 29914 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 29399 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 29922 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1721 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -29409,8 +29932,9 @@ module Tables = struct let docs = symbol_docs _sloc in Mtd.mk id ?typ ~attrs ~loc ~docs, ext ) -# 29413 "src/ocaml/preprocess/parser_raw.ml" - in +# 29936 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type_declaration * string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29480,38 +30004,39 @@ 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 : (Parsetree.module_type_declaration * string Location.loc option) = let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 29489 "src/ocaml/preprocess/parser_raw.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 - +# 30014 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 29501 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 30026 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 29509 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 30034 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1997 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -29519,8 +30044,9 @@ module Tables = struct let docs = symbol_docs _sloc in Mtd.mk id ~typ ~attrs ~loc ~docs, ext ) -# 29523 "src/ocaml/preprocess/parser_raw.ml" - in +# 30048 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type_declaration * string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29544,7 +30070,7 @@ module Tables = struct let _v : (Longident.t) = # 4005 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 29548 "src/ocaml/preprocess/parser_raw.ml" +# 30074 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29562,7 +30088,7 @@ module Tables = struct let _v : (Asttypes.mutable_flag) = # 4086 "src/ocaml/preprocess/parser_raw.mly" ( Immutable ) -# 29566 "src/ocaml/preprocess/parser_raw.ml" +# 30092 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29587,7 +30113,7 @@ module Tables = struct let _v : (Asttypes.mutable_flag) = # 4087 "src/ocaml/preprocess/parser_raw.mly" ( Mutable ) -# 29591 "src/ocaml/preprocess/parser_raw.ml" +# 30117 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29605,7 +30131,7 @@ module Tables = struct let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = # 4095 "src/ocaml/preprocess/parser_raw.mly" ( Immutable, Concrete ) -# 29609 "src/ocaml/preprocess/parser_raw.ml" +# 30135 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29630,7 +30156,7 @@ module Tables = struct let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = # 4097 "src/ocaml/preprocess/parser_raw.mly" ( Mutable, Concrete ) -# 29634 "src/ocaml/preprocess/parser_raw.ml" +# 30160 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29655,7 +30181,7 @@ module Tables = struct let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = # 4099 "src/ocaml/preprocess/parser_raw.mly" ( Immutable, Virtual ) -# 29659 "src/ocaml/preprocess/parser_raw.ml" +# 30185 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29687,7 +30213,7 @@ module Tables = struct let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = # 4102 "src/ocaml/preprocess/parser_raw.mly" ( Mutable, Virtual ) -# 29691 "src/ocaml/preprocess/parser_raw.ml" +# 30217 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29719,7 +30245,7 @@ module Tables = struct let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = # 4102 "src/ocaml/preprocess/parser_raw.mly" ( Mutable, Virtual ) -# 29723 "src/ocaml/preprocess/parser_raw.ml" +# 30249 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29751,7 +30277,7 @@ module Tables = struct let _v : (string) = # 4057 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 29755 "src/ocaml/preprocess/parser_raw.ml" +# 30281 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29772,26 +30298,28 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 29776 "src/ocaml/preprocess/parser_raw.ml" +# 30302 "src/ocaml/preprocess/parser_raw.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 Location.loc list) = let x = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let x = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 29788 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 221 "" +# 30315 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 228 "" ( [ x ] ) -# 29794 "src/ocaml/preprocess/parser_raw.ml" - in +# 30321 "src/ocaml/preprocess/parser_raw.ml" + : (string Location.loc list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29818,26 +30346,28 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 29822 "src/ocaml/preprocess/parser_raw.ml" +# 30350 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (string Location.loc list) = let x = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let x = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 29834 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 223 "" +# 30363 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 231 "" ( x :: xs ) -# 29840 "src/ocaml/preprocess/parser_raw.ml" - in +# 30369 "src/ocaml/preprocess/parser_raw.ml" + : (string Location.loc list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29857,21 +30387,23 @@ module Tables = struct let s : ( # 876 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string option) -# 29861 "src/ocaml/preprocess/parser_raw.ml" +# 30391 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic s in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_s_ in let _endpos = _endpos_s_ in - let _v : (string list) = let x = + let _v = + let x = # 4053 "src/ocaml/preprocess/parser_raw.mly" ( let body, _, _ = s in body ) -# 29869 "src/ocaml/preprocess/parser_raw.ml" - in - -# 221 "" +# 30400 "src/ocaml/preprocess/parser_raw.ml" + in + ( +# 228 "" ( [ x ] ) -# 29874 "src/ocaml/preprocess/parser_raw.ml" - in +# 30405 "src/ocaml/preprocess/parser_raw.ml" + : (string list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29898,21 +30430,23 @@ module Tables = struct let s : ( # 876 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string option) -# 29902 "src/ocaml/preprocess/parser_raw.ml" +# 30434 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic s in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_s_ in let _endpos = _endpos_xs_ in - let _v : (string list) = let x = + let _v = + let x = # 4053 "src/ocaml/preprocess/parser_raw.mly" ( let body, _, _ = s in body ) -# 29910 "src/ocaml/preprocess/parser_raw.ml" - in - -# 223 "" +# 30443 "src/ocaml/preprocess/parser_raw.ml" + in + ( +# 231 "" ( x :: xs ) -# 29915 "src/ocaml/preprocess/parser_raw.ml" - in +# 30448 "src/ocaml/preprocess/parser_raw.ml" + : (string list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29933,16 +30467,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4082 "src/ocaml/preprocess/parser_raw.mly" ( Public ) -# 29940 "src/ocaml/preprocess/parser_raw.ml" - in - +# 30475 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3306 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_abstract, priv, Some ty) ) -# 29945 "src/ocaml/preprocess/parser_raw.ml" - in +# 30480 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -29970,16 +30506,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_ty_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4083 "src/ocaml/preprocess/parser_raw.mly" ( Private ) -# 29977 "src/ocaml/preprocess/parser_raw.ml" - in - +# 30514 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3306 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_abstract, priv, Some ty) ) -# 29982 "src/ocaml/preprocess/parser_raw.ml" - in +# 30519 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30000,28 +30538,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_cs_ in let _endpos = _endpos_cs_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4082 "src/ocaml/preprocess/parser_raw.mly" ( Public ) -# 30007 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = -# 124 "" - ( None ) -# 30013 "src/ocaml/preprocess/parser_raw.ml" +# 30546 "src/ocaml/preprocess/parser_raw.ml" in - + let oty = + let _1 = +# 123 "" + ( None ) +# 30552 "src/ocaml/preprocess/parser_raw.ml" + in + # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30018 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 30557 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3310 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_variant cs, priv, oty) ) -# 30024 "src/ocaml/preprocess/parser_raw.ml" - in +# 30563 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30049,28 +30589,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_cs_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4083 "src/ocaml/preprocess/parser_raw.mly" ( Private ) -# 30056 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = -# 124 "" - ( None ) -# 30062 "src/ocaml/preprocess/parser_raw.ml" +# 30597 "src/ocaml/preprocess/parser_raw.ml" in - + let oty = + let _1 = +# 123 "" + ( None ) +# 30603 "src/ocaml/preprocess/parser_raw.ml" + in + # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30067 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 30608 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3310 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_variant cs, priv, oty) ) -# 30073 "src/ocaml/preprocess/parser_raw.ml" - in +# 30614 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30105,35 +30647,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_cs_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4082 "src/ocaml/preprocess/parser_raw.mly" ( Public ) -# 30112 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = - let x = -# 191 "" +# 30655 "src/ocaml/preprocess/parser_raw.ml" + in + let oty = + let _1 = + let x = +# 196 "" ( x ) -# 30119 "src/ocaml/preprocess/parser_raw.ml" - in - +# 30662 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 30124 "src/ocaml/preprocess/parser_raw.ml" +# 30667 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30130 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 30673 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3310 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_variant cs, priv, oty) ) -# 30136 "src/ocaml/preprocess/parser_raw.ml" - in +# 30679 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30175,35 +30719,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_cs_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4083 "src/ocaml/preprocess/parser_raw.mly" ( Private ) -# 30182 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = - let x = -# 191 "" +# 30727 "src/ocaml/preprocess/parser_raw.ml" + in + let oty = + let _1 = + let x = +# 196 "" ( x ) -# 30189 "src/ocaml/preprocess/parser_raw.ml" - in - +# 30734 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 30194 "src/ocaml/preprocess/parser_raw.ml" +# 30739 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30200 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 30745 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3310 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_variant cs, priv, oty) ) -# 30206 "src/ocaml/preprocess/parser_raw.ml" - in +# 30751 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30224,28 +30770,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__3_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4082 "src/ocaml/preprocess/parser_raw.mly" ( Public ) -# 30231 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = -# 124 "" - ( None ) -# 30237 "src/ocaml/preprocess/parser_raw.ml" +# 30778 "src/ocaml/preprocess/parser_raw.ml" in - + let oty = + let _1 = +# 123 "" + ( None ) +# 30784 "src/ocaml/preprocess/parser_raw.ml" + in + # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30242 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 30789 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3314 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_open, priv, oty) ) -# 30248 "src/ocaml/preprocess/parser_raw.ml" - in +# 30795 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30273,28 +30821,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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4083 "src/ocaml/preprocess/parser_raw.mly" ( Private ) -# 30280 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = -# 124 "" - ( None ) -# 30286 "src/ocaml/preprocess/parser_raw.ml" +# 30829 "src/ocaml/preprocess/parser_raw.ml" in - + let oty = + let _1 = +# 123 "" + ( None ) +# 30835 "src/ocaml/preprocess/parser_raw.ml" + in + # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30291 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 30840 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3314 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_open, priv, oty) ) -# 30297 "src/ocaml/preprocess/parser_raw.ml" - in +# 30846 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30329,35 +30879,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4082 "src/ocaml/preprocess/parser_raw.mly" ( Public ) -# 30336 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = - let x = -# 191 "" +# 30887 "src/ocaml/preprocess/parser_raw.ml" + in + let oty = + let _1 = + let x = +# 196 "" ( x ) -# 30343 "src/ocaml/preprocess/parser_raw.ml" - in - +# 30894 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 30348 "src/ocaml/preprocess/parser_raw.ml" +# 30899 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30354 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 30905 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3314 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_open, priv, oty) ) -# 30360 "src/ocaml/preprocess/parser_raw.ml" - in +# 30911 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30399,35 +30951,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4083 "src/ocaml/preprocess/parser_raw.mly" ( Private ) -# 30406 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = - let x = -# 191 "" +# 30959 "src/ocaml/preprocess/parser_raw.ml" + in + let oty = + let _1 = + let x = +# 196 "" ( x ) -# 30413 "src/ocaml/preprocess/parser_raw.ml" - in - +# 30966 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 30418 "src/ocaml/preprocess/parser_raw.ml" +# 30971 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30424 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 30977 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3314 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_open, priv, oty) ) -# 30430 "src/ocaml/preprocess/parser_raw.ml" - in +# 30983 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30462,28 +31016,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__3_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4082 "src/ocaml/preprocess/parser_raw.mly" ( Public ) -# 30469 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = -# 124 "" - ( None ) -# 30475 "src/ocaml/preprocess/parser_raw.ml" +# 31024 "src/ocaml/preprocess/parser_raw.ml" in - + let oty = + let _1 = +# 123 "" + ( None ) +# 31030 "src/ocaml/preprocess/parser_raw.ml" + in + # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30480 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 31035 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3318 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_record ls, priv, oty) ) -# 30486 "src/ocaml/preprocess/parser_raw.ml" - in +# 31041 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30525,28 +31081,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4083 "src/ocaml/preprocess/parser_raw.mly" ( Private ) -# 30532 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = -# 124 "" - ( None ) -# 30538 "src/ocaml/preprocess/parser_raw.ml" +# 31089 "src/ocaml/preprocess/parser_raw.ml" in - + let oty = + let _1 = +# 123 "" + ( None ) +# 31095 "src/ocaml/preprocess/parser_raw.ml" + in + # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30543 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 31100 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3318 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_record ls, priv, oty) ) -# 30549 "src/ocaml/preprocess/parser_raw.ml" - in +# 31106 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30595,35 +31153,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4082 "src/ocaml/preprocess/parser_raw.mly" ( Public ) -# 30602 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = - let x = -# 191 "" +# 31161 "src/ocaml/preprocess/parser_raw.ml" + in + let oty = + let _1 = + let x = +# 196 "" ( x ) -# 30609 "src/ocaml/preprocess/parser_raw.ml" - in - +# 31168 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 30614 "src/ocaml/preprocess/parser_raw.ml" +# 31173 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30620 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 31179 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3318 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_record ls, priv, oty) ) -# 30626 "src/ocaml/preprocess/parser_raw.ml" - in +# 31185 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30679,35 +31239,37 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = + let _v = + let priv = # 4083 "src/ocaml/preprocess/parser_raw.mly" ( Private ) -# 30686 "src/ocaml/preprocess/parser_raw.ml" - in - let oty = - let _1 = - let x = -# 191 "" +# 31247 "src/ocaml/preprocess/parser_raw.ml" + in + let oty = + let _1 = + let x = +# 196 "" ( x ) -# 30693 "src/ocaml/preprocess/parser_raw.ml" - in - +# 31254 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 30698 "src/ocaml/preprocess/parser_raw.ml" +# 31259 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3322 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30704 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 31265 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3318 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_record ls, priv, oty) ) -# 30710 "src/ocaml/preprocess/parser_raw.ml" - in +# 31271 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30742,27 +31304,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.core_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3742 "src/ocaml/preprocess/parser_raw.mly" ( let (f, c) = meth_list in Ptyp_object (f, c) ) -# 30750 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 31313 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 30759 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 31322 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3746 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30765 "src/ocaml/preprocess/parser_raw.ml" - in +# 31328 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30790,27 +31354,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.core_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3744 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_object ([], Closed) ) -# 30798 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 31363 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 30807 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 31372 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3746 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30813 "src/ocaml/preprocess/parser_raw.ml" - in +# 31378 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30859,32 +31425,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 : (Parsetree.module_expr Parsetree.open_infos * string Location.loc option) = let attrs2 = - let _1 = _1_inlined2 in - + let _v = + let attrs2 = + let _1 = _1_inlined2 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30868 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined2_ in - let attrs1 = - let _1 = _1_inlined1 in - +# 31435 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined2_ in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30877 "src/ocaml/preprocess/parser_raw.ml" - - in - let override = +# 31444 "src/ocaml/preprocess/parser_raw.ml" + + in + let override = # 4129 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 30883 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 31450 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1740 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -30892,8 +31459,9 @@ module Tables = struct let docs = symbol_docs _sloc in Opn.mk me ~override ~attrs ~loc ~docs, ext ) -# 30896 "src/ocaml/preprocess/parser_raw.ml" - in +# 31463 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr Parsetree.open_infos * string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -30949,35 +31517,33 @@ 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 : (Parsetree.module_expr Parsetree.open_infos * string Location.loc option) = let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30958 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let attrs1 = - let _1 = _1_inlined2 in - +# 31527 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let attrs1 = + let _1 = _1_inlined2 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 30967 "src/ocaml/preprocess/parser_raw.ml" - - in - let override = - let _1 = _1_inlined1 in - +# 31536 "src/ocaml/preprocess/parser_raw.ml" + + in + let override = # 4130 "src/ocaml/preprocess/parser_raw.mly" ( Override ) -# 30975 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 31542 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1740 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -30985,8 +31551,9 @@ module Tables = struct let docs = symbol_docs _sloc in Opn.mk me ~override ~attrs ~loc ~docs, ext ) -# 30989 "src/ocaml/preprocess/parser_raw.ml" - in +# 31555 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr Parsetree.open_infos * string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31035,43 +31602,44 @@ 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 : (Longident.t Location.loc Parsetree.open_infos * string Location.loc option) = let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31044 "src/ocaml/preprocess/parser_raw.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 - +# 31612 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 31056 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 31624 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31064 "src/ocaml/preprocess/parser_raw.ml" - - in - let override = +# 31632 "src/ocaml/preprocess/parser_raw.ml" + + in + let override = # 4129 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 31070 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 31638 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1755 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -31079,8 +31647,9 @@ module Tables = struct let docs = symbol_docs _sloc in Opn.mk id ~override ~attrs ~loc ~docs, ext ) -# 31083 "src/ocaml/preprocess/parser_raw.ml" - in +# 31651 "src/ocaml/preprocess/parser_raw.ml" + : (Longident.t Location.loc Parsetree.open_infos * string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31136,46 +31705,44 @@ 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 : (Longident.t Location.loc Parsetree.open_infos * string Location.loc option) = let attrs2 = - let _1 = _1_inlined4 in - + let _v = + let attrs2 = + let _1 = _1_inlined4 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31145 "src/ocaml/preprocess/parser_raw.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 - +# 31715 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 31157 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined2 in - +# 31727 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined2 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31165 "src/ocaml/preprocess/parser_raw.ml" - - in - let override = - let _1 = _1_inlined1 in - +# 31735 "src/ocaml/preprocess/parser_raw.ml" + + in + let override = # 4130 "src/ocaml/preprocess/parser_raw.mly" ( Override ) -# 31173 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 31741 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1755 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -31183,8 +31750,9 @@ module Tables = struct let docs = symbol_docs _sloc in Opn.mk id ~override ~attrs ~loc ~docs, ext ) -# 31187 "src/ocaml/preprocess/parser_raw.ml" - in +# 31754 "src/ocaml/preprocess/parser_raw.ml" + : (Longident.t Location.loc Parsetree.open_infos * string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31204,7 +31772,7 @@ module Tables = struct let _1 : ( # 862 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31208 "src/ocaml/preprocess/parser_raw.ml" +# 31776 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31212,7 +31780,7 @@ module Tables = struct let _v : (string) = # 3919 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31216 "src/ocaml/preprocess/parser_raw.ml" +# 31784 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31233,7 +31801,7 @@ module Tables = struct let _1 : ( # 820 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31237 "src/ocaml/preprocess/parser_raw.ml" +# 31805 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31241,7 +31809,7 @@ module Tables = struct let _v : (string) = # 3920 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31245 "src/ocaml/preprocess/parser_raw.ml" +# 31813 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31262,7 +31830,7 @@ module Tables = struct let _1 : ( # 821 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31266 "src/ocaml/preprocess/parser_raw.ml" +# 31834 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31270,7 +31838,7 @@ module Tables = struct let _v : (string) = # 3921 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31274 "src/ocaml/preprocess/parser_raw.ml" +# 31842 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31312,7 +31880,7 @@ module Tables = struct let _1 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31316 "src/ocaml/preprocess/parser_raw.ml" +# 31884 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31320,7 +31888,7 @@ module Tables = struct let _v : (string) = # 3922 "src/ocaml/preprocess/parser_raw.mly" ( "."^ _1 ^"(" ^ _3 ^ ")" ) -# 31324 "src/ocaml/preprocess/parser_raw.ml" +# 31892 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31369,7 +31937,7 @@ module Tables = struct let _1 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31373 "src/ocaml/preprocess/parser_raw.ml" +# 31941 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31377,7 +31945,7 @@ module Tables = struct let _v : (string) = # 3923 "src/ocaml/preprocess/parser_raw.mly" ( "."^ _1 ^ "(" ^ _3 ^ ")<-" ) -# 31381 "src/ocaml/preprocess/parser_raw.ml" +# 31949 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31419,7 +31987,7 @@ module Tables = struct let _1 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31423 "src/ocaml/preprocess/parser_raw.ml" +# 31991 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31427,7 +31995,7 @@ module Tables = struct let _v : (string) = # 3924 "src/ocaml/preprocess/parser_raw.mly" ( "."^ _1 ^"[" ^ _3 ^ "]" ) -# 31431 "src/ocaml/preprocess/parser_raw.ml" +# 31999 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31476,7 +32044,7 @@ module Tables = struct let _1 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31480 "src/ocaml/preprocess/parser_raw.ml" +# 32048 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31484,7 +32052,7 @@ module Tables = struct let _v : (string) = # 3925 "src/ocaml/preprocess/parser_raw.mly" ( "."^ _1 ^ "[" ^ _3 ^ "]<-" ) -# 31488 "src/ocaml/preprocess/parser_raw.ml" +# 32056 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31526,7 +32094,7 @@ module Tables = struct let _1 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31530 "src/ocaml/preprocess/parser_raw.ml" +# 32098 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31534,7 +32102,7 @@ module Tables = struct let _v : (string) = # 3926 "src/ocaml/preprocess/parser_raw.mly" ( "."^ _1 ^"{" ^ _3 ^ "}" ) -# 31538 "src/ocaml/preprocess/parser_raw.ml" +# 32106 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31583,7 +32151,7 @@ module Tables = struct let _1 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31587 "src/ocaml/preprocess/parser_raw.ml" +# 32155 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31591,7 +32159,7 @@ module Tables = struct let _v : (string) = # 3927 "src/ocaml/preprocess/parser_raw.mly" ( "."^ _1 ^ "{" ^ _3 ^ "}<-" ) -# 31595 "src/ocaml/preprocess/parser_raw.ml" +# 32163 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31612,7 +32180,7 @@ module Tables = struct let _1 : ( # 873 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31616 "src/ocaml/preprocess/parser_raw.ml" +# 32184 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31620,7 +32188,7 @@ module Tables = struct let _v : (string) = # 3928 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31624 "src/ocaml/preprocess/parser_raw.ml" +# 32192 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31645,7 +32213,7 @@ module Tables = struct let _v : (string) = # 3929 "src/ocaml/preprocess/parser_raw.mly" ( "!" ) -# 31649 "src/ocaml/preprocess/parser_raw.ml" +# 32217 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31666,21 +32234,23 @@ module Tables = struct let op : ( # 814 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31670 "src/ocaml/preprocess/parser_raw.ml" +# 32238 "src/ocaml/preprocess/parser_raw.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 : (string) = let _1 = + let _v = + let _1 = # 3933 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 31678 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32247 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31683 "src/ocaml/preprocess/parser_raw.ml" - in +# 32252 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31700,21 +32270,23 @@ module Tables = struct let op : ( # 815 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31704 "src/ocaml/preprocess/parser_raw.ml" +# 32274 "src/ocaml/preprocess/parser_raw.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 : (string) = let _1 = + let _v = + let _1 = # 3934 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 31712 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32283 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31717 "src/ocaml/preprocess/parser_raw.ml" - in +# 32288 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31734,21 +32306,23 @@ module Tables = struct let op : ( # 816 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31738 "src/ocaml/preprocess/parser_raw.ml" +# 32310 "src/ocaml/preprocess/parser_raw.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 : (string) = let _1 = + let _v = + let _1 = # 3935 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 31746 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32319 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31751 "src/ocaml/preprocess/parser_raw.ml" - in +# 32324 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31768,21 +32342,23 @@ module Tables = struct let op : ( # 817 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31772 "src/ocaml/preprocess/parser_raw.ml" +# 32346 "src/ocaml/preprocess/parser_raw.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 : (string) = let _1 = + let _v = + let _1 = # 3936 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 31780 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32355 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31785 "src/ocaml/preprocess/parser_raw.ml" - in +# 32360 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31802,21 +32378,23 @@ module Tables = struct let op : ( # 818 "src/ocaml/preprocess/parser_raw.mly" (string) -# 31806 "src/ocaml/preprocess/parser_raw.ml" +# 32382 "src/ocaml/preprocess/parser_raw.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 : (string) = let _1 = + let _v = + let _1 = # 3937 "src/ocaml/preprocess/parser_raw.mly" ( op ) -# 31814 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32391 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31819 "src/ocaml/preprocess/parser_raw.ml" - in +# 32396 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31837,16 +32415,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3938 "src/ocaml/preprocess/parser_raw.mly" ("+") -# 31844 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32423 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31849 "src/ocaml/preprocess/parser_raw.ml" - in +# 32428 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31867,16 +32447,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3939 "src/ocaml/preprocess/parser_raw.mly" ("+.") -# 31874 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32455 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31879 "src/ocaml/preprocess/parser_raw.ml" - in +# 32460 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31897,16 +32479,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3940 "src/ocaml/preprocess/parser_raw.mly" ("+=") -# 31904 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32487 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31909 "src/ocaml/preprocess/parser_raw.ml" - in +# 32492 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31927,16 +32511,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3941 "src/ocaml/preprocess/parser_raw.mly" ("-") -# 31934 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32519 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31939 "src/ocaml/preprocess/parser_raw.ml" - in +# 32524 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31957,16 +32543,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3942 "src/ocaml/preprocess/parser_raw.mly" ("-.") -# 31964 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32551 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31969 "src/ocaml/preprocess/parser_raw.ml" - in +# 32556 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -31987,16 +32575,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3943 "src/ocaml/preprocess/parser_raw.mly" ("*") -# 31994 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32583 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 31999 "src/ocaml/preprocess/parser_raw.ml" - in +# 32588 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32017,16 +32607,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3944 "src/ocaml/preprocess/parser_raw.mly" ("%") -# 32024 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32615 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32029 "src/ocaml/preprocess/parser_raw.ml" - in +# 32620 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32047,16 +32639,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3945 "src/ocaml/preprocess/parser_raw.mly" ("=") -# 32054 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32647 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32059 "src/ocaml/preprocess/parser_raw.ml" - in +# 32652 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32077,16 +32671,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3946 "src/ocaml/preprocess/parser_raw.mly" ("<") -# 32084 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32679 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32089 "src/ocaml/preprocess/parser_raw.ml" - in +# 32684 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32107,16 +32703,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3947 "src/ocaml/preprocess/parser_raw.mly" (">") -# 32114 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32711 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32119 "src/ocaml/preprocess/parser_raw.ml" - in +# 32716 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32137,16 +32735,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3948 "src/ocaml/preprocess/parser_raw.mly" ("or") -# 32144 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32743 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32149 "src/ocaml/preprocess/parser_raw.ml" - in +# 32748 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32167,16 +32767,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3949 "src/ocaml/preprocess/parser_raw.mly" ("||") -# 32174 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32775 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32179 "src/ocaml/preprocess/parser_raw.ml" - in +# 32780 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32197,16 +32799,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3950 "src/ocaml/preprocess/parser_raw.mly" ("&") -# 32204 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32807 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32209 "src/ocaml/preprocess/parser_raw.ml" - in +# 32812 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32227,16 +32831,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3951 "src/ocaml/preprocess/parser_raw.mly" ("&&") -# 32234 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32839 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32239 "src/ocaml/preprocess/parser_raw.ml" - in +# 32844 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32257,16 +32863,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (string) = let _1 = + let _v = + let _1 = # 3952 "src/ocaml/preprocess/parser_raw.mly" (":=") -# 32264 "src/ocaml/preprocess/parser_raw.ml" - in - +# 32871 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3930 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32269 "src/ocaml/preprocess/parser_raw.ml" - in +# 32876 "src/ocaml/preprocess/parser_raw.ml" + : (string)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32290,7 +32898,7 @@ module Tables = struct let _v : (bool) = # 3832 "src/ocaml/preprocess/parser_raw.mly" ( true ) -# 32294 "src/ocaml/preprocess/parser_raw.ml" +# 32902 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32308,7 +32916,7 @@ module Tables = struct let _v : (bool) = # 3833 "src/ocaml/preprocess/parser_raw.mly" ( false ) -# 32312 "src/ocaml/preprocess/parser_raw.ml" +# 32920 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32324,9 +32932,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (unit option) = -# 114 "" +# 111 "" ( None ) -# 32330 "src/ocaml/preprocess/parser_raw.ml" +# 32938 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32349,9 +32957,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (unit option) = -# 116 "" +# 114 "" ( Some x ) -# 32355 "src/ocaml/preprocess/parser_raw.ml" +# 32963 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32367,9 +32975,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (unit option) = -# 114 "" +# 111 "" ( None ) -# 32373 "src/ocaml/preprocess/parser_raw.ml" +# 32981 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32392,9 +33000,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (unit option) = -# 116 "" +# 114 "" ( Some x ) -# 32398 "src/ocaml/preprocess/parser_raw.ml" +# 33006 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32410,9 +33018,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string Location.loc option) = -# 114 "" +# 111 "" ( None ) -# 32416 "src/ocaml/preprocess/parser_raw.ml" +# 33024 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32439,35 +33047,37 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 32443 "src/ocaml/preprocess/parser_raw.ml" +# 33051 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (string Location.loc option) = let x = + 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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 32458 "src/ocaml/preprocess/parser_raw.ml" +# 33067 "src/ocaml/preprocess/parser_raw.ml" + + in - in - -# 183 "" +# 188 "" ( x ) -# 32464 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 116 "" +# 33073 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 114 "" ( Some x ) -# 32470 "src/ocaml/preprocess/parser_raw.ml" - in +# 33079 "src/ocaml/preprocess/parser_raw.ml" + : (string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32482,9 +33092,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.core_type option) = -# 114 "" +# 111 "" ( None ) -# 32488 "src/ocaml/preprocess/parser_raw.ml" +# 33098 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32513,16 +33123,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.core_type option) = let x = -# 183 "" + let _v = + let x = +# 188 "" ( x ) -# 32520 "src/ocaml/preprocess/parser_raw.ml" - in - -# 116 "" +# 33131 "src/ocaml/preprocess/parser_raw.ml" + in + ( +# 114 "" ( Some x ) -# 32525 "src/ocaml/preprocess/parser_raw.ml" - in +# 33136 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32537,9 +33149,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.core_type option) = -# 114 "" +# 111 "" ( None ) -# 32543 "src/ocaml/preprocess/parser_raw.ml" +# 33155 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32568,16 +33180,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.core_type option) = let x = -# 183 "" + let _v = + let x = +# 188 "" ( x ) -# 32575 "src/ocaml/preprocess/parser_raw.ml" - in - -# 116 "" +# 33188 "src/ocaml/preprocess/parser_raw.ml" + in + ( +# 114 "" ( Some x ) -# 32580 "src/ocaml/preprocess/parser_raw.ml" - in +# 33193 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32592,9 +33206,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.expression option) = -# 114 "" +# 111 "" ( None ) -# 32598 "src/ocaml/preprocess/parser_raw.ml" +# 33212 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32623,31 +33237,33 @@ 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 : (Parsetree.expression option) = let x = + let _v = let x = - let _1 = _1_inlined1 in - let _1 = + let x = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32633 "src/ocaml/preprocess/parser_raw.ml" - in - +# 33248 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32638 "src/ocaml/preprocess/parser_raw.ml" +# 33253 "src/ocaml/preprocess/parser_raw.ml" + + in - in - -# 183 "" +# 188 "" ( x ) -# 32644 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 116 "" +# 33259 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 114 "" ( Some x ) -# 32650 "src/ocaml/preprocess/parser_raw.ml" - in +# 33265 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32696,50 +33312,51 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression option) = let x = + let _v = let x = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let x = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 32709 "src/ocaml/preprocess/parser_raw.ml" - in - +# 33326 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 32714 "src/ocaml/preprocess/parser_raw.ml" +# 33331 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 32720 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 33337 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32731 "src/ocaml/preprocess/parser_raw.ml" +# 33348 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 32737 "src/ocaml/preprocess/parser_raw.ml" +# 33354 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -32753,26 +33370,27 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 32757 "src/ocaml/preprocess/parser_raw.ml" +# 33374 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 32763 "src/ocaml/preprocess/parser_raw.ml" +# 33380 "src/ocaml/preprocess/parser_raw.ml" + + in - in - -# 183 "" +# 188 "" ( x ) -# 32769 "src/ocaml/preprocess/parser_raw.ml" - - in - -# 116 "" +# 33386 "src/ocaml/preprocess/parser_raw.ml" + + in + ( +# 114 "" ( Some x ) -# 32775 "src/ocaml/preprocess/parser_raw.ml" - in +# 33392 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32787,9 +33405,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.module_type option) = -# 114 "" +# 111 "" ( None ) -# 32793 "src/ocaml/preprocess/parser_raw.ml" +# 33411 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32818,16 +33436,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.module_type option) = let x = -# 183 "" + let _v = + let x = +# 188 "" ( x ) -# 32825 "src/ocaml/preprocess/parser_raw.ml" - in - -# 116 "" +# 33444 "src/ocaml/preprocess/parser_raw.ml" + in + ( +# 114 "" ( Some x ) -# 32830 "src/ocaml/preprocess/parser_raw.ml" - in +# 33449 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_type option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32842,9 +33462,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.pattern option) = -# 114 "" +# 111 "" ( None ) -# 32848 "src/ocaml/preprocess/parser_raw.ml" +# 33468 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32873,16 +33493,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.pattern option) = let x = -# 183 "" + let _v = + let x = +# 188 "" ( x ) -# 32880 "src/ocaml/preprocess/parser_raw.ml" - in - -# 116 "" +# 33501 "src/ocaml/preprocess/parser_raw.ml" + in + ( +# 114 "" ( Some x ) -# 32885 "src/ocaml/preprocess/parser_raw.ml" - in +# 33506 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32897,9 +33519,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.expression option) = -# 114 "" +# 111 "" ( None ) -# 32903 "src/ocaml/preprocess/parser_raw.ml" +# 33525 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32928,16 +33550,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.expression option) = let x = -# 183 "" + let _v = + let x = +# 188 "" ( x ) -# 32935 "src/ocaml/preprocess/parser_raw.ml" - in - -# 116 "" +# 33558 "src/ocaml/preprocess/parser_raw.ml" + in + ( +# 114 "" ( Some x ) -# 32940 "src/ocaml/preprocess/parser_raw.ml" - in +# 33563 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -32952,9 +33576,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.type_constraint option) = -# 114 "" +# 111 "" ( None ) -# 32958 "src/ocaml/preprocess/parser_raw.ml" +# 33582 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32977,9 +33601,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.type_constraint option) = -# 116 "" +# 114 "" ( Some x ) -# 32983 "src/ocaml/preprocess/parser_raw.ml" +# 33607 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33000,7 +33624,7 @@ module Tables = struct let _1 : ( # 855 "src/ocaml/preprocess/parser_raw.mly" (string) -# 33004 "src/ocaml/preprocess/parser_raw.ml" +# 33628 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -33008,7 +33632,7 @@ module Tables = struct let _v : (string) = # 4141 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33012 "src/ocaml/preprocess/parser_raw.ml" +# 33636 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33042,7 +33666,7 @@ module Tables = struct let _2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 33046 "src/ocaml/preprocess/parser_raw.ml" +# 33670 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -33051,7 +33675,7 @@ module Tables = struct let _v : (string) = # 4142 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 33055 "src/ocaml/preprocess/parser_raw.ml" +# 33679 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33101,14 +33725,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 : (Parsetree.module_expr) = let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1509 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc (Pmod_constraint(me, mty)) ) -# 33111 "src/ocaml/preprocess/parser_raw.ml" - in +# 33736 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33146,7 +33772,7 @@ module Tables = struct let _v : (Parsetree.module_expr) = # 1516 "src/ocaml/preprocess/parser_raw.mly" ( me (* TODO consider reloc *) ) -# 33150 "src/ocaml/preprocess/parser_raw.ml" +# 33776 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33196,42 +33822,44 @@ module Tables = struct 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 _1 = _1_inlined2 in + let _v = let e = - let _1 = + let _1 = _1_inlined2 in + let e = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33206 "src/ocaml/preprocess/parser_raw.ml" - in - +# 33833 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33211 "src/ocaml/preprocess/parser_raw.ml" +# 33838 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1539 "src/ocaml/preprocess/parser_raw.mly" ( e ) -# 33217 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs = - let _1 = _1_inlined1 in - +# 33844 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33225 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 33852 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1524 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 33234 "src/ocaml/preprocess/parser_raw.ml" - in +# 33861 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33301,50 +33929,51 @@ module Tables = struct 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 (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3, _1_inlined2) in + let _v = let e = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in + let e = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 33314 "src/ocaml/preprocess/parser_raw.ml" - in - +# 33943 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 33319 "src/ocaml/preprocess/parser_raw.ml" +# 33948 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 33325 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 33954 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33336 "src/ocaml/preprocess/parser_raw.ml" +# 33965 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 33342 "src/ocaml/preprocess/parser_raw.ml" +# 33971 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -33358,37 +33987,38 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 33362 "src/ocaml/preprocess/parser_raw.ml" +# 33991 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33368 "src/ocaml/preprocess/parser_raw.ml" +# 33997 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1539 "src/ocaml/preprocess/parser_raw.mly" ( e ) -# 33374 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs = - let _1 = _1_inlined1 in - +# 34003 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33382 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 34011 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1524 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 33391 "src/ocaml/preprocess/parser_raw.ml" - in +# 34020 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33451,60 +34081,62 @@ module Tables = struct 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_, _startpos__1_, _1_inlined1, _2, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_inlined2_, _1_inlined3, _2_inlined1, _1_inlined2) in - let ty = - 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 - + let _v = + let e = + let (_endpos__1_inlined1_, _startpos__1_inlined1_, _startpos__1_, _1_inlined1, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_inlined2_, _1_inlined3, _1_inlined2) in + let ty = + 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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 33467 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_ty_ = _endpos__1_inlined1_ in - let e = - let _1 = +# 34098 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_ty_ = _endpos__1_inlined1_ in + let e = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33475 "src/ocaml/preprocess/parser_raw.ml" - in - +# 34106 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33480 "src/ocaml/preprocess/parser_raw.ml" +# 34111 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_e_ = _startpos__1_ in + let _endpos = _endpos_ty_ in + let _startpos = _startpos_e_ in + let _loc = (_startpos, _endpos) in - in - let _startpos_e_ = _startpos__1_ in - let _endpos = _endpos_ty_ in - let _startpos = _startpos_e_ in - let _loc = (_startpos, _endpos) in - # 1541 "src/ocaml/preprocess/parser_raw.mly" ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) -# 33490 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs = - let _1 = _1_inlined1 in - +# 34121 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33498 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 34129 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1524 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 33507 "src/ocaml/preprocess/parser_raw.ml" - in +# 34138 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33588,64 +34220,65 @@ module Tables = struct 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_inlined3_, _startpos__1_inlined3_, _startpos__1_, _1_inlined3, _2, _1_inlined2, _1_inlined1, _1) = (_endpos__1_inlined5_, _startpos__1_inlined5_, _startpos__1_inlined2_, _1_inlined5, _2_inlined1, _1_inlined4, _1_inlined3, _1_inlined2) in - let ty = - 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 - + let _v = + let e = + let (_endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_, _1_inlined3, _1_inlined2, _1_inlined1) = (_endpos__1_inlined5_, _startpos__1_inlined5_, _startpos__1_inlined2_, _1_inlined5, _1_inlined4, _1_inlined3) in + let ty = + 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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 33604 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_ty_ = _endpos__1_inlined3_ in - let e = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" +# 34237 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_ty_ = _endpos__1_inlined3_ in + let e = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 33615 "src/ocaml/preprocess/parser_raw.ml" - in - +# 34248 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 33620 "src/ocaml/preprocess/parser_raw.ml" +# 34253 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 33626 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 34259 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33637 "src/ocaml/preprocess/parser_raw.ml" +# 34270 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 33643 "src/ocaml/preprocess/parser_raw.ml" +# 34276 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -33659,41 +34292,42 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 33663 "src/ocaml/preprocess/parser_raw.ml" +# 34296 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33669 "src/ocaml/preprocess/parser_raw.ml" +# 34302 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_e_ = _startpos__1_ in + let _endpos = _endpos_ty_ in + let _startpos = _startpos_e_ in + let _loc = (_startpos, _endpos) in - in - let _startpos_e_ = _startpos__1_ in - let _endpos = _endpos_ty_ in - let _startpos = _startpos_e_ in - let _loc = (_startpos, _endpos) in - # 1541 "src/ocaml/preprocess/parser_raw.mly" ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) -# 33679 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs = - let _1 = _1_inlined1 in - +# 34312 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33687 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 34320 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1524 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 33696 "src/ocaml/preprocess/parser_raw.ml" - in +# 34329 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33770,73 +34404,75 @@ module Tables = struct 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_inlined2_, _startpos__1_inlined2_, _endpos__1_inlined1_, _startpos__1_inlined1_, _startpos__1_, _1_inlined2, _1_inlined1, _2, _1) = (_endpos__1_inlined4_, _startpos__1_inlined4_, _endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_inlined2_, _1_inlined4, _1_inlined3, _2_inlined1, _1_inlined2) in - let ty2 = - 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 - + let _v = + let e = + let (_endpos__1_inlined2_, _startpos__1_inlined2_, _endpos__1_inlined1_, _startpos__1_inlined1_, _startpos__1_, _1_inlined2, _1_inlined1, _1) = (_endpos__1_inlined4_, _startpos__1_inlined4_, _endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_inlined2_, _1_inlined4, _1_inlined3, _1_inlined2) in + let ty2 = + 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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 33786 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_ty2_ = _endpos__1_inlined2_ in - let ty1 = - 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 - +# 34421 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_ty2_ = _endpos__1_inlined2_ in + let ty1 = + 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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 33800 "src/ocaml/preprocess/parser_raw.ml" - - in - let e = - let _1 = +# 34435 "src/ocaml/preprocess/parser_raw.ml" + + in + let e = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33807 "src/ocaml/preprocess/parser_raw.ml" - in - +# 34442 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33812 "src/ocaml/preprocess/parser_raw.ml" +# 34447 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_e_ = _startpos__1_ in + let _endpos = _endpos_ty2_ in + let _startpos = _startpos_e_ in + let _loc = (_startpos, _endpos) in - in - let _startpos_e_ = _startpos__1_ in - let _endpos = _endpos_ty2_ in - let _startpos = _startpos_e_ in - let _loc = (_startpos, _endpos) in - # 1543 "src/ocaml/preprocess/parser_raw.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) -# 33822 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs = - let _1 = _1_inlined1 in - +# 34457 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33830 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 34465 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1524 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 33839 "src/ocaml/preprocess/parser_raw.ml" - in +# 34474 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -33934,77 +34570,78 @@ module Tables = struct 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_inlined4_, _startpos__1_inlined4_, _endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_, _1_inlined4, _1_inlined3, _2, _1_inlined2, _1_inlined1, _1) = (_endpos__1_inlined6_, _startpos__1_inlined6_, _endpos__1_inlined5_, _startpos__1_inlined5_, _startpos__1_inlined2_, _1_inlined6, _1_inlined5, _2_inlined1, _1_inlined4, _1_inlined3, _1_inlined2) in - let ty2 = - 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 - + let _v = + let e = + let (_endpos__1_inlined4_, _startpos__1_inlined4_, _endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_, _1_inlined4, _1_inlined3, _1_inlined2, _1_inlined1) = (_endpos__1_inlined6_, _startpos__1_inlined6_, _endpos__1_inlined5_, _startpos__1_inlined5_, _startpos__1_inlined2_, _1_inlined6, _1_inlined5, _1_inlined4, _1_inlined3) in + let ty2 = + 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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 33950 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_ty2_ = _endpos__1_inlined4_ in - let ty1 = - 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 - +# 34587 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_ty2_ = _endpos__1_inlined4_ in + let ty1 = + 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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 33964 "src/ocaml/preprocess/parser_raw.ml" - - in - let e = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" +# 34601 "src/ocaml/preprocess/parser_raw.ml" + + in + let e = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 33974 "src/ocaml/preprocess/parser_raw.ml" - in - +# 34611 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 33979 "src/ocaml/preprocess/parser_raw.ml" +# 34616 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 33985 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 34622 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 33996 "src/ocaml/preprocess/parser_raw.ml" +# 34633 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 34002 "src/ocaml/preprocess/parser_raw.ml" +# 34639 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -34018,41 +34655,42 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 34022 "src/ocaml/preprocess/parser_raw.ml" +# 34659 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34028 "src/ocaml/preprocess/parser_raw.ml" +# 34665 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_e_ = _startpos__1_ in + let _endpos = _endpos_ty2_ in + let _startpos = _startpos_e_ in + let _loc = (_startpos, _endpos) in - in - let _startpos_e_ = _startpos__1_ in - let _endpos = _endpos_ty2_ in - let _startpos = _startpos_e_ in - let _loc = (_startpos, _endpos) in - # 1543 "src/ocaml/preprocess/parser_raw.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) -# 34038 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs = - let _1 = _1_inlined1 in - +# 34675 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34046 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 34683 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1524 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 34055 "src/ocaml/preprocess/parser_raw.ml" - in +# 34692 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34115,60 +34753,62 @@ module Tables = struct 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_, _startpos__1_, _1_inlined1, _2, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_inlined2_, _1_inlined3, _2_inlined1, _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 - + let _v = + let e = + let (_endpos__1_inlined1_, _startpos__1_inlined1_, _startpos__1_, _1_inlined1, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 34131 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_ty2_ = _endpos__1_inlined1_ in - let e = - let _1 = +# 34770 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_ty2_ = _endpos__1_inlined1_ in + let e = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34139 "src/ocaml/preprocess/parser_raw.ml" - in - +# 34778 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34144 "src/ocaml/preprocess/parser_raw.ml" +# 34783 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_e_ = _startpos__1_ in + let _endpos = _endpos_ty2_ in + let _startpos = _startpos_e_ in + let _loc = (_startpos, _endpos) in - in - let _startpos_e_ = _startpos__1_ in - let _endpos = _endpos_ty2_ in - let _startpos = _startpos_e_ in - let _loc = (_startpos, _endpos) in - # 1545 "src/ocaml/preprocess/parser_raw.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) -# 34154 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs = - let _1 = _1_inlined1 in - +# 34793 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34162 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 34801 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1524 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 34171 "src/ocaml/preprocess/parser_raw.ml" - in +# 34810 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34252,64 +34892,65 @@ module Tables = struct 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_inlined3_, _startpos__1_inlined3_, _startpos__1_, _1_inlined3, _2, _1_inlined2, _1_inlined1, _1) = (_endpos__1_inlined5_, _startpos__1_inlined5_, _startpos__1_inlined2_, _1_inlined5, _2_inlined1, _1_inlined4, _1_inlined3, _1_inlined2) in - let ty2 = - 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 - + let _v = + let e = + let (_endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_, _1_inlined3, _1_inlined2, _1_inlined1) = (_endpos__1_inlined5_, _startpos__1_inlined5_, _startpos__1_inlined2_, _1_inlined5, _1_inlined4, _1_inlined3) in + let ty2 = + 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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 34268 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_ty2_ = _endpos__1_inlined3_ in - let e = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" +# 34909 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_ty2_ = _endpos__1_inlined3_ in + let e = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 34279 "src/ocaml/preprocess/parser_raw.ml" - in - +# 34920 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 34284 "src/ocaml/preprocess/parser_raw.ml" +# 34925 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 34290 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 34931 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34301 "src/ocaml/preprocess/parser_raw.ml" +# 34942 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 34307 "src/ocaml/preprocess/parser_raw.ml" +# 34948 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -34323,41 +34964,42 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 34327 "src/ocaml/preprocess/parser_raw.ml" +# 34968 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34333 "src/ocaml/preprocess/parser_raw.ml" +# 34974 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_e_ = _startpos__1_ in + let _endpos = _endpos_ty2_ in + let _startpos = _startpos_e_ in + let _loc = (_startpos, _endpos) in - in - let _startpos_e_ = _startpos__1_ in - let _endpos = _endpos_ty2_ in - let _startpos = _startpos_e_ in - let _loc = (_startpos, _endpos) in - # 1545 "src/ocaml/preprocess/parser_raw.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) -# 34343 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs = - let _1 = _1_inlined1 in - +# 34984 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34351 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 34992 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1524 "src/ocaml/preprocess/parser_raw.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 34360 "src/ocaml/preprocess/parser_raw.ml" - in +# 35001 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.module_expr)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34388,7 +35030,7 @@ module Tables = struct let _v : (Longident.t) = # 1418 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34392 "src/ocaml/preprocess/parser_raw.ml" +# 35034 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34420,7 +35062,7 @@ module Tables = struct let _v : (Longident.t) = # 1403 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34424 "src/ocaml/preprocess/parser_raw.ml" +# 35066 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34452,7 +35094,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 1378 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34456 "src/ocaml/preprocess/parser_raw.ml" +# 35098 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34484,7 +35126,7 @@ module Tables = struct let _v : (Parsetree.expression) = # 1383 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34488 "src/ocaml/preprocess/parser_raw.ml" +# 35130 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34516,7 +35158,7 @@ module Tables = struct let _v : (Longident.t) = # 1408 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34520 "src/ocaml/preprocess/parser_raw.ml" +# 35162 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34548,7 +35190,7 @@ module Tables = struct let _v : (Longident.t) = # 1413 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34552 "src/ocaml/preprocess/parser_raw.ml" +# 35194 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34580,7 +35222,7 @@ module Tables = struct let _v : (Parsetree.module_expr) = # 1373 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34584 "src/ocaml/preprocess/parser_raw.ml" +# 35226 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34612,7 +35254,7 @@ module Tables = struct let _v : (Parsetree.module_type) = # 1368 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34616 "src/ocaml/preprocess/parser_raw.ml" +# 35258 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34644,7 +35286,7 @@ module Tables = struct let _v : (Longident.t) = # 1393 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34648 "src/ocaml/preprocess/parser_raw.ml" +# 35290 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34676,7 +35318,7 @@ module Tables = struct let _v : (Parsetree.pattern) = # 1388 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34680 "src/ocaml/preprocess/parser_raw.ml" +# 35322 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34708,7 +35350,7 @@ module Tables = struct let _v : (Longident.t) = # 1398 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34712 "src/ocaml/preprocess/parser_raw.ml" +# 35354 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34744,22 +35386,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.pattern) = let _1 = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _loc__2_ = (_startpos__2_, _endpos__2_) in - let _sloc = (_symbolstartpos, _endpos) in - + 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 + # 3031 "src/ocaml/preprocess/parser_raw.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 34756 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 35399 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3019 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34762 "src/ocaml/preprocess/parser_raw.ml" - in +# 35405 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34787,16 +35431,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.pattern) = let _1 = + let _v = + let _1 = # 3033 "src/ocaml/preprocess/parser_raw.mly" ( Pat.attr _1 _2 ) -# 34794 "src/ocaml/preprocess/parser_raw.ml" - in - +# 35439 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3019 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34799 "src/ocaml/preprocess/parser_raw.ml" - in +# 35444 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34817,16 +35463,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = + let _v = + let _1 = # 3035 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34824 "src/ocaml/preprocess/parser_raw.ml" - in - +# 35471 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3019 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34829 "src/ocaml/preprocess/parser_raw.ml" - in +# 35476 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34861,47 +35509,49 @@ 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 : (Parsetree.pattern) = let _1 = + let _v = 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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 34876 "src/ocaml/preprocess/parser_raw.ml" +# 35525 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3038 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_alias(_1, _3) ) -# 34882 "src/ocaml/preprocess/parser_raw.ml" +# 35531 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 34892 "src/ocaml/preprocess/parser_raw.ml" +# 35541 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3049 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34898 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 35547 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3019 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34904 "src/ocaml/preprocess/parser_raw.ml" - in +# 35553 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34922,33 +35572,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = + let _v = let _1 = - let _1 = + let _1 = + let _1 = # 3042 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_tuple(List.rev _1) ) -# 34931 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 35582 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 34939 "src/ocaml/preprocess/parser_raw.ml" +# 35590 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3049 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34945 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 35596 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3019 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 34951 "src/ocaml/preprocess/parser_raw.ml" - in +# 35602 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -34983,34 +35635,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 : (Parsetree.pattern) = let _1 = + let _v = let _1 = - let _1 = + let _1 = + let _1 = # 3046 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_or(_1, _3) ) -# 34992 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 35645 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 35001 "src/ocaml/preprocess/parser_raw.ml" +# 35654 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3049 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35007 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 35660 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3019 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35013 "src/ocaml/preprocess/parser_raw.ml" - in +# 35666 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35052,30 +35706,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.pattern) = let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _v = let _2 = - let _1 = _1_inlined1 in - + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35063 "src/ocaml/preprocess/parser_raw.ml" +# 35718 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 35069 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 35724 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3021 "src/ocaml/preprocess/parser_raw.mly" ( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2) -# 35078 "src/ocaml/preprocess/parser_raw.ml" - in +# 35733 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35113,7 +35769,7 @@ module Tables = struct let _v : (Parsetree.pattern list) = # 3152 "src/ocaml/preprocess/parser_raw.mly" ( _3 :: _1 ) -# 35117 "src/ocaml/preprocess/parser_raw.ml" +# 35773 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35152,7 +35808,7 @@ module Tables = struct let _v : (Parsetree.pattern list) = # 3153 "src/ocaml/preprocess/parser_raw.mly" ( [_3; _1] ) -# 35156 "src/ocaml/preprocess/parser_raw.ml" +# 35812 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35191,7 +35847,7 @@ module Tables = struct let _v : (Parsetree.pattern list) = # 3152 "src/ocaml/preprocess/parser_raw.mly" ( _3 :: _1 ) -# 35195 "src/ocaml/preprocess/parser_raw.ml" +# 35851 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35230,7 +35886,7 @@ module Tables = struct let _v : (Parsetree.pattern list) = # 3153 "src/ocaml/preprocess/parser_raw.mly" ( [_3; _1] ) -# 35234 "src/ocaml/preprocess/parser_raw.ml" +# 35890 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35255,7 +35911,7 @@ module Tables = struct let _v : (Parsetree.pattern) = # 3054 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35259 "src/ocaml/preprocess/parser_raw.ml" +# 35915 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35284,39 +35940,41 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.pattern) = let _1 = + let _v = let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 35297 "src/ocaml/preprocess/parser_raw.ml" +# 35954 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3057 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_construct(_1, Some ([], _2)) ) -# 35303 "src/ocaml/preprocess/parser_raw.ml" +# 35960 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 35313 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 35970 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3063 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35319 "src/ocaml/preprocess/parser_raw.ml" - in +# 35976 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35372,44 +36030,46 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_pat_ in - let _v : (Parsetree.pattern) = let _1 = + let _v = let _1 = - let newtypes = + let _1 = + let newtypes = # 2774 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 35381 "src/ocaml/preprocess/parser_raw.ml" - in - let constr = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 36040 "src/ocaml/preprocess/parser_raw.ml" + in + let constr = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 35390 "src/ocaml/preprocess/parser_raw.ml" +# 36049 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3060 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_construct(constr, Some (newtypes, pat)) ) -# 35396 "src/ocaml/preprocess/parser_raw.ml" +# 36055 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_pat_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_pat_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 35406 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 36065 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3063 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35412 "src/ocaml/preprocess/parser_raw.ml" - in +# 36071 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35437,27 +36097,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.pattern) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3062 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_variant(_1, Some _2) ) -# 35445 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 36106 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 35454 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 36115 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3063 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35460 "src/ocaml/preprocess/parser_raw.ml" - in +# 36121 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35499,30 +36161,32 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.pattern) = let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _v = let _2 = - let _1 = _1_inlined1 in - + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35510 "src/ocaml/preprocess/parser_raw.ml" +# 36173 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 35516 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 36179 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3065 "src/ocaml/preprocess/parser_raw.mly" ( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2) -# 35525 "src/ocaml/preprocess/parser_raw.ml" - in +# 36188 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35557,22 +36221,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.pattern) = let _1 = - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _loc__2_ = (_startpos__2_, _endpos__2_) in - let _sloc = (_symbolstartpos, _endpos) in - + 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 + # 3031 "src/ocaml/preprocess/parser_raw.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 35569 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 36234 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3026 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35575 "src/ocaml/preprocess/parser_raw.ml" - in +# 36240 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35600,16 +36266,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.pattern) = let _1 = + let _v = + let _1 = # 3033 "src/ocaml/preprocess/parser_raw.mly" ( Pat.attr _1 _2 ) -# 35607 "src/ocaml/preprocess/parser_raw.ml" - in - +# 36274 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3026 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35612 "src/ocaml/preprocess/parser_raw.ml" - in +# 36279 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35630,16 +36298,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = + let _v = + let _1 = # 3035 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35637 "src/ocaml/preprocess/parser_raw.ml" - in - +# 36306 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3026 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35642 "src/ocaml/preprocess/parser_raw.ml" - in +# 36311 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35674,47 +36344,49 @@ 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 : (Parsetree.pattern) = let _1 = + let _v = 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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 35689 "src/ocaml/preprocess/parser_raw.ml" +# 36360 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3038 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_alias(_1, _3) ) -# 35695 "src/ocaml/preprocess/parser_raw.ml" +# 36366 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 35705 "src/ocaml/preprocess/parser_raw.ml" +# 36376 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3049 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35711 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 36382 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3026 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35717 "src/ocaml/preprocess/parser_raw.ml" - in +# 36388 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35735,33 +36407,35 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = + let _v = let _1 = - let _1 = + let _1 = + let _1 = # 3042 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_tuple(List.rev _1) ) -# 35744 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 36417 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 35752 "src/ocaml/preprocess/parser_raw.ml" +# 36425 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3049 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35758 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 36431 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3026 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35764 "src/ocaml/preprocess/parser_raw.ml" - in +# 36437 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35796,34 +36470,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 : (Parsetree.pattern) = let _1 = + let _v = let _1 = - let _1 = + let _1 = + let _1 = # 3046 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_or(_1, _3) ) -# 35805 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 36480 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 35814 "src/ocaml/preprocess/parser_raw.ml" +# 36489 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3049 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35820 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 36495 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3026 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35826 "src/ocaml/preprocess/parser_raw.ml" - in +# 36501 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35843,43 +36519,45 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 35847 "src/ocaml/preprocess/parser_raw.ml" +# 36523 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = + let _v = let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 35861 "src/ocaml/preprocess/parser_raw.ml" +# 36538 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2450 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_var _1 ) -# 35867 "src/ocaml/preprocess/parser_raw.ml" +# 36544 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 35876 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 36553 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2452 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35882 "src/ocaml/preprocess/parser_raw.ml" - in +# 36559 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35900,26 +36578,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2451 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_any ) -# 35908 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 36587 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 35916 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 36595 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2452 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 35922 "src/ocaml/preprocess/parser_raw.ml" - in +# 36601 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -35943,7 +36623,7 @@ module Tables = struct let _v : (Parsetree.payload) = # 4253 "src/ocaml/preprocess/parser_raw.mly" ( PStr _1 ) -# 35947 "src/ocaml/preprocess/parser_raw.ml" +# 36627 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35975,7 +36655,7 @@ module Tables = struct let _v : (Parsetree.payload) = # 4254 "src/ocaml/preprocess/parser_raw.mly" ( PSig _2 ) -# 35979 "src/ocaml/preprocess/parser_raw.ml" +# 36659 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36007,7 +36687,7 @@ module Tables = struct let _v : (Parsetree.payload) = # 4255 "src/ocaml/preprocess/parser_raw.mly" ( PTyp _2 ) -# 36011 "src/ocaml/preprocess/parser_raw.ml" +# 36691 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36039,7 +36719,7 @@ module Tables = struct let _v : (Parsetree.payload) = # 4256 "src/ocaml/preprocess/parser_raw.mly" ( PPat (_2, None) ) -# 36043 "src/ocaml/preprocess/parser_raw.ml" +# 36723 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36085,7 +36765,7 @@ module Tables = struct let _v : (Parsetree.payload) = # 4257 "src/ocaml/preprocess/parser_raw.mly" ( PPat (_2, Some _4) ) -# 36089 "src/ocaml/preprocess/parser_raw.ml" +# 36769 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36110,7 +36790,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 3590 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36114 "src/ocaml/preprocess/parser_raw.ml" +# 36794 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36146,48 +36826,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = let _1 = let _1 = - let xs = -# 253 "" + let _1 = + let xs = +# 264 "" ( List.rev xs ) -# 36157 "src/ocaml/preprocess/parser_raw.ml" - in - +# 36838 "src/ocaml/preprocess/parser_raw.ml" + in + # 1129 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 36162 "src/ocaml/preprocess/parser_raw.ml" +# 36843 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3582 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36168 "src/ocaml/preprocess/parser_raw.ml" +# 36849 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3586 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_poly(_1, _3) ) -# 36174 "src/ocaml/preprocess/parser_raw.ml" +# 36855 "src/ocaml/preprocess/parser_raw.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 - 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 - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 36184 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 36865 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3592 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36190 "src/ocaml/preprocess/parser_raw.ml" - in +# 36871 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36208,16 +36890,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = + let _1 = # 3621 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36215 "src/ocaml/preprocess/parser_raw.ml" - in - +# 36898 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 3590 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36220 "src/ocaml/preprocess/parser_raw.ml" - in +# 36903 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36252,53 +36936,55 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let _3 = + let _1 = + let _3 = # 3621 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36261 "src/ocaml/preprocess/parser_raw.ml" - in - let _1 = +# 36946 "src/ocaml/preprocess/parser_raw.ml" + in let _1 = - let xs = -# 253 "" + let _1 = + let xs = +# 264 "" ( List.rev xs ) -# 36268 "src/ocaml/preprocess/parser_raw.ml" - in - +# 36953 "src/ocaml/preprocess/parser_raw.ml" + in + # 1129 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 36273 "src/ocaml/preprocess/parser_raw.ml" +# 36958 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3582 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36279 "src/ocaml/preprocess/parser_raw.ml" +# 36964 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3586 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_poly(_1, _3) ) -# 36285 "src/ocaml/preprocess/parser_raw.ml" +# 36970 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_xs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos__1_ = _startpos_xs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 36295 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 36980 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3592 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36301 "src/ocaml/preprocess/parser_raw.ml" - in +# 36986 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36340,14 +37026,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.attribute) = let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 4214 "src/ocaml/preprocess/parser_raw.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 36350 "src/ocaml/preprocess/parser_raw.ml" - in +# 37037 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.attribute)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36424,46 +37112,48 @@ 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 : (Parsetree.value_description * string Location.loc option) = let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36433 "src/ocaml/preprocess/parser_raw.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 - +# 37122 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 36445 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 37134 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36453 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 37142 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3216 "src/ocaml/preprocess/parser_raw.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 ) -# 36466 "src/ocaml/preprocess/parser_raw.ml" - in +# 37155 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.value_description * string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36477,16 +37167,18 @@ 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 : (Asttypes.private_flag) = let _1 = + let _v = + let _1 = # 4082 "src/ocaml/preprocess/parser_raw.mly" ( Public ) -# 36484 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37175 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 4079 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36489 "src/ocaml/preprocess/parser_raw.ml" - in +# 37180 "src/ocaml/preprocess/parser_raw.ml" + : (Asttypes.private_flag)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36507,16 +37199,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Asttypes.private_flag) = let _1 = + let _v = + let _1 = # 4083 "src/ocaml/preprocess/parser_raw.mly" ( Private ) -# 36514 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37207 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 4079 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36519 "src/ocaml/preprocess/parser_raw.ml" - in +# 37212 "src/ocaml/preprocess/parser_raw.ml" + : (Asttypes.private_flag)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36533,7 +37227,7 @@ module Tables = struct let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = # 4105 "src/ocaml/preprocess/parser_raw.mly" ( Public, Concrete ) -# 36537 "src/ocaml/preprocess/parser_raw.ml" +# 37231 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36558,7 +37252,7 @@ module Tables = struct let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = # 4106 "src/ocaml/preprocess/parser_raw.mly" ( Private, Concrete ) -# 36562 "src/ocaml/preprocess/parser_raw.ml" +# 37256 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36583,7 +37277,7 @@ module Tables = struct let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = # 4107 "src/ocaml/preprocess/parser_raw.mly" ( Public, Virtual ) -# 36587 "src/ocaml/preprocess/parser_raw.ml" +# 37281 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36615,7 +37309,7 @@ module Tables = struct let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = # 4108 "src/ocaml/preprocess/parser_raw.mly" ( Private, Virtual ) -# 36619 "src/ocaml/preprocess/parser_raw.ml" +# 37313 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36647,7 +37341,7 @@ module Tables = struct let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = # 4109 "src/ocaml/preprocess/parser_raw.mly" ( Private, Virtual ) -# 36651 "src/ocaml/preprocess/parser_raw.ml" +# 37345 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36665,7 +37359,7 @@ module Tables = struct let _v : (Asttypes.rec_flag) = # 4060 "src/ocaml/preprocess/parser_raw.mly" ( Nonrecursive ) -# 36669 "src/ocaml/preprocess/parser_raw.ml" +# 37363 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36690,7 +37384,7 @@ module Tables = struct let _v : (Asttypes.rec_flag) = # 4061 "src/ocaml/preprocess/parser_raw.mly" ( Recursive ) -# 36694 "src/ocaml/preprocess/parser_raw.ml" +# 37388 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36712,17 +37406,19 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_fields_ in let _endpos = _endpos_fields_ in - let _v : (Parsetree.expression option * - (Longident.t Location.loc * Parsetree.expression) list) = let eo = -# 124 "" + let _v = + let eo = +# 123 "" ( None ) -# 36720 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37414 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 2951 "src/ocaml/preprocess/parser_raw.mly" ( eo, fields ) -# 36725 "src/ocaml/preprocess/parser_raw.ml" - in +# 37419 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression option * + (Longident.t Location.loc * Parsetree.expression) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36757,24 +37453,26 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_fields_ in - let _v : (Parsetree.expression option * - (Longident.t Location.loc * Parsetree.expression) list) = let eo = - let x = -# 191 "" + let _v = + let eo = + let x = +# 196 "" ( x ) -# 36766 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37462 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 36771 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 37467 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2951 "src/ocaml/preprocess/parser_raw.mly" ( eo, fields ) -# 36777 "src/ocaml/preprocess/parser_raw.ml" - in +# 37473 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression option * + (Longident.t Location.loc * Parsetree.expression) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36797,19 +37495,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v : (Parsetree.constructor_declaration list) = let x = + let _v = + let x = # 3403 "src/ocaml/preprocess/parser_raw.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 36807 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37506 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1260 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 36812 "src/ocaml/preprocess/parser_raw.ml" - in +# 37511 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.constructor_declaration list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36832,19 +37532,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v : (Parsetree.constructor_declaration list) = let x = + let _v = + let x = # 3403 "src/ocaml/preprocess/parser_raw.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 36842 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37543 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1263 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 36847 "src/ocaml/preprocess/parser_raw.ml" - in +# 37548 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.constructor_declaration list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36874,19 +37576,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in - let _v : (Parsetree.constructor_declaration list) = let x = + let _v = + let x = # 3403 "src/ocaml/preprocess/parser_raw.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 36884 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37587 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1267 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 36889 "src/ocaml/preprocess/parser_raw.ml" - in +# 37592 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.constructor_declaration list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36909,26 +37613,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v : (Parsetree.extension_constructor list) = let x = - let _1 = + let _v = + let x = + let _1 = # 3520 "src/ocaml/preprocess/parser_raw.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 36920 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37625 "src/ocaml/preprocess/parser_raw.ml" + in + # 3514 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36925 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 37630 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1260 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 36931 "src/ocaml/preprocess/parser_raw.ml" - in +# 37636 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension_constructor list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36949,16 +37655,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.extension_constructor list) = let x = + let _v = + let x = # 3516 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36956 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37663 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1260 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 36961 "src/ocaml/preprocess/parser_raw.ml" - in +# 37668 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension_constructor list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -36981,26 +37689,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v : (Parsetree.extension_constructor list) = let x = - let _1 = + let _v = + let x = + let _1 = # 3520 "src/ocaml/preprocess/parser_raw.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 36992 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37701 "src/ocaml/preprocess/parser_raw.ml" + in + # 3514 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 36997 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 37706 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1263 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 37003 "src/ocaml/preprocess/parser_raw.ml" - in +# 37712 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension_constructor list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37021,16 +37731,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.extension_constructor list) = let x = + let _v = + let x = # 3516 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 37028 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37739 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1263 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 37033 "src/ocaml/preprocess/parser_raw.ml" - in +# 37744 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension_constructor list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37060,26 +37772,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in - let _v : (Parsetree.extension_constructor list) = let x = - let _1 = + let _v = + let x = + let _1 = # 3520 "src/ocaml/preprocess/parser_raw.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 37071 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37784 "src/ocaml/preprocess/parser_raw.ml" + in + # 3514 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 37076 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 37789 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1267 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37082 "src/ocaml/preprocess/parser_raw.ml" - in +# 37795 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension_constructor list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37107,16 +37821,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.extension_constructor list) = let x = + let _v = + let x = # 3516 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 37114 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37829 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1267 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37119 "src/ocaml/preprocess/parser_raw.ml" - in +# 37834 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension_constructor list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37139,19 +37855,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v : (Parsetree.extension_constructor list) = let x = + let _v = + let x = # 3520 "src/ocaml/preprocess/parser_raw.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 37149 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37866 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1260 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 37154 "src/ocaml/preprocess/parser_raw.ml" - in +# 37871 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension_constructor list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37174,19 +37892,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in - let _v : (Parsetree.extension_constructor list) = let x = + let _v = + let x = # 3520 "src/ocaml/preprocess/parser_raw.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 37184 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37903 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1263 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 37189 "src/ocaml/preprocess/parser_raw.ml" - in +# 37908 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension_constructor list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37216,19 +37936,21 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in - let _v : (Parsetree.extension_constructor list) = let x = + let _v = + let x = # 3520 "src/ocaml/preprocess/parser_raw.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 37226 "src/ocaml/preprocess/parser_raw.ml" - in - +# 37947 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1267 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37231 "src/ocaml/preprocess/parser_raw.ml" - in +# 37952 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.extension_constructor list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37245,7 +37967,7 @@ module Tables = struct let _v : ((Parsetree.core_type * Parsetree.core_type * Location.t) list) = # 1105 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 37249 "src/ocaml/preprocess/parser_raw.ml" +# 37971 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37295,29 +38017,31 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__3_ in - let _v : ((Parsetree.core_type * Parsetree.core_type * Location.t) list) = let x = + let _v = 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 - + 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 + # 2299 "src/ocaml/preprocess/parser_raw.mly" ( _1, _3, make_loc _sloc ) -# 37308 "src/ocaml/preprocess/parser_raw.ml" +# 38031 "src/ocaml/preprocess/parser_raw.ml" + + in - in - -# 183 "" +# 188 "" ( x ) -# 37314 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 38037 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1107 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37320 "src/ocaml/preprocess/parser_raw.ml" - in +# 38043 "src/ocaml/preprocess/parser_raw.ml" + : ((Parsetree.core_type * Parsetree.core_type * Location.t) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37341,7 +38065,7 @@ module Tables = struct let _v : (Parsetree.function_param list) = # 1138 "src/ocaml/preprocess/parser_raw.mly" ( List.rev x ) -# 37345 "src/ocaml/preprocess/parser_raw.ml" +# 38069 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37373,7 +38097,7 @@ module Tables = struct let _v : (Parsetree.function_param list) = # 1140 "src/ocaml/preprocess/parser_raw.mly" ( List.rev_append x xs ) -# 37377 "src/ocaml/preprocess/parser_raw.ml" +# 38101 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37398,7 +38122,7 @@ module Tables = struct let _v : ((Lexing.position * Parsetree.functor_parameter) list) = # 1119 "src/ocaml/preprocess/parser_raw.mly" ( [ x ] ) -# 37402 "src/ocaml/preprocess/parser_raw.ml" +# 38126 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37430,7 +38154,7 @@ module Tables = struct let _v : ((Lexing.position * Parsetree.functor_parameter) list) = # 1121 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37434 "src/ocaml/preprocess/parser_raw.ml" +# 38158 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37455,7 +38179,7 @@ module Tables = struct let _v : ((Asttypes.arg_label * Parsetree.expression) list) = # 1119 "src/ocaml/preprocess/parser_raw.mly" ( [ x ] ) -# 37459 "src/ocaml/preprocess/parser_raw.ml" +# 38183 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37487,7 +38211,7 @@ module Tables = struct let _v : ((Asttypes.arg_label * Parsetree.expression) list) = # 1121 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37491 "src/ocaml/preprocess/parser_raw.ml" +# 38215 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37512,7 +38236,7 @@ module Tables = struct let _v : (string list) = # 1119 "src/ocaml/preprocess/parser_raw.mly" ( [ x ] ) -# 37516 "src/ocaml/preprocess/parser_raw.ml" +# 38240 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37544,7 +38268,7 @@ module Tables = struct let _v : (string list) = # 1121 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37548 "src/ocaml/preprocess/parser_raw.ml" +# 38272 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37573,21 +38297,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v : (string Location.loc list) = let x = - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let x = + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 3578 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _2 _sloc ) -# 37584 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 38309 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1119 "src/ocaml/preprocess/parser_raw.mly" ( [ x ] ) -# 37590 "src/ocaml/preprocess/parser_raw.ml" - in +# 38315 "src/ocaml/preprocess/parser_raw.ml" + : (string Location.loc list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37622,21 +38348,23 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__2_ in - let _v : (string Location.loc list) = let x = - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let x = + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 3578 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _2 _sloc ) -# 37633 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 38360 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1121 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37639 "src/ocaml/preprocess/parser_raw.ml" - in +# 38366 "src/ocaml/preprocess/parser_raw.ml" + : (string Location.loc list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37657,16 +38385,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.case list) = let _1 = -# 124 "" + let _v = + let _1 = +# 123 "" ( None ) -# 37664 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38393 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1231 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 37669 "src/ocaml/preprocess/parser_raw.ml" - in +# 38398 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.case list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37694,19 +38424,21 @@ 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 : (Parsetree.case list) = let _1 = - let x = x_inlined1 in - + let _v = + let _1 = + let x = x_inlined1 in + # 126 "" ( Some x ) -# 37703 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 38434 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1231 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 37709 "src/ocaml/preprocess/parser_raw.ml" - in +# 38440 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.case list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37744,7 +38476,7 @@ module Tables = struct let _v : (Parsetree.case list) = # 1235 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37748 "src/ocaml/preprocess/parser_raw.ml" +# 38480 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37766,23 +38498,25 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.core_type list) = let xs = - let x = + let _v = + let xs = + let x = # 3621 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 37774 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38507 "src/ocaml/preprocess/parser_raw.ml" + in + # 1166 "src/ocaml/preprocess/parser_raw.mly" ( [ x ] ) -# 37779 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 38512 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 37785 "src/ocaml/preprocess/parser_raw.ml" - in +# 38518 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37817,23 +38551,25 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.core_type list) = let xs = - let x = + let _v = + let xs = + let x = # 3621 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 37825 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38560 "src/ocaml/preprocess/parser_raw.ml" + in + # 1170 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37830 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 38565 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 37836 "src/ocaml/preprocess/parser_raw.ml" - in +# 38571 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37854,16 +38590,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.with_constraint list) = let xs = + let _v = + let xs = # 1166 "src/ocaml/preprocess/parser_raw.mly" ( [ x ] ) -# 37861 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38598 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 37866 "src/ocaml/preprocess/parser_raw.ml" - in +# 38603 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.with_constraint list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37898,16 +38636,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.with_constraint list) = let xs = + let _v = + let xs = # 1170 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37905 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38644 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 37910 "src/ocaml/preprocess/parser_raw.ml" - in +# 38649 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.with_constraint list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37928,16 +38668,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.row_field list) = let xs = + let _v = + let xs = # 1166 "src/ocaml/preprocess/parser_raw.mly" ( [ x ] ) -# 37935 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38676 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 37940 "src/ocaml/preprocess/parser_raw.ml" - in +# 38681 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.row_field list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -37972,16 +38714,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.row_field list) = let xs = + let _v = + let xs = # 1170 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 37979 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38722 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 37984 "src/ocaml/preprocess/parser_raw.ml" - in +# 38727 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.row_field list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38002,16 +38746,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.core_type list) = let xs = + let _v = + let xs = # 1166 "src/ocaml/preprocess/parser_raw.mly" ( [ x ] ) -# 38009 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38754 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38014 "src/ocaml/preprocess/parser_raw.ml" - in +# 38759 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38046,16 +38792,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.core_type list) = let xs = + let _v = + let xs = # 1170 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 38053 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38800 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38058 "src/ocaml/preprocess/parser_raw.ml" - in +# 38805 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38076,16 +38824,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = + let _v = + let xs = # 1166 "src/ocaml/preprocess/parser_raw.mly" ( [ x ] ) -# 38083 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38832 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38088 "src/ocaml/preprocess/parser_raw.ml" - in +# 38837 "src/ocaml/preprocess/parser_raw.ml" + : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38120,16 +38870,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in - let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = + let _v = + let xs = # 1170 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 38127 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38878 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38132 "src/ocaml/preprocess/parser_raw.ml" - in +# 38883 "src/ocaml/preprocess/parser_raw.ml" + : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38150,16 +38902,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.core_type list) = let xs = + let _v = + let xs = # 1166 "src/ocaml/preprocess/parser_raw.mly" ( [ x ] ) -# 38157 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38910 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38162 "src/ocaml/preprocess/parser_raw.ml" - in +# 38915 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38194,16 +38948,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.core_type list) = let xs = + let _v = + let xs = # 1170 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 38201 "src/ocaml/preprocess/parser_raw.ml" - in - +# 38956 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1174 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38206 "src/ocaml/preprocess/parser_raw.ml" - in +# 38961 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38241,7 +38997,7 @@ module Tables = struct let _v : (Parsetree.core_type list) = # 1197 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 38245 "src/ocaml/preprocess/parser_raw.ml" +# 39001 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38280,7 +39036,7 @@ module Tables = struct let _v : (Parsetree.core_type list) = # 1201 "src/ocaml/preprocess/parser_raw.mly" ( [ x2; x1 ] ) -# 38284 "src/ocaml/preprocess/parser_raw.ml" +# 39040 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38316,23 +39072,25 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.expression list) = let x = - let _1 = + let _v = + let x = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38324 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39081 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38329 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 39086 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1197 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 38335 "src/ocaml/preprocess/parser_raw.ml" - in +# 39092 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38388,49 +39146,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_inlined1_ in - let _v : (Parsetree.expression list) = let x = - let (_endpos_xs_, xs) = (_endpos_xs_inlined1_, xs_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let x = + let (_endpos_xs_, xs) = (_endpos_xs_inlined1_, xs_inlined1) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 38400 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39159 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38405 "src/ocaml/preprocess/parser_raw.ml" +# 39164 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38411 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 39170 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38422 "src/ocaml/preprocess/parser_raw.ml" +# 39181 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 38428 "src/ocaml/preprocess/parser_raw.ml" +# 39187 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -38444,20 +39203,21 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 38448 "src/ocaml/preprocess/parser_raw.ml" +# 39207 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38454 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 39213 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1197 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 38460 "src/ocaml/preprocess/parser_raw.ml" - in +# 39219 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38492,36 +39252,38 @@ 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 : (Parsetree.expression list) = let x2 = - let _1 = _1_inlined1 in - let _1 = + let _v = + let x2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38501 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39262 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38506 "src/ocaml/preprocess/parser_raw.ml" - - in - let x1 = - let _1 = +# 39267 "src/ocaml/preprocess/parser_raw.ml" + + in + let x1 = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38513 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39274 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38518 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 39279 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1201 "src/ocaml/preprocess/parser_raw.mly" ( [ x2; x1 ] ) -# 38524 "src/ocaml/preprocess/parser_raw.ml" - in +# 39285 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38577,49 +39339,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 : (Parsetree.expression list) = let x2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let x2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 38589 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39352 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38594 "src/ocaml/preprocess/parser_raw.ml" +# 39357 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38600 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 39363 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38611 "src/ocaml/preprocess/parser_raw.ml" +# 39374 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 38617 "src/ocaml/preprocess/parser_raw.ml" +# 39380 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -38633,32 +39396,33 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 38637 "src/ocaml/preprocess/parser_raw.ml" +# 39400 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38643 "src/ocaml/preprocess/parser_raw.ml" - - in - let x1 = - let _1 = +# 39406 "src/ocaml/preprocess/parser_raw.ml" + + in + let x1 = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38650 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39413 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38655 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 39418 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1201 "src/ocaml/preprocess/parser_raw.mly" ( [ x2; x1 ] ) -# 38661 "src/ocaml/preprocess/parser_raw.ml" - in +# 39424 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38714,61 +39478,62 @@ 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 : (Parsetree.expression list) = let x2 = - let _1 = _1_inlined3 in - let _1 = + let _v = + let x2 = + let _1 = _1_inlined3 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38723 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39488 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38728 "src/ocaml/preprocess/parser_raw.ml" - - in - let x1 = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" +# 39493 "src/ocaml/preprocess/parser_raw.ml" + + in + let x1 = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 38738 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39503 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38743 "src/ocaml/preprocess/parser_raw.ml" +# 39508 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38749 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 39514 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38760 "src/ocaml/preprocess/parser_raw.ml" +# 39525 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 38766 "src/ocaml/preprocess/parser_raw.ml" +# 39531 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -38782,20 +39547,21 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 38786 "src/ocaml/preprocess/parser_raw.ml" +# 39551 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38792 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 39557 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1201 "src/ocaml/preprocess/parser_raw.mly" ( [ x2; x1 ] ) -# 38798 "src/ocaml/preprocess/parser_raw.ml" - in +# 39563 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -38872,49 +39638,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_inlined1_ in - let _v : (Parsetree.expression list) = let x2 = - let (_endpos_xs_, _startpos__1_, xs, _1_inlined2, _1_inlined1, _1) = (_endpos_xs_inlined1_, _startpos__1_inlined3_, xs_inlined1, _1_inlined5, _1_inlined4, _1_inlined3) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let x2 = + let (_endpos_xs_, _startpos__1_, xs, _1_inlined2, _1_inlined1) = (_endpos_xs_inlined1_, _startpos__1_inlined3_, xs_inlined1, _1_inlined5, _1_inlined4) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 38884 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39651 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38889 "src/ocaml/preprocess/parser_raw.ml" +# 39656 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38895 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 39662 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38906 "src/ocaml/preprocess/parser_raw.ml" +# 39673 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 38912 "src/ocaml/preprocess/parser_raw.ml" +# 39679 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -38928,57 +39695,57 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 38932 "src/ocaml/preprocess/parser_raw.ml" +# 39699 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38938 "src/ocaml/preprocess/parser_raw.ml" - - in - let x1 = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" +# 39705 "src/ocaml/preprocess/parser_raw.ml" + + in + let x1 = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 38948 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39715 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38953 "src/ocaml/preprocess/parser_raw.ml" +# 39720 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 38959 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 39726 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 38970 "src/ocaml/preprocess/parser_raw.ml" +# 39737 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 38976 "src/ocaml/preprocess/parser_raw.ml" +# 39743 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -38992,20 +39759,21 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 38996 "src/ocaml/preprocess/parser_raw.ml" +# 39763 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39002 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 39769 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1201 "src/ocaml/preprocess/parser_raw.mly" ( [ x2; x1 ] ) -# 39008 "src/ocaml/preprocess/parser_raw.ml" - in +# 39775 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39043,7 +39811,7 @@ module Tables = struct let _v : (Parsetree.core_type list) = # 1197 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 39047 "src/ocaml/preprocess/parser_raw.ml" +# 39815 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39082,7 +39850,7 @@ module Tables = struct let _v : (Parsetree.core_type list) = # 1201 "src/ocaml/preprocess/parser_raw.mly" ( [ x2; x1 ] ) -# 39086 "src/ocaml/preprocess/parser_raw.ml" +# 39854 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39107,7 +39875,7 @@ module Tables = struct let _v : (Parsetree.row_field) = # 3817 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39111 "src/ocaml/preprocess/parser_raw.ml" +# 39879 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39129,14 +39897,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 : (Parsetree.row_field) = let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3819 "src/ocaml/preprocess/parser_raw.mly" ( Rf.inherit_ ~loc:(make_loc _sloc) _1 ) -# 39139 "src/ocaml/preprocess/parser_raw.ml" - in +# 39908 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.row_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39157,28 +39927,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.expression list) = let _2 = -# 124 "" + let _v = + let _2 = +# 123 "" ( None ) -# 39164 "src/ocaml/preprocess/parser_raw.ml" - in - let x = - let _1 = +# 39935 "src/ocaml/preprocess/parser_raw.ml" + in + let x = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39170 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39941 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39175 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 39946 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1218 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 39181 "src/ocaml/preprocess/parser_raw.ml" - in +# 39952 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39206,28 +39978,30 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.expression list) = let _2 = + let _v = + let _2 = # 126 "" ( Some x ) -# 39213 "src/ocaml/preprocess/parser_raw.ml" - in - let x = - let _1 = +# 39986 "src/ocaml/preprocess/parser_raw.ml" + in + let x = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39219 "src/ocaml/preprocess/parser_raw.ml" - in - +# 39992 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39224 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 39997 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1218 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 39230 "src/ocaml/preprocess/parser_raw.ml" - in +# 40003 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39269,53 +40043,54 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression list) = let _2 = -# 124 "" + let _v = + let _2 = +# 123 "" ( None ) -# 39276 "src/ocaml/preprocess/parser_raw.ml" - in - let x = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" +# 40051 "src/ocaml/preprocess/parser_raw.ml" + in + let x = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 39285 "src/ocaml/preprocess/parser_raw.ml" - in - +# 40060 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 39290 "src/ocaml/preprocess/parser_raw.ml" +# 40065 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 39296 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 40071 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39307 "src/ocaml/preprocess/parser_raw.ml" +# 40082 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 39313 "src/ocaml/preprocess/parser_raw.ml" +# 40088 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -39329,20 +40104,21 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 39333 "src/ocaml/preprocess/parser_raw.ml" +# 40108 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39339 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 40114 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1218 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 39345 "src/ocaml/preprocess/parser_raw.ml" - in +# 40120 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39391,53 +40167,54 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.expression list) = let _2 = + let _v = + let _2 = # 126 "" ( Some x ) -# 39398 "src/ocaml/preprocess/parser_raw.ml" - in - let x = - let _1 = - let _3 = - let xs = - let xs = -# 253 "" +# 40175 "src/ocaml/preprocess/parser_raw.ml" + in + let x = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 39407 "src/ocaml/preprocess/parser_raw.ml" - in - +# 40184 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 39412 "src/ocaml/preprocess/parser_raw.ml" +# 40189 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 39418 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 40195 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39429 "src/ocaml/preprocess/parser_raw.ml" +# 40206 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 39435 "src/ocaml/preprocess/parser_raw.ml" +# 40212 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -39451,20 +40228,21 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 39455 "src/ocaml/preprocess/parser_raw.ml" +# 40232 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39461 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 40238 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1218 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 39467 "src/ocaml/preprocess/parser_raw.ml" - in +# 40244 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39499,23 +40277,25 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression list) = let x = - let _1 = + let _v = + let x = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39507 "src/ocaml/preprocess/parser_raw.ml" - in - +# 40286 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39512 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 40291 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1222 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 39518 "src/ocaml/preprocess/parser_raw.ml" - in +# 40297 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39571,49 +40351,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 : (Parsetree.expression list) = let x = - let (_endpos_xs_, xs) = (_endpos_xs_inlined1_, xs_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let x = + let (_endpos_xs_, xs) = (_endpos_xs_inlined1_, xs_inlined1) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 39583 "src/ocaml/preprocess/parser_raw.ml" - in - +# 40364 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 39588 "src/ocaml/preprocess/parser_raw.ml" +# 40369 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 39594 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 40375 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39605 "src/ocaml/preprocess/parser_raw.ml" +# 40386 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 39611 "src/ocaml/preprocess/parser_raw.ml" +# 40392 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -39627,20 +40408,21 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 39631 "src/ocaml/preprocess/parser_raw.ml" +# 40412 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39637 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 40418 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1222 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 39643 "src/ocaml/preprocess/parser_raw.ml" - in +# 40424 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39667,33 +40449,34 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 39671 "src/ocaml/preprocess/parser_raw.ml" +# 40453 "src/ocaml/preprocess/parser_raw.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 : ((string Location.loc * Parsetree.expression) list) = let _2 = -# 124 "" + let _v = + let _2 = +# 123 "" ( None ) -# 39679 "src/ocaml/preprocess/parser_raw.ml" - in - let x = - let label = - let _1 = +# 40462 "src/ocaml/preprocess/parser_raw.ml" + in + let x = + let label = + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39686 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 40469 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 39694 "src/ocaml/preprocess/parser_raw.ml" +# 40477 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2974 "src/ocaml/preprocess/parser_raw.mly" ( let label, e = match oe with @@ -39704,14 +40487,15 @@ module Tables = struct label, e in label, e ) -# 39708 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 40491 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1218 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 39714 "src/ocaml/preprocess/parser_raw.ml" - in +# 40497 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Parsetree.expression) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39745,33 +40529,34 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 39749 "src/ocaml/preprocess/parser_raw.ml" +# 40533 "src/ocaml/preprocess/parser_raw.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 : ((string Location.loc * Parsetree.expression) list) = let _2 = + let _v = + let _2 = # 126 "" ( Some x ) -# 39757 "src/ocaml/preprocess/parser_raw.ml" - in - let x = - let label = - let _1 = +# 40542 "src/ocaml/preprocess/parser_raw.ml" + in + let x = + let label = + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39764 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 40549 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 39772 "src/ocaml/preprocess/parser_raw.ml" +# 40557 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2974 "src/ocaml/preprocess/parser_raw.mly" ( let label, e = match oe with @@ -39782,14 +40567,15 @@ module Tables = struct label, e in label, e ) -# 39786 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 40571 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1218 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 39792 "src/ocaml/preprocess/parser_raw.ml" - in +# 40577 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Parsetree.expression) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39830,28 +40616,29 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 39834 "src/ocaml/preprocess/parser_raw.ml" +# 40620 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : ((string Location.loc * Parsetree.expression) list) = let x = - let label = - let _1 = + let _v = + let x = + let label = + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 39844 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 40631 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 39852 "src/ocaml/preprocess/parser_raw.ml" +# 40639 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2974 "src/ocaml/preprocess/parser_raw.mly" ( let label, e = match oe with @@ -39862,14 +40649,15 @@ module Tables = struct label, e in label, e ) -# 39866 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 40653 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1222 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 39872 "src/ocaml/preprocess/parser_raw.ml" - in +# 40659 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Parsetree.expression) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39890,16 +40678,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in - let _v : (Parsetree.pattern list) = let _2 = -# 124 "" + let _v = + let _2 = +# 123 "" ( None ) -# 39897 "src/ocaml/preprocess/parser_raw.ml" - in - +# 40686 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 1218 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 39902 "src/ocaml/preprocess/parser_raw.ml" - in +# 40691 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39927,19 +40717,21 @@ 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 : (Parsetree.pattern list) = let _2 = - let x = x_inlined1 in - + let _v = + let _2 = + let x = x_inlined1 in + # 126 "" ( Some x ) -# 39936 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 40727 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1218 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 39942 "src/ocaml/preprocess/parser_raw.ml" - in +# 40733 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -39977,7 +40769,7 @@ module Tables = struct let _v : (Parsetree.pattern list) = # 1222 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 39981 "src/ocaml/preprocess/parser_raw.ml" +# 40773 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40013,27 +40805,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 : ((Longident.t Location.loc * Parsetree.expression) list) = let _2 = -# 124 "" + let _v = + let _2 = +# 123 "" ( None ) -# 40020 "src/ocaml/preprocess/parser_raw.ml" - in - let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 40813 "src/ocaml/preprocess/parser_raw.ml" + in + let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 40030 "src/ocaml/preprocess/parser_raw.ml" +# 40823 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_eo_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_eo_ in - let _symbolstartpos = _startpos_label_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2957 "src/ocaml/preprocess/parser_raw.mly" ( let constraint_loc, label, e = match eo with @@ -40044,14 +40837,15 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 40048 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 40841 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1218 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 40054 "src/ocaml/preprocess/parser_raw.ml" - in +# 40847 "src/ocaml/preprocess/parser_raw.ml" + : ((Longident.t Location.loc * Parsetree.expression) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40093,27 +40887,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 : ((Longident.t Location.loc * Parsetree.expression) list) = let _2 = + let _v = + let _2 = # 126 "" ( Some x ) -# 40100 "src/ocaml/preprocess/parser_raw.ml" - in - let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 40895 "src/ocaml/preprocess/parser_raw.ml" + in + let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 40110 "src/ocaml/preprocess/parser_raw.ml" +# 40905 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_eo_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_eo_ in - let _symbolstartpos = _startpos_label_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2957 "src/ocaml/preprocess/parser_raw.mly" ( let constraint_loc, label, e = match eo with @@ -40124,14 +40919,15 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 40128 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 40923 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1218 "src/ocaml/preprocess/parser_raw.mly" ( [x] ) -# 40134 "src/ocaml/preprocess/parser_raw.ml" - in +# 40929 "src/ocaml/preprocess/parser_raw.ml" + : ((Longident.t Location.loc * Parsetree.expression) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40180,22 +40976,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 : ((Longident.t Location.loc * Parsetree.expression) list) = let x = - let label = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let x = + let label = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 40192 "src/ocaml/preprocess/parser_raw.ml" +# 40989 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_label_ = _startpos__1_ in + let _endpos = _endpos_eo_ in + let _symbolstartpos = _startpos_label_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos_label_ = _startpos__1_ in - let _endpos = _endpos_eo_ in - let _symbolstartpos = _startpos_label_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2957 "src/ocaml/preprocess/parser_raw.mly" ( let constraint_loc, label, e = match eo with @@ -40206,14 +41003,15 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 40210 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 41007 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1222 "src/ocaml/preprocess/parser_raw.mly" ( x :: xs ) -# 40216 "src/ocaml/preprocess/parser_raw.ml" - in +# 41013 "src/ocaml/preprocess/parser_raw.ml" + : ((Longident.t Location.loc * Parsetree.expression) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40234,16 +41032,18 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40241 "src/ocaml/preprocess/parser_raw.ml" - in - +# 41040 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 2427 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40246 "src/ocaml/preprocess/parser_raw.ml" - in +# 41045 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40285,47 +41085,48 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.expression) = let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 40295 "src/ocaml/preprocess/parser_raw.ml" - in - +# 41096 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 40300 "src/ocaml/preprocess/parser_raw.ml" +# 41101 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 40306 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 41107 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40317 "src/ocaml/preprocess/parser_raw.ml" +# 41118 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 40323 "src/ocaml/preprocess/parser_raw.ml" +# 41124 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -40339,14 +41140,15 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 40343 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 41144 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2427 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40349 "src/ocaml/preprocess/parser_raw.ml" - in +# 41150 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40410,48 +41212,49 @@ 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 : (Parsetree.type_exception * string Location.loc option) = let attrs = - let _1 = _1_inlined4 in - + let _v = + let attrs = + let _1 = _1_inlined4 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40419 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs_ = _endpos__1_inlined4_ in - let attrs2 = - let _1 = _1_inlined3 in - +# 41222 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs_ = _endpos__1_inlined4_ in + let attrs2 = + let _1 = _1_inlined3 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40428 "src/ocaml/preprocess/parser_raw.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 - +# 41231 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 40440 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 41243 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40448 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs_ in - let _startpos = _startpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 41251 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs_ in + let _startpos = _startpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3433 "src/ocaml/preprocess/parser_raw.mly" ( let vars, args, res = vars_args_res in let loc = make_loc (_startpos, _endpos_attrs2_) in @@ -40459,8 +41262,9 @@ module Tables = struct Te.mk_exception ~attrs (Te.decl id ~vars ~args ?res ~attrs:(attrs1 @ attrs2) ~loc ~docs) , ext ) -# 40463 "src/ocaml/preprocess/parser_raw.ml" - in +# 41266 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_exception * string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40481,26 +41285,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos_xss_ in - let _v : (Parsetree.signature) = let _1 = - let _1 = -# 260 "" + let _v = + let _1 = + let _1 = +# 271 "" ( List.flatten xss ) -# 40489 "src/ocaml/preprocess/parser_raw.ml" - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - +# 41294 "src/ocaml/preprocess/parser_raw.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + # 1020 "src/ocaml/preprocess/parser_raw.mly" ( extra_sig _startpos _endpos _1 ) -# 40497 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 41302 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1823 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40503 "src/ocaml/preprocess/parser_raw.ml" - in +# 41308 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40528,24 +41334,26 @@ 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 : (Parsetree.signature_item) = let _2 = - let _1 = _1_inlined1 in - + let _v = + let _2 = + let _1 = _1_inlined1 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40537 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__2_ = _endpos__1_inlined1_ in - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 41344 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__2_ = _endpos__1_inlined1_ in + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1838 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in mksig ~loc:_sloc (Psig_extension (_1, (add_docs_attrs docs _2))) ) -# 40548 "src/ocaml/preprocess/parser_raw.ml" - in +# 41355 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40566,26 +41374,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.signature_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1842 "src/ocaml/preprocess/parser_raw.mly" ( Psig_attribute _1 ) -# 40574 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 41383 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1068 "src/ocaml/preprocess/parser_raw.mly" ( mksig ~loc:_sloc _1 ) -# 40582 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 41391 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1844 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40588 "src/ocaml/preprocess/parser_raw.ml" - in +# 41397 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40606,26 +41416,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.signature_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1847 "src/ocaml/preprocess/parser_raw.mly" ( psig_value _1 ) -# 40614 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 41425 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 40622 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 41433 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40628 "src/ocaml/preprocess/parser_raw.ml" - in +# 41439 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40646,26 +41458,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.signature_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1849 "src/ocaml/preprocess/parser_raw.mly" ( psig_value _1 ) -# 40654 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 41467 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 40662 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 41475 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40668 "src/ocaml/preprocess/parser_raw.ml" - in +# 41481 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40694,48 +41508,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_a_ in let _endpos = _endpos_bs_ in - let _v : (Parsetree.signature_item) = let _1 = + let _v = let _1 = let _1 = let _1 = - let _1 = + let _1 = + let _1 = # 1279 "src/ocaml/preprocess/parser_raw.mly" ( let (x, b) = a in x, b :: bs ) -# 40705 "src/ocaml/preprocess/parser_raw.ml" - in - +# 41520 "src/ocaml/preprocess/parser_raw.ml" + in + # 3252 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40710 "src/ocaml/preprocess/parser_raw.ml" +# 41525 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3235 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40716 "src/ocaml/preprocess/parser_raw.ml" +# 41531 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1851 "src/ocaml/preprocess/parser_raw.mly" ( psig_type _1 ) -# 40722 "src/ocaml/preprocess/parser_raw.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 - +# 41537 "src/ocaml/preprocess/parser_raw.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 + # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 40732 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 41547 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40738 "src/ocaml/preprocess/parser_raw.ml" - in +# 41553 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40764,48 +41580,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_a_ in let _endpos = _endpos_bs_ in - let _v : (Parsetree.signature_item) = let _1 = + let _v = let _1 = let _1 = let _1 = - let _1 = + let _1 = + let _1 = # 1279 "src/ocaml/preprocess/parser_raw.mly" ( let (x, b) = a in x, b :: bs ) -# 40775 "src/ocaml/preprocess/parser_raw.ml" - in - +# 41592 "src/ocaml/preprocess/parser_raw.ml" + in + # 3252 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40780 "src/ocaml/preprocess/parser_raw.ml" +# 41597 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3240 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40786 "src/ocaml/preprocess/parser_raw.ml" +# 41603 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1853 "src/ocaml/preprocess/parser_raw.mly" ( psig_typesubst _1 ) -# 40792 "src/ocaml/preprocess/parser_raw.ml" +# 41609 "src/ocaml/preprocess/parser_raw.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 - 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 - # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 40802 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 41619 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40808 "src/ocaml/preprocess/parser_raw.ml" - in +# 41625 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -40882,87 +41700,89 @@ 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 : (Parsetree.signature_item) = let _1 = + let _v = let _1 = let _1 = let _1 = - let attrs2 = - let _1 = _1_inlined3 in - + let _1 = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40895 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let cs = +# 41714 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let cs = # 1271 "src/ocaml/preprocess/parser_raw.mly" ( List.rev xs ) -# 40902 "src/ocaml/preprocess/parser_raw.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 - +# 41721 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 40912 "src/ocaml/preprocess/parser_raw.ml" - - in - let _4 = +# 41731 "src/ocaml/preprocess/parser_raw.ml" + + in + let _4 = # 4068 "src/ocaml/preprocess/parser_raw.mly" ( Recursive ) -# 40918 "src/ocaml/preprocess/parser_raw.ml" - in - let attrs1 = - let _1 = _1_inlined1 in - +# 41737 "src/ocaml/preprocess/parser_raw.ml" + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40925 "src/ocaml/preprocess/parser_raw.ml" +# 41744 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3507 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 40937 "src/ocaml/preprocess/parser_raw.ml" +# 41756 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3494 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40943 "src/ocaml/preprocess/parser_raw.ml" +# 41762 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1855 "src/ocaml/preprocess/parser_raw.mly" ( psig_typext _1 ) -# 40949 "src/ocaml/preprocess/parser_raw.ml" +# 41768 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 40959 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 41778 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 40965 "src/ocaml/preprocess/parser_raw.ml" - in +# 41784 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41046,93 +41866,95 @@ 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 : (Parsetree.signature_item) = let _1 = + let _v = let _1 = let _1 = let _1 = - let attrs2 = - let _1 = _1_inlined4 in - + let _1 = + let attrs2 = + let _1 = _1_inlined4 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41059 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let cs = +# 41880 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let cs = # 1271 "src/ocaml/preprocess/parser_raw.mly" ( List.rev xs ) -# 41066 "src/ocaml/preprocess/parser_raw.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 - +# 41887 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 41076 "src/ocaml/preprocess/parser_raw.ml" - - in - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - +# 41897 "src/ocaml/preprocess/parser_raw.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 + # 4070 "src/ocaml/preprocess/parser_raw.mly" ( not_expecting _loc "nonrec flag"; Recursive ) -# 41087 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 41908 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41095 "src/ocaml/preprocess/parser_raw.ml" +# 41916 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3507 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 41107 "src/ocaml/preprocess/parser_raw.ml" +# 41928 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3494 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41113 "src/ocaml/preprocess/parser_raw.ml" +# 41934 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1855 "src/ocaml/preprocess/parser_raw.mly" ( psig_typext _1 ) -# 41119 "src/ocaml/preprocess/parser_raw.ml" +# 41940 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 41129 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 41950 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41135 "src/ocaml/preprocess/parser_raw.ml" - in +# 41956 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41153,26 +41975,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.signature_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1857 "src/ocaml/preprocess/parser_raw.mly" ( psig_exception _1 ) -# 41161 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 41984 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 41169 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 41992 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41175 "src/ocaml/preprocess/parser_raw.ml" - in +# 41998 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41228,41 +42052,42 @@ 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 : (Parsetree.signature_item) = let _1 = + let _v = let _1 = let _1 = - let attrs2 = - let _1 = _1_inlined3 in - + let _1 = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41240 "src/ocaml/preprocess/parser_raw.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 - +# 42065 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 41252 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 42077 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41260 "src/ocaml/preprocess/parser_raw.ml" +# 42085 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1888 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -41270,30 +42095,31 @@ module Tables = struct let docs = symbol_docs _sloc in Md.mk name body ~attrs ~loc ~docs, ext ) -# 41274 "src/ocaml/preprocess/parser_raw.ml" +# 42099 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1859 "src/ocaml/preprocess/parser_raw.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 41280 "src/ocaml/preprocess/parser_raw.ml" +# 42105 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 41290 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 42115 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41296 "src/ocaml/preprocess/parser_raw.ml" - in +# 42121 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41356,63 +42182,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 : (Parsetree.signature_item) = let _1 = + let _v = let _1 = let _1 = - let attrs2 = - let _1 = _1_inlined4 in - + let _1 = + let attrs2 = + let _1 = _1_inlined4 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41368 "src/ocaml/preprocess/parser_raw.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 +# 42195 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 41381 "src/ocaml/preprocess/parser_raw.ml" +# 42208 "src/ocaml/preprocess/parser_raw.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 - 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 - # 1929 "src/ocaml/preprocess/parser_raw.mly" ( Mty.alias ~loc:(make_loc _sloc) id ) -# 41391 "src/ocaml/preprocess/parser_raw.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 - +# 42218 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 41402 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 42229 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41410 "src/ocaml/preprocess/parser_raw.ml" +# 42237 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1920 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -41420,30 +42247,31 @@ module Tables = struct let docs = symbol_docs _sloc in Md.mk name body ~attrs ~loc ~docs, ext ) -# 41424 "src/ocaml/preprocess/parser_raw.ml" +# 42251 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1861 "src/ocaml/preprocess/parser_raw.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 41430 "src/ocaml/preprocess/parser_raw.ml" +# 42257 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 41440 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 42267 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41446 "src/ocaml/preprocess/parser_raw.ml" - in +# 42273 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41464,26 +42292,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.signature_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1863 "src/ocaml/preprocess/parser_raw.mly" ( let (body, ext) = _1 in (Psig_modsubst body, ext) ) -# 41472 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 42301 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 41480 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 42309 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41486 "src/ocaml/preprocess/parser_raw.ml" - in +# 42315 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41560,43 +42390,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 : (Parsetree.signature_item) = let _1 = + let _v = let _1 = let _1 = let _1 = - let a = - let attrs2 = - let _1 = _1_inlined3 in - + let _1 = + let a = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41574 "src/ocaml/preprocess/parser_raw.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 - +# 42405 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 41586 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 42417 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41594 "src/ocaml/preprocess/parser_raw.ml" +# 42425 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1965 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -41604,42 +42435,43 @@ module Tables = struct let docs = symbol_docs _sloc in ext, Md.mk name mty ~attrs ~loc ~docs ) -# 41608 "src/ocaml/preprocess/parser_raw.ml" +# 42439 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1279 "src/ocaml/preprocess/parser_raw.mly" ( let (x, b) = a in x, b :: bs ) -# 41614 "src/ocaml/preprocess/parser_raw.ml" +# 42445 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1954 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41620 "src/ocaml/preprocess/parser_raw.ml" +# 42451 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1865 "src/ocaml/preprocess/parser_raw.mly" ( let (ext, l) = _1 in (Psig_recmodule l, ext) ) -# 41626 "src/ocaml/preprocess/parser_raw.ml" +# 42457 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_bs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_bs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 41636 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 42467 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41642 "src/ocaml/preprocess/parser_raw.ml" - in +# 42473 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41660,26 +42492,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.signature_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1867 "src/ocaml/preprocess/parser_raw.mly" ( let (body, ext) = _1 in (Psig_modtype body, ext) ) -# 41668 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 42501 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 41676 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 42509 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41682 "src/ocaml/preprocess/parser_raw.ml" - in +# 42515 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41700,26 +42534,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.signature_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1869 "src/ocaml/preprocess/parser_raw.mly" ( let (body, ext) = _1 in (Psig_modtypesubst body, ext) ) -# 41708 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 42543 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 41716 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 42551 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41722 "src/ocaml/preprocess/parser_raw.ml" - in +# 42557 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41740,26 +42576,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.signature_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1871 "src/ocaml/preprocess/parser_raw.mly" ( let (body, ext) = _1 in (Psig_open body, ext) ) -# 41748 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 42585 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 41756 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 42593 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41762 "src/ocaml/preprocess/parser_raw.ml" - in +# 42599 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41808,30 +42646,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 : (Parsetree.signature_item) = let _1 = + let _v = let _1 = let _1 = - let attrs2 = - let _1 = _1_inlined2 in - + let _1 = + let attrs2 = + let _1 = _1_inlined2 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41820 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined2_ in - let attrs1 = - let _1 = _1_inlined1 in - +# 42659 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined2_ in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41829 "src/ocaml/preprocess/parser_raw.ml" +# 42668 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1705 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -41839,30 +42678,31 @@ module Tables = struct let docs = symbol_docs _sloc in Incl.mk thing ~attrs ~loc ~docs, ext ) -# 41843 "src/ocaml/preprocess/parser_raw.ml" +# 42682 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1873 "src/ocaml/preprocess/parser_raw.mly" ( psig_include _1 ) -# 41849 "src/ocaml/preprocess/parser_raw.ml" +# 42688 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 41859 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 42698 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41865 "src/ocaml/preprocess/parser_raw.ml" - in +# 42704 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -41940,7 +42780,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 41944 "src/ocaml/preprocess/parser_raw.ml" +# 42784 "src/ocaml/preprocess/parser_raw.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 @@ -41950,43 +42790,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 : (Parsetree.signature_item) = let _1 = + let _v = let _1 = let _1 = let _1 = - let a = - let attrs2 = - let _1 = _1_inlined3 in - + let _1 = + let a = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41964 "src/ocaml/preprocess/parser_raw.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 - +# 42805 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 41976 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 42817 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 41984 "src/ocaml/preprocess/parser_raw.ml" +# 42825 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2320 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -41995,42 +42836,43 @@ module Tables = struct ext, Ci.mk id cty ~virt ~params ~attrs ~loc ~docs ) -# 41999 "src/ocaml/preprocess/parser_raw.ml" +# 42840 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1279 "src/ocaml/preprocess/parser_raw.mly" ( let (x, b) = a in x, b :: bs ) -# 42005 "src/ocaml/preprocess/parser_raw.ml" +# 42846 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2308 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42011 "src/ocaml/preprocess/parser_raw.ml" +# 42852 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1875 "src/ocaml/preprocess/parser_raw.mly" ( let (ext, l) = _1 in (Psig_class l, ext) ) -# 42017 "src/ocaml/preprocess/parser_raw.ml" +# 42858 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_bs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_bs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 42027 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 42868 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42033 "src/ocaml/preprocess/parser_raw.ml" - in +# 42874 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42051,26 +42893,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.signature_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1877 "src/ocaml/preprocess/parser_raw.mly" ( let (ext, l) = _1 in (Psig_class_type l, ext) ) -# 42059 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 42902 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1085 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 42067 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 42910 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1879 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42073 "src/ocaml/preprocess/parser_raw.ml" - in +# 42916 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.signature_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42094,7 +42938,7 @@ module Tables = struct let _v : (Parsetree.constant) = # 3893 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42098 "src/ocaml/preprocess/parser_raw.ml" +# 42942 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42121,7 +42965,7 @@ module Tables = struct let _2 : ( # 824 "src/ocaml/preprocess/parser_raw.mly" (string * char option) -# 42125 "src/ocaml/preprocess/parser_raw.ml" +# 42969 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -42130,7 +42974,7 @@ module Tables = struct let _v : (Parsetree.constant) = # 3894 "src/ocaml/preprocess/parser_raw.mly" ( let (n, m) = _2 in Pconst_integer("-" ^ n, m) ) -# 42134 "src/ocaml/preprocess/parser_raw.ml" +# 42978 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42157,7 +43001,7 @@ module Tables = struct let _2 : ( # 803 "src/ocaml/preprocess/parser_raw.mly" (string * char option) -# 42161 "src/ocaml/preprocess/parser_raw.ml" +# 43005 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -42166,7 +43010,7 @@ module Tables = struct let _v : (Parsetree.constant) = # 3895 "src/ocaml/preprocess/parser_raw.mly" ( let (f, m) = _2 in Pconst_float("-" ^ f, m) ) -# 42170 "src/ocaml/preprocess/parser_raw.ml" +# 43014 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42193,7 +43037,7 @@ module Tables = struct let _2 : ( # 824 "src/ocaml/preprocess/parser_raw.mly" (string * char option) -# 42197 "src/ocaml/preprocess/parser_raw.ml" +# 43041 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -42202,7 +43046,7 @@ module Tables = struct let _v : (Parsetree.constant) = # 3896 "src/ocaml/preprocess/parser_raw.mly" ( let (n, m) = _2 in Pconst_integer (n, m) ) -# 42206 "src/ocaml/preprocess/parser_raw.ml" +# 43050 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42229,7 +43073,7 @@ module Tables = struct let _2 : ( # 803 "src/ocaml/preprocess/parser_raw.mly" (string * char option) -# 42233 "src/ocaml/preprocess/parser_raw.ml" +# 43077 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -42238,7 +43082,7 @@ module Tables = struct let _v : (Parsetree.constant) = # 3897 "src/ocaml/preprocess/parser_raw.mly" ( let (f, m) = _2 in Pconst_float(f, m) ) -# 42242 "src/ocaml/preprocess/parser_raw.ml" +# 43086 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42274,40 +43118,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 : (Parsetree.pattern) = let _1 = + let _v = let _1 = - let _2 = - let _1 = _1_inlined1 in - + let _1 = + let _2 = + let _1 = _1_inlined1 in + # 3164 "src/ocaml/preprocess/parser_raw.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 42287 "src/ocaml/preprocess/parser_raw.ml" +# 43132 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3135 "src/ocaml/preprocess/parser_raw.mly" ( let (fields, closed) = _2 in Ppat_record(fields, closed) ) -# 42294 "src/ocaml/preprocess/parser_raw.ml" +# 43139 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 42304 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 43149 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3149 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42310 "src/ocaml/preprocess/parser_raw.ml" - in +# 43155 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42342,35 +43188,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 : (Parsetree.pattern) = let _1 = + let _v = let _1 = - let _2 = + let _1 = + let _2 = # 3158 "src/ocaml/preprocess/parser_raw.mly" ( ps ) -# 42351 "src/ocaml/preprocess/parser_raw.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - +# 43198 "src/ocaml/preprocess/parser_raw.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + # 3140 "src/ocaml/preprocess/parser_raw.mly" ( fst (mktailpat _loc__3_ _2) ) -# 42357 "src/ocaml/preprocess/parser_raw.ml" +# 43204 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 42367 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 43214 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3149 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42373 "src/ocaml/preprocess/parser_raw.ml" - in +# 43220 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42405,34 +43253,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 : (Parsetree.pattern) = let _1 = + let _v = let _1 = - let _2 = + let _1 = + let _2 = # 3158 "src/ocaml/preprocess/parser_raw.mly" ( ps ) -# 42414 "src/ocaml/preprocess/parser_raw.ml" - in - +# 43263 "src/ocaml/preprocess/parser_raw.ml" + in + # 3144 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_array _2 ) -# 42419 "src/ocaml/preprocess/parser_raw.ml" +# 43268 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 42429 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 43278 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3149 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42435 "src/ocaml/preprocess/parser_raw.ml" - in +# 43284 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42460,27 +43310,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.pattern) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3146 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_array [] ) -# 42468 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 43319 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 42477 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 43328 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3149 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42483 "src/ocaml/preprocess/parser_raw.ml" - in +# 43334 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42515,26 +43367,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 : (Parsetree.expression) = let _2 = - let _1 = _1_inlined1 in - let _1 = + let _v = + let _2 = + let _1 = _1_inlined1 in + let _1 = # 2389 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42524 "src/ocaml/preprocess/parser_raw.ml" - in - +# 43377 "src/ocaml/preprocess/parser_raw.ml" + in + # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42529 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__3_ in - let _startpos = _startpos__1_ in - +# 43382 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _startpos = _startpos__1_ in + ( # 4268 "src/ocaml/preprocess/parser_raw.mly" ( Fake.Meta.code _startpos _endpos _2 ) -# 42537 "src/ocaml/preprocess/parser_raw.ml" - in +# 43390 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42590,49 +43444,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.expression) = let _2 = - let (_startpos__1_, _1_inlined2, _1_inlined1, _1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2, _1_inlined1) in - let _1 = - let _3 = - let xs = - let xs = -# 253 "" + let _v = + let _2 = + let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in + let _1 = + let _3 = + let xs = + let xs = +# 264 "" ( List.rev xs ) -# 42602 "src/ocaml/preprocess/parser_raw.ml" - in - +# 43457 "src/ocaml/preprocess/parser_raw.ml" + in + # 1243 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 42607 "src/ocaml/preprocess/parser_raw.ml" +# 43462 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2893 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 42613 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos_xs_ in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 43468 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__3_ = _endpos_xs_ in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42624 "src/ocaml/preprocess/parser_raw.ml" +# 43479 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 42630 "src/ocaml/preprocess/parser_raw.ml" +# 43485 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2391 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in let cases = _3 in @@ -42646,22 +43501,23 @@ module Tables = struct let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) -# 42650 "src/ocaml/preprocess/parser_raw.ml" +# 43505 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2535 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 42656 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__3_ in - let _startpos = _startpos__1_ in - +# 43511 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _startpos = _startpos__1_ in + ( # 4268 "src/ocaml/preprocess/parser_raw.mly" ( Fake.Meta.code _startpos _endpos _2 ) -# 42664 "src/ocaml/preprocess/parser_raw.ml" - in +# 43519 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42689,13 +43545,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 : (Parsetree.expression) = let _endpos = _endpos__2_ in - let _startpos = _startpos__1_ in - + let _v = + let _endpos = _endpos__2_ in + let _startpos = _startpos__1_ in + ( # 4270 "src/ocaml/preprocess/parser_raw.mly" ( Fake.Meta.uncode _startpos _endpos _2 ) -# 42698 "src/ocaml/preprocess/parser_raw.ml" - in +# 43555 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42730,14 +43588,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 : (Parsetree.expression) = let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2597 "src/ocaml/preprocess/parser_raw.mly" ( reloc_exp ~loc:_sloc _2 ) -# 42740 "src/ocaml/preprocess/parser_raw.ml" - in +# 43599 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42779,14 +43639,16 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.expression) = let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2603 "src/ocaml/preprocess/parser_raw.mly" ( mkexp_constraint ~loc:_sloc _2 _3 ) -# 42789 "src/ocaml/preprocess/parser_raw.ml" - in +# 43650 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42835,27 +43697,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = - let r = + let _v = + let _1 = + let r = # 2604 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 42843 "src/ocaml/preprocess/parser_raw.ml" - in - +# 43706 "src/ocaml/preprocess/parser_raw.ml" + in + # 2481 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Paren, i, r ) -# 42848 "src/ocaml/preprocess/parser_raw.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 - +# 43711 "src/ocaml/preprocess/parser_raw.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 + ( # 2605 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 42858 "src/ocaml/preprocess/parser_raw.ml" - in +# 43721 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42904,27 +43768,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = - let r = + let _v = + let _1 = + let r = # 2604 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 42912 "src/ocaml/preprocess/parser_raw.ml" - in - +# 43777 "src/ocaml/preprocess/parser_raw.ml" + in + # 2483 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Brace, i, r ) -# 42917 "src/ocaml/preprocess/parser_raw.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 - +# 43782 "src/ocaml/preprocess/parser_raw.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 + ( # 2605 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 42927 "src/ocaml/preprocess/parser_raw.ml" - in +# 43792 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -42973,27 +43839,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = - let r = + let _v = + let _1 = + let r = # 2604 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 42981 "src/ocaml/preprocess/parser_raw.ml" - in - +# 43848 "src/ocaml/preprocess/parser_raw.ml" + in + # 2485 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Bracket, i, r ) -# 42986 "src/ocaml/preprocess/parser_raw.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 - +# 43853 "src/ocaml/preprocess/parser_raw.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 + ( # 2605 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 42996 "src/ocaml/preprocess/parser_raw.ml" - in +# 43863 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43040,50 +43908,52 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 43044 "src/ocaml/preprocess/parser_raw.ml" +# 43912 "src/ocaml/preprocess/parser_raw.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 : (Parsetree.expression) = let _1 = - let r = + let _v = + let _1 = + let r = # 2606 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 43054 "src/ocaml/preprocess/parser_raw.ml" - in - let i = +# 43923 "src/ocaml/preprocess/parser_raw.ml" + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 43059 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = -# 124 "" - ( None ) -# 43065 "src/ocaml/preprocess/parser_raw.ml" +# 43928 "src/ocaml/preprocess/parser_raw.ml" in - + let d = + let _1 = +# 123 "" + ( None ) +# 43934 "src/ocaml/preprocess/parser_raw.ml" + in + # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 43070 "src/ocaml/preprocess/parser_raw.ml" +# 43939 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2481 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Paren, i, r ) -# 43076 "src/ocaml/preprocess/parser_raw.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 - +# 43945 "src/ocaml/preprocess/parser_raw.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 + ( # 2607 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 43086 "src/ocaml/preprocess/parser_raw.ml" - in +# 43955 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43142,7 +44012,7 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 43146 "src/ocaml/preprocess/parser_raw.ml" +# 44016 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -43150,52 +44020,54 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = - let r = + let _v = + let _1 = + let r = # 2606 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 43158 "src/ocaml/preprocess/parser_raw.ml" - in - let i = +# 44029 "src/ocaml/preprocess/parser_raw.ml" + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 43163 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = +# 44034 "src/ocaml/preprocess/parser_raw.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = # 2497 "src/ocaml/preprocess/parser_raw.mly" (_2) -# 43171 "src/ocaml/preprocess/parser_raw.ml" - in - +# 44042 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 43176 "src/ocaml/preprocess/parser_raw.ml" +# 44047 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 43182 "src/ocaml/preprocess/parser_raw.ml" +# 44053 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2481 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Paren, i, r ) -# 43188 "src/ocaml/preprocess/parser_raw.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 - +# 44059 "src/ocaml/preprocess/parser_raw.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 + ( # 2607 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 43198 "src/ocaml/preprocess/parser_raw.ml" - in +# 44069 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43242,50 +44114,52 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 43246 "src/ocaml/preprocess/parser_raw.ml" +# 44118 "src/ocaml/preprocess/parser_raw.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 : (Parsetree.expression) = let _1 = - let r = + let _v = + let _1 = + let r = # 2606 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 43256 "src/ocaml/preprocess/parser_raw.ml" - in - let i = +# 44129 "src/ocaml/preprocess/parser_raw.ml" + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 43261 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = -# 124 "" - ( None ) -# 43267 "src/ocaml/preprocess/parser_raw.ml" +# 44134 "src/ocaml/preprocess/parser_raw.ml" in - + let d = + let _1 = +# 123 "" + ( None ) +# 44140 "src/ocaml/preprocess/parser_raw.ml" + in + # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 43272 "src/ocaml/preprocess/parser_raw.ml" +# 44145 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2483 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Brace, i, r ) -# 43278 "src/ocaml/preprocess/parser_raw.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 - +# 44151 "src/ocaml/preprocess/parser_raw.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 + ( # 2607 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 43288 "src/ocaml/preprocess/parser_raw.ml" - in +# 44161 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43344,7 +44218,7 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 43348 "src/ocaml/preprocess/parser_raw.ml" +# 44222 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -43352,52 +44226,54 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = - let r = + let _v = + let _1 = + let r = # 2606 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 43360 "src/ocaml/preprocess/parser_raw.ml" - in - let i = +# 44235 "src/ocaml/preprocess/parser_raw.ml" + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 43365 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = +# 44240 "src/ocaml/preprocess/parser_raw.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = # 2497 "src/ocaml/preprocess/parser_raw.mly" (_2) -# 43373 "src/ocaml/preprocess/parser_raw.ml" - in - +# 44248 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 43378 "src/ocaml/preprocess/parser_raw.ml" +# 44253 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 43384 "src/ocaml/preprocess/parser_raw.ml" +# 44259 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2483 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Brace, i, r ) -# 43390 "src/ocaml/preprocess/parser_raw.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 - +# 44265 "src/ocaml/preprocess/parser_raw.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 + ( # 2607 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 43400 "src/ocaml/preprocess/parser_raw.ml" - in +# 44275 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43444,50 +44320,52 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 43448 "src/ocaml/preprocess/parser_raw.ml" +# 44324 "src/ocaml/preprocess/parser_raw.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 : (Parsetree.expression) = let _1 = - let r = + let _v = + let _1 = + let r = # 2606 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 43458 "src/ocaml/preprocess/parser_raw.ml" - in - let i = +# 44335 "src/ocaml/preprocess/parser_raw.ml" + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 43463 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = -# 124 "" - ( None ) -# 43469 "src/ocaml/preprocess/parser_raw.ml" +# 44340 "src/ocaml/preprocess/parser_raw.ml" in - + let d = + let _1 = +# 123 "" + ( None ) +# 44346 "src/ocaml/preprocess/parser_raw.ml" + in + # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 43474 "src/ocaml/preprocess/parser_raw.ml" +# 44351 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2485 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Bracket, i, r ) -# 43480 "src/ocaml/preprocess/parser_raw.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 - +# 44357 "src/ocaml/preprocess/parser_raw.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 + ( # 2607 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 43490 "src/ocaml/preprocess/parser_raw.ml" - in +# 44367 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43546,7 +44424,7 @@ module Tables = struct let _2 : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 43550 "src/ocaml/preprocess/parser_raw.ml" +# 44428 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -43554,52 +44432,54 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = - let r = + let _v = + let _1 = + let r = # 2606 "src/ocaml/preprocess/parser_raw.mly" ( None ) -# 43562 "src/ocaml/preprocess/parser_raw.ml" - in - let i = +# 44441 "src/ocaml/preprocess/parser_raw.ml" + in + let i = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 43567 "src/ocaml/preprocess/parser_raw.ml" - in - let d = - let _1 = - let _2 = _2_inlined1 in - let x = +# 44446 "src/ocaml/preprocess/parser_raw.ml" + in + let d = + let _1 = + let _2 = _2_inlined1 in + let x = # 2497 "src/ocaml/preprocess/parser_raw.mly" (_2) -# 43575 "src/ocaml/preprocess/parser_raw.ml" - in - +# 44454 "src/ocaml/preprocess/parser_raw.ml" + in + # 126 "" ( Some x ) -# 43580 "src/ocaml/preprocess/parser_raw.ml" +# 44459 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2497 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 43586 "src/ocaml/preprocess/parser_raw.ml" +# 44465 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2485 "src/ocaml/preprocess/parser_raw.mly" ( array, d, Bracket, i, r ) -# 43592 "src/ocaml/preprocess/parser_raw.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 - +# 44471 "src/ocaml/preprocess/parser_raw.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 + ( # 2607 "src/ocaml/preprocess/parser_raw.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 43602 "src/ocaml/preprocess/parser_raw.ml" - in +# 44481 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43648,31 +44528,33 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = - let attrs = - let _1 = _1_inlined1 in - + let _v = + let _1 = + let attrs = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 43658 "src/ocaml/preprocess/parser_raw.ml" +# 44539 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2620 "src/ocaml/preprocess/parser_raw.mly" ( e.pexp_desc, (ext, attrs @ e.pexp_attributes) ) -# 43664 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 44545 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2613 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 43675 "src/ocaml/preprocess/parser_raw.ml" - in +# 44556 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43714,42 +44596,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.expression) = let _1 = - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _v = + let _1 = let _2 = - let _1 = _1_inlined1 in - + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 43726 "src/ocaml/preprocess/parser_raw.ml" +# 44609 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 43732 "src/ocaml/preprocess/parser_raw.ml" +# 44615 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2622 "src/ocaml/preprocess/parser_raw.mly" + ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 ) +# 44624 "src/ocaml/preprocess/parser_raw.ml" in - let _endpos = _endpos__3_ in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - -# 2622 "src/ocaml/preprocess/parser_raw.mly" - ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 ) -# 43741 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + ( # 2613 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 43752 "src/ocaml/preprocess/parser_raw.ml" - in +# 44635 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43791,50 +44675,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 : (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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 43804 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 44689 "src/ocaml/preprocess/parser_raw.ml" + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 43814 "src/ocaml/preprocess/parser_raw.ml" +# 44699 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 43820 "src/ocaml/preprocess/parser_raw.ml" +# 44705 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2628 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_new(_3), _2 ) -# 43826 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__1_inlined3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 44711 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2613 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 43837 "src/ocaml/preprocess/parser_raw.ml" - in +# 44722 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43890,39 +44776,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 : (Parsetree.expression) = let _1 = - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in - + let _v = + let _1 = + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 43902 "src/ocaml/preprocess/parser_raw.ml" +# 44789 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 43908 "src/ocaml/preprocess/parser_raw.ml" +# 44795 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2630 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_pack _4, _3 ) -# 43914 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 44801 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2613 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 43925 "src/ocaml/preprocess/parser_raw.ml" - in +# 44812 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -43992,55 +44880,57 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v : (Parsetree.expression) = let _1 = - let _6 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + 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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 44007 "src/ocaml/preprocess/parser_raw.ml" - - in - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 44896 "src/ocaml/preprocess/parser_raw.ml" + in + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44017 "src/ocaml/preprocess/parser_raw.ml" +# 44906 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 44023 "src/ocaml/preprocess/parser_raw.ml" +# 44912 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__7_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 2632 "src/ocaml/preprocess/parser_raw.mly" + ( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 ) +# 44921 "src/ocaml/preprocess/parser_raw.ml" in - let _endpos = _endpos__7_ in + let _endpos__1_ = _endpos__7_ in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - -# 2632 "src/ocaml/preprocess/parser_raw.mly" - ( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 ) -# 44032 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__7_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + ( # 2613 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 44043 "src/ocaml/preprocess/parser_raw.ml" - in +# 44932 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44096,69 +44986,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 : (Parsetree.expression) = let _1 = - let _3 = - let _1 = _1_inlined3 in - let _2 = - let _1 = - let _1 = -# 260 "" + let _v = + let _1 = + let _3 = + let _1 = _1_inlined3 in + let _2 = + let _1 = + let _1 = +# 271 "" ( List.flatten xss ) -# 44108 "src/ocaml/preprocess/parser_raw.ml" - in - +# 44999 "src/ocaml/preprocess/parser_raw.ml" + in + # 2134 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44113 "src/ocaml/preprocess/parser_raw.ml" +# 45004 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - # 1021 "src/ocaml/preprocess/parser_raw.mly" ( extra_cstr _startpos _endpos _1 ) -# 44122 "src/ocaml/preprocess/parser_raw.ml" +# 45013 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2121 "src/ocaml/preprocess/parser_raw.mly" ( Cstr.mk _1 _2 ) -# 44128 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 45019 "src/ocaml/preprocess/parser_raw.ml" + in + let _2 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44138 "src/ocaml/preprocess/parser_raw.ml" +# 45029 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 44144 "src/ocaml/preprocess/parser_raw.ml" +# 45035 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2638 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_object _3, _2 ) -# 44150 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 45041 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2613 "src/ocaml/preprocess/parser_raw.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 44161 "src/ocaml/preprocess/parser_raw.ml" - in +# 45052 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44179,38 +45071,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 44192 "src/ocaml/preprocess/parser_raw.ml" +# 45085 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2646 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_ident (_1) ) -# 44198 "src/ocaml/preprocess/parser_raw.ml" +# 45091 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44207 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45100 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44213 "src/ocaml/preprocess/parser_raw.ml" - in +# 45106 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44231,26 +45125,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2648 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_constant _1 ) -# 44239 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 45134 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44247 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45142 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44253 "src/ocaml/preprocess/parser_raw.ml" - in +# 45148 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44271,38 +45167,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 44284 "src/ocaml/preprocess/parser_raw.ml" +# 45181 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2650 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_construct(_1, None) ) -# 44290 "src/ocaml/preprocess/parser_raw.ml" +# 45187 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44299 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45196 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44305 "src/ocaml/preprocess/parser_raw.ml" - in +# 45202 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44323,26 +45221,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2652 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_variant(_1, None) ) -# 44331 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 45230 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44339 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45238 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44345 "src/ocaml/preprocess/parser_raw.ml" - in +# 45244 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44369,44 +45269,46 @@ module Tables = struct let _1 : ( # 862 "src/ocaml/preprocess/parser_raw.mly" (string) -# 44373 "src/ocaml/preprocess/parser_raw.ml" +# 45273 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 44387 "src/ocaml/preprocess/parser_raw.ml" +# 45288 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2654 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 44393 "src/ocaml/preprocess/parser_raw.ml" +# 45294 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44403 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45304 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44409 "src/ocaml/preprocess/parser_raw.ml" - in +# 45310 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44434,44 +45336,46 @@ module Tables = struct 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 _v = let _1 = let _1 = - let _1 = + let _1 = + let _1 = # 2655 "src/ocaml/preprocess/parser_raw.mly" ("!") -# 44444 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 45347 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 44452 "src/ocaml/preprocess/parser_raw.ml" +# 45355 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2656 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 44458 "src/ocaml/preprocess/parser_raw.ml" +# 45361 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44468 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45371 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44474 "src/ocaml/preprocess/parser_raw.ml" - in +# 45377 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44506,34 +45410,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 : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _2 = + let _1 = + let _2 = # 2969 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 44515 "src/ocaml/preprocess/parser_raw.ml" - in - +# 45420 "src/ocaml/preprocess/parser_raw.ml" + in + # 2658 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_override _2 ) -# 44520 "src/ocaml/preprocess/parser_raw.ml" +# 45425 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44530 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45435 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44536 "src/ocaml/preprocess/parser_raw.ml" - in +# 45441 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44561,27 +45467,29 @@ module Tables = struct 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 _v = + let _1 = + let _1 = # 2664 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_override [] ) -# 44569 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 45476 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44578 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45485 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44584 "src/ocaml/preprocess/parser_raw.ml" - in +# 45491 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44616,40 +45524,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 : (Parsetree.expression) = let _1 = + let _v = 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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 44630 "src/ocaml/preprocess/parser_raw.ml" +# 45539 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2666 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_field(_1, _3) ) -# 44636 "src/ocaml/preprocess/parser_raw.ml" +# 45545 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44646 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45555 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44652 "src/ocaml/preprocess/parser_raw.ml" - in +# 45561 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44698,49 +45608,51 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 44712 "src/ocaml/preprocess/parser_raw.ml" +# 45623 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - # 1764 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 44721 "src/ocaml/preprocess/parser_raw.ml" +# 45632 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2668 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_open(od, _4) ) -# 44727 "src/ocaml/preprocess/parser_raw.ml" +# 45638 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44737 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45648 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44743 "src/ocaml/preprocess/parser_raw.ml" - in +# 45654 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44789,59 +45701,61 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _4 = + let _1 = + let _4 = # 2969 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 44798 "src/ocaml/preprocess/parser_raw.ml" - in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 45711 "src/ocaml/preprocess/parser_raw.ml" + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 44808 "src/ocaml/preprocess/parser_raw.ml" +# 45721 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - # 1764 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 44817 "src/ocaml/preprocess/parser_raw.ml" +# 45730 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_od_ = _startpos__1_ in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos_od_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos_od_ = _startpos__1_ in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos_od_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2670 "src/ocaml/preprocess/parser_raw.mly" ( (* TODO: review the location of Pexp_override *) Pexp_open(od, mkexp ~loc:_sloc (Pexp_override _4)) ) -# 44828 "src/ocaml/preprocess/parser_raw.ml" +# 45741 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44838 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45751 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44844 "src/ocaml/preprocess/parser_raw.ml" - in +# 45757 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44873,52 +45787,54 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 44877 "src/ocaml/preprocess/parser_raw.ml" +# 45791 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _3 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _1 = + let _1 = + let _3 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44891 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 45806 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 44899 "src/ocaml/preprocess/parser_raw.ml" +# 45814 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2677 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_send(_1, _3) ) -# 44905 "src/ocaml/preprocess/parser_raw.ml" +# 45820 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44915 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45830 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44921 "src/ocaml/preprocess/parser_raw.ml" - in +# 45836 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -44951,46 +45867,48 @@ module Tables = struct let _1_inlined1 : ( # 873 "src/ocaml/preprocess/parser_raw.mly" (string) -# 44955 "src/ocaml/preprocess/parser_raw.ml" +# 45871 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1_inlined1 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : (Parsetree.expression) = let _1 = + let _v = 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 - + 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 + # 1054 "src/ocaml/preprocess/parser_raw.mly" ( mkoperator ~loc:_sloc _1 ) -# 44971 "src/ocaml/preprocess/parser_raw.ml" +# 45888 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2679 "src/ocaml/preprocess/parser_raw.mly" ( mkinfix _1 _2 _3 ) -# 44977 "src/ocaml/preprocess/parser_raw.ml" +# 45894 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 44987 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45904 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 44993 "src/ocaml/preprocess/parser_raw.ml" - in +# 45910 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45011,26 +45929,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.expression) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2681 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_extension _1 ) -# 45019 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 45938 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45027 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45946 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45033 "src/ocaml/preprocess/parser_raw.ml" - in +# 45952 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45051,32 +45971,34 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + let _loc = (_startpos, _endpos) in + # 2683 "src/ocaml/preprocess/parser_raw.mly" ( let id = mkrhs Ast_helper.hole_txt _loc in Pexp_extension (id, PStr []) ) -# 45064 "src/ocaml/preprocess/parser_raw.ml" +# 45985 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45073 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 45994 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45079 "src/ocaml/preprocess/parser_raw.ml" - in +# 46000 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45118,68 +46040,70 @@ 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 : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _3 = - let (_endpos__2_, _startpos__1_, _2, _1) = (_endpos__2_inlined1_, _startpos__1_inlined1_, _2_inlined1, _1_inlined1) in - let _1 = + let _1 = + let _3 = + let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in + let _1 = # 2685 "src/ocaml/preprocess/parser_raw.mly" (Lident "()") -# 45129 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 45138 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in - let od = - let _1 = +# 46052 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 45150 "src/ocaml/preprocess/parser_raw.ml" +# 46061 "src/ocaml/preprocess/parser_raw.ml" in - let _loc__1_ = (_startpos__1_, _endpos__1_) 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 + +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 46073 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + # 1764 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 45159 "src/ocaml/preprocess/parser_raw.ml" +# 46082 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - # 2686 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_open(od, mkexp ~loc:(_loc__3_) (Pexp_construct(_3, None))) ) -# 45166 "src/ocaml/preprocess/parser_raw.ml" +# 46089 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__2_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__2_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45176 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 46099 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45182 "src/ocaml/preprocess/parser_raw.ml" - in +# 46105 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45215,28 +46139,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 : (Parsetree.expression) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 2692 "src/ocaml/preprocess/parser_raw.mly" ( let (exten, fields) = _2 in Pexp_record(fields, exten) ) -# 45224 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 46149 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45233 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 46158 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45239 "src/ocaml/preprocess/parser_raw.ml" - in +# 46164 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45286,52 +46212,54 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 45300 "src/ocaml/preprocess/parser_raw.ml" +# 46227 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - # 1764 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 45309 "src/ocaml/preprocess/parser_raw.ml" +# 46236 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in - in - let _endpos = _endpos__5_ in - # 2699 "src/ocaml/preprocess/parser_raw.mly" ( let (exten, fields) = _4 in Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_record(fields, exten))) ) -# 45318 "src/ocaml/preprocess/parser_raw.ml" +# 46245 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45328 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 46255 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45334 "src/ocaml/preprocess/parser_raw.ml" - in +# 46261 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45366,34 +46294,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 : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _2 = + let _1 = + let _2 = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 45375 "src/ocaml/preprocess/parser_raw.ml" - in - +# 46304 "src/ocaml/preprocess/parser_raw.ml" + in + # 2707 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_array(_2) ) -# 45380 "src/ocaml/preprocess/parser_raw.ml" +# 46309 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45390 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 46319 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45396 "src/ocaml/preprocess/parser_raw.ml" - in +# 46325 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45421,27 +46351,29 @@ module Tables = struct 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 _v = + let _1 = + let _1 = # 2713 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_array [] ) -# 45429 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 46360 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45438 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 46369 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45444 "src/ocaml/preprocess/parser_raw.ml" - in +# 46375 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45490,55 +46422,57 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _4 = + let _1 = + let _4 = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 45499 "src/ocaml/preprocess/parser_raw.ml" - in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 46432 "src/ocaml/preprocess/parser_raw.ml" + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 45509 "src/ocaml/preprocess/parser_raw.ml" +# 46442 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - # 1764 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 45518 "src/ocaml/preprocess/parser_raw.ml" +# 46451 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in - in - let _endpos = _endpos__5_ in - # 2715 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_array(_4))) ) -# 45525 "src/ocaml/preprocess/parser_raw.ml" +# 46458 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45535 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 46468 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45541 "src/ocaml/preprocess/parser_raw.ml" - in +# 46474 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45580,51 +46514,53 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 45594 "src/ocaml/preprocess/parser_raw.ml" +# 46529 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - # 1764 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 45603 "src/ocaml/preprocess/parser_raw.ml" +# 46538 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__4_ in - in - let _endpos = _endpos__4_ in - # 2717 "src/ocaml/preprocess/parser_raw.mly" ( (* TODO: review the location of Pexp_array *) Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_array [])) ) -# 45611 "src/ocaml/preprocess/parser_raw.ml" +# 46546 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45621 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 46556 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45627 "src/ocaml/preprocess/parser_raw.ml" - in +# 46562 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45659,35 +46595,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 : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _2 = + let _1 = + let _2 = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 45668 "src/ocaml/preprocess/parser_raw.ml" - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - +# 46605 "src/ocaml/preprocess/parser_raw.ml" + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in + # 2725 "src/ocaml/preprocess/parser_raw.mly" ( fst (mktailexp _loc__3_ _2) ) -# 45674 "src/ocaml/preprocess/parser_raw.ml" +# 46611 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45684 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 46621 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45690 "src/ocaml/preprocess/parser_raw.ml" - in +# 46627 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45736,60 +46674,62 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _4 = + let _1 = + let _4 = # 2986 "src/ocaml/preprocess/parser_raw.mly" ( es ) -# 45745 "src/ocaml/preprocess/parser_raw.ml" - in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 46684 "src/ocaml/preprocess/parser_raw.ml" + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 45755 "src/ocaml/preprocess/parser_raw.ml" +# 46694 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - # 1764 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 45764 "src/ocaml/preprocess/parser_raw.ml" +# 46703 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _loc__5_ = (_startpos__5_, _endpos__5_) in - in - let _endpos = _endpos__5_ in - let _loc__5_ = (_startpos__5_, _endpos__5_) in - # 2731 "src/ocaml/preprocess/parser_raw.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) ) -# 45776 "src/ocaml/preprocess/parser_raw.ml" +# 46715 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45786 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 46725 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45792 "src/ocaml/preprocess/parser_raw.ml" - in +# 46731 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45831,68 +46771,70 @@ 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 : (Parsetree.expression) = let _1 = + let _v = let _1 = - let _3 = - let (_endpos__2_, _startpos__1_, _2, _1) = (_endpos__2_inlined1_, _startpos__1_inlined1_, _2_inlined1, _1_inlined1) in - let _1 = + let _1 = + let _3 = + let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in + let _1 = # 2736 "src/ocaml/preprocess/parser_raw.mly" (Lident "[]") -# 45842 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 45851 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in - let od = - let _1 = +# 46783 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 45863 "src/ocaml/preprocess/parser_raw.ml" +# 46792 "src/ocaml/preprocess/parser_raw.ml" in - let _loc__1_ = (_startpos__1_, _endpos__1_) 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 + +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 46804 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in + # 1764 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 45872 "src/ocaml/preprocess/parser_raw.ml" +# 46813 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__3_ = (_startpos__3_, _endpos__3_) in - in - let _loc__3_ = (_startpos__3_, _endpos__3_) in - # 2737 "src/ocaml/preprocess/parser_raw.mly" ( Pexp_open(od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) ) -# 45879 "src/ocaml/preprocess/parser_raw.ml" +# 46820 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__2_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__2_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 45889 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 46830 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 45895 "src/ocaml/preprocess/parser_raw.ml" - in +# 46836 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -45976,85 +46918,87 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__9_ in - let _v : (Parsetree.expression) = let _1 = + let _v = 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 - + 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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 45992 "src/ocaml/preprocess/parser_raw.ml" - - in - let _5 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 46935 "src/ocaml/preprocess/parser_raw.ml" + in + let _5 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46002 "src/ocaml/preprocess/parser_raw.ml" +# 46945 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 46008 "src/ocaml/preprocess/parser_raw.ml" - - in - let od = - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in +# 46951 "src/ocaml/preprocess/parser_raw.ml" + in + let od = + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 46019 "src/ocaml/preprocess/parser_raw.ml" +# 46962 "src/ocaml/preprocess/parser_raw.ml" + + in + let _loc__1_ = (_startpos__1_, _endpos__1_) in - in - let _loc__1_ = (_startpos__1_, _endpos__1_) in - # 1764 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 46028 "src/ocaml/preprocess/parser_raw.ml" +# 46971 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos_od_ = _startpos__1_ in + let _endpos = _endpos__9_ in + let _symbolstartpos = _startpos_od_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _startpos_od_ = _startpos__1_ in - let _endpos = _endpos__9_ in - let _symbolstartpos = _startpos_od_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2745 "src/ocaml/preprocess/parser_raw.mly" ( let modexp = mkexp_attrs ~loc:(_startpos__3_, _endpos) (Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _6), _8)) _5 in Pexp_open(od, modexp) ) -# 46041 "src/ocaml/preprocess/parser_raw.ml" +# 46984 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__9_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__9_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1060 "src/ocaml/preprocess/parser_raw.mly" ( mkexp ~loc:_sloc _1 ) -# 46051 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 46994 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 2616 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46057 "src/ocaml/preprocess/parser_raw.ml" - in +# 47000 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46075,38 +47019,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = + let _v = let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 46088 "src/ocaml/preprocess/parser_raw.ml" +# 47033 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3069 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_var (_1) ) -# 46094 "src/ocaml/preprocess/parser_raw.ml" +# 47039 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 46103 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 47048 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3070 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46109 "src/ocaml/preprocess/parser_raw.ml" - in +# 47054 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46130,7 +47076,7 @@ module Tables = struct let _v : (Parsetree.pattern) = # 3071 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46134 "src/ocaml/preprocess/parser_raw.ml" +# 47080 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46166,14 +47112,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 : (Parsetree.pattern) = let _endpos = _endpos__3_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__3_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3076 "src/ocaml/preprocess/parser_raw.mly" ( reloc_pat ~loc:_sloc _2 ) -# 46176 "src/ocaml/preprocess/parser_raw.ml" - in +# 47123 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46197,7 +47145,7 @@ module Tables = struct let _v : (Parsetree.pattern) = # 3078 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46201 "src/ocaml/preprocess/parser_raw.ml" +# 47149 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46254,41 +47202,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 : (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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 46266 "src/ocaml/preprocess/parser_raw.ml" - - in - let _3 = - let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in - let _2 = - let _1 = _1_inlined1 in +# 47215 "src/ocaml/preprocess/parser_raw.ml" + in + let _3 = + let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46276 "src/ocaml/preprocess/parser_raw.ml" +# 47225 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 46282 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 47231 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3080 "src/ocaml/preprocess/parser_raw.mly" ( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 ) -# 46291 "src/ocaml/preprocess/parser_raw.ml" - in +# 47240 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46358,58 +47308,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 : (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 - + 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 + # 3807 "src/ocaml/preprocess/parser_raw.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) -# 46372 "src/ocaml/preprocess/parser_raw.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 - +# 47323 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 46383 "src/ocaml/preprocess/parser_raw.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 +# 47334 "src/ocaml/preprocess/parser_raw.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 + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46394 "src/ocaml/preprocess/parser_raw.ml" +# 47345 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 4240 "src/ocaml/preprocess/parser_raw.mly" ( _1, _2 ) -# 46400 "src/ocaml/preprocess/parser_raw.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 - +# 47351 "src/ocaml/preprocess/parser_raw.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 + ( # 3082 "src/ocaml/preprocess/parser_raw.mly" ( mkpat_attrs ~loc:_sloc (Ppat_constraint(mkpat ~loc:_loc__4_ (Ppat_unpack _4), _6)) _3 ) -# 46412 "src/ocaml/preprocess/parser_raw.ml" - in +# 47363 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46430,26 +47382,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3090 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_any ) -# 46438 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 47391 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 46446 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 47399 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46452 "src/ocaml/preprocess/parser_raw.ml" - in +# 47405 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46470,26 +47424,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3092 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_constant _1 ) -# 46478 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 47433 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 46486 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 47441 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46492 "src/ocaml/preprocess/parser_raw.ml" - in +# 47447 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46524,27 +47480,29 @@ module Tables = struct 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 _v = + let _1 = + let _1 = # 3094 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_interval (_1, _3) ) -# 46532 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 47489 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 46541 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 47498 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46547 "src/ocaml/preprocess/parser_raw.ml" - in +# 47504 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46565,38 +47523,40 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = + let _v = let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 46578 "src/ocaml/preprocess/parser_raw.ml" +# 47537 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3096 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_construct(_1, None) ) -# 46584 "src/ocaml/preprocess/parser_raw.ml" +# 47543 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 46593 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 47552 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46599 "src/ocaml/preprocess/parser_raw.ml" - in +# 47558 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46617,26 +47577,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3098 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_variant(_1, None) ) -# 46625 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 47586 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 46633 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 47594 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46639 "src/ocaml/preprocess/parser_raw.ml" - in +# 47600 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46664,40 +47626,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 : (Parsetree.pattern) = let _1 = + let _v = 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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 46678 "src/ocaml/preprocess/parser_raw.ml" +# 47641 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3100 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_type (_2) ) -# 46684 "src/ocaml/preprocess/parser_raw.ml" +# 47647 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 46694 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 47657 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46700 "src/ocaml/preprocess/parser_raw.ml" - in +# 47663 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46732,39 +47696,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 : (Parsetree.pattern) = let _1 = + let _v = let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 46745 "src/ocaml/preprocess/parser_raw.ml" +# 47710 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3102 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_open(_1, _3) ) -# 46751 "src/ocaml/preprocess/parser_raw.ml" +# 47716 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 46761 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 47726 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46767 "src/ocaml/preprocess/parser_raw.ml" - in +# 47732 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46806,60 +47772,62 @@ 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 : (Parsetree.pattern) = let _1 = + let _v = let _1 = - let _3 = - let (_endpos__2_, _startpos__1_, _2, _1) = (_endpos__2_inlined1_, _startpos__1_inlined1_, _2_inlined1, _1_inlined1) in - let _1 = + let _1 = + let _3 = + let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in + let _1 = # 3103 "src/ocaml/preprocess/parser_raw.mly" (Lident "[]") -# 46817 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 47784 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 46826 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos__2_inlined1_ in - let _1 = - let _endpos = _endpos__1_ in +# 47793 "src/ocaml/preprocess/parser_raw.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 + +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 47804 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 46837 "src/ocaml/preprocess/parser_raw.ml" +# 3104 "src/ocaml/preprocess/parser_raw.mly" + ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) +# 47813 "src/ocaml/preprocess/parser_raw.ml" in - let _endpos = _endpos__3_ in + let _endpos__1_ = _endpos__2_inlined1_ in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3104 "src/ocaml/preprocess/parser_raw.mly" - ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 46846 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__2_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 46856 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 47823 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46862 "src/ocaml/preprocess/parser_raw.ml" - in +# 47829 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -46901,60 +47869,62 @@ 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 : (Parsetree.pattern) = let _1 = + let _v = let _1 = - let _3 = - let (_endpos__2_, _startpos__1_, _2, _1) = (_endpos__2_inlined1_, _startpos__1_inlined1_, _2_inlined1, _1_inlined1) in - let _1 = + let _1 = + let _3 = + let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in + let _1 = # 3105 "src/ocaml/preprocess/parser_raw.mly" (Lident "()") -# 46912 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 47881 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 46921 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__3_ = _endpos__2_inlined1_ in - let _1 = - let _endpos = _endpos__1_ in +# 47890 "src/ocaml/preprocess/parser_raw.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 + +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 47901 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 46932 "src/ocaml/preprocess/parser_raw.ml" +# 3106 "src/ocaml/preprocess/parser_raw.mly" + ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) +# 47910 "src/ocaml/preprocess/parser_raw.ml" in - let _endpos = _endpos__3_ in + let _endpos__1_ = _endpos__2_inlined1_ in + let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3106 "src/ocaml/preprocess/parser_raw.mly" - ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 46941 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__1_ = _endpos__2_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 46951 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 47920 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 46957 "src/ocaml/preprocess/parser_raw.ml" - in +# 47926 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47003,39 +47973,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 : (Parsetree.pattern) = let _1 = + let _v = let _1 = let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 47016 "src/ocaml/preprocess/parser_raw.ml" +# 47987 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3108 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_open (_1, _4) ) -# 47022 "src/ocaml/preprocess/parser_raw.ml" +# 47993 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 47032 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 48003 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 47038 "src/ocaml/preprocess/parser_raw.ml" - in +# 48009 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47084,27 +48056,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in - let _v : (Parsetree.pattern) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3118 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_constraint(_2, _4) ) -# 47092 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos__5_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 48065 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos__5_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 47101 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 48074 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 47107 "src/ocaml/preprocess/parser_raw.ml" - in +# 48080 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47125,26 +48099,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.pattern) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3129 "src/ocaml/preprocess/parser_raw.mly" ( Ppat_extension _1 ) -# 47133 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 48108 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1062 "src/ocaml/preprocess/parser_raw.mly" ( mkpat ~loc:_sloc _1 ) -# 47141 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 48116 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3086 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 47147 "src/ocaml/preprocess/parser_raw.ml" - in +# 48122 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.pattern)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -47164,7 +48140,7 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 47168 "src/ocaml/preprocess/parser_raw.ml" +# 48144 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -47172,7 +48148,7 @@ module Tables = struct let _v : (string) = # 4148 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 47176 "src/ocaml/preprocess/parser_raw.ml" +# 48152 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47193,7 +48169,7 @@ module Tables = struct let _1 : ( # 890 "src/ocaml/preprocess/parser_raw.mly" (string) -# 47197 "src/ocaml/preprocess/parser_raw.ml" +# 48173 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -47201,7 +48177,7 @@ module Tables = struct let _v : (string) = # 4149 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 47205 "src/ocaml/preprocess/parser_raw.ml" +# 48181 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47226,7 +48202,7 @@ module Tables = struct let _v : (string) = # 4150 "src/ocaml/preprocess/parser_raw.mly" ( "and" ) -# 47230 "src/ocaml/preprocess/parser_raw.ml" +# 48206 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47251,7 +48227,7 @@ module Tables = struct let _v : (string) = # 4151 "src/ocaml/preprocess/parser_raw.mly" ( "as" ) -# 47255 "src/ocaml/preprocess/parser_raw.ml" +# 48231 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47276,7 +48252,7 @@ module Tables = struct let _v : (string) = # 4152 "src/ocaml/preprocess/parser_raw.mly" ( "assert" ) -# 47280 "src/ocaml/preprocess/parser_raw.ml" +# 48256 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47301,7 +48277,7 @@ module Tables = struct let _v : (string) = # 4153 "src/ocaml/preprocess/parser_raw.mly" ( "begin" ) -# 47305 "src/ocaml/preprocess/parser_raw.ml" +# 48281 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47326,7 +48302,7 @@ module Tables = struct let _v : (string) = # 4154 "src/ocaml/preprocess/parser_raw.mly" ( "class" ) -# 47330 "src/ocaml/preprocess/parser_raw.ml" +# 48306 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47351,7 +48327,7 @@ module Tables = struct let _v : (string) = # 4155 "src/ocaml/preprocess/parser_raw.mly" ( "constraint" ) -# 47355 "src/ocaml/preprocess/parser_raw.ml" +# 48331 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47376,7 +48352,7 @@ module Tables = struct let _v : (string) = # 4156 "src/ocaml/preprocess/parser_raw.mly" ( "do" ) -# 47380 "src/ocaml/preprocess/parser_raw.ml" +# 48356 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47401,7 +48377,7 @@ module Tables = struct let _v : (string) = # 4157 "src/ocaml/preprocess/parser_raw.mly" ( "done" ) -# 47405 "src/ocaml/preprocess/parser_raw.ml" +# 48381 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47426,7 +48402,7 @@ module Tables = struct let _v : (string) = # 4158 "src/ocaml/preprocess/parser_raw.mly" ( "downto" ) -# 47430 "src/ocaml/preprocess/parser_raw.ml" +# 48406 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47451,7 +48427,7 @@ module Tables = struct let _v : (string) = # 4159 "src/ocaml/preprocess/parser_raw.mly" ( "else" ) -# 47455 "src/ocaml/preprocess/parser_raw.ml" +# 48431 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47476,7 +48452,7 @@ module Tables = struct let _v : (string) = # 4160 "src/ocaml/preprocess/parser_raw.mly" ( "end" ) -# 47480 "src/ocaml/preprocess/parser_raw.ml" +# 48456 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47501,7 +48477,7 @@ module Tables = struct let _v : (string) = # 4161 "src/ocaml/preprocess/parser_raw.mly" ( "exception" ) -# 47505 "src/ocaml/preprocess/parser_raw.ml" +# 48481 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47526,7 +48502,7 @@ module Tables = struct let _v : (string) = # 4162 "src/ocaml/preprocess/parser_raw.mly" ( "external" ) -# 47530 "src/ocaml/preprocess/parser_raw.ml" +# 48506 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47551,7 +48527,7 @@ module Tables = struct let _v : (string) = # 4163 "src/ocaml/preprocess/parser_raw.mly" ( "false" ) -# 47555 "src/ocaml/preprocess/parser_raw.ml" +# 48531 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47576,7 +48552,7 @@ module Tables = struct let _v : (string) = # 4164 "src/ocaml/preprocess/parser_raw.mly" ( "for" ) -# 47580 "src/ocaml/preprocess/parser_raw.ml" +# 48556 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47601,7 +48577,7 @@ module Tables = struct let _v : (string) = # 4165 "src/ocaml/preprocess/parser_raw.mly" ( "fun" ) -# 47605 "src/ocaml/preprocess/parser_raw.ml" +# 48581 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47626,7 +48602,7 @@ module Tables = struct let _v : (string) = # 4166 "src/ocaml/preprocess/parser_raw.mly" ( "function" ) -# 47630 "src/ocaml/preprocess/parser_raw.ml" +# 48606 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47651,7 +48627,7 @@ module Tables = struct let _v : (string) = # 4167 "src/ocaml/preprocess/parser_raw.mly" ( "functor" ) -# 47655 "src/ocaml/preprocess/parser_raw.ml" +# 48631 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47676,7 +48652,7 @@ module Tables = struct let _v : (string) = # 4168 "src/ocaml/preprocess/parser_raw.mly" ( "if" ) -# 47680 "src/ocaml/preprocess/parser_raw.ml" +# 48656 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47701,7 +48677,7 @@ module Tables = struct let _v : (string) = # 4169 "src/ocaml/preprocess/parser_raw.mly" ( "in" ) -# 47705 "src/ocaml/preprocess/parser_raw.ml" +# 48681 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47726,7 +48702,7 @@ module Tables = struct let _v : (string) = # 4170 "src/ocaml/preprocess/parser_raw.mly" ( "include" ) -# 47730 "src/ocaml/preprocess/parser_raw.ml" +# 48706 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47751,7 +48727,7 @@ module Tables = struct let _v : (string) = # 4171 "src/ocaml/preprocess/parser_raw.mly" ( "inherit" ) -# 47755 "src/ocaml/preprocess/parser_raw.ml" +# 48731 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47776,7 +48752,7 @@ module Tables = struct let _v : (string) = # 4172 "src/ocaml/preprocess/parser_raw.mly" ( "initializer" ) -# 47780 "src/ocaml/preprocess/parser_raw.ml" +# 48756 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47801,7 +48777,7 @@ module Tables = struct let _v : (string) = # 4173 "src/ocaml/preprocess/parser_raw.mly" ( "lazy" ) -# 47805 "src/ocaml/preprocess/parser_raw.ml" +# 48781 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47826,7 +48802,7 @@ module Tables = struct let _v : (string) = # 4174 "src/ocaml/preprocess/parser_raw.mly" ( "let" ) -# 47830 "src/ocaml/preprocess/parser_raw.ml" +# 48806 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47851,7 +48827,7 @@ module Tables = struct let _v : (string) = # 4175 "src/ocaml/preprocess/parser_raw.mly" ( "match" ) -# 47855 "src/ocaml/preprocess/parser_raw.ml" +# 48831 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47876,7 +48852,7 @@ module Tables = struct let _v : (string) = # 4176 "src/ocaml/preprocess/parser_raw.mly" ( "method" ) -# 47880 "src/ocaml/preprocess/parser_raw.ml" +# 48856 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47901,7 +48877,7 @@ module Tables = struct let _v : (string) = # 4177 "src/ocaml/preprocess/parser_raw.mly" ( "module" ) -# 47905 "src/ocaml/preprocess/parser_raw.ml" +# 48881 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47926,7 +48902,7 @@ module Tables = struct let _v : (string) = # 4178 "src/ocaml/preprocess/parser_raw.mly" ( "mutable" ) -# 47930 "src/ocaml/preprocess/parser_raw.ml" +# 48906 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47951,7 +48927,7 @@ module Tables = struct let _v : (string) = # 4179 "src/ocaml/preprocess/parser_raw.mly" ( "new" ) -# 47955 "src/ocaml/preprocess/parser_raw.ml" +# 48931 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47976,7 +48952,7 @@ module Tables = struct let _v : (string) = # 4180 "src/ocaml/preprocess/parser_raw.mly" ( "nonrec" ) -# 47980 "src/ocaml/preprocess/parser_raw.ml" +# 48956 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48001,7 +48977,7 @@ module Tables = struct let _v : (string) = # 4181 "src/ocaml/preprocess/parser_raw.mly" ( "object" ) -# 48005 "src/ocaml/preprocess/parser_raw.ml" +# 48981 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48026,7 +49002,7 @@ module Tables = struct let _v : (string) = # 4182 "src/ocaml/preprocess/parser_raw.mly" ( "of" ) -# 48030 "src/ocaml/preprocess/parser_raw.ml" +# 49006 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48051,7 +49027,7 @@ module Tables = struct let _v : (string) = # 4183 "src/ocaml/preprocess/parser_raw.mly" ( "open" ) -# 48055 "src/ocaml/preprocess/parser_raw.ml" +# 49031 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48076,7 +49052,7 @@ module Tables = struct let _v : (string) = # 4184 "src/ocaml/preprocess/parser_raw.mly" ( "or" ) -# 48080 "src/ocaml/preprocess/parser_raw.ml" +# 49056 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48101,7 +49077,7 @@ module Tables = struct let _v : (string) = # 4185 "src/ocaml/preprocess/parser_raw.mly" ( "private" ) -# 48105 "src/ocaml/preprocess/parser_raw.ml" +# 49081 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48126,7 +49102,7 @@ module Tables = struct let _v : (string) = # 4186 "src/ocaml/preprocess/parser_raw.mly" ( "rec" ) -# 48130 "src/ocaml/preprocess/parser_raw.ml" +# 49106 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48151,7 +49127,7 @@ module Tables = struct let _v : (string) = # 4187 "src/ocaml/preprocess/parser_raw.mly" ( "sig" ) -# 48155 "src/ocaml/preprocess/parser_raw.ml" +# 49131 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48176,7 +49152,7 @@ module Tables = struct let _v : (string) = # 4188 "src/ocaml/preprocess/parser_raw.mly" ( "struct" ) -# 48180 "src/ocaml/preprocess/parser_raw.ml" +# 49156 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48201,7 +49177,7 @@ module Tables = struct let _v : (string) = # 4189 "src/ocaml/preprocess/parser_raw.mly" ( "then" ) -# 48205 "src/ocaml/preprocess/parser_raw.ml" +# 49181 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48226,7 +49202,7 @@ module Tables = struct let _v : (string) = # 4190 "src/ocaml/preprocess/parser_raw.mly" ( "to" ) -# 48230 "src/ocaml/preprocess/parser_raw.ml" +# 49206 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48251,7 +49227,7 @@ module Tables = struct let _v : (string) = # 4191 "src/ocaml/preprocess/parser_raw.mly" ( "true" ) -# 48255 "src/ocaml/preprocess/parser_raw.ml" +# 49231 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48276,7 +49252,7 @@ module Tables = struct let _v : (string) = # 4192 "src/ocaml/preprocess/parser_raw.mly" ( "try" ) -# 48280 "src/ocaml/preprocess/parser_raw.ml" +# 49256 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48301,7 +49277,7 @@ module Tables = struct let _v : (string) = # 4193 "src/ocaml/preprocess/parser_raw.mly" ( "type" ) -# 48305 "src/ocaml/preprocess/parser_raw.ml" +# 49281 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48326,7 +49302,7 @@ module Tables = struct let _v : (string) = # 4194 "src/ocaml/preprocess/parser_raw.mly" ( "val" ) -# 48330 "src/ocaml/preprocess/parser_raw.ml" +# 49306 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48351,7 +49327,7 @@ module Tables = struct let _v : (string) = # 4195 "src/ocaml/preprocess/parser_raw.mly" ( "virtual" ) -# 48355 "src/ocaml/preprocess/parser_raw.ml" +# 49331 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48376,7 +49352,7 @@ module Tables = struct let _v : (string) = # 4196 "src/ocaml/preprocess/parser_raw.mly" ( "when" ) -# 48380 "src/ocaml/preprocess/parser_raw.ml" +# 49356 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48401,7 +49377,7 @@ module Tables = struct let _v : (string) = # 4197 "src/ocaml/preprocess/parser_raw.mly" ( "while" ) -# 48405 "src/ocaml/preprocess/parser_raw.ml" +# 49381 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48426,7 +49402,7 @@ module Tables = struct let _v : (string) = # 4198 "src/ocaml/preprocess/parser_raw.mly" ( "with" ) -# 48430 "src/ocaml/preprocess/parser_raw.ml" +# 49406 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48451,7 +49427,7 @@ module Tables = struct let _v : (Parsetree.type_exception * string Location.loc option) = # 3410 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 48455 "src/ocaml/preprocess/parser_raw.ml" +# 49431 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48522,65 +49498,67 @@ 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 : (Parsetree.type_exception * string Location.loc option) = let attrs = - let _1 = _1_inlined5 in - + let _v = + let attrs = + let _1 = _1_inlined5 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 48531 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs_ = _endpos__1_inlined5_ in - let attrs2 = - let _1 = _1_inlined4 in - +# 49508 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs_ = _endpos__1_inlined5_ in + let attrs2 = + let _1 = _1_inlined4 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 48540 "src/ocaml/preprocess/parser_raw.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 - +# 49517 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 48551 "src/ocaml/preprocess/parser_raw.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 - +# 49528 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 48562 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 49539 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 48570 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 49547 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3419 "src/ocaml/preprocess/parser_raw.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 ) -# 48583 "src/ocaml/preprocess/parser_raw.ml" - in +# 49560 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.type_exception * string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48611,7 +49589,7 @@ module Tables = struct let _v : (Parsetree.expression) = # 2872 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 48615 "src/ocaml/preprocess/parser_raw.ml" +# 49593 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48654,15 +49632,17 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in - let _v : (Parsetree.expression) = let _endpos = _endpos__4_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__4_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2874 "src/ocaml/preprocess/parser_raw.mly" ( ghexp ~loc:_sloc (mkfunction _1 _2 _4) ) -# 48665 "src/ocaml/preprocess/parser_raw.ml" - in +# 49644 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.expression)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48683,45 +49663,47 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos_xss_ in - let _v : (Parsetree.structure) = let _1 = + let _v = let _1 = - let ys = -# 260 "" + let _1 = + let ys = +# 271 "" ( List.flatten xss ) -# 48692 "src/ocaml/preprocess/parser_raw.ml" - in - let xs = - let items = +# 49673 "src/ocaml/preprocess/parser_raw.ml" + in + let xs = + let items = # 1097 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 48698 "src/ocaml/preprocess/parser_raw.ml" - in - +# 49679 "src/ocaml/preprocess/parser_raw.ml" + in + # 1563 "src/ocaml/preprocess/parser_raw.mly" ( items ) -# 48703 "src/ocaml/preprocess/parser_raw.ml" +# 49684 "src/ocaml/preprocess/parser_raw.ml" + + in - in - -# 267 "" +# 278 "" ( xs @ ys ) -# 48709 "src/ocaml/preprocess/parser_raw.ml" +# 49690 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - # 1019 "src/ocaml/preprocess/parser_raw.mly" ( extra_str _startpos _endpos _1 ) -# 48718 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 49699 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1556 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 48724 "src/ocaml/preprocess/parser_raw.ml" - in +# 49705 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48756,79 +49738,81 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e_ in let _endpos = _endpos_xss_ in - let _v : (Parsetree.structure) = let _1 = + let _v = let _1 = - let ys = -# 260 "" + let _1 = + let ys = +# 271 "" ( List.flatten xss ) -# 48765 "src/ocaml/preprocess/parser_raw.ml" - in - let xs = - let items = - let x = - let _1 = +# 49748 "src/ocaml/preprocess/parser_raw.ml" + in + let xs = + let items = + let x = let _1 = - let attrs = + let _1 = + let attrs = # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 48775 "src/ocaml/preprocess/parser_raw.ml" - in - +# 49758 "src/ocaml/preprocess/parser_raw.ml" + in + # 1570 "src/ocaml/preprocess/parser_raw.mly" ( mkstrexp e attrs ) -# 48780 "src/ocaml/preprocess/parser_raw.ml" +# 49763 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_e_ in + let _startpos = _startpos__1_ in + +# 1031 "src/ocaml/preprocess/parser_raw.mly" + ( text_str _startpos @ [_1] ) +# 49771 "src/ocaml/preprocess/parser_raw.ml" in let _startpos__1_ = _startpos_e_ in + let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1031 "src/ocaml/preprocess/parser_raw.mly" - ( text_str _startpos @ [_1] ) -# 48788 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos__1_ = _startpos_e_ in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - # 1050 "src/ocaml/preprocess/parser_raw.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 48798 "src/ocaml/preprocess/parser_raw.ml" +# 49781 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1099 "src/ocaml/preprocess/parser_raw.mly" ( x ) -# 48804 "src/ocaml/preprocess/parser_raw.ml" +# 49787 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1563 "src/ocaml/preprocess/parser_raw.mly" ( items ) -# 48810 "src/ocaml/preprocess/parser_raw.ml" +# 49793 "src/ocaml/preprocess/parser_raw.ml" + + in - in - -# 267 "" +# 278 "" ( xs @ ys ) -# 48816 "src/ocaml/preprocess/parser_raw.ml" +# 49799 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - # 1019 "src/ocaml/preprocess/parser_raw.mly" ( extra_str _startpos _endpos _1 ) -# 48825 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 49808 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1556 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 48831 "src/ocaml/preprocess/parser_raw.ml" - in +# 49814 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48849,14 +49833,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 : (Parsetree.structure_item) = let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + let _v = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 1585 "src/ocaml/preprocess/parser_raw.mly" ( val_of_let_bindings ~loc:_sloc _1 ) -# 48859 "src/ocaml/preprocess/parser_raw.ml" - in +# 49844 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48884,42 +49870,44 @@ 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 : (Parsetree.structure_item) = let _1 = + let _v = let _1 = - let _2 = - let _1 = _1_inlined1 in - + let _1 = + let _2 = + let _1 = _1_inlined1 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 48895 "src/ocaml/preprocess/parser_raw.ml" +# 49882 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__2_ = _endpos__1_inlined1_ in + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__2_ = _endpos__1_inlined1_ in - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1588 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in Pstr_extension (_1, add_docs_attrs docs _2) ) -# 48906 "src/ocaml/preprocess/parser_raw.ml" +# 49893 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined1_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined1_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1066 "src/ocaml/preprocess/parser_raw.mly" ( mkstr ~loc:_sloc _1 ) -# 48916 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 49903 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 48922 "src/ocaml/preprocess/parser_raw.ml" - in +# 49909 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48940,26 +49928,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.structure_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1591 "src/ocaml/preprocess/parser_raw.mly" ( Pstr_attribute _1 ) -# 48948 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 49937 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1066 "src/ocaml/preprocess/parser_raw.mly" ( mkstr ~loc:_sloc _1 ) -# 48956 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 49945 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 48962 "src/ocaml/preprocess/parser_raw.ml" - in +# 49951 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -48980,26 +49970,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.structure_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1595 "src/ocaml/preprocess/parser_raw.mly" ( pstr_primitive _1 ) -# 48988 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 49979 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 48996 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 49987 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49002 "src/ocaml/preprocess/parser_raw.ml" - in +# 49993 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49020,26 +50012,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.structure_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1597 "src/ocaml/preprocess/parser_raw.mly" ( pstr_primitive _1 ) -# 49028 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 50021 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49036 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 50029 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49042 "src/ocaml/preprocess/parser_raw.ml" - in +# 50035 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49068,48 +50062,50 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_a_ in let _endpos = _endpos_bs_ in - let _v : (Parsetree.structure_item) = let _1 = + let _v = let _1 = let _1 = let _1 = - let _1 = + let _1 = + let _1 = # 1279 "src/ocaml/preprocess/parser_raw.mly" ( let (x, b) = a in x, b :: bs ) -# 49079 "src/ocaml/preprocess/parser_raw.ml" - in - +# 50074 "src/ocaml/preprocess/parser_raw.ml" + in + # 3252 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49084 "src/ocaml/preprocess/parser_raw.ml" +# 50079 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3235 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49090 "src/ocaml/preprocess/parser_raw.ml" +# 50085 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1599 "src/ocaml/preprocess/parser_raw.mly" ( pstr_type _1 ) -# 49096 "src/ocaml/preprocess/parser_raw.ml" +# 50091 "src/ocaml/preprocess/parser_raw.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 - 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 - # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49106 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 50101 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49112 "src/ocaml/preprocess/parser_raw.ml" - in +# 50107 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49186,87 +50182,89 @@ 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 : (Parsetree.structure_item) = let _1 = + let _v = let _1 = let _1 = let _1 = - let attrs2 = - let _1 = _1_inlined3 in - + let _1 = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49199 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined3_ in - let cs = +# 50196 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined3_ in + let cs = # 1271 "src/ocaml/preprocess/parser_raw.mly" ( List.rev xs ) -# 49206 "src/ocaml/preprocess/parser_raw.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 - +# 50203 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 49216 "src/ocaml/preprocess/parser_raw.ml" - - in - let _4 = +# 50213 "src/ocaml/preprocess/parser_raw.ml" + + in + let _4 = # 4068 "src/ocaml/preprocess/parser_raw.mly" ( Recursive ) -# 49222 "src/ocaml/preprocess/parser_raw.ml" - in - let attrs1 = - let _1 = _1_inlined1 in - +# 50219 "src/ocaml/preprocess/parser_raw.ml" + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49229 "src/ocaml/preprocess/parser_raw.ml" +# 50226 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3507 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 49241 "src/ocaml/preprocess/parser_raw.ml" +# 50238 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3490 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49247 "src/ocaml/preprocess/parser_raw.ml" +# 50244 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1601 "src/ocaml/preprocess/parser_raw.mly" ( pstr_typext _1 ) -# 49253 "src/ocaml/preprocess/parser_raw.ml" +# 50250 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49263 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 50260 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49269 "src/ocaml/preprocess/parser_raw.ml" - in +# 50266 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49350,93 +50348,95 @@ 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 : (Parsetree.structure_item) = let _1 = + let _v = let _1 = let _1 = let _1 = - let attrs2 = - let _1 = _1_inlined4 in - + let _1 = + let attrs2 = + let _1 = _1_inlined4 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49363 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined4_ in - let cs = +# 50362 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined4_ in + let cs = # 1271 "src/ocaml/preprocess/parser_raw.mly" ( List.rev xs ) -# 49370 "src/ocaml/preprocess/parser_raw.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 - +# 50369 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 49380 "src/ocaml/preprocess/parser_raw.ml" - - in - let _4 = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - let _loc = (_startpos, _endpos) in - +# 50379 "src/ocaml/preprocess/parser_raw.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 + # 4070 "src/ocaml/preprocess/parser_raw.mly" ( not_expecting _loc "nonrec flag"; Recursive ) -# 49391 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 50390 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49399 "src/ocaml/preprocess/parser_raw.ml" +# 50398 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 3507 "src/ocaml/preprocess/parser_raw.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 49411 "src/ocaml/preprocess/parser_raw.ml" +# 50410 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3490 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49417 "src/ocaml/preprocess/parser_raw.ml" +# 50416 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1601 "src/ocaml/preprocess/parser_raw.mly" ( pstr_typext _1 ) -# 49423 "src/ocaml/preprocess/parser_raw.ml" +# 50422 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined4_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined4_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49433 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 50432 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49439 "src/ocaml/preprocess/parser_raw.ml" - in +# 50438 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49457,26 +50457,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.structure_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1603 "src/ocaml/preprocess/parser_raw.mly" ( pstr_exception _1 ) -# 49465 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 50466 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49473 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 50474 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49479 "src/ocaml/preprocess/parser_raw.ml" - in +# 50480 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49532,71 +50534,73 @@ 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 : (Parsetree.structure_item) = let _1 = + let _v = let _1 = let _1 = - let attrs2 = - let _1 = _1_inlined3 in - + let _1 = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49544 "src/ocaml/preprocess/parser_raw.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 - +# 50547 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 49556 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 50559 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49564 "src/ocaml/preprocess/parser_raw.ml" +# 50567 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1629 "src/ocaml/preprocess/parser_raw.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 ) -# 49577 "src/ocaml/preprocess/parser_raw.ml" +# 50580 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1605 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49583 "src/ocaml/preprocess/parser_raw.ml" +# 50586 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined3_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined3_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49593 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 50596 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49599 "src/ocaml/preprocess/parser_raw.ml" - in +# 50602 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49666,43 +50670,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 : (Parsetree.structure_item) = let _1 = + let _v = let _1 = let _1 = let _1 = - let a = - let attrs2 = - let _1 = _1_inlined3 in - + let _1 = + let a = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49680 "src/ocaml/preprocess/parser_raw.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 - +# 50685 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 49692 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 50697 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49700 "src/ocaml/preprocess/parser_raw.ml" +# 50705 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1668 "src/ocaml/preprocess/parser_raw.mly" ( let loc = make_loc _sloc in @@ -49711,42 +50716,43 @@ module Tables = struct ext, Mb.mk name body ~attrs ~loc ~docs ) -# 49715 "src/ocaml/preprocess/parser_raw.ml" +# 50720 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1279 "src/ocaml/preprocess/parser_raw.mly" ( let (x, b) = a in x, b :: bs ) -# 49721 "src/ocaml/preprocess/parser_raw.ml" +# 50726 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1656 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49727 "src/ocaml/preprocess/parser_raw.ml" +# 50732 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1607 "src/ocaml/preprocess/parser_raw.mly" ( pstr_recmodule _1 ) -# 49733 "src/ocaml/preprocess/parser_raw.ml" +# 50738 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_bs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_bs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49743 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 50748 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49749 "src/ocaml/preprocess/parser_raw.ml" - in +# 50754 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49767,26 +50773,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.structure_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1609 "src/ocaml/preprocess/parser_raw.mly" ( let (body, ext) = _1 in (Pstr_modtype body, ext) ) -# 49775 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 50782 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49783 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 50790 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49789 "src/ocaml/preprocess/parser_raw.ml" - in +# 50796 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49807,26 +50815,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.structure_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1611 "src/ocaml/preprocess/parser_raw.mly" ( let (body, ext) = _1 in (Pstr_open body, ext) ) -# 49815 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 50824 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49823 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 50832 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49829 "src/ocaml/preprocess/parser_raw.ml" - in +# 50838 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -49897,7 +50907,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 49901 "src/ocaml/preprocess/parser_raw.ml" +# 50911 "src/ocaml/preprocess/parser_raw.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 @@ -49907,43 +50917,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 : (Parsetree.structure_item) = let _1 = + let _v = let _1 = let _1 = let _1 = - let a = - let attrs2 = - let _1 = _1_inlined3 in - + let _1 = + let a = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49921 "src/ocaml/preprocess/parser_raw.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 - +# 50932 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 49933 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 50944 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49941 "src/ocaml/preprocess/parser_raw.ml" +# 50952 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 2022 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -49952,42 +50963,43 @@ module Tables = struct ext, Ci.mk id body ~virt ~params ~attrs ~loc ~docs ) -# 49956 "src/ocaml/preprocess/parser_raw.ml" +# 50967 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1279 "src/ocaml/preprocess/parser_raw.mly" ( let (x, b) = a in x, b :: bs ) -# 49962 "src/ocaml/preprocess/parser_raw.ml" +# 50973 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 2011 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49968 "src/ocaml/preprocess/parser_raw.ml" +# 50979 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1613 "src/ocaml/preprocess/parser_raw.mly" ( let (ext, l) = _1 in (Pstr_class l, ext) ) -# 49974 "src/ocaml/preprocess/parser_raw.ml" +# 50985 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos_bs_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos_bs_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 49984 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 50995 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 49990 "src/ocaml/preprocess/parser_raw.ml" - in +# 51001 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50008,26 +51020,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.structure_item) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 1615 "src/ocaml/preprocess/parser_raw.mly" ( let (ext, l) = _1 in (Pstr_class_type l, ext) ) -# 50016 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 51029 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 50024 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 51037 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 50030 "src/ocaml/preprocess/parser_raw.ml" - in +# 51043 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50076,30 +51090,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 : (Parsetree.structure_item) = let _1 = + let _v = let _1 = let _1 = - let attrs2 = - let _1 = _1_inlined2 in - + let _1 = + let attrs2 = + let _1 = _1_inlined2 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 50088 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined2_ in - let attrs1 = - let _1 = _1_inlined1 in - +# 51103 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined2_ in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 50097 "src/ocaml/preprocess/parser_raw.ml" +# 51112 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1705 "src/ocaml/preprocess/parser_raw.mly" ( let attrs = attrs1 @ attrs2 in @@ -50107,30 +51122,31 @@ module Tables = struct let docs = symbol_docs _sloc in Incl.mk thing ~attrs ~loc ~docs, ext ) -# 50111 "src/ocaml/preprocess/parser_raw.ml" +# 51126 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1617 "src/ocaml/preprocess/parser_raw.mly" ( pstr_include _1 ) -# 50117 "src/ocaml/preprocess/parser_raw.ml" +# 51132 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__1_ = _endpos__1_inlined2_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in - in - let _endpos__1_ = _endpos__1_inlined2_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - # 1083 "src/ocaml/preprocess/parser_raw.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 50127 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 51142 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1619 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 50133 "src/ocaml/preprocess/parser_raw.ml" - in +# 51148 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.structure_item)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50154,7 +51170,7 @@ module Tables = struct let _v : (string) = # 4133 "src/ocaml/preprocess/parser_raw.mly" ( "-" ) -# 50158 "src/ocaml/preprocess/parser_raw.ml" +# 51174 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50179,7 +51195,7 @@ module Tables = struct let _v : (string) = # 4134 "src/ocaml/preprocess/parser_raw.mly" ( "-." ) -# 50183 "src/ocaml/preprocess/parser_raw.ml" +# 51199 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50229,54 +51245,56 @@ 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 : (Parsetree.row_field) = let _5 = - let _1 = _1_inlined1 in - + let _v = + let _5 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 50238 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__5_ = _endpos__1_inlined1_ in - let _4 = - let _1 = - let xs = -# 253 "" - ( List.rev xs ) -# 50247 "src/ocaml/preprocess/parser_raw.ml" - in +# 51255 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__5_ = _endpos__1_inlined1_ in + let _4 = + let _1 = + let xs = +# 264 "" + ( List.rev xs ) +# 51264 "src/ocaml/preprocess/parser_raw.ml" + in + # 1182 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 50252 "src/ocaml/preprocess/parser_raw.ml" +# 51269 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3837 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 50258 "src/ocaml/preprocess/parser_raw.ml" - - in - let _1 = - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 51275 "src/ocaml/preprocess/parser_raw.ml" + + in + let _1 = + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 50268 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 51285 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3823 "src/ocaml/preprocess/parser_raw.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 ) -# 50279 "src/ocaml/preprocess/parser_raw.ml" - in +# 51296 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.row_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50304,35 +51322,37 @@ 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 : (Parsetree.row_field) = let _2 = - let _1 = _1_inlined1 in - + let _v = + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 50313 "src/ocaml/preprocess/parser_raw.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 - +# 51332 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 50324 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 51343 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3827 "src/ocaml/preprocess/parser_raw.mly" ( let info = symbol_info _endpos in let attrs = add_info_attrs info _2 in Rf.tag ~loc:(make_loc _sloc) ~attrs _1 true [] ) -# 50335 "src/ocaml/preprocess/parser_raw.ml" - in +# 51354 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.row_field)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50360,31 +51380,33 @@ 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 : (Parsetree.toplevel_phrase) = let arg = -# 124 "" + let _v = + let arg = +# 123 "" ( None ) -# 50367 "src/ocaml/preprocess/parser_raw.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 - +# 51388 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 50378 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_arg_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 51399 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_arg_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 4031 "src/ocaml/preprocess/parser_raw.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50387 "src/ocaml/preprocess/parser_raw.ml" - in +# 51408 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50416,56 +51438,58 @@ module Tables = struct let _1_inlined2 : ( # 876 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string option) -# 50420 "src/ocaml/preprocess/parser_raw.ml" +# 51442 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (string) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v : (Parsetree.toplevel_phrase) = let arg = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let x = - let _1 = + let _v = + let arg = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let x = + let _1 = # 4035 "src/ocaml/preprocess/parser_raw.mly" ( let (s, _, _) = _1 in Pdir_string s ) -# 50433 "src/ocaml/preprocess/parser_raw.ml" - in +# 51456 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1088 "src/ocaml/preprocess/parser_raw.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 51464 "src/ocaml/preprocess/parser_raw.ml" + + in + +# 126 "" + ( Some x ) +# 51470 "src/ocaml/preprocess/parser_raw.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 -# 1088 "src/ocaml/preprocess/parser_raw.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50441 "src/ocaml/preprocess/parser_raw.ml" +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 51482 "src/ocaml/preprocess/parser_raw.ml" in - -# 126 "" - ( Some x ) -# 50447 "src/ocaml/preprocess/parser_raw.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 _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 50459 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_arg_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + ( # 4031 "src/ocaml/preprocess/parser_raw.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50468 "src/ocaml/preprocess/parser_raw.ml" - in +# 51491 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50497,56 +51521,58 @@ module Tables = struct let _1_inlined2 : ( # 824 "src/ocaml/preprocess/parser_raw.mly" (string * char option) -# 50501 "src/ocaml/preprocess/parser_raw.ml" +# 51525 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (string) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in - let _v : (Parsetree.toplevel_phrase) = let arg = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let x = - let _1 = + let _v = + let arg = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let x = + let _1 = # 4036 "src/ocaml/preprocess/parser_raw.mly" ( let (n, m) = _1 in Pdir_int (n ,m) ) -# 50514 "src/ocaml/preprocess/parser_raw.ml" - in +# 51539 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1088 "src/ocaml/preprocess/parser_raw.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 51547 "src/ocaml/preprocess/parser_raw.ml" + + in + +# 126 "" + ( Some x ) +# 51553 "src/ocaml/preprocess/parser_raw.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 -# 1088 "src/ocaml/preprocess/parser_raw.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50522 "src/ocaml/preprocess/parser_raw.ml" +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 51565 "src/ocaml/preprocess/parser_raw.ml" in - -# 126 "" - ( Some x ) -# 50528 "src/ocaml/preprocess/parser_raw.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 _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 50540 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_arg_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + ( # 4031 "src/ocaml/preprocess/parser_raw.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50549 "src/ocaml/preprocess/parser_raw.ml" - in +# 51574 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50581,49 +51607,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 : (Parsetree.toplevel_phrase) = let arg = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let x = - let _1 = + let _v = + let arg = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let x = + let _1 = # 4037 "src/ocaml/preprocess/parser_raw.mly" ( Pdir_ident _1 ) -# 50591 "src/ocaml/preprocess/parser_raw.ml" - in +# 51618 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1088 "src/ocaml/preprocess/parser_raw.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 51626 "src/ocaml/preprocess/parser_raw.ml" + + in + +# 126 "" + ( Some x ) +# 51632 "src/ocaml/preprocess/parser_raw.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 -# 1088 "src/ocaml/preprocess/parser_raw.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50599 "src/ocaml/preprocess/parser_raw.ml" +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 51644 "src/ocaml/preprocess/parser_raw.ml" in - -# 126 "" - ( Some x ) -# 50605 "src/ocaml/preprocess/parser_raw.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 _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 50617 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_arg_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + ( # 4031 "src/ocaml/preprocess/parser_raw.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50626 "src/ocaml/preprocess/parser_raw.ml" - in +# 51653 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50658,49 +51686,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 : (Parsetree.toplevel_phrase) = let arg = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let x = - let _1 = + let _v = + let arg = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let x = + let _1 = # 4038 "src/ocaml/preprocess/parser_raw.mly" ( Pdir_ident _1 ) -# 50668 "src/ocaml/preprocess/parser_raw.ml" - in +# 51697 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1088 "src/ocaml/preprocess/parser_raw.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 51705 "src/ocaml/preprocess/parser_raw.ml" + + in + +# 126 "" + ( Some x ) +# 51711 "src/ocaml/preprocess/parser_raw.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 -# 1088 "src/ocaml/preprocess/parser_raw.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50676 "src/ocaml/preprocess/parser_raw.ml" +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 51723 "src/ocaml/preprocess/parser_raw.ml" in - -# 126 "" - ( Some x ) -# 50682 "src/ocaml/preprocess/parser_raw.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 _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 50694 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_arg_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + ( # 4031 "src/ocaml/preprocess/parser_raw.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50703 "src/ocaml/preprocess/parser_raw.ml" - in +# 51732 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50735,49 +51765,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 : (Parsetree.toplevel_phrase) = let arg = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let x = - let _1 = + let _v = + let arg = + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in + let x = + let _1 = # 4039 "src/ocaml/preprocess/parser_raw.mly" ( Pdir_bool false ) -# 50745 "src/ocaml/preprocess/parser_raw.ml" - in +# 51776 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1088 "src/ocaml/preprocess/parser_raw.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 51784 "src/ocaml/preprocess/parser_raw.ml" + + in + +# 126 "" + ( Some x ) +# 51790 "src/ocaml/preprocess/parser_raw.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 -# 1088 "src/ocaml/preprocess/parser_raw.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50753 "src/ocaml/preprocess/parser_raw.ml" +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 51802 "src/ocaml/preprocess/parser_raw.ml" in - -# 126 "" - ( Some x ) -# 50759 "src/ocaml/preprocess/parser_raw.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 _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 50771 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_arg_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + ( # 4031 "src/ocaml/preprocess/parser_raw.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50780 "src/ocaml/preprocess/parser_raw.ml" - in +# 51811 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50812,49 +51844,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 : (Parsetree.toplevel_phrase) = let arg = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in - let x = - let _1 = + let _v = + let arg = + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in + let x = + let _1 = # 4040 "src/ocaml/preprocess/parser_raw.mly" ( Pdir_bool true ) -# 50822 "src/ocaml/preprocess/parser_raw.ml" - in +# 51855 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1088 "src/ocaml/preprocess/parser_raw.mly" + ( mk_directive_arg ~loc:_sloc _1 ) +# 51863 "src/ocaml/preprocess/parser_raw.ml" + + in + +# 126 "" + ( Some x ) +# 51869 "src/ocaml/preprocess/parser_raw.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 -# 1088 "src/ocaml/preprocess/parser_raw.mly" - ( mk_directive_arg ~loc:_sloc _1 ) -# 50830 "src/ocaml/preprocess/parser_raw.ml" +# 1027 "src/ocaml/preprocess/parser_raw.mly" + ( mkrhs _1 _sloc ) +# 51881 "src/ocaml/preprocess/parser_raw.ml" in - -# 126 "" - ( Some x ) -# 50836 "src/ocaml/preprocess/parser_raw.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 _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in - -# 1027 "src/ocaml/preprocess/parser_raw.mly" - ( mkrhs _1 _sloc ) -# 50848 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_arg_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + ( # 4031 "src/ocaml/preprocess/parser_raw.mly" ( mk_directive ~loc:_sloc dir arg ) -# 50857 "src/ocaml/preprocess/parser_raw.ml" - in +# 51890 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50889,42 +51923,44 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.toplevel_phrase) = let _1 = + let _v = let _1 = let _1 = - let attrs = + let _1 = + let attrs = # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 50899 "src/ocaml/preprocess/parser_raw.ml" - in - +# 51934 "src/ocaml/preprocess/parser_raw.ml" + in + # 1570 "src/ocaml/preprocess/parser_raw.mly" ( mkstrexp e attrs ) -# 50904 "src/ocaml/preprocess/parser_raw.ml" +# 51939 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_e_ in + let _startpos = _startpos__1_ in + +# 1031 "src/ocaml/preprocess/parser_raw.mly" + ( text_str _startpos @ [_1] ) +# 51947 "src/ocaml/preprocess/parser_raw.ml" in let _startpos__1_ = _startpos_e_ in + let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1031 "src/ocaml/preprocess/parser_raw.mly" - ( text_str _startpos @ [_1] ) -# 50912 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos__1_ = _startpos_e_ in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - # 1019 "src/ocaml/preprocess/parser_raw.mly" ( extra_str _startpos _endpos _1 ) -# 50921 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 51956 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1319 "src/ocaml/preprocess/parser_raw.mly" ( Ptop_def _1 ) -# 50927 "src/ocaml/preprocess/parser_raw.ml" - in +# 51962 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -50952,26 +51988,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.toplevel_phrase) = let _1 = - let _1 = -# 260 "" + let _v = + let _1 = + let _1 = +# 271 "" ( List.flatten xss ) -# 50960 "src/ocaml/preprocess/parser_raw.ml" - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - +# 51997 "src/ocaml/preprocess/parser_raw.ml" + in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in + # 1019 "src/ocaml/preprocess/parser_raw.mly" ( extra_str _startpos _endpos _1 ) -# 50968 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 52005 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1323 "src/ocaml/preprocess/parser_raw.mly" ( Ptop_def _1 ) -# 50974 "src/ocaml/preprocess/parser_raw.ml" - in +# 52011 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51002,7 +52040,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase) = # 1327 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 51006 "src/ocaml/preprocess/parser_raw.ml" +# 52044 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51027,7 +52065,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase) = # 1330 "src/ocaml/preprocess/parser_raw.mly" ( raise End_of_file ) -# 51031 "src/ocaml/preprocess/parser_raw.ml" +# 52069 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51052,7 +52090,7 @@ module Tables = struct let _v : (Parsetree.core_type) = # 3673 "src/ocaml/preprocess/parser_raw.mly" ( ty ) -# 51056 "src/ocaml/preprocess/parser_raw.ml" +# 52094 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51074,41 +52112,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in - let _v : (Parsetree.core_type) = let _1 = + let _v = let _1 = - let tys = - let xs = -# 253 "" + let _1 = + let tys = + let xs = +# 264 "" ( List.rev xs ) -# 51084 "src/ocaml/preprocess/parser_raw.ml" - in - +# 52123 "src/ocaml/preprocess/parser_raw.ml" + in + # 1210 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 51089 "src/ocaml/preprocess/parser_raw.ml" +# 52128 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3676 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_tuple tys ) -# 51095 "src/ocaml/preprocess/parser_raw.ml" +# 52134 "src/ocaml/preprocess/parser_raw.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 - 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 - # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 51105 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 52144 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3678 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 51111 "src/ocaml/preprocess/parser_raw.ml" - in +# 52150 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51139,7 +52179,7 @@ module Tables = struct let _v : (Parsetree.type_constraint) = # 2989 "src/ocaml/preprocess/parser_raw.mly" ( Pconstraint _2 ) -# 51143 "src/ocaml/preprocess/parser_raw.ml" +# 52183 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51185,7 +52225,7 @@ module Tables = struct let _v : (Parsetree.type_constraint) = # 2990 "src/ocaml/preprocess/parser_raw.mly" ( Pcoerce (Some _2, _4) ) -# 51189 "src/ocaml/preprocess/parser_raw.ml" +# 52229 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51217,7 +52257,7 @@ module Tables = struct let _v : (Parsetree.type_constraint) = # 2991 "src/ocaml/preprocess/parser_raw.mly" ( Pcoerce (None, _2) ) -# 51221 "src/ocaml/preprocess/parser_raw.ml" +# 52261 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51235,7 +52275,7 @@ module Tables = struct let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = # 3326 "src/ocaml/preprocess/parser_raw.mly" ( (Ptype_abstract, Public, None) ) -# 51239 "src/ocaml/preprocess/parser_raw.ml" +# 52279 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51267,7 +52307,7 @@ module Tables = struct let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = # 3328 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 51271 "src/ocaml/preprocess/parser_raw.ml" +# 52311 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51292,7 +52332,7 @@ module Tables = struct let _v : (Longident.t) = # 3990 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 51296 "src/ocaml/preprocess/parser_raw.ml" +# 52336 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51324,7 +52364,7 @@ module Tables = struct let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = # 3343 "src/ocaml/preprocess/parser_raw.mly" ( _2, _1 ) -# 51328 "src/ocaml/preprocess/parser_raw.ml" +# 52368 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51342,7 +52382,7 @@ module Tables = struct let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = # 3336 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 51346 "src/ocaml/preprocess/parser_raw.ml" +# 52386 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51367,7 +52407,7 @@ module Tables = struct let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = # 3338 "src/ocaml/preprocess/parser_raw.mly" ( [p] ) -# 51371 "src/ocaml/preprocess/parser_raw.ml" +# 52411 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51403,23 +52443,25 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in - let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let ps = - let xs = -# 253 "" + let _v = + let ps = + let xs = +# 264 "" ( List.rev xs ) -# 51411 "src/ocaml/preprocess/parser_raw.ml" - in - +# 52452 "src/ocaml/preprocess/parser_raw.ml" + in + # 1182 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 51416 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 52457 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3340 "src/ocaml/preprocess/parser_raw.mly" ( ps ) -# 51422 "src/ocaml/preprocess/parser_raw.ml" - in +# 52463 "src/ocaml/preprocess/parser_raw.ml" + : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51447,27 +52489,29 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_tyvar_ in - let _v : (Parsetree.core_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3348 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_var tyvar ) -# 51455 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos__1_ = _endpos_tyvar_ in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 52498 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos__1_ = _endpos_tyvar_ in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 51464 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 52507 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3351 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 51470 "src/ocaml/preprocess/parser_raw.ml" - in +# 52513 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51488,26 +52532,28 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Parsetree.core_type) = let _1 = - let _1 = + let _v = + let _1 = + let _1 = # 3350 "src/ocaml/preprocess/parser_raw.mly" ( Ptyp_any ) -# 51496 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 52541 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1064 "src/ocaml/preprocess/parser_raw.mly" ( mktyp ~loc:_sloc _1 ) -# 51504 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 52549 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3351 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 51510 "src/ocaml/preprocess/parser_raw.ml" - in +# 52555 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.core_type)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51524,7 +52570,7 @@ module Tables = struct let _v : (Asttypes.variance * Asttypes.injectivity) = # 3355 "src/ocaml/preprocess/parser_raw.mly" ( NoVariance, NoInjectivity ) -# 51528 "src/ocaml/preprocess/parser_raw.ml" +# 52574 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51549,7 +52595,7 @@ module Tables = struct let _v : (Asttypes.variance * Asttypes.injectivity) = # 3356 "src/ocaml/preprocess/parser_raw.mly" ( Covariant, NoInjectivity ) -# 51553 "src/ocaml/preprocess/parser_raw.ml" +# 52599 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51574,7 +52620,7 @@ module Tables = struct let _v : (Asttypes.variance * Asttypes.injectivity) = # 3357 "src/ocaml/preprocess/parser_raw.mly" ( Contravariant, NoInjectivity ) -# 51578 "src/ocaml/preprocess/parser_raw.ml" +# 52624 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51599,7 +52645,7 @@ module Tables = struct let _v : (Asttypes.variance * Asttypes.injectivity) = # 3358 "src/ocaml/preprocess/parser_raw.mly" ( NoVariance, Injective ) -# 51603 "src/ocaml/preprocess/parser_raw.ml" +# 52649 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51631,7 +52677,7 @@ module Tables = struct let _v : (Asttypes.variance * Asttypes.injectivity) = # 3359 "src/ocaml/preprocess/parser_raw.mly" ( Covariant, Injective ) -# 51635 "src/ocaml/preprocess/parser_raw.ml" +# 52681 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51663,7 +52709,7 @@ module Tables = struct let _v : (Asttypes.variance * Asttypes.injectivity) = # 3359 "src/ocaml/preprocess/parser_raw.mly" ( Covariant, Injective ) -# 51667 "src/ocaml/preprocess/parser_raw.ml" +# 52713 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51695,7 +52741,7 @@ module Tables = struct let _v : (Asttypes.variance * Asttypes.injectivity) = # 3360 "src/ocaml/preprocess/parser_raw.mly" ( Contravariant, Injective ) -# 51699 "src/ocaml/preprocess/parser_raw.ml" +# 52745 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51727,7 +52773,7 @@ module Tables = struct let _v : (Asttypes.variance * Asttypes.injectivity) = # 3360 "src/ocaml/preprocess/parser_raw.mly" ( Contravariant, Injective ) -# 51731 "src/ocaml/preprocess/parser_raw.ml" +# 52777 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51748,20 +52794,22 @@ module Tables = struct let _1 : ( # 816 "src/ocaml/preprocess/parser_raw.mly" (string) -# 51752 "src/ocaml/preprocess/parser_raw.ml" +# 52798 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Asttypes.variance * Asttypes.injectivity) = let _loc__1_ = (_startpos__1_, _endpos__1_) in - + let _v = + let _loc__1_ = (_startpos__1_, _endpos__1_) in + ( # 3362 "src/ocaml/preprocess/parser_raw.mly" ( if _1 = "+!" then Covariant, Injective else if _1 = "-!" then Contravariant, Injective else (expecting _loc__1_ "type_variance"; NoVariance, NoInjectivity) ) -# 51764 "src/ocaml/preprocess/parser_raw.ml" - in +# 52811 "src/ocaml/preprocess/parser_raw.ml" + : (Asttypes.variance * Asttypes.injectivity)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51781,20 +52829,22 @@ module Tables = struct let _1 : ( # 862 "src/ocaml/preprocess/parser_raw.mly" (string) -# 51785 "src/ocaml/preprocess/parser_raw.ml" +# 52833 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in - let _v : (Asttypes.variance * Asttypes.injectivity) = let _loc__1_ = (_startpos__1_, _endpos__1_) in - + let _v = + let _loc__1_ = (_startpos__1_, _endpos__1_) in + ( # 3367 "src/ocaml/preprocess/parser_raw.mly" ( if _1 = "!+" then Covariant, Injective else if _1 = "!-" then Contravariant, Injective else (expecting _loc__1_ "type_variance"; NoVariance, NoInjectivity) ) -# 51797 "src/ocaml/preprocess/parser_raw.ml" - in +# 52846 "src/ocaml/preprocess/parser_raw.ml" + : (Asttypes.variance * Asttypes.injectivity)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51822,45 +52872,47 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.toplevel_phrase list) = let _1 = + let _v = let _1 = - let ys = -# 260 "" + let _1 = + let ys = +# 271 "" ( List.flatten xss ) -# 51831 "src/ocaml/preprocess/parser_raw.ml" - in - let xs = - let _1 = +# 52882 "src/ocaml/preprocess/parser_raw.ml" + in + let xs = + let _1 = # 1097 "src/ocaml/preprocess/parser_raw.mly" ( [] ) -# 51837 "src/ocaml/preprocess/parser_raw.ml" - in - +# 52888 "src/ocaml/preprocess/parser_raw.ml" + in + # 1350 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 51842 "src/ocaml/preprocess/parser_raw.ml" +# 52893 "src/ocaml/preprocess/parser_raw.ml" + + in - in - -# 267 "" +# 278 "" ( xs @ ys ) -# 51848 "src/ocaml/preprocess/parser_raw.ml" +# 52899 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - # 1023 "src/ocaml/preprocess/parser_raw.mly" ( extra_def _startpos _endpos _1 ) -# 51857 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 52908 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1343 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 51863 "src/ocaml/preprocess/parser_raw.ml" - in +# 52914 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -51902,75 +52954,77 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_e_ in let _endpos = _endpos__2_ in - let _v : (Parsetree.toplevel_phrase list) = let _1 = + let _v = let _1 = - let ys = -# 260 "" + let _1 = + let ys = +# 271 "" ( List.flatten xss ) -# 51911 "src/ocaml/preprocess/parser_raw.ml" - in - let xs = - let _1 = - let x = - let _1 = +# 52964 "src/ocaml/preprocess/parser_raw.ml" + in + let xs = + let _1 = + let x = let _1 = - let attrs = + let _1 = + let attrs = # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 51921 "src/ocaml/preprocess/parser_raw.ml" - in - +# 52974 "src/ocaml/preprocess/parser_raw.ml" + in + # 1570 "src/ocaml/preprocess/parser_raw.mly" ( mkstrexp e attrs ) -# 51926 "src/ocaml/preprocess/parser_raw.ml" +# 52979 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1041 "src/ocaml/preprocess/parser_raw.mly" ( Ptop_def [_1] ) -# 51932 "src/ocaml/preprocess/parser_raw.ml" +# 52985 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__1_ = _startpos_e_ in + let _startpos = _startpos__1_ in - in - let _startpos__1_ = _startpos_e_ in - let _startpos = _startpos__1_ in - # 1039 "src/ocaml/preprocess/parser_raw.mly" ( text_def _startpos @ [_1] ) -# 51940 "src/ocaml/preprocess/parser_raw.ml" +# 52993 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1099 "src/ocaml/preprocess/parser_raw.mly" ( x ) -# 51946 "src/ocaml/preprocess/parser_raw.ml" +# 52999 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 1350 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 51952 "src/ocaml/preprocess/parser_raw.ml" +# 53005 "src/ocaml/preprocess/parser_raw.ml" + + in - in - -# 267 "" +# 278 "" ( xs @ ys ) -# 51958 "src/ocaml/preprocess/parser_raw.ml" +# 53011 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in + let _endpos = _endpos__1_ in + let _startpos = _startpos__1_ in - in - let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in - let _endpos = _endpos__1_ in - let _startpos = _startpos__1_ in - # 1023 "src/ocaml/preprocess/parser_raw.mly" ( extra_def _startpos _endpos _1 ) -# 51967 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 53020 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 1343 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 51973 "src/ocaml/preprocess/parser_raw.ml" - in +# 53026 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.toplevel_phrase list)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52008,7 +53062,7 @@ module Tables = struct let _v : (string) = # 3907 "src/ocaml/preprocess/parser_raw.mly" ( _2 ) -# 52012 "src/ocaml/preprocess/parser_raw.ml" +# 53066 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52029,7 +53083,7 @@ module Tables = struct let _1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 52033 "src/ocaml/preprocess/parser_raw.ml" +# 53087 "src/ocaml/preprocess/parser_raw.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -52037,7 +53091,7 @@ module Tables = struct let _v : (string) = # 3915 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52041 "src/ocaml/preprocess/parser_raw.ml" +# 53095 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52062,7 +53116,7 @@ module Tables = struct let _v : (string) = # 3916 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52066 "src/ocaml/preprocess/parser_raw.ml" +# 53120 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52087,7 +53141,7 @@ module Tables = struct let _v : (Longident.t) = # 3984 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52091 "src/ocaml/preprocess/parser_raw.ml" +# 53145 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52134,45 +53188,47 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 52138 "src/ocaml/preprocess/parser_raw.ml" +# 53192 "src/ocaml/preprocess/parser_raw.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 : ((string Location.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 = + let _v = + let label = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52151 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 53205 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 52159 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs = +# 53213 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs = # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52165 "src/ocaml/preprocess/parser_raw.ml" - in - let _1 = +# 53219 "src/ocaml/preprocess/parser_raw.ml" + in + let _1 = # 4126 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 52170 "src/ocaml/preprocess/parser_raw.ml" - in - +# 53224 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 2168 "src/ocaml/preprocess/parser_raw.mly" ( (label, mutable_, Cfk_virtual ty), attrs ) -# 52175 "src/ocaml/preprocess/parser_raw.ml" - in +# 53229 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52218,45 +53274,47 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 52222 "src/ocaml/preprocess/parser_raw.ml" +# 53278 "src/ocaml/preprocess/parser_raw.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 : ((string Location.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 = + let _v = + let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52235 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 53291 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 52243 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = +# 53299 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52249 "src/ocaml/preprocess/parser_raw.ml" - in - let _1 = +# 53305 "src/ocaml/preprocess/parser_raw.ml" + in + let _1 = # 4129 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 52254 "src/ocaml/preprocess/parser_raw.ml" - in - +# 53310 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 2170 "src/ocaml/preprocess/parser_raw.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 52259 "src/ocaml/preprocess/parser_raw.ml" - in +# 53315 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52308,7 +53366,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 52312 "src/ocaml/preprocess/parser_raw.ml" +# 53370 "src/ocaml/preprocess/parser_raw.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 @@ -52316,41 +53374,43 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in - let _v : ((string Location.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 = + let _v = + let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52326 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 53384 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 52334 "src/ocaml/preprocess/parser_raw.ml" - - in - let _2 = - let _1 = _1_inlined1 in - +# 53392 "src/ocaml/preprocess/parser_raw.ml" + + in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52342 "src/ocaml/preprocess/parser_raw.ml" - - in - let _1 = +# 53400 "src/ocaml/preprocess/parser_raw.ml" + + in + let _1 = # 4130 "src/ocaml/preprocess/parser_raw.mly" ( Override ) -# 52348 "src/ocaml/preprocess/parser_raw.ml" - in - +# 53406 "src/ocaml/preprocess/parser_raw.ml" + in + ( # 2170 "src/ocaml/preprocess/parser_raw.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 52353 "src/ocaml/preprocess/parser_raw.ml" - in +# 53411 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52403,62 +53463,64 @@ module Tables = struct let _1_inlined1 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 52407 "src/ocaml/preprocess/parser_raw.ml" +# 53467 "src/ocaml/preprocess/parser_raw.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 : ((string Location.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 = + let _v = + let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52420 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 53480 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 52428 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos__4_ = _startpos__1_inlined1_ in - let _2 = +# 53488 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__4_ = _startpos__1_inlined1_ in + let _2 = # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52435 "src/ocaml/preprocess/parser_raw.ml" - in - let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in - let _1 = +# 53495 "src/ocaml/preprocess/parser_raw.ml" + in + let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in + let _1 = # 4129 "src/ocaml/preprocess/parser_raw.mly" ( Fresh ) -# 52441 "src/ocaml/preprocess/parser_raw.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_ +# 53501 "src/ocaml/preprocess/parser_raw.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__3_ != _endpos__3_ then - _startpos__3_ + if _startpos__2_ != _endpos__2_ then + _startpos__2_ else - _startpos__4_ in - let _sloc = (_symbolstartpos, _endpos) in - + if _startpos__3_ != _endpos__3_ then + _startpos__3_ + else + _startpos__4_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2173 "src/ocaml/preprocess/parser_raw.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 52461 "src/ocaml/preprocess/parser_raw.ml" - in +# 53521 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52517,7 +53579,7 @@ module Tables = struct let _1_inlined2 : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 52521 "src/ocaml/preprocess/parser_raw.ml" +# 53583 "src/ocaml/preprocess/parser_raw.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 @@ -52525,57 +53587,59 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in - let _v : ((string Location.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 = + let _v = + let _4 = + let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in + let _1 = # 3881 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52535 "src/ocaml/preprocess/parser_raw.ml" - in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 53597 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 52543 "src/ocaml/preprocess/parser_raw.ml" - - in - let _startpos__4_ = _startpos__1_inlined2_ in - let _2 = - let _1 = _1_inlined1 in - +# 53605 "src/ocaml/preprocess/parser_raw.ml" + + in + let _startpos__4_ = _startpos__1_inlined2_ in + let _2 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52552 "src/ocaml/preprocess/parser_raw.ml" - - in - let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in - let _1 = +# 53614 "src/ocaml/preprocess/parser_raw.ml" + + in + let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in + let _1 = # 4130 "src/ocaml/preprocess/parser_raw.mly" ( Override ) -# 52559 "src/ocaml/preprocess/parser_raw.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_ +# 53621 "src/ocaml/preprocess/parser_raw.ml" + in + let _endpos = _endpos__7_ in + let _symbolstartpos = if _startpos__1_ != _endpos__1_ then + _startpos__1_ else - if _startpos__3_ != _endpos__3_ then - _startpos__3_ + if _startpos__2_ != _endpos__2_ then + _startpos__2_ else - _startpos__4_ in - let _sloc = (_symbolstartpos, _endpos) in - + if _startpos__3_ != _endpos__3_ then + _startpos__3_ + else + _startpos__4_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 2173 "src/ocaml/preprocess/parser_raw.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 52578 "src/ocaml/preprocess/parser_raw.ml" - in +# 53640 "src/ocaml/preprocess/parser_raw.ml" + : ((string Location.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * + Parsetree.attributes)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52638,46 +53702,48 @@ 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 : (Parsetree.value_description * string Location.loc option) = let attrs2 = - let _1 = _1_inlined3 in - + let _v = + let attrs2 = + let _1 = _1_inlined3 in + # 4223 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52647 "src/ocaml/preprocess/parser_raw.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 - +# 53712 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 52659 "src/ocaml/preprocess/parser_raw.ml" - - in - let attrs1 = - let _1 = _1_inlined1 in - +# 53724 "src/ocaml/preprocess/parser_raw.ml" + + in + let attrs1 = + let _1 = _1_inlined1 in + # 4227 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52667 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 53732 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3197 "src/ocaml/preprocess/parser_raw.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 ) -# 52680 "src/ocaml/preprocess/parser_raw.ml" - in +# 53745 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.value_description * string Location.loc option)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -52694,7 +53760,7 @@ module Tables = struct let _v : (Asttypes.virtual_flag) = # 4090 "src/ocaml/preprocess/parser_raw.mly" ( Concrete ) -# 52698 "src/ocaml/preprocess/parser_raw.ml" +# 53764 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52719,7 +53785,7 @@ module Tables = struct let _v : (Asttypes.virtual_flag) = # 4091 "src/ocaml/preprocess/parser_raw.mly" ( Virtual ) -# 52723 "src/ocaml/preprocess/parser_raw.ml" +# 53789 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52744,7 +53810,7 @@ module Tables = struct let _v : (Asttypes.mutable_flag) = # 4114 "src/ocaml/preprocess/parser_raw.mly" ( Immutable ) -# 52748 "src/ocaml/preprocess/parser_raw.ml" +# 53814 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52776,7 +53842,7 @@ module Tables = struct let _v : (Asttypes.mutable_flag) = # 4115 "src/ocaml/preprocess/parser_raw.mly" ( Mutable ) -# 52780 "src/ocaml/preprocess/parser_raw.ml" +# 53846 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52808,7 +53874,7 @@ module Tables = struct let _v : (Asttypes.mutable_flag) = # 4116 "src/ocaml/preprocess/parser_raw.mly" ( Mutable ) -# 52812 "src/ocaml/preprocess/parser_raw.ml" +# 53878 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52833,7 +53899,7 @@ module Tables = struct let _v : (Asttypes.private_flag) = # 4121 "src/ocaml/preprocess/parser_raw.mly" ( Public ) -# 52837 "src/ocaml/preprocess/parser_raw.ml" +# 53903 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52865,7 +53931,7 @@ module Tables = struct let _v : (Asttypes.private_flag) = # 4122 "src/ocaml/preprocess/parser_raw.mly" ( Private ) -# 52869 "src/ocaml/preprocess/parser_raw.ml" +# 53935 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52897,7 +53963,7 @@ module Tables = struct let _v : (Asttypes.private_flag) = # 4123 "src/ocaml/preprocess/parser_raw.mly" ( Private ) -# 52901 "src/ocaml/preprocess/parser_raw.ml" +# 53967 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52954,49 +54020,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 : (Parsetree.with_constraint) = let _6 = - let _1 = - let xs = -# 253 "" + let _v = + let _6 = + let _1 = + let xs = +# 264 "" ( List.rev xs ) -# 52963 "src/ocaml/preprocess/parser_raw.ml" - in - +# 54030 "src/ocaml/preprocess/parser_raw.ml" + in + # 1111 "src/ocaml/preprocess/parser_raw.mly" ( xs ) -# 52968 "src/ocaml/preprocess/parser_raw.ml" +# 54035 "src/ocaml/preprocess/parser_raw.ml" + + in - in - # 3297 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52974 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos__6_ = _endpos_xs_ in - let _5 = - let _1 = _1_inlined2 in - +# 54041 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos__6_ = _endpos_xs_ in + let _5 = + let _1 = _1_inlined2 in + # 3621 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 52983 "src/ocaml/preprocess/parser_raw.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 - +# 54050 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 52994 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__6_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 54061 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__6_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3540 "src/ocaml/preprocess/parser_raw.mly" ( let lident = loc_last _3 in Pwith_type @@ -53007,8 +54074,9 @@ module Tables = struct ~manifest:_5 ~priv:_4 ~loc:(make_loc _sloc))) ) -# 53011 "src/ocaml/preprocess/parser_raw.ml" - in +# 54078 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.with_constraint)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53057,30 +54125,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 : (Parsetree.with_constraint) = let _5 = - let _1 = _1_inlined2 in - + let _v = + let _5 = + let _1 = _1_inlined2 in + # 3621 "src/ocaml/preprocess/parser_raw.mly" ( _1 ) -# 53066 "src/ocaml/preprocess/parser_raw.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 - +# 54135 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 53078 "src/ocaml/preprocess/parser_raw.ml" - - in - let _endpos = _endpos__5_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - +# 54147 "src/ocaml/preprocess/parser_raw.ml" + + in + let _endpos = _endpos__5_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + ( # 3553 "src/ocaml/preprocess/parser_raw.mly" ( let lident = loc_last _3 in Pwith_typesubst @@ -53089,8 +54158,9 @@ module Tables = struct ~params:_2 ~manifest:_5 ~loc:(make_loc _sloc))) ) -# 53093 "src/ocaml/preprocess/parser_raw.ml" - in +# 54162 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.with_constraint)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53132,33 +54202,35 @@ 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 : (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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 53144 "src/ocaml/preprocess/parser_raw.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 - +# 54215 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 53155 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 54226 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3561 "src/ocaml/preprocess/parser_raw.mly" ( Pwith_module (_2, _4) ) -# 53161 "src/ocaml/preprocess/parser_raw.ml" - in +# 54232 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.with_constraint)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53200,33 +54272,35 @@ 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 : (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 - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 53212 "src/ocaml/preprocess/parser_raw.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 - +# 54285 "src/ocaml/preprocess/parser_raw.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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 53223 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 54296 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3563 "src/ocaml/preprocess/parser_raw.mly" ( Pwith_modsubst (_2, _4) ) -# 53229 "src/ocaml/preprocess/parser_raw.ml" - in +# 54302 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.with_constraint)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53275,22 +54349,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_rhs_ in - let _v : (Parsetree.with_constraint) = let l = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 53287 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 54362 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3565 "src/ocaml/preprocess/parser_raw.mly" ( Pwith_modtype (l, rhs) ) -# 53293 "src/ocaml/preprocess/parser_raw.ml" - in +# 54368 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.with_constraint)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53339,22 +54415,24 @@ module Tables = struct let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_rhs_ in - let _v : (Parsetree.with_constraint) = let l = - let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - + 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 + # 1027 "src/ocaml/preprocess/parser_raw.mly" ( mkrhs _1 _sloc ) -# 53351 "src/ocaml/preprocess/parser_raw.ml" - - in - +# 54428 "src/ocaml/preprocess/parser_raw.ml" + + in + ( # 3567 "src/ocaml/preprocess/parser_raw.mly" ( Pwith_modtypesubst (l, rhs) ) -# 53357 "src/ocaml/preprocess/parser_raw.ml" - in +# 54434 "src/ocaml/preprocess/parser_raw.ml" + : (Parsetree.with_constraint)) + in { MenhirLib.EngineTypes.state = _menhir_s; MenhirLib.EngineTypes.semv = Obj.repr _v; @@ -53378,7 +54456,7 @@ module Tables = struct let _v : (Asttypes.private_flag) = # 3570 "src/ocaml/preprocess/parser_raw.mly" ( Public ) -# 53382 "src/ocaml/preprocess/parser_raw.ml" +# 54460 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53410,7 +54488,7 @@ module Tables = struct let _v : (Asttypes.private_flag) = # 3571 "src/ocaml/preprocess/parser_raw.mly" ( Private ) -# 53414 "src/ocaml/preprocess/parser_raw.ml" +# 54492 "src/ocaml/preprocess/parser_raw.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53447,7 +54525,7 @@ module MenhirInterpreter = struct | T_UIDENT : ( # 890 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53451 "src/ocaml/preprocess/parser_raw.ml" +# 54529 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_TYPE : unit terminal | T_TRY : unit terminal @@ -53459,7 +54537,7 @@ module MenhirInterpreter = struct | T_STRING : ( # 876 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string option) -# 53463 "src/ocaml/preprocess/parser_raw.ml" +# 54541 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_STAR : unit terminal | T_SIG : unit terminal @@ -53472,12 +54550,12 @@ module MenhirInterpreter = struct | T_QUOTED_STRING_ITEM : ( # 881 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string * Location.t * string option) -# 53476 "src/ocaml/preprocess/parser_raw.ml" +# 54554 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_QUOTED_STRING_EXPR : ( # 878 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t * string * Location.t * string option) -# 53481 "src/ocaml/preprocess/parser_raw.ml" +# 54559 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_QUOTE : unit terminal | T_QUESTION : unit terminal @@ -53485,7 +54563,7 @@ module MenhirInterpreter = struct | T_PREFIXOP : ( # 862 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53489 "src/ocaml/preprocess/parser_raw.ml" +# 54567 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_PLUSEQ : unit terminal | T_PLUSDOT : unit terminal @@ -53495,7 +54573,7 @@ module MenhirInterpreter = struct | T_OPTLABEL : ( # 855 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53499 "src/ocaml/preprocess/parser_raw.ml" +# 54577 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_OPEN : unit terminal | T_OF : unit terminal @@ -53513,12 +54591,12 @@ module MenhirInterpreter = struct | T_LIDENT : ( # 838 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53517 "src/ocaml/preprocess/parser_raw.ml" +# 54595 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_LETOP : ( # 820 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53522 "src/ocaml/preprocess/parser_raw.ml" +# 54600 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_LET : unit terminal | T_LESSMINUS : unit terminal @@ -53538,39 +54616,39 @@ module MenhirInterpreter = struct | T_LABEL : ( # 825 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53542 "src/ocaml/preprocess/parser_raw.ml" +# 54620 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_INT : ( # 824 "src/ocaml/preprocess/parser_raw.mly" (string * char option) -# 53547 "src/ocaml/preprocess/parser_raw.ml" +# 54625 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_INITIALIZER : unit terminal | T_INHERIT : unit terminal | T_INFIXOP4 : ( # 818 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53554 "src/ocaml/preprocess/parser_raw.ml" +# 54632 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_INFIXOP3 : ( # 817 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53559 "src/ocaml/preprocess/parser_raw.ml" +# 54637 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_INFIXOP2 : ( # 816 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53564 "src/ocaml/preprocess/parser_raw.ml" +# 54642 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_INFIXOP1 : ( # 815 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53569 "src/ocaml/preprocess/parser_raw.ml" +# 54647 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_INFIXOP0 : ( # 814 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53574 "src/ocaml/preprocess/parser_raw.ml" +# 54652 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_INCLUDE : unit terminal | T_IN : unit terminal @@ -53578,7 +54656,7 @@ module MenhirInterpreter = struct | T_HASHOP : ( # 873 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53582 "src/ocaml/preprocess/parser_raw.ml" +# 54660 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_HASH : unit terminal | T_GREATERRBRACKET : unit terminal @@ -53592,7 +54670,7 @@ module MenhirInterpreter = struct | T_FLOAT : ( # 803 "src/ocaml/preprocess/parser_raw.mly" (string * char option) -# 53596 "src/ocaml/preprocess/parser_raw.ml" +# 54674 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_FALSE : unit terminal | T_EXTERNAL : unit terminal @@ -53607,7 +54685,7 @@ module MenhirInterpreter = struct | T_DOTOP : ( # 819 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53611 "src/ocaml/preprocess/parser_raw.ml" +# 54689 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_DOTLESS : unit terminal | T_DOTDOT : unit terminal @@ -53616,14 +54694,14 @@ module MenhirInterpreter = struct | T_DOCSTRING : ( # 898 "src/ocaml/preprocess/parser_raw.mly" (Docstrings.docstring) -# 53620 "src/ocaml/preprocess/parser_raw.ml" +# 54698 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_DO : unit terminal | T_CONSTRAINT : unit terminal | T_COMMENT : ( # 897 "src/ocaml/preprocess/parser_raw.mly" (string * Location.t) -# 53627 "src/ocaml/preprocess/parser_raw.ml" +# 54705 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_COMMA : unit terminal | T_COLONGREATER : unit terminal @@ -53634,7 +54712,7 @@ module MenhirInterpreter = struct | T_CHAR : ( # 783 "src/ocaml/preprocess/parser_raw.mly" (char) -# 53638 "src/ocaml/preprocess/parser_raw.ml" +# 54716 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_BEGIN : unit terminal | T_BARRBRACKET : unit terminal @@ -53647,7 +54725,7 @@ module MenhirInterpreter = struct | T_ANDOP : ( # 821 "src/ocaml/preprocess/parser_raw.mly" (string) -# 53651 "src/ocaml/preprocess/parser_raw.ml" +# 54729 "src/ocaml/preprocess/parser_raw.ml" ) terminal | T_AND : unit terminal | T_AMPERSAND : unit terminal @@ -54622,135 +55700,130 @@ module MenhirInterpreter = struct end let use_file = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1991 lexer lexbuf) : (Parsetree.toplevel_phrase list)) + fun lexer lexbuf : (Parsetree.toplevel_phrase list) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1991 lexer lexbuf) and toplevel_phrase = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1971 lexer lexbuf) : (Parsetree.toplevel_phrase)) + fun lexer lexbuf : (Parsetree.toplevel_phrase) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1971 lexer lexbuf) and parse_val_longident = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1965 lexer lexbuf) : (Longident.t)) + fun lexer lexbuf : (Longident.t) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1965 lexer lexbuf) and parse_pattern = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1961 lexer lexbuf) : (Parsetree.pattern)) + fun lexer lexbuf : (Parsetree.pattern) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1961 lexer lexbuf) and parse_mty_longident = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1957 lexer lexbuf) : (Longident.t)) + fun lexer lexbuf : (Longident.t) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1957 lexer lexbuf) and parse_module_type = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1953 lexer lexbuf) : (Parsetree.module_type)) + fun lexer lexbuf : (Parsetree.module_type) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1953 lexer lexbuf) and parse_module_expr = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1949 lexer lexbuf) : (Parsetree.module_expr)) + fun lexer lexbuf : (Parsetree.module_expr) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1949 lexer lexbuf) and parse_mod_longident = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1945 lexer lexbuf) : (Longident.t)) + fun lexer lexbuf : (Longident.t) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1945 lexer lexbuf) and parse_mod_ext_longident = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1941 lexer lexbuf) : (Longident.t)) + fun lexer lexbuf : (Longident.t) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1941 lexer lexbuf) and parse_expression = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1937 lexer lexbuf) : (Parsetree.expression)) + fun lexer lexbuf : (Parsetree.expression) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1937 lexer lexbuf) and parse_core_type = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1933 lexer lexbuf) : (Parsetree.core_type)) + fun lexer lexbuf : (Parsetree.core_type) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1933 lexer lexbuf) and parse_constr_longident = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1929 lexer lexbuf) : (Longident.t)) + fun lexer lexbuf : (Longident.t) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1929 lexer lexbuf) and parse_any_longident = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1911 lexer lexbuf) : (Longident.t)) + fun lexer lexbuf : (Longident.t) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1911 lexer lexbuf) and interface = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 1907 lexer lexbuf) : (Parsetree.signature)) + fun lexer lexbuf : (Parsetree.signature) -> + Obj.magic (MenhirInterpreter.entry `Legacy 1907 lexer lexbuf) and implementation = - fun lexer lexbuf -> - (Obj.magic (MenhirInterpreter.entry `Legacy 0 lexer lexbuf) : (Parsetree.structure)) + fun lexer lexbuf : (Parsetree.structure) -> + Obj.magic (MenhirInterpreter.entry `Legacy 0 lexer lexbuf) module Incremental = struct let use_file = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1991 initial_position) : (Parsetree.toplevel_phrase list) MenhirInterpreter.checkpoint) + fun initial_position : (Parsetree.toplevel_phrase list) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1991 initial_position) and toplevel_phrase = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1971 initial_position) : (Parsetree.toplevel_phrase) MenhirInterpreter.checkpoint) + fun initial_position : (Parsetree.toplevel_phrase) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1971 initial_position) and parse_val_longident = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1965 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) + fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1965 initial_position) and parse_pattern = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1961 initial_position) : (Parsetree.pattern) MenhirInterpreter.checkpoint) + fun initial_position : (Parsetree.pattern) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1961 initial_position) and parse_mty_longident = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1957 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) + fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1957 initial_position) and parse_module_type = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1953 initial_position) : (Parsetree.module_type) MenhirInterpreter.checkpoint) + fun initial_position : (Parsetree.module_type) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1953 initial_position) and parse_module_expr = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1949 initial_position) : (Parsetree.module_expr) MenhirInterpreter.checkpoint) + fun initial_position : (Parsetree.module_expr) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1949 initial_position) and parse_mod_longident = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1945 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) + fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1945 initial_position) and parse_mod_ext_longident = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1941 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) + fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1941 initial_position) and parse_expression = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1937 initial_position) : (Parsetree.expression) MenhirInterpreter.checkpoint) + fun initial_position : (Parsetree.expression) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1937 initial_position) and parse_core_type = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1933 initial_position) : (Parsetree.core_type) MenhirInterpreter.checkpoint) + fun initial_position : (Parsetree.core_type) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1933 initial_position) and parse_constr_longident = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1929 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) + fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1929 initial_position) and parse_any_longident = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1911 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) + fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1911 initial_position) and interface = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 1907 initial_position) : (Parsetree.signature) MenhirInterpreter.checkpoint) + fun initial_position : (Parsetree.signature) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 1907 initial_position) and implementation = - fun initial_position -> - (Obj.magic (MenhirInterpreter.start 0 initial_position) : (Parsetree.structure) MenhirInterpreter.checkpoint) + fun initial_position : (Parsetree.structure) MenhirInterpreter.checkpoint -> + Obj.magic (MenhirInterpreter.start 0 initial_position) end # 4273 "src/ocaml/preprocess/parser_raw.mly" -# 54752 "src/ocaml/preprocess/parser_raw.ml" - -# 269 "" - - -# 54757 "src/ocaml/preprocess/parser_raw.ml" +# 55830 "src/ocaml/preprocess/parser_raw.ml" diff --git a/tests/test-dirs/ocaml-index/cmd.t b/tests/test-dirs/ocaml-index/cmd.t new file mode 100644 index 000000000..ade4fee5a --- /dev/null +++ b/tests/test-dirs/ocaml-index/cmd.t @@ -0,0 +1,16 @@ + $ ocaml-index aggregate + $ ocaml-index aggregate --debug + [debug] Debug log is enabled + + $ ocaml-index --help + ocaml-index [COMMAND] [-verbose] [] ... -o + --verbose Output more information + --debug Output debugging information + -o Set output file name + --root Set the root path for all relative locations + --rewrite-root Rewrite locations paths using the provided root + --store-shapes Aggregate input-indexes shapes and store them in the new index + -I An extra directory to add to the load path + --no-cmt-load-path Do not initialize the load path with the paths found in the first input cmt file + -help Display this list of options + --help Display this list of options diff --git a/tests/test-dirs/ocaml-index/dune b/tests/test-dirs/ocaml-index/dune new file mode 100644 index 000000000..6e136ff7f --- /dev/null +++ b/tests/test-dirs/ocaml-index/dune @@ -0,0 +1,9 @@ +(alias + (name ocaml-index-test-deps) + (deps + (package ocaml-index))) + +(cram + (applies_to :whole_subtree) + (deps + (alias ocaml-index-test-deps))) diff --git a/tests/test-dirs/ocaml-index/flags.t b/tests/test-dirs/ocaml-index/flags.t new file mode 100644 index 000000000..1ea8399ca --- /dev/null +++ b/tests/test-dirs/ocaml-index/flags.t @@ -0,0 +1,33 @@ + $ cat >main.ml < let x = 42 + > let () = print_int x + > EOF + + $ ocamlc -bin-annot -bin-annot-occurrences -c main.ml + + $ ocaml-index aggregate main.cmt + +Default output file: + $ ls project.ocaml-index + project.ocaml-index + +Set output file: + $ ocaml-index aggregate main.cmt -o out + $ ls out + out + +No root dir was given: + $ ocaml-index stats project.ocaml-index | grep root + - root dir: none + +We provide one: + $ ocaml-index aggregate main.cmt --root /tmp/ + $ ocaml-index stats project.ocaml-index | grep root + - root dir: /tmp/ + +Rewrite locations: + $ ocaml-index aggregate main.cmt --root /tmp/ --rewrite-root + $ ocaml-index dump project.ocaml-index | grep File + "x": File "/tmp/main.ml", line 1, characters 4-5; + "x": File "/tmp/main.ml", line 2, characters 19-20 + "print_int": File "/tmp/main.ml", line 2, characters 9-18 diff --git a/tests/test-dirs/ocaml-index/index-project.t b/tests/test-dirs/ocaml-index/index-project.t new file mode 100644 index 000000000..d521d6918 --- /dev/null +++ b/tests/test-dirs/ocaml-index/index-project.t @@ -0,0 +1,134 @@ + $ cat >main.ml < let x = Foo.x + Foo.y + > let y = Foo.y + Bar.z + > type pouet = Foo.t + > let _, z = let x = 1 in x + y, 42 + > module A = struct + > let ina = 42 + > let _ = ina + > end + > let _ = A.ina + > module _ = Foo + > include Foo + > EOF + + $ cat >foo.ml < type t + > let x = 42 + > let y = 36 + Bar.z + x + > EOF + + $ cat >bar.ml < let z = 42 + > EOF + + $ ocamlc -bin-annot -bin-annot-occurrences -c bar.ml foo.ml main.ml + + $ ocaml-index aggregate -o main.uideps main.cmt + $ ocaml-index aggregate -o foo.uideps foo.cmt + $ ocaml-index aggregate -o bar.uideps bar.cmt + + $ ocaml-index dump main.uideps + 13 uids: + {uid: Foo; locs: + "Foo": File "main.ml", line 10, characters 11-14; + "Foo": File "main.ml", line 11, characters 8-11 + uid: Bar.0; locs: "Bar.z": File "main.ml", line 2, characters 16-21 + uid: Foo.0; locs: "Foo.t": File "main.ml", line 3, characters 13-18 + uid: Foo.1; locs: "Foo.x": File "main.ml", line 1, characters 8-13 + uid: Foo.2; locs: + "Foo.y": File "main.ml", line 1, characters 16-21; + "Foo.y": File "main.ml", line 2, characters 8-13 + uid: Main.0; locs: "x": File "main.ml", line 1, characters 4-5 + uid: Main.1; locs: + "y": File "main.ml", line 2, characters 4-5; + "y": File "main.ml", line 4, characters 28-29 + uid: Main.2; locs: "pouet": File "main.ml", line 3, characters 5-10 + uid: Main.3; locs: "z": File "main.ml", line 4, characters 7-8 + uid: Main.4; locs: + "x": File "main.ml", line 4, characters 15-16; + "x": File "main.ml", line 4, characters 24-25 + uid: Main.5; locs: + "ina": File "main.ml", line 6, characters 6-9; + "ina": File "main.ml", line 7, characters 10-13; + "A.ina": File "main.ml", line 9, characters 8-13 + uid: Main.6; locs: "A": File "main.ml", line 5, characters 7-8 + uid: Stdlib.53; locs: + "+": File "main.ml", line 1, characters 14-15; + "+": File "main.ml", line 2, characters 14-15; + "+": File "main.ml", line 4, characters 26-27 + }, 0 approx shapes: {}, and shapes for CUS . + + $ ocaml-index dump foo.uideps + 5 uids: + {uid: Bar.0; locs: "Bar.z": File "foo.ml", line 3, characters 13-18 + uid: Foo.0; locs: "t": File "foo.ml", line 1, characters 5-6 + uid: Foo.1; locs: + "x": File "foo.ml", line 2, characters 4-5; + "x": File "foo.ml", line 3, characters 21-22 + uid: Foo.2; locs: "y": File "foo.ml", line 3, characters 4-5 + uid: Stdlib.53; locs: + "+": File "foo.ml", line 3, characters 11-12; + "+": File "foo.ml", line 3, characters 19-20 + }, 0 approx shapes: {}, and shapes for CUS . + + + + $ ocaml-index -o test.uideps main.cmt foo.cmt bar.cmt + $ ocaml-index dump test.uideps + 13 uids: + {uid: Foo; locs: + "Foo": File "main.ml", line 10, characters 11-14; + "Foo": File "main.ml", line 11, characters 8-11 + uid: Bar.0; locs: + "z": File "bar.ml", line 1, characters 4-5; + "Bar.z": File "foo.ml", line 3, characters 13-18; + "Bar.z": File "main.ml", line 2, characters 16-21 + uid: Foo.0; locs: + "t": File "foo.ml", line 1, characters 5-6; + "Foo.t": File "main.ml", line 3, characters 13-18 + uid: Foo.1; locs: + "x": File "foo.ml", line 2, characters 4-5; + "x": File "foo.ml", line 3, characters 21-22; + "Foo.x": File "main.ml", line 1, characters 8-13 + uid: Foo.2; locs: + "y": File "foo.ml", line 3, characters 4-5; + "Foo.y": File "main.ml", line 1, characters 16-21; + "Foo.y": File "main.ml", line 2, characters 8-13 + uid: Main.0; locs: "x": File "main.ml", line 1, characters 4-5 + uid: Main.1; locs: + "y": File "main.ml", line 2, characters 4-5; + "y": File "main.ml", line 4, characters 28-29 + uid: Main.2; locs: "pouet": File "main.ml", line 3, characters 5-10 + uid: Main.3; locs: "z": File "main.ml", line 4, characters 7-8 + uid: Main.4; locs: + "x": File "main.ml", line 4, characters 15-16; + "x": File "main.ml", line 4, characters 24-25 + uid: Main.5; locs: + "ina": File "main.ml", line 6, characters 6-9; + "ina": File "main.ml", line 7, characters 10-13; + "A.ina": File "main.ml", line 9, characters 8-13 + uid: Main.6; locs: "A": File "main.ml", line 5, characters 7-8 + uid: Stdlib.53; locs: + "+": File "foo.ml", line 3, characters 11-12; + "+": File "foo.ml", line 3, characters 19-20; + "+": File "main.ml", line 1, characters 14-15; + "+": File "main.ml", line 2, characters 14-15; + "+": File "main.ml", line 4, characters 26-27 + }, 0 approx shapes: {}, and shapes for CUS . + + $ ocaml-index stats foo.uideps test.uideps + Index "test.uideps" contains: + - 13 definitions + - 29 locations + - 0 approximated definitions + - 0 compilation units shapes + - root dir: none + + Index "foo.uideps" contains: + - 5 definitions + - 7 locations + - 0 approximated definitions + - 0 compilation units shapes + - root dir: none + diff --git a/tests/test-dirs/ocaml-index/interfaces.t b/tests/test-dirs/ocaml-index/interfaces.t new file mode 100644 index 000000000..2232ed41b --- /dev/null +++ b/tests/test-dirs/ocaml-index/interfaces.t @@ -0,0 +1,23 @@ + $ cat >main.mli <<'EOF' + > type t = Float.t + > EOF + + $ ocamlc -bin-annot -bin-annot-occurrences -c main.mli + + $ ls + main.cmi + main.cmti + main.mli + + $ ocamlobjinfo -quiet -index main.cmti + Indexed shapes: + Unresolved: CU Stdlib . "Float"[module] . "t"[type] : + Float.t (File "main.mli", line 1, characters 9-16) + + $ ocaml-index aggregate main.cmti -o main.index + + $ ocaml-index dump main.index + 1 uids: + {uid: Stdlib__Float.81; locs: + "Float.t": File "main.mli", line 1, characters 9-16 + }, 0 approx shapes: {}, and shapes for CUS . diff --git a/tests/test-dirs/ocaml-index/local-shape-and-include.t b/tests/test-dirs/ocaml-index/local-shape-and-include.t new file mode 100644 index 000000000..120db8e51 --- /dev/null +++ b/tests/test-dirs/ocaml-index/local-shape-and-include.t @@ -0,0 +1,56 @@ + $ cat >main.ml < let f = String.equal + > module B : sig + > val g : string -> string -> bool + > end = struct + > module C = struct + > include External + > let g = equal + > end + > let g = C.g + > end + > EOF + + $ cat >external.ml < let equal = String.equal + > EOF + + $ ocamlc -bin-annot -bin-annot-occurrences -c external.ml main.ml + + $ ocaml-index aggregate -o main.uideps main.cmt + + $ ocaml-index aggregate -o test.uideps main.uideps + + $ ocaml-index dump main.uideps + 9 uids: + {uid: External; locs: "External": File "main.ml", line 6, characters 12-20 + uid: External.0; locs: "equal": File "main.ml", line 7, characters 12-17 + uid: Main.0; locs: "f": File "main.ml", line 1, characters 4-5 + uid: Main.1; locs: + "g": File "main.ml", line 7, characters 8-9; + "C.g": File "main.ml", line 9, characters 10-13 + uid: Main.2; locs: "C": File "main.ml", line 5, characters 9-10 + uid: Main.3; locs: "g": File "main.ml", line 9, characters 6-7 + uid: Main.4; locs: "g": File "main.ml", line 3, characters 6-7 + uid: Main.5; locs: "B": File "main.ml", line 2, characters 7-8 + uid: Stdlib__String.173; locs: + "String.equal": File "main.ml", line 1, characters 8-20 + }, 0 approx shapes: {}, and shapes for CUS . + + + $ ocaml-index dump test.uideps + 9 uids: + {uid: External; locs: "External": File "main.ml", line 6, characters 12-20 + uid: External.0; locs: "equal": File "main.ml", line 7, characters 12-17 + uid: Main.0; locs: "f": File "main.ml", line 1, characters 4-5 + uid: Main.1; locs: + "g": File "main.ml", line 7, characters 8-9; + "C.g": File "main.ml", line 9, characters 10-13 + uid: Main.2; locs: "C": File "main.ml", line 5, characters 9-10 + uid: Main.3; locs: "g": File "main.ml", line 9, characters 6-7 + uid: Main.4; locs: "g": File "main.ml", line 3, characters 6-7 + uid: Main.5; locs: "B": File "main.ml", line 2, characters 7-8 + uid: Stdlib__String.173; locs: + "String.equal": File "main.ml", line 1, characters 8-20 + }, 0 approx shapes: {}, and shapes for CUS . + diff --git a/tests/test-dirs/ocaml-index/transitive-deps.t b/tests/test-dirs/ocaml-index/transitive-deps.t new file mode 100644 index 000000000..416469105 --- /dev/null +++ b/tests/test-dirs/ocaml-index/transitive-deps.t @@ -0,0 +1,53 @@ + $ cat >main.ml < let x = List.init Foo.x (fun n -> n) + > EOF + + $ mkdir lib1 + $ cat >lib1/foo.ml < include Bar + > EOF + + $ mkdir lib2 + $ cat >lib2/bar.ml < let x = 21 + > EOF + + $ ocamlc -bin-annot -bin-annot-occurrences -c lib2/bar.ml + $ ocamlc -bin-annot -bin-annot-occurrences -c lib1/foo.ml -I lib2 + +# Here we have an implicit transitive dependency on lib2: + $ ocamlc -bin-annot -bin-annot-occurrences -c main.ml -I lib1 -I /Users/ulysse/tmp/occurrences/_opam/lib/fpath + +# We pass explicitely the implicit transitive dependency over lib2: + $ ocaml-index aggregate -o main.uideps main.cmt -I lib2 + $ ocaml-index aggregate -o lib1/foo.uideps lib1/foo.cmt + $ ocaml-index aggregate -o lib2/bar.uideps lib2/bar.cmt + + $ ocaml-index aggregate -o test.uideps main.uideps lib1/foo.uideps lib2/bar.uideps + + $ ocaml-index dump main.uideps + 4 uids: + {uid: Bar.0; locs: "Foo.x": File "main.ml", line 1, characters 18-23 + uid: Main.0; locs: "x": File "main.ml", line 1, characters 4-5 + uid: Main.1; locs: "n": File "main.ml", line 1, characters 34-35 + uid: Stdlib__List.45; locs: + "List.init": File "main.ml", line 1, characters 8-17 + }, 0 approx shapes: {}, and shapes for CUS . + + $ ocaml-index dump lib1/foo.uideps + 1 uids: + {uid: Bar; locs: "Bar": File "lib1/foo.ml", line 1, characters 8-11 }, + 0 approx shapes: {}, and shapes for CUS . + + $ ocaml-index dump test.uideps + 5 uids: + {uid: Bar; locs: "Bar": File "lib1/foo.ml", line 1, characters 8-11 + uid: Bar.0; locs: + "x": File "lib2/bar.ml", line 1, characters 4-5; + "Foo.x": File "main.ml", line 1, characters 18-23 + uid: Main.0; locs: "x": File "main.ml", line 1, characters 4-5 + uid: Main.1; locs: "n": File "main.ml", line 1, characters 34-35 + uid: Stdlib__List.45; locs: + "List.init": File "main.ml", line 1, characters 8-17 + }, 0 approx shapes: {}, and shapes for CUS . + diff --git a/tests/test-dirs/occurrences/project-wide/dune b/tests/test-dirs/occurrences/project-wide/dune index 45fd154be..f0d4d3232 100644 --- a/tests/test-dirs/occurrences/project-wide/dune +++ b/tests/test-dirs/occurrences/project-wide/dune @@ -1,6 +1,8 @@ (cram + (package ocaml-index) (applies_to :whole_subtree) - (enabled_if %{bin-available:ocaml-index})) + (deps + %{bin:ocaml-index})) (cram (applies_to pwo-ml-gen)