From f46ba570ae95fb63ef079c52b0be6a4a99902793 Mon Sep 17 00:00:00 2001 From: Francois Pessaux Date: Fri, 29 Jul 2011 13:08:42 +0200 Subject: [PATCH] [cleanup] remove chars: TRX cache --- ocamllang/ocaml_parser.ml.cache | 3924 +++++++++++++++---------------- 1 file changed, 1949 insertions(+), 1975 deletions(-) diff --git a/ocamllang/ocaml_parser.ml.cache b/ocamllang/ocaml_parser.ml.cache index c5b57503..7d15a940 100644 --- a/ocamllang/ocaml_parser.ml.cache +++ b/ocamllang/ocaml_parser.ml.cache @@ -17,15 +17,15 @@ let make_app l = #231 "ocaml_parser.trx" let make_fun e = function | [] -> e | x -> Abs (x, e) -#39 "ocaml_types.trx" +#38 "ocaml_types.trx" open Base open Ocaml -#48 "ocaml_types.trx" +#47 "ocaml_types.trx" let compute_vars = function None -> [] | Some l -> List.map (function TypeVar s -> s | _ -> assert false) l -let _grammar_rules = [ ("Ocaml_types_typevars", None) ; ("Ocaml_types_typevarorname", None) ; ("Ocaml_types_typevar", None) ; ("Ocaml_types_typerecord_aux", None) ; ("Ocaml_types_typerecord", None) ; ("Ocaml_types_typeparam", None) ; ("Ocaml_types_typename", None) ; ("Ocaml_types_typefinder", None) ; ("Ocaml_types_typedeflist", None) ; ("Ocaml_types_typedef_no_arrow", None) ; ("Ocaml_types_typedef_base", None) ; ("Ocaml_types_typedef_aux", None) ; ("Ocaml_types_typedef", None) ; ("Ocaml_types_typedeclaration", None) ; ("Ocaml_types_typeconstructor", None) ; ("Ocaml_types_typeconst", None) ; ("Ocaml_types_typeSum", None) ; ("Ocaml_types_typeIdent_cont", None) ; ("Ocaml_types_typeIdent_aux", None) ; ("Ocaml_types_typeIdent", None) ; ("Ocaml_types_test", None) ; ("Ocaml_types_spacing", None) ; ("Ocaml_types_onetyperecord", None) ; ("Ocaml_types_lineskipper", None) ; ("Ocaml_types_UnitT", None) ; ("Ocaml_types_StringT", None) ; ("Ocaml_types_IntT", None) ; ("Ocaml_types_Int64T", None) ; ("Ocaml_types_FloatT", None) ; ("Ocaml_types_CharT", None) ; ("Ocaml_types_BoolT", None) ; ("Ocaml_parser_unit", None) ; ("Ocaml_parser_type", None) ; ("Ocaml_parser_spacing", None) ; ("Ocaml_parser_pattern_cons", None) ; ("Ocaml_parser_pattern_aux_l", None) ; ("Ocaml_parser_pattern_aux_aux", None) ; ("Ocaml_parser_pattern_aux", None) ; ("Ocaml_parser_pattern", None) ; ("Ocaml_parser_parse", None) ; ("Ocaml_parser_paramFormel", None) ; ("Ocaml_parser_paramEffectif", None) ; ("Ocaml_parser_op_special", None) ; ("Ocaml_parser_op_or", None) ; ("Ocaml_parser_op_notequal_struct", None) ; ("Ocaml_parser_op_notequal", None) ; ("Ocaml_parser_op_logic", None) ; ("Ocaml_parser_op_equal_struct", None) ; ("Ocaml_parser_op_equal", None) ; ("Ocaml_parser_op_concat", None) ; ("Ocaml_parser_op_aro", None) ; ("Ocaml_parser_op_and", None) ; ("Ocaml_parser_moduleName_", None) ; ("Ocaml_parser_moduleName", None) ; ("Ocaml_parser_mlIdent_cont", None) ; ("Ocaml_parser_mlIdent_aux_", None) ; ("Ocaml_parser_mlIdent_aux", None) ; ("Ocaml_parser_mlIdent_", None) ; ("Ocaml_parser_mlIdent", None) ; ("Ocaml_parser_matchExpr", None) ; ("Ocaml_parser_emptylist", None) ; ("Ocaml_parser_dotable", None) ; ("Ocaml_parser_constructorName", None) ; ("Ocaml_parser_const", None) ; ("Ocaml_parser_capMlIdent_", None) ; ("Ocaml_parser_capMlIdent", None) ; ("Ocaml_parser_Var", None) ; ("Ocaml_parser_Type", None) ; ("Ocaml_parser_Try", None) ; ("Ocaml_parser_SimpleExpr", None) ; ("Ocaml_parser_SetRef", None) ; ("Ocaml_parser_Record", None) ; ("Ocaml_parser_Raise", None) ; ("Ocaml_parser_RNameOpt", None) ; ("Ocaml_parser_Paren", None) ; ("Ocaml_parser_PLUS", None) ; ("Ocaml_parser_Operators", None) ; ("Ocaml_parser_Open", None) ; ("Ocaml_parser_OpLevel4", None) ; ("Ocaml_parser_OpLevel3", None) ; ("Ocaml_parser_OpLevel2", None) ; ("Ocaml_parser_OpLevel1", None) ; ("Ocaml_parser_Module", None) ; ("Ocaml_parser_Match", None) ; ("Ocaml_parser_MakeRef", None) ; ("Ocaml_parser_MULT", None) ; ("Ocaml_parser_MINUS", None) ; ("Ocaml_parser_Letin", None) ; ("Ocaml_parser_LetOrType", None) ; ("Ocaml_parser_Let", None) ; ("Ocaml_parser_LT", None) ; ("Ocaml_parser_LE", None) ; ("Ocaml_parser_InfOpLevel4", None) ; ("Ocaml_parser_InfOpLevel3", None) ; ("Ocaml_parser_InfOpLevel2", None) ; ("Ocaml_parser_InfOpLevel1", None) ; ("Ocaml_parser_IPLUS", None) ; ("Ocaml_parser_IMULT", None) ; ("Ocaml_parser_IMINUS", None) ; ("Ocaml_parser_IDIV", None) ; ("Ocaml_parser_GetRef", None) ; ("Ocaml_parser_GT", None) ; ("Ocaml_parser_GE", None) ; ("Ocaml_parser_FPLUS", None) ; ("Ocaml_parser_FMULT", None) ; ("Ocaml_parser_FMINUS", None) ; ("Ocaml_parser_FDIV", None) ; ("Ocaml_parser_Expr_without_seq_aux", None) ; ("Ocaml_parser_Expr_without_seq", None) ; ("Ocaml_parser_ExprNotApp", None) ; ("Ocaml_parser_Expr", None) ; ("Ocaml_parser_Exception", None) ; ("Ocaml_parser_EmptyList", None) ; ("Ocaml_parser_Dot", None) ; ("Ocaml_parser_DIV", None) ; ("Ocaml_parser_Constructor", None) ; ("Ocaml_parser_Const", None) ; ("Ocaml_parser_Cons", None) ; ("Ocaml_parser_Cond", None) ; ("Ocaml_parser_Assert", None) ; ("Ocaml_parser_App", None) ; ("Ocaml_parser_Abs", None) ; ("Ocaml_keywords_spacing", None) ; ("Ocaml_keywords_WITH", None) ; ("Ocaml_keywords_WHEN", None) ; ("Ocaml_keywords_VAL", None) ; ("Ocaml_keywords_TYPE", None) ; ("Ocaml_keywords_TRY", None) ; ("Ocaml_keywords_TRUE", None) ; ("Ocaml_keywords_THEN", None) ; ("Ocaml_keywords_STRUCT", None) ; ("Ocaml_keywords_SPECIALS", None) ; ("Ocaml_keywords_SIG", None) ; ("Ocaml_keywords_REF", None) ; ("Ocaml_keywords_REC", None) ; ("Ocaml_keywords_RAISE", None) ; ("Ocaml_keywords_ORL", None) ; ("Ocaml_keywords_OPEN", None) ; ("Ocaml_keywords_OF", None) ; ("Ocaml_keywords_MUTABLE", None) ; ("Ocaml_keywords_MODULE", None) ; ("Ocaml_keywords_MATCH", None) ; ("Ocaml_keywords_LET", None) ; ("Ocaml_keywords_KEYWORDS", None) ; ("Ocaml_keywords_IN", None) ; ("Ocaml_keywords_IF", None) ; ("Ocaml_keywords_GETREF", None) ; ("Ocaml_keywords_FUNCTION", None) ; ("Ocaml_keywords_FUN", None) ; ("Ocaml_keywords_FALSE", None) ; ("Ocaml_keywords_EXCEPTION", None) ; ("Ocaml_keywords_END", None) ; ("Ocaml_keywords_ELSE", None) ; ("Ocaml_keywords_CONSTRUCTOR_aux", None) ; ("Ocaml_keywords_CONSTRUCTOR", None) ; ("Ocaml_keywords_CONS", None) ; ("Ocaml_keywords_BEGIN", None) ; ("Ocaml_keywords_ASSERT", None) ; ("Ocaml_keywords_AS", None) ; ("Ocaml_keywords_ANDL", None) ; ("Ocaml_keywords_AND", None) ; ("Default_underscore", None) ; ("Default_times", None) ; ("Default_tilde_", None) ; ("Default_strint64", None) ; ("Default_strint", None) ; ("Default_stringsinglequote", None) ; ("Default_stringsinglechar", None) ; ("Default_stringquote", None) ; ("Default_stringnosp", None) ; ("Default_stringcharspecial", None) ; ("Default_stringchar", None) ; ("Default_string", None) ; ("Default_strfloat", None) ; ("Default_strbool", None) ; ("Default_str_ipaddr", None) ; ("Default_spacing", None) ; ("Default_space", None) ; ("Default_slash", None) ; ("Default_singlequotechar_", None) ; ("Default_sharpcomment", None) ; ("Default_sharp", None) ; ("Default_semi", None) ; ("Default_rparen", None) ; ("Default_rightarrow", None) ; ("Default_rbracket", None) ; ("Default_raccol", None) ; ("Default_question_", None) ; ("Default_question", None) ; ("Default_plus", None) ; ("Default_parexprnosp", None) ; ("Default_parexprexcluded", None) ; ("Default_parexpr", None) ; ("Default_mlcomment", None) ; ("Default_mlCOMMENTSTOP", None) ; ("Default_mlCOMMENTSTART", None) ; ("Default_lparen", None) ; ("Default_leftarrow", None) ; ("Default_lbracket", None) ; ("Default_laccol", None) ; ("Default_int64", None) ; ("Default_int3", None) ; ("Default_int", None) ; ("Default_humanint", None) ; ("Default_hexa", None) ; ("Default_float", None) ; ("Default_equal", None) ; ("Default_eol", None) ; ("Default_eof", None) ; ("Default_dot", None) ; ("Default_comma", None) ; ("Default_colon", None) ; ("Default_charsinglequote", None) ; ("Default_bracketexprcontent", None) ; ("Default_bracketexpr", None) ; ("Default_bool", None) ; ("Default_bar", None) ; ("Default_bang", None) ; ("Default_at", None) ; ("Default_accolexprcontent", None) ; ("Default_accolexpr", None) ] +let _grammar_rules = [ ("Ocaml_types_typevars", None) ; ("Ocaml_types_typevarorname", None) ; ("Ocaml_types_typevar", None) ; ("Ocaml_types_typerecord_aux", None) ; ("Ocaml_types_typerecord", None) ; ("Ocaml_types_typeparam", None) ; ("Ocaml_types_typename", None) ; ("Ocaml_types_typefinder", None) ; ("Ocaml_types_typedeflist", None) ; ("Ocaml_types_typedef_no_arrow", None) ; ("Ocaml_types_typedef_base", None) ; ("Ocaml_types_typedef_aux", None) ; ("Ocaml_types_typedef", None) ; ("Ocaml_types_typedeclaration", None) ; ("Ocaml_types_typeconstructor", None) ; ("Ocaml_types_typeconst", None) ; ("Ocaml_types_typeSum", None) ; ("Ocaml_types_typeIdent_cont", None) ; ("Ocaml_types_typeIdent_aux", None) ; ("Ocaml_types_typeIdent", None) ; ("Ocaml_types_test", None) ; ("Ocaml_types_spacing", None) ; ("Ocaml_types_onetyperecord", None) ; ("Ocaml_types_lineskipper", None) ; ("Ocaml_types_UnitT", None) ; ("Ocaml_types_StringT", None) ; ("Ocaml_types_IntT", None) ; ("Ocaml_types_Int64T", None) ; ("Ocaml_types_FloatT", None) ; ("Ocaml_types_BoolT", None) ; ("Ocaml_parser_unit", None) ; ("Ocaml_parser_type", None) ; ("Ocaml_parser_spacing", None) ; ("Ocaml_parser_pattern_cons", None) ; ("Ocaml_parser_pattern_aux_l", None) ; ("Ocaml_parser_pattern_aux_aux", None) ; ("Ocaml_parser_pattern_aux", None) ; ("Ocaml_parser_pattern", None) ; ("Ocaml_parser_parse", None) ; ("Ocaml_parser_paramFormel", None) ; ("Ocaml_parser_paramEffectif", None) ; ("Ocaml_parser_op_special", None) ; ("Ocaml_parser_op_or", None) ; ("Ocaml_parser_op_notequal_struct", None) ; ("Ocaml_parser_op_notequal", None) ; ("Ocaml_parser_op_logic", None) ; ("Ocaml_parser_op_equal_struct", None) ; ("Ocaml_parser_op_equal", None) ; ("Ocaml_parser_op_concat", None) ; ("Ocaml_parser_op_aro", None) ; ("Ocaml_parser_op_and", None) ; ("Ocaml_parser_moduleName_", None) ; ("Ocaml_parser_moduleName", None) ; ("Ocaml_parser_mlIdent_cont", None) ; ("Ocaml_parser_mlIdent_aux_", None) ; ("Ocaml_parser_mlIdent_aux", None) ; ("Ocaml_parser_mlIdent_", None) ; ("Ocaml_parser_mlIdent", None) ; ("Ocaml_parser_matchExpr", None) ; ("Ocaml_parser_emptylist", None) ; ("Ocaml_parser_dotable", None) ; ("Ocaml_parser_constructorName", None) ; ("Ocaml_parser_const", None) ; ("Ocaml_parser_capMlIdent_", None) ; ("Ocaml_parser_capMlIdent", None) ; ("Ocaml_parser_Var", None) ; ("Ocaml_parser_Type", None) ; ("Ocaml_parser_Try", None) ; ("Ocaml_parser_SimpleExpr", None) ; ("Ocaml_parser_SetRef", None) ; ("Ocaml_parser_Record", None) ; ("Ocaml_parser_Raise", None) ; ("Ocaml_parser_RNameOpt", None) ; ("Ocaml_parser_Paren", None) ; ("Ocaml_parser_PLUS", None) ; ("Ocaml_parser_Operators", None) ; ("Ocaml_parser_Open", None) ; ("Ocaml_parser_OpLevel4", None) ; ("Ocaml_parser_OpLevel3", None) ; ("Ocaml_parser_OpLevel2", None) ; ("Ocaml_parser_OpLevel1", None) ; ("Ocaml_parser_Module", None) ; ("Ocaml_parser_Match", None) ; ("Ocaml_parser_MakeRef", None) ; ("Ocaml_parser_MULT", None) ; ("Ocaml_parser_MINUS", None) ; ("Ocaml_parser_Letin", None) ; ("Ocaml_parser_LetOrType", None) ; ("Ocaml_parser_Let", None) ; ("Ocaml_parser_LT", None) ; ("Ocaml_parser_LE", None) ; ("Ocaml_parser_InfOpLevel4", None) ; ("Ocaml_parser_InfOpLevel3", None) ; ("Ocaml_parser_InfOpLevel2", None) ; ("Ocaml_parser_InfOpLevel1", None) ; ("Ocaml_parser_IPLUS", None) ; ("Ocaml_parser_IMULT", None) ; ("Ocaml_parser_IMINUS", None) ; ("Ocaml_parser_IDIV", None) ; ("Ocaml_parser_GetRef", None) ; ("Ocaml_parser_GT", None) ; ("Ocaml_parser_GE", None) ; ("Ocaml_parser_FPLUS", None) ; ("Ocaml_parser_FMULT", None) ; ("Ocaml_parser_FMINUS", None) ; ("Ocaml_parser_FDIV", None) ; ("Ocaml_parser_Expr_without_seq_aux", None) ; ("Ocaml_parser_Expr_without_seq", None) ; ("Ocaml_parser_ExprNotApp", None) ; ("Ocaml_parser_Expr", None) ; ("Ocaml_parser_Exception", None) ; ("Ocaml_parser_EmptyList", None) ; ("Ocaml_parser_Dot", None) ; ("Ocaml_parser_DIV", None) ; ("Ocaml_parser_Constructor", None) ; ("Ocaml_parser_Const", None) ; ("Ocaml_parser_Cons", None) ; ("Ocaml_parser_Cond", None) ; ("Ocaml_parser_Assert", None) ; ("Ocaml_parser_App", None) ; ("Ocaml_parser_Abs", None) ; ("Ocaml_keywords_spacing", None) ; ("Ocaml_keywords_WITH", None) ; ("Ocaml_keywords_WHEN", None) ; ("Ocaml_keywords_VAL", None) ; ("Ocaml_keywords_TYPE", None) ; ("Ocaml_keywords_TRY", None) ; ("Ocaml_keywords_TRUE", None) ; ("Ocaml_keywords_THEN", None) ; ("Ocaml_keywords_STRUCT", None) ; ("Ocaml_keywords_SPECIALS", None) ; ("Ocaml_keywords_SIG", None) ; ("Ocaml_keywords_REF", None) ; ("Ocaml_keywords_REC", None) ; ("Ocaml_keywords_RAISE", None) ; ("Ocaml_keywords_ORL", None) ; ("Ocaml_keywords_OPEN", None) ; ("Ocaml_keywords_OF", None) ; ("Ocaml_keywords_MUTABLE", None) ; ("Ocaml_keywords_MODULE", None) ; ("Ocaml_keywords_MATCH", None) ; ("Ocaml_keywords_LET", None) ; ("Ocaml_keywords_KEYWORDS", None) ; ("Ocaml_keywords_IN", None) ; ("Ocaml_keywords_IF", None) ; ("Ocaml_keywords_GETREF", None) ; ("Ocaml_keywords_FUNCTION", None) ; ("Ocaml_keywords_FUN", None) ; ("Ocaml_keywords_FALSE", None) ; ("Ocaml_keywords_EXCEPTION", None) ; ("Ocaml_keywords_END", None) ; ("Ocaml_keywords_ELSE", None) ; ("Ocaml_keywords_CONSTRUCTOR_aux", None) ; ("Ocaml_keywords_CONSTRUCTOR", None) ; ("Ocaml_keywords_CONS", None) ; ("Ocaml_keywords_BEGIN", None) ; ("Ocaml_keywords_ASSERT", None) ; ("Ocaml_keywords_AS", None) ; ("Ocaml_keywords_ANDL", None) ; ("Ocaml_keywords_AND", None) ; ("Default_underscore", None) ; ("Default_times", None) ; ("Default_tilde_", None) ; ("Default_strint64", None) ; ("Default_strint", None) ; ("Default_stringsinglequote", None) ; ("Default_stringsinglechar", None) ; ("Default_stringquote", None) ; ("Default_stringnosp", None) ; ("Default_stringcharspecial", None) ; ("Default_stringchar", None) ; ("Default_string", None) ; ("Default_strfloat", None) ; ("Default_strbool", None) ; ("Default_str_ipaddr", None) ; ("Default_spacing", None) ; ("Default_space", None) ; ("Default_slash", None) ; ("Default_singlequotechar_", None) ; ("Default_sharpcomment", None) ; ("Default_sharp", None) ; ("Default_semi", None) ; ("Default_rparen", None) ; ("Default_rightarrow", None) ; ("Default_rbracket", None) ; ("Default_raccol", None) ; ("Default_question_", None) ; ("Default_question", None) ; ("Default_plus", None) ; ("Default_parexprnosp", None) ; ("Default_parexprexcluded", None) ; ("Default_parexpr", None) ; ("Default_mlcomment", None) ; ("Default_mlCOMMENTSTOP", None) ; ("Default_mlCOMMENTSTART", None) ; ("Default_lparen", None) ; ("Default_leftarrow", None) ; ("Default_lbracket", None) ; ("Default_laccol", None) ; ("Default_int64", None) ; ("Default_int3", None) ; ("Default_int", None) ; ("Default_humanint", None) ; ("Default_hexa", None) ; ("Default_float", None) ; ("Default_equal", None) ; ("Default_eol", None) ; ("Default_eof", None) ; ("Default_dot", None) ; ("Default_comma", None) ; ("Default_colon", None) ; ("Default_charsinglequote", None) ; ("Default_bracketexprcontent", None) ; ("Default_bracketexpr", None) ; ("Default_bool", None) ; ("Default_bar", None) ; ("Default_bang", None) ; ("Default_at", None) ; ("Default_accolexprcontent", None) ; ("Default_accolexpr", None) ] let parse_with f_noerr f_err _text _start = let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -384,7 +384,7 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('('))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('*'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "(*")) ) else ( None )) (input) ("\"(*\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1843, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1843, ( () )), ((Trx_runtime.emptyError) (input_1843)))))))) +| Trx_runtime.Ok ( ( ( input_1839, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1839, ( () )), ((Trx_runtime.emptyError) (input_1839)))))))) let rec try_Default_mlCOMMENTSTOP = #103 "default.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -392,7 +392,7 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('*'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) (')'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "*)")) ) else ( None )) (input) ("\"*)\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1842, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1842, ( () )), ((Trx_runtime.emptyError) (input_1842)))))))) +| Trx_runtime.Ok ( ( ( input_1838, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1838, ( () )), ((Trx_runtime.emptyError) (input_1838)))))))) let rec try_Default_mlcomment = #101 "default.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -403,25 +403,25 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_mlCOMMENTSTART (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1834, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1837 -> (match (try_Default_mlCOMMENTSTOP (_filename) (_text) (input_1837)) with -Trx_runtime.Fail ( ( err ) ) -> let input_1838 = input_1837 in +| Trx_runtime.Ok ( ( ( input_1830, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1833 -> (match (try_Default_mlCOMMENTSTOP (_filename) (_text) (input_1833)) with +Trx_runtime.Fail ( ( err ) ) -> let input_1834 = input_1833 in let __1 = () in -(Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_mlcomment (_filename) (_text) (input_1838)) with +(Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_mlcomment (_filename) (_text) (input_1834)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1841, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1841, __1), ((Trx_runtime.emptyError) (input_1841))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1838) (_len)) ) then ( let c = ((_get_char) (input_1838)) in -Some((((succ) (input_1838)), c)) ) else ( None )) (input_1838) (((Trx_runtime.Expected(("any character")))::([])))) with +| Trx_runtime.Ok ( ( ( input_1837, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1837, __1), ((Trx_runtime.emptyError) (input_1837))))))) with +Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1834) (_len)) ) then ( let c = ((_get_char) (input_1834)) in +Some((((succ) (input_1834)), c)) ) else ( None )) (input_1834) (((Trx_runtime.Expected(("any character")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1840, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1840, ( () )), ((Trx_runtime.emptyError) (input_1840))))))))) +| Trx_runtime.Ok ( ( ( input_1836, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1836, ( () )), ((Trx_runtime.emptyError) (input_1836))))))))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1839, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1839, __2), ((Trx_runtime.emptyError) (input_1839))))))))) +| Trx_runtime.Ok ( ( ( input_1835, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1835, __2), ((Trx_runtime.emptyError) (input_1835))))))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in -Trx_runtime.Fail((err))))) (input_1834)) with +Trx_runtime.Fail((err))))) (input_1830)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1835, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_mlCOMMENTSTOP (_filename) (_text) (input_1835)) with +| Trx_runtime.Ok ( ( ( input_1831, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_mlCOMMENTSTOP (_filename) (_text) (input_1831)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1836, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1836, ( () )), ((Trx_runtime.emptyError) (input_1836))))))))))))) in +| Trx_runtime.Ok ( ( ( input_1832, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1832, ( () )), ((Trx_runtime.emptyError) (input_1832))))))))))))) in (Hashtbl.add (memo_Default_mlcomment_err) (input) (res)) ; res) ) let rec try_Default_space = @@ -432,7 +432,7 @@ and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((=)) (c) (' '))) ((((||)) ((((=)) (c) ('\n'))) ((((||)) ((((=)) (c) ('\r'))) ((((=)) (c) ('\t')))))))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) ([ Trx_runtime.Expected(("'\t'")) ; Trx_runtime.Expected(("'\n'")) ; Trx_runtime.Expected(("'\r'")) ; Trx_runtime.Expected(("' '")) ])) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1783, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1783, __1), ((Trx_runtime.emptyError) (input_1783)))))))) +| Trx_runtime.Ok ( ( ( input_1779, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1779, __1), ((Trx_runtime.emptyError) (input_1779)))))))) let rec try_Ocaml_parser_spacing = #35 "ocaml_parser.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -441,15 +441,15 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Ocaml_parser_spacing_err) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary_nores (false) ((fun input_1106 -> (match (match (try_Default_space (_filename) (_text) (input_1106)) with +Not_found -> let res = (match (Trx_runtime.while_primary_nores (false) ((fun input_1102 -> (match (match (try_Default_space (_filename) (_text) (input_1102)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1108, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1108, ( () )), ((Trx_runtime.emptyError) (input_1108))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_mlcomment (_filename) (_text) (input_1106)) with +| Trx_runtime.Ok ( ( ( input_1104, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1104, ( () )), ((Trx_runtime.emptyError) (input_1104))))))) with +Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_mlcomment (_filename) (_text) (input_1102)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1107, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1107, __1), ((Trx_runtime.emptyError) (input_1107))))))))) +| Trx_runtime.Ok ( ( ( input_1103, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1103, __1), ((Trx_runtime.emptyError) (input_1103))))))))) | ( _ok ) as __pat_var -> __pat_var))) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1105, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1105, ( () )), ((Trx_runtime.emptyError) (input_1105))))))) in +| Trx_runtime.Ok ( ( ( input_1101, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1101, ( () )), ((Trx_runtime.emptyError) (input_1101))))))) in (Hashtbl.add (memo_Ocaml_parser_spacing_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_op_equal_struct = @@ -462,11 +462,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('='))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input) (2)), "==")) ) else ( None )) (input) ("\"==\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1246, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1246)) with +| Trx_runtime.Ok ( ( ( input_1242, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1242)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1247, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1247, +| Trx_runtime.Ok ( ( ( input_1243, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1243, #383 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1247)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1243)))))))))) in (Hashtbl.add (memo_Ocaml_parser_op_equal_struct_err) (input) (res)) ; res) ) let rec try_Default_mlCOMMENTSTART_noerr = @@ -476,7 +476,7 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('('))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('*'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "(*")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_889, __1 ) ) -> Some((input_889, ( () ))))) +| Some ( ( input_887, __1 ) ) -> Some((input_887, ( () ))))) let rec try_Default_mlCOMMENTSTOP_noerr = #103 "default.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -484,7 +484,7 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('*'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) (')'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "*)")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_888, __1 ) ) -> Some((input_888, ( () ))))) +| Some ( ( input_886, __1 ) ) -> Some((input_886, ( () ))))) let rec try_Default_mlcomment_noerr = #101 "default.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -495,20 +495,20 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_mlCOMMENTSTART_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_880, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_883 -> (match (try_Default_mlCOMMENTSTOP_noerr (_filename) (_text) (input_883)) with -None -> let input_884 = input_883 in +| Some ( ( input_878, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_881 -> (match (try_Default_mlCOMMENTSTOP_noerr (_filename) (_text) (input_881)) with +None -> let input_882 = input_881 in let __1 = () in -(match (try_Default_mlcomment_noerr (_filename) (_text) (input_884)) with -None -> (match if ( (((<)) (input_884) (_len)) ) then ( let c = ((_get_char) (input_884)) in -Some((((succ) (input_884)), c)) ) else ( None ) with +(match (try_Default_mlcomment_noerr (_filename) (_text) (input_882)) with +None -> (match if ( (((<)) (input_882) (_len)) ) then ( let c = ((_get_char) (input_882)) in +Some((((succ) (input_882)), c)) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_886, __1 ) ) -> Some((input_886, ( () )))) +| Some ( ( input_884, __1 ) ) -> Some((input_884, ( () )))) | ( _ok ) as __pat_var -> __pat_var) -| Some ( ( _, _ ) ) -> None))) (input_880)) with +| Some ( ( _, _ ) ) -> None))) (input_878)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_881, __2 ) ) -> (match (try_Default_mlCOMMENTSTOP_noerr (_filename) (_text) (input_881)) with +| Some ( ( input_879, __2 ) ) -> (match (try_Default_mlCOMMENTSTOP_noerr (_filename) (_text) (input_879)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_882, __3 ) ) -> Some((input_882, ( () )))))) in +| Some ( ( input_880, __3 ) ) -> Some((input_880, ( () )))))) in (Hashtbl.add (memo_Default_mlcomment) (input) (res)) ; res) ) let rec try_Default_space_noerr = @@ -526,13 +526,13 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Default_spacing) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_826 -> (match (match (try_Default_space_noerr (_filename) (_text) (input_826)) with +Not_found -> let res = (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_824 -> (match (match (try_Default_space_noerr (_filename) (_text) (input_824)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_828, __1 ) ) -> Some((input_828, ( () )))) with -None -> (try_Default_mlcomment_noerr (_filename) (_text) (input_826)) +| Some ( ( input_826, __1 ) ) -> Some((input_826, ( () )))) with +None -> (try_Default_mlcomment_noerr (_filename) (_text) (input_824)) | ( _ok ) as __pat_var -> __pat_var))) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_825, __1 ) ) -> Some((input_825, ( () )))) in +| Some ( ( input_823, __1 ) ) -> Some((input_823, ( () )))) in (Hashtbl.add (memo_Default_spacing) (input) (res)) ; res) ) let rec try_Default_bar_noerr = @@ -546,9 +546,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('|')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_940, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_940)) with +| Some ( ( input_938, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_938)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_941, __2 ) ) -> Some((input_941, ( () ))))) in +| Some ( ( input_939, __2 ) ) -> Some((input_939, ( () ))))) in (Hashtbl.add (memo_Default_bar) (input) (res)) ; res) ) let rec try_Ocaml_keywords_spacing_noerr = @@ -559,13 +559,13 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Ocaml_keywords_spacing) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_685 -> (match (match (try_Default_space_noerr (_filename) (_text) (input_685)) with +Not_found -> let res = (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_683 -> (match (match (try_Default_space_noerr (_filename) (_text) (input_683)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_687, __1 ) ) -> Some((input_687, ( () )))) with -None -> (try_Default_mlcomment_noerr (_filename) (_text) (input_685)) +| Some ( ( input_685, __1 ) ) -> Some((input_685, ( () )))) with +None -> (try_Default_mlcomment_noerr (_filename) (_text) (input_683)) | ( _ok ) as __pat_var -> __pat_var))) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_684, __1 ) ) -> Some((input_684, ( () )))) in +| Some ( ( input_682, __1 ) ) -> Some((input_682, ( () )))) in (Hashtbl.add (memo_Ocaml_keywords_spacing) (input) (res)) ; res) ) let rec try_Ocaml_keywords_FUNCTION_noerr = @@ -578,9 +578,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (8))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('f'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('c'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (6))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (7))))) ('n'))) (true)))))))))))))))))) ) then ( Some(((((+)) (input) (8)), "function")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_732, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_732)) with +| Some ( ( input_730, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_730)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_733, __2 ) ) -> Some((input_733, ( () ))))) in +| Some ( ( input_731, __2 ) ) -> Some((input_731, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_FUNCTION) (input) (res)) ; res) ) let rec try_Ocaml_keywords_MATCH_noerr = @@ -593,9 +593,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('m'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('c'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('h'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "match")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_722, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_722)) with +| Some ( ( input_720, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_720)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_723, __2 ) ) -> Some((input_723, ( () ))))) in +| Some ( ( input_721, __2 ) ) -> Some((input_721, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_MATCH) (input) (res)) ; res) ) let rec try_Ocaml_keywords_WITH_noerr = @@ -608,9 +608,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('w'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('h'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "with")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_688, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_688)) with +| Some ( ( input_686, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_686)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_689, __2 ) ) -> Some((input_689, ( () ))))) in +| Some ( ( input_687, __2 ) ) -> Some((input_687, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_WITH) (input) (res)) ; res) ) let rec try_Default_semi_noerr = @@ -624,9 +624,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) (';')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_843, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_843)) with +| Some ( ( input_841, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_841)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_844, __2 ) ) -> Some((input_844, ( () ))))) in +| Some ( ( input_842, __2 ) ) -> Some((input_842, ( () ))))) in (Hashtbl.add (memo_Default_semi) (input) (res)) ; res) ) let rec try_Default_comma_noerr = @@ -640,9 +640,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) (',')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_924, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_924)) with +| Some ( ( input_922, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_922)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_925, __2 ) ) -> Some((input_925, ( () ))))) in +| Some ( ( input_923, __2 ) ) -> Some((input_923, ( () ))))) in (Hashtbl.add (memo_Default_comma) (input) (res)) ; res) ) let rec try_Ocaml_parser_spacing_noerr = @@ -653,13 +653,13 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Ocaml_parser_spacing) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_152 -> (match (match (try_Default_space_noerr (_filename) (_text) (input_152)) with +Not_found -> let res = (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_150 -> (match (match (try_Default_space_noerr (_filename) (_text) (input_150)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_154, __1 ) ) -> Some((input_154, ( () )))) with -None -> (try_Default_mlcomment_noerr (_filename) (_text) (input_152)) +| Some ( ( input_152, __1 ) ) -> Some((input_152, ( () )))) with +None -> (try_Default_mlcomment_noerr (_filename) (_text) (input_150)) | ( _ok ) as __pat_var -> __pat_var))) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_151, __1 ) ) -> Some((input_151, ( () )))) in +| Some ( ( input_149, __1 ) ) -> Some((input_149, ( () )))) in (Hashtbl.add (memo_Ocaml_parser_spacing) (input) (res)) ; res) ) let rec try_Ocaml_parser_op_and_noerr = @@ -672,9 +672,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('&'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('&'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "&&")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_300, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_300)) with +| Some ( ( input_298, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_298)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_301, __2 ) ) -> Some((input_301, +| Some ( ( input_299, __2 ) ) -> Some((input_299, #380 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_op_and) (input) (res)) ; res) @@ -692,9 +692,9 @@ Not_found -> let res = (match if ( (((<)) ((((+)) (input) (0))) (_len)) ) then ( | 'o' -> if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('r'))) (true)))) ) then ( Some(((((+)) (input) (2)), "or")) ) else ( None ) | _ -> None) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_284, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_284)) with +| Some ( ( input_282, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_282)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_285, __2 ) ) -> Some((input_285, +| Some ( ( input_283, __2 ) ) -> Some((input_283, #381 "ocaml_parser.trx" ( "||" ))))) in (Hashtbl.add (memo_Ocaml_parser_op_or) (input) (res)) ; res) @@ -711,7 +711,7 @@ Not_found -> let res = (match (match (try_Ocaml_parser_op_and_noerr (_filename) None -> (try_Ocaml_parser_op_or_noerr (_filename) (_text) (input)) | ( _ok ) as __pat_var -> __pat_var) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_562, __1 ) ) -> Some((input_562, +| Some ( ( input_560, __1 ) ) -> Some((input_560, #355 "ocaml_parser.trx" ( Ocaml.make_Var __1 )))) in @@ -727,9 +727,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('>'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input) (2)), ">=")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_577, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_577)) with +| Some ( ( input_575, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_575)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_578, __2 ) ) -> Some((input_578, +| Some ( ( input_576, __2 ) ) -> Some((input_576, #396 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_GE) (input) (res)) ; res) @@ -744,9 +744,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('>'))) (true)))) ) then ( Some(((((+)) (input) (1)), ">")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_575, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_575)) with +| Some ( ( input_573, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_573)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_576, __2 ) ) -> Some((input_576, +| Some ( ( input_574, __2 ) ) -> Some((input_574, #394 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_GT) (input) (res)) ; res) @@ -761,9 +761,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('<'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input) (2)), "<=")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_541, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_541)) with +| Some ( ( input_539, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_539)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_542, __2 ) ) -> Some((input_542, +| Some ( ( input_540, __2 ) ) -> Some((input_540, #395 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_LE) (input) (res)) ; res) @@ -778,9 +778,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('<'))) (true)))) ) then ( Some(((((+)) (input) (1)), "<")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_539, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_539)) with +| Some ( ( input_537, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_537)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_540, __2 ) ) -> Some((input_540, +| Some ( ( input_538, __2 ) ) -> Some((input_538, #393 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_LT) (input) (res)) ; res) @@ -795,9 +795,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('='))) (true)))) ) then ( Some(((((+)) (input) (1)), "=")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_294, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_294)) with +| Some ( ( input_292, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_292)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_295, __2 ) ) -> Some((input_295, +| Some ( ( input_293, __2 ) ) -> Some((input_293, #382 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_op_equal) (input) (res)) ; res) @@ -812,9 +812,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('='))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input) (2)), "==")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_292, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_292)) with +| Some ( ( input_290, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_290)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_293, __2 ) ) -> Some((input_293, +| Some ( ( input_291, __2 ) ) -> Some((input_291, #383 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_op_equal_struct) (input) (res)) ; res) @@ -829,9 +829,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('<'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('>'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "<>")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_288, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_288)) with +| Some ( ( input_286, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_286)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_289, __2 ) ) -> Some((input_289, +| Some ( ( input_287, __2 ) ) -> Some((input_287, #385 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_op_notequal) (input) (res)) ; res) @@ -846,9 +846,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('!'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input) (2)), "!=")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_286, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_286)) with +| Some ( ( input_284, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_284)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_287, __2 ) ) -> Some((input_287, +| Some ( ( input_285, __2 ) ) -> Some((input_285, #384 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_op_notequal_struct) (input) (res)) ; res) @@ -885,9 +885,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_SPECIALS_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_282, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_282)) with +| Some ( ( input_280, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_280)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_283, __2 ) ) -> Some((input_283, +| Some ( ( input_281, __2 ) ) -> Some((input_281, #391 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_op_special) (input) (res)) ; res) @@ -916,13 +916,13 @@ None -> (try_Ocaml_parser_GT_noerr (_filename) (_text) (input)) | ( _ok ) as __pat_var -> __pat_var) | ( _ok ) as __pat_var -> __pat_var) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_553, __1 ) ) -> Some((input_553, +| Some ( ( input_551, __1 ) ) -> Some((input_551, #361 "ocaml_parser.trx" ( Ocaml.make_Var __1 )))) with None -> (match (try_Ocaml_parser_op_special_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_552, __1 ) ) -> Some((input_552, +| Some ( ( input_550, __1 ) ) -> Some((input_550, #366 "ocaml_parser.trx" ( Ocaml.make_Var __1 )))) @@ -939,9 +939,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('-'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('.'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "-.")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_583, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_583)) with +| Some ( ( input_581, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_581)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_584, __2 ) ) -> Some((input_584, +| Some ( ( input_582, __2 ) ) -> Some((input_582, #409 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_FMINUS) (input) (res)) ; res) @@ -956,9 +956,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('-'))) (true)))) ) then ( Some(((((+)) (input) (1)), "-")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_569, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_569)) with +| Some ( ( input_567, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_567)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_570, __2 ) ) -> Some((input_570, +| Some ( ( input_568, __2 ) ) -> Some((input_568, #404 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_IMINUS) (input) (res)) ; res) @@ -986,9 +986,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('+'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('.'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "+.")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_579, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_579)) with +| Some ( ( input_577, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_577)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_580, __2 ) ) -> Some((input_580, +| Some ( ( input_578, __2 ) ) -> Some((input_578, #408 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_FPLUS) (input) (res)) ; res) @@ -1003,9 +1003,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('+'))) (true)))) ) then ( Some(((((+)) (input) (1)), "+")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_565, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_565)) with +| Some ( ( input_563, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_563)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_566, __2 ) ) -> Some((input_566, +| Some ( ( input_564, __2 ) ) -> Some((input_564, #403 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_IPLUS) (input) (res)) ; res) @@ -1033,9 +1033,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('@'))) (true)))) ) then ( Some(((((+)) (input) (1)), "@")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_298, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_298)) with +| Some ( ( input_296, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_296)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_299, __2 ) ) -> Some((input_299, +| Some ( ( input_297, __2 ) ) -> Some((input_297, #388 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_op_aro) (input) (res)) ; res) @@ -1050,9 +1050,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('^'))) (true)))) ) then ( Some(((((+)) (input) (1)), "^")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_296, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_296)) with +| Some ( ( input_294, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_294)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_297, __2 ) ) -> Some((input_297, +| Some ( ( input_295, __2 ) ) -> Some((input_295, #387 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_op_concat) (input) (res)) ; res) @@ -1067,9 +1067,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('r'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "asr")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_290, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_290)) with +| Some ( ( input_288, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_288)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_291, __2 ) ) -> Some((input_291, +| Some ( ( input_289, __2 ) ) -> Some((input_289, #389 "ocaml_parser.trx" ( "asr" ))))) in (Hashtbl.add (memo_Ocaml_parser_op_logic) (input) (res)) ; res) @@ -1092,7 +1092,7 @@ None -> (try_Ocaml_parser_op_logic_noerr (_filename) (_text) (input)) | ( _ok ) as __pat_var -> __pat_var) | ( _ok ) as __pat_var -> __pat_var) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_546, __1 ) ) -> Some((input_546, +| Some ( ( input_544, __1 ) ) -> Some((input_544, #371 "ocaml_parser.trx" ( Ocaml.make_Var __1 )))) in @@ -1109,9 +1109,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('(')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_890, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_890)) with +| Some ( ( input_888, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_888)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_891, __2 ) ) -> Some((input_891, ( () ))))) in +| Some ( ( input_889, __2 ) ) -> Some((input_889, ( () ))))) in (Hashtbl.add (memo_Default_lparen) (input) (res)) ; res) ) let rec try_Default_rparen_noerr = @@ -1125,9 +1125,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) (')')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_845, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_845)) with +| Some ( ( input_843, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_843)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_846, __2 ) ) -> Some((input_846, ( () ))))) in +| Some ( ( input_844, __2 ) ) -> Some((input_844, ( () ))))) in (Hashtbl.add (memo_Default_rparen) (input) (res)) ; res) ) let rec try_Ocaml_keywords_CONS_noerr = @@ -1140,9 +1140,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) (':'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "::")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_750, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_750)) with +| Some ( ( input_748, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_748)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_751, __2 ) ) -> Some((input_751, ( () ))))) in +| Some ( ( input_749, __2 ) ) -> Some((input_749, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_CONS) (input) (res)) ; res) ) let rec try_Default_rightarrow_noerr = @@ -1155,9 +1155,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('-'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('>'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "->")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_847, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_847)) with +| Some ( ( input_845, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_845)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_848, __2 ) ) -> Some((input_848, ( () ))))) in +| Some ( ( input_846, __2 ) ) -> Some((input_846, ( () ))))) in (Hashtbl.add (memo_Default_rightarrow) (input) (res)) ; res) ) let rec try_Ocaml_keywords_FUN_noerr = @@ -1170,9 +1170,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('f'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('n'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "fun")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_734, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_734)) with +| Some ( ( input_732, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_732)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_735, __2 ) ) -> Some((input_735, ( () ))))) in +| Some ( ( input_733, __2 ) ) -> Some((input_733, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_FUN) (input) (res)) ; res) ) let rec try_Default_colon_noerr = @@ -1186,9 +1186,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) (':')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_926, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_926)) with +| Some ( ( input_924, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_924)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_927, __2 ) ) -> Some((input_927, ( () ))))) in +| Some ( ( input_925, __2 ) ) -> Some((input_925, ( () ))))) in (Hashtbl.add (memo_Default_colon) (input) (res)) ; res) ) let rec try_Default_equal_noerr = @@ -1202,9 +1202,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('=')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_917, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_917)) with +| Some ( ( input_915, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_915)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_918, __2 ) ) -> Some((input_918, ( () ))))) in +| Some ( ( input_916, __2 ) ) -> Some((input_916, ( () ))))) in (Hashtbl.add (memo_Default_equal) (input) (res)) ; res) ) let rec try_Default_question_noerr = @@ -1218,9 +1218,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('?')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_854, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_854)) with +| Some ( ( input_852, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_852)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_855, __2 ) ) -> Some((input_855, ( () ))))) in +| Some ( ( input_853, __2 ) ) -> Some((input_853, ( () ))))) in (Hashtbl.add (memo_Default_question) (input) (res)) ; res) ) let rec try_Default_tilde__noerr = @@ -1231,7 +1231,7 @@ and _get_sub = ((String.sub) (_text)) in (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('~')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_766, __1 ) ) -> Some((input_766, ( () ))))) +| Some ( ( input_764, __1 ) ) -> Some((input_764, ( () ))))) let rec try_Ocaml_keywords_KEYWORDS_noerr = #22 "ocaml_keywords.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -1395,11 +1395,11 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((&&)) ((((>=)) (c) ('a'))) ((((<=)) (c) ('z'))))) ((((=)) (c) ('_')))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_306, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_308 -> (try_Ocaml_parser_mlIdent_cont_noerr (_filename) (_text) (input_308)))) (input_306)) with +| Some ( ( input_304, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_306 -> (try_Ocaml_parser_mlIdent_cont_noerr (_filename) (_text) (input_306)))) (input_304)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_307, __2 ) ) -> Some((input_307, (_get_sub (input) ((((-)) (input_307) (input)))))))) with +| Some ( ( input_305, __2 ) ) -> Some((input_305, (_get_sub (input) ((((-)) (input_305) (input)))))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_305, __1 ) ) -> Some((input_305, +| Some ( ( input_303, __1 ) ) -> Some((input_303, #51 "ocaml_parser.trx" ( __1 )))) in (Hashtbl.add (memo_Ocaml_parser_mlIdent_aux_) (input) (res)) ; res) @@ -1414,16 +1414,16 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_keywords_KEYWORDS_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_313, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_cont_noerr (_filename) (_text) (input_313)) with -None -> let input_314 = input_313 in +| Some ( ( input_311, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_cont_noerr (_filename) (_text) (input_311)) with +None -> let input_312 = input_311 in let __2 = () in -Some((input_314, __1)) +Some((input_312, __1)) | Some ( ( _, _ ) ) -> None)) with -None -> let input_311 = input in +None -> let input_309 = input in let __1 = () in -(match (try_Ocaml_parser_mlIdent_aux__noerr (_filename) (_text) (input_311)) with +(match (try_Ocaml_parser_mlIdent_aux__noerr (_filename) (_text) (input_309)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_312, __2 ) ) -> Some((input_312, +| Some ( ( input_310, __2 ) ) -> Some((input_310, #56 "ocaml_parser.trx" ( __2 )))) | Some ( ( _, _ ) ) -> None) in @@ -1439,9 +1439,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_mlIdent_aux__noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_309, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_309)) with +| Some ( ( input_307, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_307)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_310, __2 ) ) -> Some((input_310, +| Some ( ( input_308, __2 ) ) -> Some((input_308, #52 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_mlIdent_aux) (input) (res)) ; res) @@ -1456,32 +1456,32 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (try_Ocaml_keywords_KEYWORDS_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_323, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_cont_noerr (_filename) (_text) (input_323)) with -None -> let input_324 = input_323 in +| Some ( ( input_321, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_cont_noerr (_filename) (_text) (input_321)) with +None -> let input_322 = input_321 in let __2 = () in -Some((input_324, __1)) +Some((input_322, __1)) | Some ( ( _, _ ) ) -> None)) with -None -> let input_321 = input in +None -> let input_319 = input in let __1 = () in -(match (try_Ocaml_parser_mlIdent_aux_noerr (_filename) (_text) (input_321)) with +(match (try_Ocaml_parser_mlIdent_aux_noerr (_filename) (_text) (input_319)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_322, __2 ) ) -> Some((input_322, +| Some ( ( input_320, __2 ) ) -> Some((input_320, #53 "ocaml_parser.trx" ( __2 )))) | Some ( ( _, _ ) ) -> None) with None -> (match (try_Default_lparen_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_315, __1 ) ) -> (match (match if ( (((<)) (input_315) (_len)) ) then ( let c = ((_get_char) (input_315)) in -if ( (((||)) ((((=)) (c) ('!'))) ((((||)) ((((=)) (c) ('$'))) ((((||)) ((((=)) (c) ('%'))) ((((||)) ((((=)) (c) ('&'))) ((((||)) ((((=)) (c) ('*'))) ((((||)) ((((&&)) ((((>=)) (c) ('+'))) ((((<=)) (c) ('.'))))) ((((||)) ((((=)) (c) ('/'))) ((((||)) ((((=)) (c) (':'))) ((((||)) ((((=)) (c) ('<'))) ((((||)) ((((=)) (c) ('='))) ((((||)) ((((=)) (c) ('>'))) ((((||)) ((((=)) (c) ('?'))) ((((||)) ((((=)) (c) ('@'))) ((((||)) ((((=)) (c) ('^'))) ((((||)) ((((=)) (c) ('|'))) ((((=)) (c) ('~')))))))))))))))))))))))))))))))) ) then ( Some((((succ) (input_315)), c)) ) else ( None ) ) else ( None ) with +| Some ( ( input_313, __1 ) ) -> (match (match if ( (((<)) (input_313) (_len)) ) then ( let c = ((_get_char) (input_313)) in +if ( (((||)) ((((=)) (c) ('!'))) ((((||)) ((((=)) (c) ('$'))) ((((||)) ((((=)) (c) ('%'))) ((((||)) ((((=)) (c) ('&'))) ((((||)) ((((=)) (c) ('*'))) ((((||)) ((((&&)) ((((>=)) (c) ('+'))) ((((<=)) (c) ('.'))))) ((((||)) ((((=)) (c) ('/'))) ((((||)) ((((=)) (c) (':'))) ((((||)) ((((=)) (c) ('<'))) ((((||)) ((((=)) (c) ('='))) ((((||)) ((((=)) (c) ('>'))) ((((||)) ((((=)) (c) ('?'))) ((((||)) ((((=)) (c) ('@'))) ((((||)) ((((=)) (c) ('^'))) ((((||)) ((((=)) (c) ('|'))) ((((=)) (c) ('~')))))))))))))))))))))))))))))))) ) then ( Some((((succ) (input_313)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_318, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_320 -> if ( (((<)) (input_320) (_len)) ) then ( let c = ((_get_char) (input_320)) in -if ( (((||)) ((((=)) (c) ('!'))) ((((||)) ((((=)) (c) ('$'))) ((((||)) ((((=)) (c) ('%'))) ((((||)) ((((=)) (c) ('&'))) ((((||)) ((((=)) (c) ('*'))) ((((||)) ((((&&)) ((((>=)) (c) ('+'))) ((((<=)) (c) ('.'))))) ((((||)) ((((=)) (c) ('/'))) ((((||)) ((((=)) (c) (':'))) ((((||)) ((((=)) (c) ('<'))) ((((||)) ((((=)) (c) ('='))) ((((||)) ((((=)) (c) ('>'))) ((((||)) ((((=)) (c) ('?'))) ((((||)) ((((=)) (c) ('@'))) ((((||)) ((((=)) (c) ('^'))) ((((||)) ((((=)) (c) ('|'))) ((((=)) (c) ('~')))))))))))))))))))))))))))))))) ) then ( Some((((succ) (input_320)), c)) ) else ( None ) ) else ( None ))) (input_318)) with +| Some ( ( input_316, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_318 -> if ( (((<)) (input_318) (_len)) ) then ( let c = ((_get_char) (input_318)) in +if ( (((||)) ((((=)) (c) ('!'))) ((((||)) ((((=)) (c) ('$'))) ((((||)) ((((=)) (c) ('%'))) ((((||)) ((((=)) (c) ('&'))) ((((||)) ((((=)) (c) ('*'))) ((((||)) ((((&&)) ((((>=)) (c) ('+'))) ((((<=)) (c) ('.'))))) ((((||)) ((((=)) (c) ('/'))) ((((||)) ((((=)) (c) (':'))) ((((||)) ((((=)) (c) ('<'))) ((((||)) ((((=)) (c) ('='))) ((((||)) ((((=)) (c) ('>'))) ((((||)) ((((=)) (c) ('?'))) ((((||)) ((((=)) (c) ('@'))) ((((||)) ((((=)) (c) ('^'))) ((((||)) ((((=)) (c) ('|'))) ((((=)) (c) ('~')))))))))))))))))))))))))))))))) ) then ( Some((((succ) (input_318)), c)) ) else ( None ) ) else ( None ))) (input_316)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_319, __2 ) ) -> Some((input_319, (_get_sub (input_315) ((((-)) (input_319) (input_315)))))))) with +| Some ( ( input_317, __2 ) ) -> Some((input_317, (_get_sub (input_313) ((((-)) (input_317) (input_313)))))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_316, __2 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_316)) with +| Some ( ( input_314, __2 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_314)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_317, __3 ) ) -> Some((input_317, +| Some ( ( input_315, __3 ) ) -> Some((input_315, #55 "ocaml_parser.trx" ( sprintf "(%s)" __2 )))))) | ( _ok ) as __pat_var -> __pat_var) in @@ -1498,9 +1498,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('{')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_896, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_896)) with +| Some ( ( input_894, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_894)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_897, __2 ) ) -> Some((input_897, ( () ))))) in +| Some ( ( input_895, __2 ) ) -> Some((input_895, ( () ))))) in (Hashtbl.add (memo_Default_laccol) (input) (res)) ; res) ) let rec try_Default_lbracket_noerr = @@ -1514,9 +1514,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('[')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_894, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_894)) with +| Some ( ( input_892, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_892)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_895, __2 ) ) -> Some((input_895, ( () ))))) in +| Some ( ( input_893, __2 ) ) -> Some((input_893, ( () ))))) in (Hashtbl.add (memo_Default_lbracket) (input) (res)) ; res) ) let rec try_Default_raccol_noerr = @@ -1530,9 +1530,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('}')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_851, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_851)) with +| Some ( ( input_849, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_849)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_852, __2 ) ) -> Some((input_852, ( () ))))) in +| Some ( ( input_850, __2 ) ) -> Some((input_850, ( () ))))) in (Hashtbl.add (memo_Default_raccol) (input) (res)) ; res) ) let rec try_Default_rbracket_noerr = @@ -1546,9 +1546,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) (']')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_849, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_849)) with +| Some ( ( input_847, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_847)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_850, __2 ) ) -> Some((input_850, ( () ))))) in +| Some ( ( input_848, __2 ) ) -> Some((input_848, ( () ))))) in (Hashtbl.add (memo_Default_rbracket) (input) (res)) ; res) ) let rec try_Default_underscore_noerr = @@ -1562,9 +1562,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('_')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_762, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_762)) with +| Some ( ( input_760, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_760)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_763, __2 ) ) -> Some((input_763, ( () ))))) in +| Some ( ( input_761, __2 ) ) -> Some((input_761, ( () ))))) in (Hashtbl.add (memo_Default_underscore) (input) (res)) ; res) ) let rec try_Ocaml_keywords_AS_noerr = @@ -1577,9 +1577,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('s'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "as")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_756, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_756)) with +| Some ( ( input_754, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_754)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_757, __2 ) ) -> Some((input_757, ( () ))))) in +| Some ( ( input_755, __2 ) ) -> Some((input_755, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_AS) (input) (res)) ; res) ) let rec try_Default_stringcharspecial_noerr = @@ -1593,43 +1593,43 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('n')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_797, __1 ) ) -> Some((input_797, +| Some ( ( input_795, __1 ) ) -> Some((input_795, #34 "default.trx" ( '\n' )))) with None -> (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('r')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_796, __1 ) ) -> Some((input_796, +| Some ( ( input_794, __1 ) ) -> Some((input_794, #34 "default.trx" ( '\r' )))) with None -> (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('t')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_795, __1 ) ) -> Some((input_795, +| Some ( ( input_793, __1 ) ) -> Some((input_793, #34 "default.trx" ( '\t' )))) with None -> (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('\'')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_794, __1 ) ) -> Some((input_794, +| Some ( ( input_792, __1 ) ) -> Some((input_792, #35 "default.trx" ( '\'' )))) with None -> (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('"')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_793, __1 ) ) -> Some((input_793, +| Some ( ( input_791, __1 ) ) -> Some((input_791, #35 "default.trx" ( '\"' )))) with None -> (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('\\')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_792, __1 ) ) -> Some((input_792, +| Some ( ( input_790, __1 ) ) -> Some((input_790, #35 "default.trx" ( '\\' )))) with -None -> (match (Trx_runtime.while_primary_noerr (true) ((fun input_791 -> if ( (((<)) (input_791) (_len)) ) then ( let c = ((_get_char) (input_791)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_791)), c)) ) else ( None ) ) else ( None ))) (input)) with +None -> (match (Trx_runtime.while_primary_noerr (true) ((fun input_789 -> if ( (((<)) (input_789) (_len)) ) then ( let c = ((_get_char) (input_789)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_789)), c)) ) else ( None ) ) else ( None ))) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_790, __1 ) ) -> Some((input_790, +| Some ( ( input_788, __1 ) ) -> Some((input_788, #36 "default.trx" ( char_of_int (Tgrammar.int_of_chars __1) )))) | ( _ok ) as __pat_var -> __pat_var) @@ -1651,17 +1651,17 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('\\')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_834, __1 ) ) -> (match (try_Default_stringcharspecial_noerr (_filename) (_text) (input_834)) with +| Some ( ( input_832, __1 ) ) -> (match (try_Default_stringcharspecial_noerr (_filename) (_text) (input_832)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_835, __2 ) ) -> Some((input_835, +| Some ( ( input_833, __2 ) ) -> Some((input_833, #41 "default.trx" ( __2 ))))) with None -> (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((=)) (c) ('\\'))) ((((=)) (c) ('\'')))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with -None -> let input_832 = input in +None -> let input_830 = input in let __1 = () in -if ( (((<)) (input_832) (_len)) ) then ( let c = ((_get_char) (input_832)) in -Some((((succ) (input_832)), c)) ) else ( None ) +if ( (((<)) (input_830) (_len)) ) then ( let c = ((_get_char) (input_830)) in +Some((((succ) (input_830)), c)) ) else ( None ) | Some ( ( _, _ ) ) -> None) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Default_singlequotechar_) (input) (res)) ; res) @@ -1677,12 +1677,12 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('\'')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_928, __1 ) ) -> (match (try_Default_singlequotechar__noerr (_filename) (_text) (input_928)) with +| Some ( ( input_926, __1 ) ) -> (match (try_Default_singlequotechar__noerr (_filename) (_text) (input_926)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_929, __2 ) ) -> (match if ( (((<)) (input_929) (_len)) ) then ( let c = ((_get_char) (input_929)) in -if ( (((=)) (c) ('\'')) ) then ( Some((((succ) (input_929)), c)) ) else ( None ) ) else ( None ) with +| Some ( ( input_927, __2 ) ) -> (match if ( (((<)) (input_927) (_len)) ) then ( let c = ((_get_char) (input_927)) in +if ( (((=)) (c) ('\'')) ) then ( Some((((succ) (input_927)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_930, __3 ) ) -> Some((input_930, +| Some ( ( input_928, __3 ) ) -> Some((input_928, #46 "default.trx" ( __2 )))))) in (Hashtbl.add (memo_Default_charsinglequote) (input) (res)) ; res) @@ -1698,31 +1698,31 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('-')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with None -> Some((input, None)) -| Some ( ( input_816, r ) ) -> Some((input_816, Some((r))))) with +| Some ( ( input_814, r ) ) -> Some((input_814, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_804, __1 ) ) -> (match (match (match (Trx_runtime.while_primary_noerr_nores (true) ((fun input_815 -> if ( (((<)) (input_815) (_len)) ) then ( let c = ((_get_char) (input_815)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_815)), c)) ) else ( None ) ) else ( None ))) (input_804)) with +| Some ( ( input_802, __1 ) ) -> (match (match (match (Trx_runtime.while_primary_noerr_nores (true) ((fun input_813 -> if ( (((<)) (input_813) (_len)) ) then ( let c = ((_get_char) (input_813)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_813)), c)) ) else ( None ) ) else ( None ))) (input_802)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_811, __1 ) ) -> (match if ( (((<)) (input_811) (_len)) ) then ( let c = ((_get_char) (input_811)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_811)), c)) ) else ( None ) ) else ( None ) with +| Some ( ( input_809, __1 ) ) -> (match if ( (((<)) (input_809) (_len)) ) then ( let c = ((_get_char) (input_809)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_809)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_812, __2 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_814 -> if ( (((<)) (input_814) (_len)) ) then ( let c = ((_get_char) (input_814)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_814)), c)) ) else ( None ) ) else ( None ))) (input_812)) with +| Some ( ( input_810, __2 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_812 -> if ( (((<)) (input_812) (_len)) ) then ( let c = ((_get_char) (input_812)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_812)), c)) ) else ( None ) ) else ( None ))) (input_810)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_813, __3 ) ) -> Some((input_813, ()))))) with -None -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_810 -> if ( (((<)) (input_810) (_len)) ) then ( let c = ((_get_char) (input_810)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_810)), c)) ) else ( None ) ) else ( None ))) (input_804)) with +| Some ( ( input_811, __3 ) ) -> Some((input_811, ()))))) with +None -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_808 -> if ( (((<)) (input_808) (_len)) ) then ( let c = ((_get_char) (input_808)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_808)), c)) ) else ( None ) ) else ( None ))) (input_802)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_806, __1 ) ) -> (match if ( (((<)) (input_806) (_len)) ) then ( let c = ((_get_char) (input_806)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_806)), c)) ) else ( None ) ) else ( None ) with +| Some ( ( input_804, __1 ) ) -> (match if ( (((<)) (input_804) (_len)) ) then ( let c = ((_get_char) (input_804)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_804)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_807, __2 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (true) ((fun input_809 -> if ( (((<)) (input_809) (_len)) ) then ( let c = ((_get_char) (input_809)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_809)), c)) ) else ( None ) ) else ( None ))) (input_807)) with +| Some ( ( input_805, __2 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (true) ((fun input_807 -> if ( (((<)) (input_807) (_len)) ) then ( let c = ((_get_char) (input_807)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_807)), c)) ) else ( None ) ) else ( None ))) (input_805)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_808, __3 ) ) -> Some((input_808, ()))))) +| Some ( ( input_806, __3 ) ) -> Some((input_806, ()))))) | ( _ok ) as __pat_var -> __pat_var) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_805, __2 ) ) -> Some((input_805, (_get_sub (input) ((((-)) (input_805) (input)))))))) in +| Some ( ( input_803, __2 ) ) -> Some((input_803, (_get_sub (input) ((((-)) (input_803) (input)))))))) in (Hashtbl.add (memo_Default_strfloat) (input) (res)) ; res) ) let rec try_Default_float_noerr = @@ -1735,7 +1735,7 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_strfloat_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_916, __1 ) ) -> Some((input_916, +| Some ( ( input_914, __1 ) ) -> Some((input_914, #98 "default.trx" ( float_of_string __1 )))) in (Hashtbl.add (memo_Default_float) (input) (res)) ; res) @@ -1751,12 +1751,12 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('-')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with None -> Some((input, None)) -| Some ( ( input_774, r ) ) -> Some((input_774, Some((r))))) with +| Some ( ( input_772, r ) ) -> Some((input_772, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_771, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (true) ((fun input_773 -> if ( (((<)) (input_773) (_len)) ) then ( let c = ((_get_char) (input_773)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_773)), c)) ) else ( None ) ) else ( None ))) (input_771)) with +| Some ( ( input_769, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (true) ((fun input_771 -> if ( (((<)) (input_771) (_len)) ) then ( let c = ((_get_char) (input_771)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_771)), c)) ) else ( None ) ) else ( None ))) (input_769)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_772, __2 ) ) -> Some((input_772, (_get_sub (input) ((((-)) (input_772) (input)))))))) in +| Some ( ( input_770, __2 ) ) -> Some((input_770, (_get_sub (input) ((((-)) (input_770) (input)))))))) in (Hashtbl.add (memo_Default_strint) (input) (res)) ; res) ) let rec try_Default_int_noerr = @@ -1769,7 +1769,7 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_strint_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_911, __1 ) ) -> Some((input_911, +| Some ( ( input_909, __1 ) ) -> Some((input_909, #95 "default.trx" ( int_of_string __1 )))) in (Hashtbl.add (memo_Default_int) (input) (res)) ; res) @@ -1785,17 +1785,17 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('\\')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_800, __1 ) ) -> (match (try_Default_stringcharspecial_noerr (_filename) (_text) (input_800)) with +| Some ( ( input_798, __1 ) ) -> (match (try_Default_stringcharspecial_noerr (_filename) (_text) (input_798)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_801, __2 ) ) -> Some((input_801, +| Some ( ( input_799, __2 ) ) -> Some((input_799, #38 "default.trx" ( __2 ))))) with None -> (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((=)) (c) ('\\'))) ((((=)) (c) ('"')))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with -None -> let input_798 = input in +None -> let input_796 = input in let __1 = () in -if ( (((<)) (input_798) (_len)) ) then ( let c = ((_get_char) (input_798)) in -Some((((succ) (input_798)), c)) ) else ( None ) +if ( (((<)) (input_796) (_len)) ) then ( let c = ((_get_char) (input_796)) in +Some((((succ) (input_796)), c)) ) else ( None ) | Some ( ( _, _ ) ) -> None) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Default_stringchar) (input) (res)) ; res) @@ -1811,12 +1811,12 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('"')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_786, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_789 -> (try_Default_stringchar_noerr (_filename) (_text) (input_789)))) (input_786)) with +| Some ( ( input_784, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_787 -> (try_Default_stringchar_noerr (_filename) (_text) (input_787)))) (input_784)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_787, __2 ) ) -> (match if ( (((<)) (input_787) (_len)) ) then ( let c = ((_get_char) (input_787)) in -if ( (((=)) (c) ('"')) ) then ( Some((((succ) (input_787)), c)) ) else ( None ) ) else ( None ) with +| Some ( ( input_785, __2 ) ) -> (match if ( (((<)) (input_785) (_len)) ) then ( let c = ((_get_char) (input_785)) in +if ( (((=)) (c) ('"')) ) then ( Some((((succ) (input_785)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_788, __3 ) ) -> Some((input_788, +| Some ( ( input_786, __3 ) ) -> Some((input_786, #28 "default.trx" ( Tgrammar.string_of_chars __2 )))))) in (Hashtbl.add (memo_Default_stringnosp) (input) (res)) ; res) @@ -1831,9 +1831,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_stringnosp_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_802, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_802)) with +| Some ( ( input_800, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_800)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_803, __2 ) ) -> Some((input_803, +| Some ( ( input_801, __2 ) ) -> Some((input_801, #27 "default.trx" ( __1 ))))) in (Hashtbl.add (memo_Default_string) (input) (res)) ; res) @@ -1848,11 +1848,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_lparen_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_147, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_147)) with +| Some ( ( input_145, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_145)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_148, __2 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_148)) with +| Some ( ( input_146, __2 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_146)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_149, __3 ) ) -> Some((input_149, ( () )))))) in +| Some ( ( input_147, __3 ) ) -> Some((input_147, ( () )))))) in (Hashtbl.add (memo_Ocaml_parser_unit) (input) (res)) ; res) ) let rec try_Ocaml_parser_const_noerr = @@ -1865,49 +1865,49 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Default_float_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_352, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_352)) with +| Some ( ( input_350, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_350)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_353, __2 ) ) -> Some((input_353, +| Some ( ( input_351, __2 ) ) -> Some((input_351, #40 "ocaml_parser.trx" ( Float __1 ))))) with None -> (match (match (try_Default_int_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_350, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_350)) with +| Some ( ( input_348, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_348)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_351, __2 ) ) -> Some((input_351, +| Some ( ( input_349, __2 ) ) -> Some((input_349, #41 "ocaml_parser.trx" ( Int __1 ))))) with None -> (match (match (try_Default_string_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_348, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_348)) with +| Some ( ( input_346, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_346)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_349, __2 ) ) -> Some((input_349, +| Some ( ( input_347, __2 ) ) -> Some((input_347, #42 "ocaml_parser.trx" ( String __1 ))))) with None -> (match (match (try_Default_charsinglequote_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_346, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_346)) with +| Some ( ( input_344, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_344)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_347, __2 ) ) -> Some((input_347, +| Some ( ( input_345, __2 ) ) -> Some((input_345, #44 "ocaml_parser.trx" ( Char (__1) ))))) with None -> (match (match (try_Ocaml_parser_unit_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_345, __1 ) ) -> Some((input_345, +| Some ( ( input_343, __1 ) ) -> Some((input_343, #45 "ocaml_parser.trx" ( Unit )))) with None -> (match (match if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('f'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('e'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "false")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_343, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_343)) with +| Some ( ( input_341, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_341)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_344, __2 ) ) -> Some((input_344, +| Some ( ( input_342, __2 ) ) -> Some((input_342, #46 "ocaml_parser.trx" ( Bool false ))))) with None -> (match if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('e'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "true")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_341, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_341)) with +| Some ( ( input_339, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_339)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_342, __2 ) ) -> Some((input_342, +| Some ( ( input_340, __2 ) ) -> Some((input_340, #47 "ocaml_parser.trx" ( Bool true ))))) | ( _ok ) as __pat_var -> __pat_var) @@ -1929,9 +1929,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((=)) (c) ('`'))) ((((&&)) ((((>=)) (c) ('A'))) ((((<=)) (c) ('Z')))))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_355, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_357 -> (try_Ocaml_parser_mlIdent_cont_noerr (_filename) (_text) (input_357)))) (input_355)) with +| Some ( ( input_353, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_355 -> (try_Ocaml_parser_mlIdent_cont_noerr (_filename) (_text) (input_355)))) (input_353)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_356, __2 ) ) -> Some((input_356, (_get_sub (input) ((((-)) (input_356) (input)))))))) in +| Some ( ( input_354, __2 ) ) -> Some((input_354, (_get_sub (input) ((((-)) (input_354) (input)))))))) in (Hashtbl.add (memo_Ocaml_parser_capMlIdent_) (input) (res)) ; res) ) let rec try_Ocaml_parser_constructorName_noerr = @@ -1942,24 +1942,24 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Ocaml_parser_constructorName) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary_noerr (false) ((fun input_338 -> (match (try_Ocaml_parser_capMlIdent__noerr (_filename) (_text) (input_338)) with +Not_found -> let res = (match (Trx_runtime.while_primary_noerr (false) ((fun input_336 -> (match (try_Ocaml_parser_capMlIdent__noerr (_filename) (_text) (input_336)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_339, __1 ) ) -> (match if ( (((<)) (input_339) (_len)) ) then ( let c = ((_get_char) (input_339)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_339)), c)) ) else ( None ) ) else ( None ) with +| Some ( ( input_337, __1 ) ) -> (match if ( (((<)) (input_337) (_len)) ) then ( let c = ((_get_char) (input_337)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_337)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_340, __2 ) ) -> Some((input_340, +| Some ( ( input_338, __2 ) ) -> Some((input_338, #121 "ocaml_parser.trx" ( __1 ))))))) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_334, __1 ) ) -> (match (try_Ocaml_parser_capMlIdent__noerr (_filename) (_text) (input_334)) with +| Some ( ( input_332, __1 ) ) -> (match (try_Ocaml_parser_capMlIdent__noerr (_filename) (_text) (input_332)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_335, __2 ) ) -> (match if ( (((<)) (input_335) (_len)) ) then ( let c = ((_get_char) (input_335)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_335)), c)) ) else ( None ) ) else ( None ) with -None -> let input_336 = input_335 in +| Some ( ( input_333, __2 ) ) -> (match if ( (((<)) (input_333) (_len)) ) then ( let c = ((_get_char) (input_333)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_333)), c)) ) else ( None ) ) else ( None ) with +None -> let input_334 = input_333 in let __3 = () in -(match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_336)) with +(match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_334)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_337, __4 ) ) -> Some((input_337, +| Some ( ( input_335, __4 ) ) -> Some((input_335, #121 "ocaml_parser.trx" ( __1 @ [__2] )))) | Some ( ( _, _ ) ) -> None))) in @@ -1973,13 +1973,13 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Ocaml_types_spacing) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_124 -> (match (match (try_Default_space_noerr (_filename) (_text) (input_124)) with +Not_found -> let res = (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_123 -> (match (match (try_Default_space_noerr (_filename) (_text) (input_123)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_126, __1 ) ) -> Some((input_126, ( () )))) with -None -> (try_Default_mlcomment_noerr (_filename) (_text) (input_124)) +| Some ( ( input_125, __1 ) ) -> Some((input_125, ( () )))) with +None -> (try_Default_mlcomment_noerr (_filename) (_text) (input_123)) | ( _ok ) as __pat_var -> __pat_var))) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_123, __1 ) ) -> Some((input_123, ( () )))) in +| Some ( ( input_122, __1 ) ) -> Some((input_122, ( () )))) in (Hashtbl.add (memo_Ocaml_types_spacing) (input) (res)) ; res) ) let rec try_Ocaml_keywords_OF_noerr = @@ -1992,20 +1992,20 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('f'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "of")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_716, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_716)) with +| Some ( ( input_714, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_714)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_717, __2 ) ) -> Some((input_717, ( () ))))) in +| Some ( ( input_715, __2 ) ) -> Some((input_715, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_OF) (input) (res)) ; res) ) let rec try_Ocaml_types_typeIdent_cont_noerr = -#31 "ocaml_types.trx" +#30 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((&&)) ((((>=)) (c) ('a'))) ((((<=)) (c) ('z'))))) ((((||)) ((((&&)) ((((>=)) (c) ('A'))) ((((<=)) (c) ('Z'))))) ((((||)) ((((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9'))))) ((((=)) (c) ('_')))))))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) let rec try_Ocaml_types_typeconstructor_noerr = -#34 "ocaml_types.trx" +#33 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2022,7 +2022,7 @@ if ( (((&&)) ((((>=)) (c) ('A'))) ((((<=)) (c) ('Z')))) ) then ( Some((((succ) ( | Some ( ( input_86, __1 ) ) -> (match (try_Ocaml_types_spacing_noerr (_filename) (_text) (input_86)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_87, __2 ) ) -> Some((input_87, -#34 "ocaml_types.trx" +#33 "ocaml_types.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_types_typeconstructor) (input) (res)) ; res) ) @@ -2036,13 +2036,13 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (7))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('m'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('b'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (6))))) ('e'))) (true)))))))))))))))) ) then ( Some(((((+)) (input) (7)), "mutable")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_718, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_718)) with +| Some ( ( input_716, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_716)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_719, __2 ) ) -> Some((input_719, ( () ))))) in +| Some ( ( input_717, __2 ) ) -> Some((input_717, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_MUTABLE) (input) (res)) ; res) ) let rec try_Ocaml_types_typeIdent_aux_noerr = -#32 "ocaml_types.trx" +#31 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2052,20 +2052,20 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((&&)) ((((>=)) (c) ('a'))) ((((<=)) (c) ('z')))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_109, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_111 -> (try_Ocaml_types_typeIdent_cont_noerr (_filename) (_text) (input_111)))) (input_109)) with +| Some ( ( input_108, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_110 -> (try_Ocaml_types_typeIdent_cont_noerr (_filename) (_text) (input_110)))) (input_108)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_110, __2 ) ) -> Some((input_110, (_get_sub (input) ((((-)) (input_110) (input)))))))) with +| Some ( ( input_109, __2 ) ) -> Some((input_109, (_get_sub (input) ((((-)) (input_109) (input)))))))) with None -> (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('_')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_106, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (true) ((fun input_108 -> (try_Ocaml_types_typeIdent_cont_noerr (_filename) (_text) (input_108)))) (input_106)) with +| Some ( ( input_105, __1 ) ) -> (match (Trx_runtime.while_primary_noerr_nores (true) ((fun input_107 -> (try_Ocaml_types_typeIdent_cont_noerr (_filename) (_text) (input_107)))) (input_105)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_107, __2 ) ) -> Some((input_107, (_get_sub (input) ((((-)) (input_107) (input)))))))) +| Some ( ( input_106, __2 ) ) -> Some((input_106, (_get_sub (input) ((((-)) (input_106) (input)))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typeIdent_aux) (input) (res)) ; res) ) let rec try_Ocaml_types_typeIdent_noerr = -#33 "ocaml_types.trx" +#32 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2074,43 +2074,33 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_keywords_KEYWORDS_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_115, __1 ) ) -> (match (try_Ocaml_types_typeIdent_cont_noerr (_filename) (_text) (input_115)) with -None -> let input_116 = input_115 in +| Some ( ( input_114, __1 ) ) -> (match (try_Ocaml_types_typeIdent_cont_noerr (_filename) (_text) (input_114)) with +None -> let input_115 = input_114 in let __2 = () in -Some((input_116, __1)) +Some((input_115, __1)) | Some ( ( _, _ ) ) -> None)) with -None -> let input_112 = input in +None -> let input_111 = input in let __1 = () in -(match (try_Ocaml_types_typeIdent_aux_noerr (_filename) (_text) (input_112)) with +(match (try_Ocaml_types_typeIdent_aux_noerr (_filename) (_text) (input_111)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_113, __2 ) ) -> (match (try_Ocaml_types_spacing_noerr (_filename) (_text) (input_113)) with +| Some ( ( input_112, __2 ) ) -> (match (try_Ocaml_types_spacing_noerr (_filename) (_text) (input_112)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_114, __3 ) ) -> Some((input_114, -#33 "ocaml_types.trx" +| Some ( ( input_113, __3 ) ) -> Some((input_113, +#32 "ocaml_types.trx" ( __2 ))))) | Some ( ( _, _ ) ) -> None) in (Hashtbl.add (memo_Ocaml_types_typeIdent) (input) (res)) ; res) ) let rec try_Ocaml_types_BoolT_noerr = -#29 "ocaml_types.trx" -(fun _filename _text input -> let _len = ((String.length) (_text)) -and _get_char = ((String.unsafe_get) (_text)) -and _get_sub = ((String.sub) (_text)) in -(match if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('b'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('l'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "bool")) ) else ( None ) with -( None ) as __pat_var -> __pat_var -| Some ( ( input_146, __1 ) ) -> Some((input_146, -#29 "ocaml_types.trx" -( TypeBool ))))) -let rec try_Ocaml_types_CharT_noerr = #28 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in -(match if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('c'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('h'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('r'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "char")) ) else ( None ) with +(match if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('b'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('l'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "bool")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_145, __1 ) ) -> Some((input_145, +| Some ( ( input_144, __1 ) ) -> Some((input_144, #28 "ocaml_types.trx" -( TypeChar ))))) +( TypeBool ))))) let rec try_Ocaml_types_FloatT_noerr = #25 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -2118,7 +2108,7 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('f'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('t'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "float")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_144, __1 ) ) -> Some((input_144, +| Some ( ( input_143, __1 ) ) -> Some((input_143, #25 "ocaml_types.trx" ( TypeFloat ))))) let rec try_Ocaml_types_Int64T_noerr = @@ -2128,7 +2118,7 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('6'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('4'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "int64")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_143, __1 ) ) -> Some((input_143, +| Some ( ( input_142, __1 ) ) -> Some((input_142, #24 "ocaml_types.trx" ( TypeInt64 ))))) let rec try_Ocaml_types_IntT_noerr = @@ -2138,7 +2128,7 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "int")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_142, __1 ) ) -> Some((input_142, +| Some ( ( input_141, __1 ) ) -> Some((input_141, #23 "ocaml_types.trx" ( TypeInt ))))) let rec try_Ocaml_types_StringT_noerr = @@ -2148,7 +2138,7 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match if ( (((&&)) ((((<=)) ((((+)) (input) (6))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('g'))) (true)))))))))))))) ) then ( Some(((((+)) (input) (6)), "string")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_141, __1 ) ) -> Some((input_141, +| Some ( ( input_140, __1 ) ) -> Some((input_140, #26 "ocaml_types.trx" ( TypeString ))))) let rec try_Ocaml_types_UnitT_noerr = @@ -2158,7 +2148,7 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('t'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "unit")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_140, __1 ) ) -> Some((input_140, +| Some ( ( input_139, __1 ) ) -> Some((input_139, #27 "ocaml_types.trx" ( TypeUnit ))))) let rec try_Ocaml_types_typeconst_noerr = @@ -2174,13 +2164,11 @@ None -> (match (try_Ocaml_types_Int64T_noerr (_filename) (_text) (input)) with None -> (match (try_Ocaml_types_FloatT_noerr (_filename) (_text) (input)) with None -> (match (try_Ocaml_types_StringT_noerr (_filename) (_text) (input)) with None -> (match (try_Ocaml_types_UnitT_noerr (_filename) (_text) (input)) with -None -> (match (try_Ocaml_types_CharT_noerr (_filename) (_text) (input)) with None -> (try_Ocaml_types_BoolT_noerr (_filename) (_text) (input)) | ( _ok ) as __pat_var -> __pat_var) | ( _ok ) as __pat_var -> __pat_var) | ( _ok ) as __pat_var -> __pat_var) | ( _ok ) as __pat_var -> __pat_var) -| ( _ok ) as __pat_var -> __pat_var) | ( _ok ) as __pat_var -> __pat_var) with ( None ) as __pat_var -> __pat_var | Some ( ( input_91, __1 ) ) -> Some((input_91, @@ -2189,7 +2177,7 @@ None -> (try_Ocaml_types_BoolT_noerr (_filename) (_text) (input)) (Hashtbl.add (memo_Ocaml_types_typeconst) (input) (res)) ; res) ) let rec try_Ocaml_types_typename_noerr = -#36 "ocaml_types.trx" +#35 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2204,18 +2192,18 @@ if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_37)), c)) ) else ( None ) ) | Some ( ( input_38, __2 ) ) -> (match (try_Ocaml_types_typename_noerr (_filename) (_text) (input_38)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_39, __3 ) ) -> Some((input_39, -#36 "ocaml_types.trx" +#35 "ocaml_types.trx" ( __1 :: __3 )))))) with None -> (match (try_Ocaml_types_typeIdent_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_36, __1 ) ) -> Some((input_36, -#37 "ocaml_types.trx" +#36 "ocaml_types.trx" ( [__1] )))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typename) (input) (res)) ; res) ) let rec try_Ocaml_types_typevar_noerr = -#35 "ocaml_types.trx" +#34 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2228,12 +2216,12 @@ if ( (((=)) (c) ('\'')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) e | Some ( ( input_15, __1 ) ) -> (match (try_Ocaml_types_typeIdent_noerr (_filename) (_text) (input_15)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_16, __2 ) ) -> Some((input_16, -#35 "ocaml_types.trx" +#34 "ocaml_types.trx" ( TypeVar ("'" ^ __2) ))))) in (Hashtbl.add (memo_Ocaml_types_typevar) (input) (res)) ; res) ) let rec try_Ocaml_types_typevarorname_noerr = -#46 "ocaml_types.trx" +#45 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2253,7 +2241,7 @@ let __1 = () in (match (try_Ocaml_types_typename_noerr (_filename) (_text) (input_10)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_11, __2 ) ) -> Some((input_11, -#46 "ocaml_types.trx" +#45 "ocaml_types.trx" ( TypeName ([], __2) )))) | Some ( ( _, _ ) ) -> None) with None -> (match (try_Ocaml_types_typeconst_noerr (_filename) (_text) (input)) with @@ -2261,14 +2249,14 @@ None -> (match (try_Ocaml_types_typeconst_noerr (_filename) (_text) (input)) wit | Some ( ( input_8, __1 ) ) -> (match (try_Ocaml_types_spacing_noerr (_filename) (_text) (input_8)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_9, __2 ) ) -> Some((input_9, -#46 "ocaml_types.trx" +#45 "ocaml_types.trx" ( __1 ))))) | ( _ok ) as __pat_var -> __pat_var) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typevarorname) (input) (res)) ; res) ) let rec try_Ocaml_types_typedef_noerr = -#89 "ocaml_types.trx" +#88 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2282,18 +2270,18 @@ Not_found -> let res = (match (match (try_Ocaml_types_typedef_no_arrow_noerr (_f | Some ( ( input_70, __2 ) ) -> (match (try_Ocaml_types_typedef_noerr (_filename) (_text) (input_70)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_71, __3 ) ) -> Some((input_71, -#90 "ocaml_types.trx" +#89 "ocaml_types.trx" ( TypeArrow ( __1, __3) )))))) with None -> (match (try_Ocaml_types_typedef_no_arrow_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_68, __1 ) ) -> Some((input_68, -#91 "ocaml_types.trx" +#90 "ocaml_types.trx" ( __1 )))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typedef) (input) (res)) ; res) ) and try_Ocaml_types_typedef_base_noerr = -#65 "ocaml_types.trx" +#64 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2310,7 +2298,7 @@ None -> (match (try_Default_lparen_noerr (_filename) (_text) (input)) with | Some ( ( input_59, __2 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_59)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_60, __3 ) ) -> Some((input_60, -#67 "ocaml_types.trx" +#66 "ocaml_types.trx" ( __2 )))))) | ( _ok ) as __pat_var -> __pat_var) | ( _ok ) as __pat_var -> __pat_var) @@ -2318,7 +2306,7 @@ None -> (match (try_Default_lparen_noerr (_filename) (_text) (input)) with (Hashtbl.add (memo_Ocaml_types_typedef_base) (input) (res)) ; res) ) and try_Ocaml_types_typerecord_aux_noerr = -#96 "ocaml_types.trx" +#95 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2332,7 +2320,7 @@ Not_found -> let res = (match (try_Ocaml_types_onetyperecord_noerr (_filename) ( | Some ( ( input_22, __1 ) ) -> (match (try_Ocaml_types_onetyperecord_noerr (_filename) (_text) (input_22)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_23, __2 ) ) -> Some((input_23, -#96 "ocaml_types.trx" +#95 "ocaml_types.trx" ( __2 ))))))) (input_17)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_18, __2 ) ) -> (match (match (try_Default_semi_noerr (_filename) (_text) (input_18)) with @@ -2340,12 +2328,12 @@ None -> Some((input_18, None)) | Some ( ( input_20, r ) ) -> Some((input_20, Some((r))))) with ( None ) as __pat_var -> __pat_var | Some ( ( input_19, __3 ) ) -> Some((input_19, -#96 "ocaml_types.trx" +#95 "ocaml_types.trx" ( __1 ::__2 )))))) in (Hashtbl.add (memo_Ocaml_types_typerecord_aux) (input) (res)) ; res) ) and try_Ocaml_types_typeparam_noerr = -#69 "ocaml_types.trx" +#68 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2361,24 +2349,24 @@ Not_found -> let res = (match (match (try_Default_lparen_noerr (_filename) (_tex | Some ( ( input_34, __1 ) ) -> (match (try_Ocaml_types_typedef_noerr (_filename) (_text) (input_34)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_35, __2 ) ) -> Some((input_35, -#70 "ocaml_types.trx" +#69 "ocaml_types.trx" ( __2 ))))))) (input_30)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_31, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_31)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_32, __4 ) ) -> Some((input_32, -#70 "ocaml_types.trx" +#69 "ocaml_types.trx" ( __2 :: __3 ))))))) with None -> (match (try_Ocaml_types_typedef_base_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_28, __1 ) ) -> Some((input_28, -#71 "ocaml_types.trx" +#70 "ocaml_types.trx" ( [__1] )))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typeparam) (input) (res)) ; res) ) and try_Ocaml_types_typeSum_noerr = -#98 "ocaml_types.trx" +#97 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2387,28 +2375,28 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_types_typeconstructor_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_99, __1 ) ) -> (match if ( (((<)) (input_99) (_len)) ) then ( let c = ((_get_char) (input_99)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_99)), c)) ) else ( None ) ) else ( None ) with -None -> let input_100 = input_99 in +| Some ( ( input_98, __1 ) ) -> (match if ( (((<)) (input_98) (_len)) ) then ( let c = ((_get_char) (input_98)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_98)), c)) ) else ( None ) ) else ( None ) with +None -> let input_99 = input_98 in let __2 = () in -(match (match (match (try_Ocaml_keywords_OF_noerr (_filename) (_text) (input_100)) with +(match (match (match (try_Ocaml_keywords_OF_noerr (_filename) (_text) (input_99)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_102, __1 ) ) -> (match (try_Ocaml_types_typedef_noerr (_filename) (_text) (input_102)) with +| Some ( ( input_101, __1 ) ) -> (match (try_Ocaml_types_typedef_noerr (_filename) (_text) (input_101)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_103, __2 ) ) -> Some((input_103, -#98 "ocaml_types.trx" +| Some ( ( input_102, __2 ) ) -> Some((input_102, +#97 "ocaml_types.trx" ( __2 ))))) with -None -> Some((input_100, None)) -| Some ( ( input_104, r ) ) -> Some((input_104, Some((r))))) with +None -> Some((input_99, None)) +| Some ( ( input_103, r ) ) -> Some((input_103, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_101, __3 ) ) -> Some((input_101, -#98 "ocaml_types.trx" +| Some ( ( input_100, __3 ) ) -> Some((input_100, +#97 "ocaml_types.trx" ( TypeConstructor [__1, __3] )))) | Some ( ( _, _ ) ) -> None)) in (Hashtbl.add (memo_Ocaml_types_typeSum) (input) (res)) ; res) ) and try_Ocaml_types_typedef_no_arrow_noerr = -#82 "ocaml_types.trx" +#81 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2425,11 +2413,11 @@ if ( (((=)) (c) ('*')) ) then ( Some((((succ) (input_54)), c)) ) else ( None ) ) | Some ( ( input_56, __2 ) ) -> (match (try_Ocaml_types_typedef_aux_noerr (_filename) (_text) (input_56)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_57, __3 ) ) -> Some((input_57, -#82 "ocaml_types.trx" +#81 "ocaml_types.trx" ( __3 )))))))) (input_52)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_53, __2 ) ) -> Some((input_53, -#82 "ocaml_types.trx" +#81 "ocaml_types.trx" ( match (__1::__2) with | [] -> failwith "@Ocaml_types.typedef_no_arrow : empty type tuple" | [td] -> td @@ -2438,7 +2426,7 @@ if ( (((=)) (c) ('*')) ) then ( Some((((succ) (input_54)), c)) ) else ( None ) ) (Hashtbl.add (memo_Ocaml_types_typedef_no_arrow) (input) (res)) ; res) ) and try_Ocaml_types_onetyperecord_noerr = -#95 "ocaml_types.trx" +#94 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2447,21 +2435,21 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_keywords_MUTABLE_noerr (_filename) (_text) (input)) with None -> Some((input, None)) -| Some ( ( input_131, r ) ) -> Some((input_131, Some((r))))) with +| Some ( ( input_130, r ) ) -> Some((input_130, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_127, __1 ) ) -> (match (try_Ocaml_types_typeIdent_noerr (_filename) (_text) (input_127)) with +| Some ( ( input_126, __1 ) ) -> (match (try_Ocaml_types_typeIdent_noerr (_filename) (_text) (input_126)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_128, __2 ) ) -> (match (try_Default_colon_noerr (_filename) (_text) (input_128)) with +| Some ( ( input_127, __2 ) ) -> (match (try_Default_colon_noerr (_filename) (_text) (input_127)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_129, __3 ) ) -> (match (try_Ocaml_types_typedef_noerr (_filename) (_text) (input_129)) with +| Some ( ( input_128, __3 ) ) -> (match (try_Ocaml_types_typedef_noerr (_filename) (_text) (input_128)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_130, __4 ) ) -> Some((input_130, -#95 "ocaml_types.trx" +| Some ( ( input_129, __4 ) ) -> Some((input_129, +#94 "ocaml_types.trx" ( (match __1 with None -> false | _ -> true), __2, __4 ))))))) in (Hashtbl.add (memo_Ocaml_types_onetyperecord) (input) (res)) ; res) ) and try_Ocaml_types_typedef_aux_noerr = -#73 "ocaml_types.trx" +#72 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2473,7 +2461,7 @@ Not_found -> let res = (match (match (try_Ocaml_types_typeparam_noerr (_filename | Some ( ( input_65, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (true) ((fun input_67 -> (try_Ocaml_types_typename_noerr (_filename) (_text) (input_67)))) (input_65)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_66, __2 ) ) -> Some((input_66, -#74 "ocaml_types.trx" +#73 "ocaml_types.trx" ( match __2 with | hd :: tl -> List.fold_left (fun acc x -> TypeName ([acc], x)) (TypeName (__1, hd)) tl @@ -2484,7 +2472,7 @@ None -> (try_Ocaml_types_typedef_base_noerr (_filename) (_text) (input)) (Hashtbl.add (memo_Ocaml_types_typedef_aux) (input) (res)) ; res) ) and try_Ocaml_types_typerecord_noerr = -#102 "ocaml_types.trx" +#101 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -2496,13 +2484,13 @@ Not_found -> let res = (match (try_Default_laccol_noerr (_filename) (_text) (inp | Some ( ( input_24, __1 ) ) -> (match (match (try_Ocaml_types_typerecord_aux_noerr (_filename) (_text) (input_24)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_27, __1 ) ) -> Some((input_27, -#102 "ocaml_types.trx" +#101 "ocaml_types.trx" ( TypeRecord __1 )))) with ( None ) as __pat_var -> __pat_var | Some ( ( input_25, __2 ) ) -> (match (try_Default_raccol_noerr (_filename) (_text) (input_25)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_26, __3 ) ) -> Some((input_26, -#101 "ocaml_types.trx" +#100 "ocaml_types.trx" ( __2 )))))) in (Hashtbl.add (memo_Ocaml_types_typerecord) (input) (res)) ; res) ) @@ -2527,7 +2515,7 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_pattern_aux_l_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_213, __1 ) ) -> Some((input_213, +| Some ( ( input_211, __1 ) ) -> Some((input_211, #179 "ocaml_parser.trx" ( match __1 with | [t] -> t @@ -2545,17 +2533,17 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_pattern_aux_aux_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_155, __1 ) ) -> (match (match (match (try_Ocaml_keywords_CONS_noerr (_filename) (_text) (input_155)) with +| Some ( ( input_153, __1 ) ) -> (match (match (match (try_Ocaml_keywords_CONS_noerr (_filename) (_text) (input_153)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_157, __1 ) ) -> (match (try_Ocaml_parser_pattern_cons_noerr (_filename) (_text) (input_157)) with +| Some ( ( input_155, __1 ) ) -> (match (try_Ocaml_parser_pattern_cons_noerr (_filename) (_text) (input_155)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_158, __2 ) ) -> Some((input_158, +| Some ( ( input_156, __2 ) ) -> Some((input_156, #164 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_155, None)) -| Some ( ( input_159, r ) ) -> Some((input_159, Some((r))))) with +None -> Some((input_153, None)) +| Some ( ( input_157, r ) ) -> Some((input_157, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_156, __2 ) ) -> Some((input_156, +| Some ( ( input_154, __2 ) ) -> Some((input_154, #165 "ocaml_parser.trx" ( match __2 with | None -> __1 @@ -2573,87 +2561,87 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_212, __1 ) ) -> Some((input_212, +| Some ( ( input_210, __1 ) ) -> Some((input_210, #129 "ocaml_parser.trx" ( PatVar (Ident.source __1) )))) with None -> (match (match (try_Default_lparen_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_205, __1 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_205)) with +| Some ( ( input_203, __1 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_203)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_206, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_206)) with +| Some ( ( input_204, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_204)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_209, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_209)) with +| Some ( ( input_207, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_207)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_210, __2 ) ) -> Some((input_210, ())))) with -None -> Some((input_206, None)) -| Some ( ( input_211, r ) ) -> Some((input_211, Some((r))))) with +| Some ( ( input_208, __2 ) ) -> Some((input_208, ())))) with +None -> Some((input_204, None)) +| Some ( ( input_209, r ) ) -> Some((input_209, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_207, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_207)) with +| Some ( ( input_205, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_205)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_208, __4 ) ) -> Some((input_208, +| Some ( ( input_206, __4 ) ) -> Some((input_206, #131 "ocaml_parser.trx" ( __2 ))))))) with None -> (match (match (try_Default_underscore_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_204, __1 ) ) -> Some((input_204, +| Some ( ( input_202, __1 ) ) -> Some((input_202, #133 "ocaml_parser.trx" ( PatAny )))) with None -> (match (match (try_Ocaml_parser_const_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_203, __1 ) ) -> Some((input_203, +| Some ( ( input_201, __1 ) ) -> Some((input_201, #135 "ocaml_parser.trx" ( PatConst __1 )))) with None -> (match (match (try_Default_laccol_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_190, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_190)) with +| Some ( ( input_188, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_188)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_191, __2 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_191)) with +| Some ( ( input_189, __2 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_189)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_192, __3 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_192)) with +| Some ( ( input_190, __3 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_190)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_193, __4 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_198 -> (match (try_Default_semi_noerr (_filename) (_text) (input_198)) with +| Some ( ( input_191, __4 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_196 -> (match (try_Default_semi_noerr (_filename) (_text) (input_196)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_199, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_199)) with +| Some ( ( input_197, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_197)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_200, __2 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_200)) with +| Some ( ( input_198, __2 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_198)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_201, __3 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_201)) with +| Some ( ( input_199, __3 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_199)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_202, __4 ) ) -> Some((input_202, +| Some ( ( input_200, __4 ) ) -> Some((input_200, #137 "ocaml_parser.trx" -( __2, __4 ))))))))) (input_193)) with +( __2, __4 ))))))))) (input_191)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_194, __5 ) ) -> (match (match (try_Default_semi_noerr (_filename) (_text) (input_194)) with -None -> Some((input_194, None)) -| Some ( ( input_197, r ) ) -> Some((input_197, Some((r))))) with +| Some ( ( input_192, __5 ) ) -> (match (match (try_Default_semi_noerr (_filename) (_text) (input_192)) with +None -> Some((input_192, None)) +| Some ( ( input_195, r ) ) -> Some((input_195, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_195, __6 ) ) -> (match (try_Default_raccol_noerr (_filename) (_text) (input_195)) with +| Some ( ( input_193, __6 ) ) -> (match (try_Default_raccol_noerr (_filename) (_text) (input_193)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_196, __7 ) ) -> Some((input_196, +| Some ( ( input_194, __7 ) ) -> Some((input_194, #138 "ocaml_parser.trx" ( PatRecord ((__2, __4)::__5) )))))))))) with None -> (match (match (try_Default_lbracket_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_181, __1 ) ) -> (match (match (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_181)) with +| Some ( ( input_179, __1 ) ) -> (match (match (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_179)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_184, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_186 -> (match (try_Default_semi_noerr (_filename) (_text) (input_186)) with +| Some ( ( input_182, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_184 -> (match (try_Default_semi_noerr (_filename) (_text) (input_184)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_187, __1 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_187)) with +| Some ( ( input_185, __1 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_185)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_188, __2 ) ) -> Some((input_188, +| Some ( ( input_186, __2 ) ) -> Some((input_186, #142 "ocaml_parser.trx" -( __2 ))))))) (input_184)) with +( __2 ))))))) (input_182)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_185, __2 ) ) -> Some((input_185, +| Some ( ( input_183, __2 ) ) -> Some((input_183, #142 "ocaml_parser.trx" ( __1, __2 ))))) with -None -> Some((input_181, None)) -| Some ( ( input_189, r ) ) -> Some((input_189, Some((r))))) with +None -> Some((input_179, None)) +| Some ( ( input_187, r ) ) -> Some((input_187, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_182, __2 ) ) -> (match (try_Default_rbracket_noerr (_filename) (_text) (input_182)) with +| Some ( ( input_180, __2 ) ) -> (match (try_Default_rbracket_noerr (_filename) (_text) (input_180)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_183, __3 ) ) -> Some((input_183, +| Some ( ( input_181, __3 ) ) -> Some((input_181, #143 "ocaml_parser.trx" ( match __2 with | None -> PatEmptyList @@ -2662,31 +2650,31 @@ None -> Some((input_181, None)) )))))) with None -> (match (match (try_Ocaml_parser_constructorName_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_173, __1 ) ) -> (match (try_Default_lparen_noerr (_filename) (_text) (input_173)) with +| Some ( ( input_171, __1 ) ) -> (match (try_Default_lparen_noerr (_filename) (_text) (input_171)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_174, __2 ) ) -> (match (try_Ocaml_parser_pattern_cons_noerr (_filename) (_text) (input_174)) with +| Some ( ( input_172, __2 ) ) -> (match (try_Ocaml_parser_pattern_cons_noerr (_filename) (_text) (input_172)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_175, __3 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_178 -> (match (try_Default_comma_noerr (_filename) (_text) (input_178)) with +| Some ( ( input_173, __3 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_176 -> (match (try_Default_comma_noerr (_filename) (_text) (input_176)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_179, __1 ) ) -> (match (try_Ocaml_parser_pattern_cons_noerr (_filename) (_text) (input_179)) with +| Some ( ( input_177, __1 ) ) -> (match (try_Ocaml_parser_pattern_cons_noerr (_filename) (_text) (input_177)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_180, __2 ) ) -> Some((input_180, +| Some ( ( input_178, __2 ) ) -> Some((input_178, #150 "ocaml_parser.trx" -( __2 ))))))) (input_175)) with +( __2 ))))))) (input_173)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_176, __4 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_176)) with +| Some ( ( input_174, __4 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_174)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_177, __5 ) ) -> Some((input_177, +| Some ( ( input_175, __5 ) ) -> Some((input_175, #151 "ocaml_parser.trx" ( PatConstructor (List.map Ident.source __1, __3::__4) )))))))) with None -> (match (try_Ocaml_parser_constructorName_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_170, __1 ) ) -> (match (match (try_Ocaml_parser_pattern_cons_noerr (_filename) (_text) (input_170)) with -None -> Some((input_170, None)) -| Some ( ( input_172, r ) ) -> Some((input_172, Some((r))))) with +| Some ( ( input_168, __1 ) ) -> (match (match (try_Ocaml_parser_pattern_cons_noerr (_filename) (_text) (input_168)) with +None -> Some((input_168, None)) +| Some ( ( input_170, r ) ) -> Some((input_170, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_171, __2 ) ) -> Some((input_171, +| Some ( ( input_169, __2 ) ) -> Some((input_169, #156 "ocaml_parser.trx" ( PatConstructor (List.map Ident.source __1, match __2 with Some x -> [x] | None -> []) ))))) @@ -2698,15 +2686,15 @@ None -> Some((input_170, None)) | ( _ok ) as __pat_var -> __pat_var) | ( _ok ) as __pat_var -> __pat_var) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_165, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_167 -> (match (try_Ocaml_keywords_AS_noerr (_filename) (_text) (input_167)) with +| Some ( ( input_163, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_165 -> (match (try_Ocaml_keywords_AS_noerr (_filename) (_text) (input_165)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_168, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_168)) with +| Some ( ( input_166, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_166)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_169, __2 ) ) -> Some((input_169, +| Some ( ( input_167, __2 ) ) -> Some((input_167, #159 "ocaml_parser.trx" -( __2 ))))))) (input_165)) with +( __2 ))))))) (input_163)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_166, __2 ) ) -> Some((input_166, +| Some ( ( input_164, __2 ) ) -> Some((input_164, #160 "ocaml_parser.trx" ( List.fold_left (fun accu e -> PatAs (accu, Ident.source e)) __1 __2 ))))) in @@ -2722,17 +2710,17 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_pattern_cons_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_160, __1 ) ) -> (match (match (match (try_Default_comma_noerr (_filename) (_text) (input_160)) with +| Some ( ( input_158, __1 ) ) -> (match (match (match (try_Default_comma_noerr (_filename) (_text) (input_158)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_162, __1 ) ) -> (match (try_Ocaml_parser_pattern_aux_l_noerr (_filename) (_text) (input_162)) with +| Some ( ( input_160, __1 ) ) -> (match (try_Ocaml_parser_pattern_aux_l_noerr (_filename) (_text) (input_160)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_163, __2 ) ) -> Some((input_163, +| Some ( ( input_161, __2 ) ) -> Some((input_161, #171 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_160, None)) -| Some ( ( input_164, r ) ) -> Some((input_164, Some((r))))) with +None -> Some((input_158, None)) +| Some ( ( input_162, r ) ) -> Some((input_162, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_161, __2 ) ) -> Some((input_161, +| Some ( ( input_159, __2 ) ) -> Some((input_159, #172 "ocaml_parser.trx" ( match __2 with | None -> [__1] @@ -2750,9 +2738,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (6))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('t'))) (true)))))))))))))) ) then ( Some(((((+)) (input) (6)), "assert")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_754, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_754)) with +| Some ( ( input_752, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_752)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_755, __2 ) ) -> Some((input_755, ( () ))))) in +| Some ( ( input_753, __2 ) ) -> Some((input_753, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_ASSERT) (input) (res)) ; res) ) let rec try_Ocaml_keywords_ELSE_noerr = @@ -2765,9 +2753,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('e'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "else")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_742, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_742)) with +| Some ( ( input_740, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_740)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_743, __2 ) ) -> Some((input_743, ( () ))))) in +| Some ( ( input_741, __2 ) ) -> Some((input_741, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_ELSE) (input) (res)) ; res) ) let rec try_Ocaml_keywords_IF_noerr = @@ -2780,9 +2768,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('f'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "if")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_728, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_728)) with +| Some ( ( input_726, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_726)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_729, __2 ) ) -> Some((input_729, ( () ))))) in +| Some ( ( input_727, __2 ) ) -> Some((input_727, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_IF) (input) (res)) ; res) ) let rec try_Ocaml_keywords_THEN_noerr = @@ -2795,9 +2783,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('h'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('n'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "then")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_700, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_700)) with +| Some ( ( input_698, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_698)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_701, __2 ) ) -> Some((input_701, ( () ))))) in +| Some ( ( input_699, __2 ) ) -> Some((input_699, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_THEN) (input) (res)) ; res) ) let rec try_Ocaml_parser_emptylist_noerr = @@ -2810,11 +2798,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_lbracket_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_328, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_328)) with +| Some ( ( input_326, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_326)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_329, __2 ) ) -> (match (try_Default_rbracket_noerr (_filename) (_text) (input_329)) with +| Some ( ( input_327, __2 ) ) -> (match (try_Default_rbracket_noerr (_filename) (_text) (input_327)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_330, __3 ) ) -> Some((input_330, +| Some ( ( input_328, __3 ) ) -> Some((input_328, #37 "ocaml_parser.trx" ( EmptyList )))))) in (Hashtbl.add (memo_Ocaml_parser_emptylist) (input) (res)) ; res) @@ -2840,9 +2828,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (9))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('x'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('c'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('p'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (6))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (7))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (8))))) ('n'))) (true)))))))))))))))))))) ) then ( Some(((((+)) (input) (9)), "exception")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_738, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_738)) with +| Some ( ( input_736, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_736)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_739, __2 ) ) -> Some((input_739, ( () ))))) in +| Some ( ( input_737, __2 ) ) -> Some((input_737, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_EXCEPTION) (input) (res)) ; res) ) let rec try_Ocaml_parser_capMlIdent_noerr = @@ -2855,9 +2843,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_capMlIdent__noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_358, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_358)) with +| Some ( ( input_356, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_356)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_359, __2 ) ) -> Some((input_359, +| Some ( ( input_357, __2 ) ) -> Some((input_357, #117 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_capMlIdent) (input) (res)) ; res) @@ -2872,17 +2860,17 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_EXCEPTION_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_620, __1 ) ) -> (match (try_Ocaml_parser_capMlIdent_noerr (_filename) (_text) (input_620)) with +| Some ( ( input_618, __1 ) ) -> (match (try_Ocaml_parser_capMlIdent_noerr (_filename) (_text) (input_618)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_621, __2 ) ) -> (match (match (match (try_Ocaml_keywords_OF_noerr (_filename) (_text) (input_621)) with +| Some ( ( input_619, __2 ) ) -> (match (match (match (try_Ocaml_keywords_OF_noerr (_filename) (_text) (input_619)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_623, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_623)) with +| Some ( ( input_621, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_621)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_624, __2 ) ) -> Some((input_624, ())))) with -None -> Some((input_621, None)) -| Some ( ( input_625, r ) ) -> Some((input_625, Some((r))))) with +| Some ( ( input_622, __2 ) ) -> Some((input_622, ())))) with +None -> Some((input_619, None)) +| Some ( ( input_623, r ) ) -> Some((input_623, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_622, __3 ) ) -> Some((input_622, +| Some ( ( input_620, __3 ) ) -> Some((input_620, #280 "ocaml_parser.trx" ( Exception (__2, None) (* FIXME *) )))))) in (Hashtbl.add (memo_Ocaml_parser_Exception) (input) (res)) ; res) @@ -2897,9 +2885,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('<'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('-'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "<-")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_892, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_892)) with +| Some ( ( input_890, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_890)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_893, __2 ) ) -> Some((input_893, ( () ))))) in +| Some ( ( input_891, __2 ) ) -> Some((input_891, ( () ))))) in (Hashtbl.add (memo_Default_leftarrow) (input) (res)) ; res) ) let rec try_Ocaml_parser_Const_noerr = @@ -2912,7 +2900,7 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_const_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_650, __1 ) ) -> Some((input_650, +| Some ( ( input_648, __1 ) ) -> Some((input_648, #218 "ocaml_parser.trx" ( Const __1 )))) in (Hashtbl.add (memo_Ocaml_parser_Const) (input) (res)) ; res) @@ -2928,9 +2916,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_922, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_922)) with +| Some ( ( input_920, __1 ) ) -> (match (try_Default_spacing_noerr (_filename) (_text) (input_920)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_923, __2 ) ) -> Some((input_923, ( () ))))) in +| Some ( ( input_921, __2 ) ) -> Some((input_921, ( () ))))) in (Hashtbl.add (memo_Default_dot) (input) (res)) ; res) ) let rec try_Ocaml_parser_Dot_noerr = @@ -2943,38 +2931,38 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_dot_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_627, __1 ) ) -> (match (match (Trx_runtime.while_primary_noerr (false) ((fun input_636 -> (match (try_Ocaml_parser_capMlIdent__noerr (_filename) (_text) (input_636)) with +| Some ( ( input_625, __1 ) ) -> (match (match (Trx_runtime.while_primary_noerr (false) ((fun input_634 -> (match (try_Ocaml_parser_capMlIdent__noerr (_filename) (_text) (input_634)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_637, __1 ) ) -> (match if ( (((<)) (input_637) (_len)) ) then ( let c = ((_get_char) (input_637)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_637)), c)) ) else ( None ) ) else ( None ) with +| Some ( ( input_635, __1 ) ) -> (match if ( (((<)) (input_635) (_len)) ) then ( let c = ((_get_char) (input_635)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_635)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_638, __2 ) ) -> Some((input_638, +| Some ( ( input_636, __2 ) ) -> Some((input_636, #315 "ocaml_parser.trx" -( __1 ))))))) (input_627)) with +( __1 ))))))) (input_625)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_635, __1 ) ) -> Some((input_635, +| Some ( ( input_633, __1 ) ) -> Some((input_633, #315 "ocaml_parser.trx" ( __1 )))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_628, __2 ) ) -> (match (match (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_628)) with +| Some ( ( input_626, __2 ) ) -> (match (match (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_626)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_634, __1 ) ) -> Some((input_634, +| Some ( ( input_632, __1 ) ) -> Some((input_632, #315 "ocaml_parser.trx" ( `MlIdent __1 )))) with -None -> (match (try_Default_lparen_noerr (_filename) (_text) (input_628)) with +None -> (match (try_Default_lparen_noerr (_filename) (_text) (input_626)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_630, __1 ) ) -> (match (try_Default_int_noerr (_filename) (_text) (input_630)) with +| Some ( ( input_628, __1 ) ) -> (match (try_Default_int_noerr (_filename) (_text) (input_628)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_631, __2 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_631)) with +| Some ( ( input_629, __2 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_629)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_632, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_632)) with +| Some ( ( input_630, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_630)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_633, __4 ) ) -> Some((input_633, +| Some ( ( input_631, __4 ) ) -> Some((input_631, #315 "ocaml_parser.trx" ( `Int __2 ))))))) | ( _ok ) as __pat_var -> __pat_var) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_629, __3 ) ) -> Some((input_629, +| Some ( ( input_627, __3 ) ) -> Some((input_627, #315 "ocaml_parser.trx" ( match __3 with `MlIdent s -> let tmp = String.concat_map "." (fun s -> s) __2 in @@ -2992,9 +2980,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('b'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('g'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('n'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "begin")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_752, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_752)) with +| Some ( ( input_750, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_750)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_753, __2 ) ) -> Some((input_753, ( () ))))) in +| Some ( ( input_751, __2 ) ) -> Some((input_751, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_BEGIN) (input) (res)) ; res) ) let rec try_Ocaml_keywords_END_noerr = @@ -3007,9 +2995,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('d'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "end")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_740, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_740)) with +| Some ( ( input_738, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_738)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_741, __2 ) ) -> Some((input_741, ( () ))))) in +| Some ( ( input_739, __2 ) ) -> Some((input_739, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_END) (input) (res)) ; res) ) let rec try_Ocaml_parser_RNameOpt_noerr = @@ -3022,9 +3010,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_409, __1 ) ) -> (match (try_Ocaml_keywords_WITH_noerr (_filename) (_text) (input_409)) with +| Some ( ( input_407, __1 ) ) -> (match (try_Ocaml_keywords_WITH_noerr (_filename) (_text) (input_407)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_410, __2 ) ) -> Some((input_410, +| Some ( ( input_408, __2 ) ) -> Some((input_408, #257 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_RNameOpt) (input) (res)) ; res) @@ -3039,7 +3027,7 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_capMlIdent__noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_302, __1 ) ) -> Some((input_302, +| Some ( ( input_300, __1 ) ) -> Some((input_300, #119 "ocaml_parser.trx" ( __1 )))) in (Hashtbl.add (memo_Ocaml_parser_moduleName_) (input) (res)) ; res) @@ -3054,9 +3042,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('d'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "and")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_760, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_760)) with +| Some ( ( input_758, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_758)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_761, __2 ) ) -> Some((input_761, ( () ))))) in +| Some ( ( input_759, __2 ) ) -> Some((input_759, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_AND) (input) (res)) ; res) ) let rec try_Ocaml_keywords_IN_noerr = @@ -3069,9 +3057,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "in")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_726, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_726)) with +| Some ( ( input_724, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_724)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_727, __2 ) ) -> Some((input_727, ( () ))))) in +| Some ( ( input_725, __2 ) ) -> Some((input_725, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_IN) (input) (res)) ; res) ) let rec try_Ocaml_keywords_LET_noerr = @@ -3084,9 +3072,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "let")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_724, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_724)) with +| Some ( ( input_722, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_722)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_725, __2 ) ) -> Some((input_725, ( () ))))) in +| Some ( ( input_723, __2 ) ) -> Some((input_723, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_LET) (input) (res)) ; res) ) let rec try_Ocaml_keywords_REC_noerr = @@ -3099,9 +3087,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('c'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "rec")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_708, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_708)) with +| Some ( ( input_706, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_706)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_709, __2 ) ) -> Some((input_709, ( () ))))) in +| Some ( ( input_707, __2 ) ) -> Some((input_707, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_REC) (input) (res)) ; res) ) let rec try_Ocaml_keywords_REF_noerr = @@ -3114,9 +3102,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('f'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "ref")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_706, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_706)) with +| Some ( ( input_704, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_704)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_707, __2 ) ) -> Some((input_707, ( () ))))) in +| Some ( ( input_705, __2 ) ) -> Some((input_705, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_REF) (input) (res)) ; res) ) let rec try_Ocaml_keywords_MODULE_noerr = @@ -3129,9 +3117,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (6))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('m'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('d'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('e'))) (true)))))))))))))) ) then ( Some(((((+)) (input) (6)), "module")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_720, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_720)) with +| Some ( ( input_718, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_718)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_721, __2 ) ) -> Some((input_721, ( () ))))) in +| Some ( ( input_719, __2 ) ) -> Some((input_719, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_MODULE) (input) (res)) ; res) ) let rec try_Ocaml_keywords_STRUCT_noerr = @@ -3144,9 +3132,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (6))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('c'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('t'))) (true)))))))))))))) ) then ( Some(((((+)) (input) (6)), "struct")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_702, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_702)) with +| Some ( ( input_700, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_700)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_703, __2 ) ) -> Some((input_703, ( () ))))) in +| Some ( ( input_701, __2 ) ) -> Some((input_701, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_STRUCT) (input) (res)) ; res) ) let rec try_Ocaml_keywords_TYPE_noerr = @@ -3159,13 +3147,13 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('y'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('p'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('e'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "type")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_694, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_694)) with +| Some ( ( input_692, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_692)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_695, __2 ) ) -> Some((input_695, ( () ))))) in +| Some ( ( input_693, __2 ) ) -> Some((input_693, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_TYPE) (input) (res)) ; res) ) let rec try_Ocaml_types_typedeflist_noerr = -#57 "ocaml_types.trx" +#56 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -3183,11 +3171,11 @@ None -> Some((input, None)) | Some ( ( input_49, __1 ) ) -> (match (try_Ocaml_types_typedef_noerr (_filename) (_text) (input_49)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_50, __2 ) ) -> Some((input_50, -#57 "ocaml_types.trx" +#56 "ocaml_types.trx" ( __2 ))))))) (input_46)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_47, __3 ) ) -> Some((input_47, -#57 "ocaml_types.trx" +#56 "ocaml_types.trx" ( match __2, __3 with | _, [] -> __2 | TypeConstructor l1, l2 -> @@ -3197,7 +3185,7 @@ None -> Some((input, None)) (Hashtbl.add (memo_Ocaml_types_typedeflist) (input) (res)) ; res) ) let rec try_Ocaml_types_typevars_noerr = -#44 "ocaml_types.trx" +#43 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -3207,7 +3195,7 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match (try_Ocaml_types_typevar_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_7, __1 ) ) -> Some((input_7, -#44 "ocaml_types.trx" +#43 "ocaml_types.trx" ( [__1] )))) with None -> (match (try_Default_lparen_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var @@ -3218,19 +3206,19 @@ None -> (match (try_Default_lparen_noerr (_filename) (_text) (input)) with | Some ( ( input_5, __1 ) ) -> (match (try_Ocaml_types_typevar_noerr (_filename) (_text) (input_5)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_6, __2 ) ) -> Some((input_6, -#45 "ocaml_types.trx" +#44 "ocaml_types.trx" ( __2 ))))))) (input_1)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_2, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_2)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_3, __4 ) ) -> Some((input_3, -#45 "ocaml_types.trx" +#44 "ocaml_types.trx" ( __2 :: __3 ))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typevars) (input) (res)) ; res) ) let rec try_Ocaml_types_typedeclaration_noerr = -#49 "ocaml_types.trx" +#48 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -3262,11 +3250,11 @@ None -> Some((input_79, None)) | Some ( ( input_82, __4 ) ) -> (match (try_Ocaml_types_typedeflist_noerr (_filename) (_text) (input_82)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_83, __5 ) ) -> Some((input_83, -#50 "ocaml_types.trx" +#49 "ocaml_types.trx" ( compute_vars __2, __3, __5 )))))))))) (input_76)) with ( None ) as __pat_var -> __pat_var | Some ( ( input_77, __6 ) ) -> Some((input_77, -#51 "ocaml_types.trx" +#50 "ocaml_types.trx" ( (compute_vars __2, __3, __5) :: __6 ))))))))) in (Hashtbl.add (memo_Ocaml_types_typedeclaration) (input) (res)) ; res) ) @@ -3280,7 +3268,7 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_types_typedeclaration_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_361, __1 ) ) -> Some((input_361, +| Some ( ( input_359, __1 ) ) -> Some((input_359, #262 "ocaml_parser.trx" ( Type __1 )))) in (Hashtbl.add (memo_Ocaml_parser_Type) (input) (res)) ; res) @@ -3295,7 +3283,7 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_capMlIdent_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_303, __1 ) ) -> Some((input_303, +| Some ( ( input_301, __1 ) ) -> Some((input_301, #118 "ocaml_parser.trx" ( __1 )))) in (Hashtbl.add (memo_Ocaml_parser_moduleName) (input) (res)) ; res) @@ -3310,9 +3298,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('p'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('n'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "open")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_714, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_714)) with +| Some ( ( input_712, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_712)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_715, __2 ) ) -> Some((input_715, ( () ))))) in +| Some ( ( input_713, __2 ) ) -> Some((input_713, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_OPEN) (input) (res)) ; res) ) let rec try_Ocaml_parser_Open_noerr = @@ -3325,9 +3313,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_OPEN_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_427, __1 ) ) -> (match (try_Ocaml_parser_moduleName_noerr (_filename) (_text) (input_427)) with +| Some ( ( input_425, __1 ) ) -> (match (try_Ocaml_parser_moduleName_noerr (_filename) (_text) (input_425)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_428, __2 ) ) -> Some((input_428, +| Some ( ( input_426, __2 ) ) -> Some((input_426, #194 "ocaml_parser.trx" ( Open [ Ident.source __2 ] ))))) in (Hashtbl.add (memo_Ocaml_parser_Open) (input) (res)) ; res) @@ -3342,9 +3330,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('e'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "raise")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_710, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_710)) with +| Some ( ( input_708, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_708)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_711, __2 ) ) -> Some((input_711, ( () ))))) in +| Some ( ( input_709, __2 ) ) -> Some((input_709, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_RAISE) (input) (res)) ; res) ) let rec try_Ocaml_keywords_GETREF_noerr = @@ -3357,9 +3345,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input) (2)), ":=")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_730, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_730)) with +| Some ( ( input_728, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_728)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_731, __2 ) ) -> Some((input_731, ( () ))))) in +| Some ( ( input_729, __2 ) ) -> Some((input_729, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_GETREF) (input) (res)) ; res) ) let rec try_Ocaml_keywords_TRY_noerr = @@ -3372,9 +3360,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('y'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "try")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_696, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_696)) with +| Some ( ( input_694, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_694)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_697, __2 ) ) -> Some((input_697, ( () ))))) in +| Some ( ( input_695, __2 ) ) -> Some((input_695, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_TRY) (input) (res)) ; res) ) let rec try_Ocaml_keywords_WHEN_noerr = @@ -3387,9 +3375,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('w'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('h'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('n'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "when")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_690, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_690)) with +| Some ( ( input_688, __1 ) ) -> (match (try_Ocaml_keywords_spacing_noerr (_filename) (_text) (input_688)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_691, __2 ) ) -> Some((input_691, ( () ))))) in +| Some ( ( input_689, __2 ) ) -> Some((input_689, ( () ))))) in (Hashtbl.add (memo_Ocaml_keywords_WHEN) (input) (res)) ; res) ) let rec try_Ocaml_parser_FDIV_noerr = @@ -3402,9 +3390,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('/'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('.'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "/.")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_585, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_585)) with +| Some ( ( input_583, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_583)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_586, __2 ) ) -> Some((input_586, +| Some ( ( input_584, __2 ) ) -> Some((input_584, #411 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_FDIV) (input) (res)) ; res) @@ -3419,9 +3407,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('/'))) (true)))) ) then ( Some(((((+)) (input) (1)), "/")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_571, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_571)) with +| Some ( ( input_569, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_569)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_572, __2 ) ) -> Some((input_572, +| Some ( ( input_570, __2 ) ) -> Some((input_570, #406 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_IDIV) (input) (res)) ; res) @@ -3449,9 +3437,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('*'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('.'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "*.")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_581, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_581)) with +| Some ( ( input_579, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_579)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_582, __2 ) ) -> Some((input_582, +| Some ( ( input_580, __2 ) ) -> Some((input_580, #410 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_FMULT) (input) (res)) ; res) @@ -3466,9 +3454,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('*'))) (true)))) ) then ( Some(((((+)) (input) (1)), "*")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_567, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_567)) with +| Some ( ( input_565, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_565)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_568, __2 ) ) -> Some((input_568, +| Some ( ( input_566, __2 ) ) -> Some((input_566, #405 "ocaml_parser.trx" ( __1 ))))) in (Hashtbl.add (memo_Ocaml_parser_IMULT) (input) (res)) ; res) @@ -3498,7 +3486,7 @@ Not_found -> let res = (match (match (try_Ocaml_parser_MULT_noerr (_filename) (_ None -> (try_Ocaml_parser_DIV_noerr (_filename) (_text) (input)) | ( _ok ) as __pat_var -> __pat_var) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_543, __1 ) ) -> Some((input_543, +| Some ( ( input_541, __1 ) ) -> Some((input_541, #376 "ocaml_parser.trx" ( Ocaml.make_Var __1 )))) in @@ -3514,34 +3502,34 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_dotable_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_376, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_382 -> (try_Ocaml_parser_Dot_noerr (_filename) (_text) (input_382)))) (input_376)) with +| Some ( ( input_374, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_380 -> (try_Ocaml_parser_Dot_noerr (_filename) (_text) (input_380)))) (input_374)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_377, __2 ) ) -> (match (match (match (try_Default_leftarrow_noerr (_filename) (_text) (input_377)) with +| Some ( ( input_375, __2 ) ) -> (match (match (match (try_Default_leftarrow_noerr (_filename) (_text) (input_375)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_379, __1 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_379)) with +| Some ( ( input_377, __1 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_377)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_380, __2 ) ) -> Some((input_380, +| Some ( ( input_378, __2 ) ) -> Some((input_378, #326 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_377, None)) -| Some ( ( input_381, r ) ) -> Some((input_381, Some((r))))) with +None -> Some((input_375, None)) +| Some ( ( input_379, r ) ) -> Some((input_379, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_378, __3 ) ) -> Some((input_378, +| Some ( ( input_376, __3 ) ) -> Some((input_376, #326 "ocaml_parser.trx" ( let tmp = List.fold_left (fun accu -> function | `MlIdent e -> Dot (accu, e) | `Int i -> Dot (accu, sprintf "(%d)" i)) __1 __2 in match __3 with None -> tmp | Some s -> SetMutable (tmp, s) )))))) with None -> (match (match (try_Ocaml_parser_Const_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_375, __1 ) ) -> Some((input_375, +| Some ( ( input_373, __1 ) ) -> Some((input_373, #328 "ocaml_parser.trx" ( __1 )))) with None -> (match (try_Default_lparen_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_372, __1 ) ) -> (match (try_Ocaml_parser_op_special_noerr (_filename) (_text) (input_372)) with +| Some ( ( input_370, __1 ) ) -> (match (try_Ocaml_parser_op_special_noerr (_filename) (_text) (input_370)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_373, __2 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_373)) with +| Some ( ( input_371, __2 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_371)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_374, __3 ) ) -> Some((input_374, +| Some ( ( input_372, __3 ) ) -> Some((input_372, #329 "ocaml_parser.trx" ( Var (Pated ([Ident.source __2], true)) )))))) | ( _ok ) as __pat_var -> __pat_var) @@ -3558,17 +3546,17 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_OpLevel1_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_587, __1 ) ) -> (match (match (match (try_Default_comma_noerr (_filename) (_text) (input_587)) with +| Some ( ( input_585, __1 ) ) -> (match (match (match (try_Default_comma_noerr (_filename) (_text) (input_585)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_589, __1 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_aux_noerr (_filename) (_text) (input_589)) with +| Some ( ( input_587, __1 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_aux_noerr (_filename) (_text) (input_587)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_590, __2 ) ) -> Some((input_590, +| Some ( ( input_588, __2 ) ) -> Some((input_588, #331 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_587, None)) -| Some ( ( input_591, r ) ) -> Some((input_591, Some((r))))) with +None -> Some((input_585, None)) +| Some ( ( input_589, r ) ) -> Some((input_589, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_588, __2 ) ) -> Some((input_588, +| Some ( ( input_586, __2 ) ) -> Some((input_586, #331 "ocaml_parser.trx" ( match __2 with None -> [__1] | Some s -> __1::s ))))) in (Hashtbl.add (memo_Ocaml_parser_Expr_without_seq_aux) (input) (res)) ; res) @@ -3583,7 +3571,7 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_Expr_without_seq_aux_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_592, __1 ) ) -> Some((input_592, +| Some ( ( input_590, __1 ) ) -> Some((input_590, #332 "ocaml_parser.trx" ( match __1 with [t] -> t | _ -> Tuple __1 )))) in (Hashtbl.add (memo_Ocaml_parser_Expr_without_seq) (input) (res)) ; res) @@ -3598,9 +3586,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_REF_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_489, __1 ) ) -> (match (try_Ocaml_parser_SimpleExpr_noerr (_filename) (_text) (input_489)) with +| Some ( ( input_487, __1 ) ) -> (match (try_Ocaml_parser_SimpleExpr_noerr (_filename) (_text) (input_487)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_490, __2 ) ) -> Some((input_490, +| Some ( ( input_488, __2 ) ) -> Some((input_488, #220 "ocaml_parser.trx" ( MakeRef __2 ))))) in (Hashtbl.add (memo_Ocaml_parser_MakeRef) (input) (res)) ; res) @@ -3615,25 +3603,25 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_TRY_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_362, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_362)) with +| Some ( ( input_360, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_360)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_363, __2 ) ) -> (match (try_Ocaml_keywords_WITH_noerr (_filename) (_text) (input_363)) with +| Some ( ( input_361, __2 ) ) -> (match (try_Ocaml_keywords_WITH_noerr (_filename) (_text) (input_361)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_364, __3 ) ) -> (match (match (try_Default_bar_noerr (_filename) (_text) (input_364)) with -None -> Some((input_364, None)) -| Some ( ( input_371, r ) ) -> Some((input_371, Some((r))))) with +| Some ( ( input_362, __3 ) ) -> (match (match (try_Default_bar_noerr (_filename) (_text) (input_362)) with +None -> Some((input_362, None)) +| Some ( ( input_369, r ) ) -> Some((input_369, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_365, __4 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_365)) with +| Some ( ( input_363, __4 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_363)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_366, __5 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_368 -> (match (try_Default_bar_noerr (_filename) (_text) (input_368)) with +| Some ( ( input_364, __5 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_366 -> (match (try_Default_bar_noerr (_filename) (_text) (input_366)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_369, __1 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_369)) with +| Some ( ( input_367, __1 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_367)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_370, __2 ) ) -> Some((input_370, +| Some ( ( input_368, __2 ) ) -> Some((input_368, #288 "ocaml_parser.trx" -( __2 ))))))) (input_366)) with +( __2 ))))))) (input_364)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_367, __6 ) ) -> Some((input_367, +| Some ( ( input_365, __6 ) ) -> Some((input_365, #288 "ocaml_parser.trx" ( Try (__2 , __5::__6) ))))))))) in (Hashtbl.add (memo_Ocaml_parser_Try) (input) (res)) ; res) @@ -3648,17 +3636,17 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_OpLevel4_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_434, __1 ) ) -> (match (match (match (try_Ocaml_parser_InfOpLevel3_noerr (_filename) (_text) (input_434)) with +| Some ( ( input_432, __1 ) ) -> (match (match (match (try_Ocaml_parser_InfOpLevel3_noerr (_filename) (_text) (input_432)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_436, __1 ) ) -> (match (try_Ocaml_parser_OpLevel3_noerr (_filename) (_text) (input_436)) with +| Some ( ( input_434, __1 ) ) -> (match (try_Ocaml_parser_OpLevel3_noerr (_filename) (_text) (input_434)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_437, __2 ) ) -> Some((input_437, +| Some ( ( input_435, __2 ) ) -> Some((input_435, #337 "ocaml_parser.trx" ( __1, __2 ))))) with -None -> Some((input_434, None)) -| Some ( ( input_438, r ) ) -> Some((input_438, Some((r))))) with +None -> Some((input_432, None)) +| Some ( ( input_436, r ) ) -> Some((input_436, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_435, __2 ) ) -> Some((input_435, +| Some ( ( input_433, __2 ) ) -> Some((input_433, #337 "ocaml_parser.trx" ( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) ))))) in (Hashtbl.add (memo_Ocaml_parser_OpLevel3) (input) (res)) ; res) @@ -3674,23 +3662,23 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (try_Ocaml_parser_Constructor_noerr (_filename) (_text) (input)) with None -> (match (match (match (try_Ocaml_parser_SimpleExpr_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_672, __1 ) ) -> (match if ( (((&&)) ((((<=)) ((((+)) (input_672) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_672) (0))))) ('-'))) (true)))) ) then ( Some(((((+)) (input_672) (1)), "-")) ) else ( None ) with -None -> let input_673 = input_672 in +| Some ( ( input_670, __1 ) ) -> (match if ( (((&&)) ((((<=)) ((((+)) (input_670) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_670) (0))))) ('-'))) (true)))) ) then ( Some(((((+)) (input_670) (1)), "-")) ) else ( None ) with +None -> let input_671 = input_670 in let __2 = () in -(match if ( (((&&)) ((((<=)) ((((+)) (input_673) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_673) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_673) (1))))) (':'))) (true)))))) ) then ( Some(((((+)) (input_673) (2)), "::")) ) else ( None ) with -None -> let input_674 = input_673 in +(match if ( (((&&)) ((((<=)) ((((+)) (input_671) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_671) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_671) (1))))) (':'))) (true)))))) ) then ( Some(((((+)) (input_671) (2)), "::")) ) else ( None ) with +None -> let input_672 = input_671 in let __3 = () in -(match if ( (((&&)) ((((<=)) ((((+)) (input_674) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_674) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_674) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input_674) (2)), ":=")) ) else ( None ) with -None -> let input_675 = input_674 in +(match if ( (((&&)) ((((<=)) ((((+)) (input_672) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_672) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_672) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input_672) (2)), ":=")) ) else ( None ) with +None -> let input_673 = input_672 in let __4 = () in -Some((input_675, __1)) +Some((input_673, __1)) | Some ( ( _, _ ) ) -> None) | Some ( ( _, _ ) ) -> None) | Some ( ( _, _ ) ) -> None)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_669, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_671 -> (try_Ocaml_parser_ExprNotApp_noerr (_filename) (_text) (input_671)))) (input_669)) with +| Some ( ( input_667, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_669 -> (try_Ocaml_parser_ExprNotApp_noerr (_filename) (_text) (input_669)))) (input_667)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_670, __2 ) ) -> Some((input_670, +| Some ( ( input_668, __2 ) ) -> Some((input_668, #344 "ocaml_parser.trx" ( match __2 with [] -> __1 | _ -> make_app (__1 :: __2) ))))) with None -> (try_Ocaml_parser_ExprNotApp_noerr (_filename) (_text) (input)) @@ -3708,19 +3696,19 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_lbracket_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_651, __1 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_651)) with +| Some ( ( input_649, __1 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_649)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_652, __2 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_655 -> (match (try_Default_semi_noerr (_filename) (_text) (input_655)) with +| Some ( ( input_650, __2 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_653 -> (match (try_Default_semi_noerr (_filename) (_text) (input_653)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_656, __1 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_656)) with +| Some ( ( input_654, __1 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_654)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_657, __2 ) ) -> Some((input_657, +| Some ( ( input_655, __2 ) ) -> Some((input_655, #224 "ocaml_parser.trx" -( __2 ))))))) (input_652)) with +( __2 ))))))) (input_650)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_653, __3 ) ) -> (match (try_Default_rbracket_noerr (_filename) (_text) (input_653)) with +| Some ( ( input_651, __3 ) ) -> (match (try_Default_rbracket_noerr (_filename) (_text) (input_651)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_654, __4 ) ) -> Some((input_654, +| Some ( ( input_652, __4 ) ) -> Some((input_652, #225 "ocaml_parser.trx" ( List.fold_right (fun e accu -> Cons (e, accu)) (__2::__3) EmptyList ))))))) in (Hashtbl.add (memo_Ocaml_parser_Cons) (input) (res)) ; res) @@ -3735,28 +3723,28 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Default_lparen_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_414, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_414)) with +| Some ( ( input_412, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_412)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_415, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_415)) with +| Some ( ( input_413, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_413)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_418, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_418)) with +| Some ( ( input_416, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_416)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_419, __2 ) ) -> Some((input_419, ())))) with -None -> Some((input_415, None)) -| Some ( ( input_420, r ) ) -> Some((input_420, Some((r))))) with +| Some ( ( input_417, __2 ) ) -> Some((input_417, ())))) with +None -> Some((input_413, None)) +| Some ( ( input_418, r ) ) -> Some((input_418, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_416, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_416)) with +| Some ( ( input_414, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_414)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_417, __4 ) ) -> Some((input_417, +| Some ( ( input_415, __4 ) ) -> Some((input_415, #320 "ocaml_parser.trx" ( __2 ))))))) with None -> (match (try_Ocaml_keywords_BEGIN_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_411, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_411)) with +| Some ( ( input_409, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_409)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_412, __2 ) ) -> (match (try_Ocaml_keywords_END_noerr (_filename) (_text) (input_412)) with +| Some ( ( input_410, __2 ) ) -> (match (try_Ocaml_keywords_END_noerr (_filename) (_text) (input_410)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_413, __3 ) ) -> Some((input_413, +| Some ( ( input_411, __3 ) ) -> Some((input_411, #320 "ocaml_parser.trx" ( __2 )))))) | ( _ok ) as __pat_var -> __pat_var) in @@ -3772,17 +3760,17 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_App_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_429, __1 ) ) -> (match (match (match (try_Ocaml_parser_InfOpLevel4_noerr (_filename) (_text) (input_429)) with +| Some ( ( input_427, __1 ) ) -> (match (match (match (try_Ocaml_parser_InfOpLevel4_noerr (_filename) (_text) (input_427)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_431, __1 ) ) -> (match (try_Ocaml_parser_OpLevel4_noerr (_filename) (_text) (input_431)) with +| Some ( ( input_429, __1 ) ) -> (match (try_Ocaml_parser_OpLevel4_noerr (_filename) (_text) (input_429)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_432, __2 ) ) -> Some((input_432, +| Some ( ( input_430, __2 ) ) -> Some((input_430, #338 "ocaml_parser.trx" ( __1, __2 ))))) with -None -> Some((input_429, None)) -| Some ( ( input_433, r ) ) -> Some((input_433, Some((r))))) with +None -> Some((input_427, None)) +| Some ( ( input_431, r ) ) -> Some((input_431, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_430, __2 ) ) -> Some((input_430, +| Some ( ( input_428, __2 ) ) -> Some((input_428, #338 "ocaml_parser.trx" ( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) ))))) in (Hashtbl.add (memo_Ocaml_parser_OpLevel4) (input) (res)) ; res) @@ -3797,17 +3785,17 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_OpLevel2_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_444, __1 ) ) -> (match (match (match (try_Ocaml_parser_InfOpLevel1_noerr (_filename) (_text) (input_444)) with +| Some ( ( input_442, __1 ) ) -> (match (match (match (try_Ocaml_parser_InfOpLevel1_noerr (_filename) (_text) (input_442)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_446, __1 ) ) -> (match (try_Ocaml_parser_OpLevel1_noerr (_filename) (_text) (input_446)) with +| Some ( ( input_444, __1 ) ) -> (match (try_Ocaml_parser_OpLevel1_noerr (_filename) (_text) (input_444)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_447, __2 ) ) -> Some((input_447, +| Some ( ( input_445, __2 ) ) -> Some((input_445, #335 "ocaml_parser.trx" ( __1, __2 ))))) with -None -> Some((input_444, None)) -| Some ( ( input_448, r ) ) -> Some((input_448, Some((r))))) with +None -> Some((input_442, None)) +| Some ( ( input_446, r ) ) -> Some((input_446, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_445, __2 ) ) -> Some((input_445, +| Some ( ( input_443, __2 ) ) -> Some((input_443, #335 "ocaml_parser.trx" ( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) ))))) in (Hashtbl.add (memo_Ocaml_parser_OpLevel1) (input) (res)) ; res) @@ -3822,7 +3810,7 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_paramEffectif_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_360, __1 ) ) -> Some((input_360, +| Some ( ( input_358, __1 ) ) -> Some((input_358, #219 "ocaml_parser.trx" ( Var __1 )))) in (Hashtbl.add (memo_Ocaml_parser_Var) (input) (res)) ; res) @@ -3838,9 +3826,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('!')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_573, __1 ) ) -> (match (try_Ocaml_parser_SimpleExpr_noerr (_filename) (_text) (input_573)) with +| Some ( ( input_571, __1 ) ) -> (match (try_Ocaml_parser_SimpleExpr_noerr (_filename) (_text) (input_571)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_574, __2 ) ) -> Some((input_574, +| Some ( ( input_572, __2 ) ) -> Some((input_572, #221 "ocaml_parser.trx" ( GetRef __2 ))))) in (Hashtbl.add (memo_Ocaml_parser_GetRef) (input) (res)) ; res) @@ -3855,17 +3843,17 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_OpLevel3_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_439, __1 ) ) -> (match (match (match (try_Ocaml_parser_InfOpLevel2_noerr (_filename) (_text) (input_439)) with +| Some ( ( input_437, __1 ) ) -> (match (match (match (try_Ocaml_parser_InfOpLevel2_noerr (_filename) (_text) (input_437)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_441, __1 ) ) -> (match (try_Ocaml_parser_OpLevel2_noerr (_filename) (_text) (input_441)) with +| Some ( ( input_439, __1 ) ) -> (match (try_Ocaml_parser_OpLevel2_noerr (_filename) (_text) (input_439)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_442, __2 ) ) -> Some((input_442, +| Some ( ( input_440, __2 ) ) -> Some((input_440, #336 "ocaml_parser.trx" ( __1, __2 ))))) with -None -> Some((input_439, None)) -| Some ( ( input_443, r ) ) -> Some((input_443, Some((r))))) with +None -> Some((input_437, None)) +| Some ( ( input_441, r ) ) -> Some((input_441, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_440, __2 ) ) -> Some((input_440, +| Some ( ( input_438, __2 ) ) -> Some((input_438, #336 "ocaml_parser.trx" ( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) ))))) in (Hashtbl.add (memo_Ocaml_parser_OpLevel2) (input) (res)) ; res) @@ -3880,17 +3868,17 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_214, __1 ) ) -> (match (match (match (try_Ocaml_keywords_WHEN_noerr (_filename) (_text) (input_214)) with +| Some ( ( input_212, __1 ) ) -> (match (match (match (try_Ocaml_keywords_WHEN_noerr (_filename) (_text) (input_212)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_216, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_216)) with +| Some ( ( input_214, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_214)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_217, __2 ) ) -> Some((input_217, +| Some ( ( input_215, __2 ) ) -> Some((input_215, #185 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_214, None)) -| Some ( ( input_218, r ) ) -> Some((input_218, Some((r))))) with +None -> Some((input_212, None)) +| Some ( ( input_216, r ) ) -> Some((input_216, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_215, __2 ) ) -> Some((input_215, +| Some ( ( input_213, __2 ) ) -> Some((input_213, #186 "ocaml_parser.trx" ( match __2 with | None -> None, __1 @@ -3908,23 +3896,23 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_IF_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_658, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_658)) with +| Some ( ( input_656, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_656)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_659, __2 ) ) -> (match (try_Ocaml_keywords_THEN_noerr (_filename) (_text) (input_659)) with +| Some ( ( input_657, __2 ) ) -> (match (try_Ocaml_keywords_THEN_noerr (_filename) (_text) (input_657)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_660, __3 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_660)) with +| Some ( ( input_658, __3 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_658)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_661, __4 ) ) -> (match (match (match (try_Ocaml_keywords_ELSE_noerr (_filename) (_text) (input_661)) with +| Some ( ( input_659, __4 ) ) -> (match (match (match (try_Ocaml_keywords_ELSE_noerr (_filename) (_text) (input_659)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_663, __1 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_663)) with +| Some ( ( input_661, __1 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_661)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_664, __2 ) ) -> Some((input_664, +| Some ( ( input_662, __2 ) ) -> Some((input_662, #227 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_661, None)) -| Some ( ( input_665, r ) ) -> Some((input_665, Some((r))))) with +None -> Some((input_659, None)) +| Some ( ( input_663, r ) ) -> Some((input_663, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_662, __5 ) ) -> Some((input_662, +| Some ( ( input_660, __5 ) ) -> Some((input_660, #228 "ocaml_parser.trx" ( Cond (__2, __4, match __5 with None -> Const Unit | Some s -> s) )))))))) in (Hashtbl.add (memo_Ocaml_parser_Cond) (input) (res)) ; res) @@ -3939,11 +3927,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_SimpleExpr_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_383, __1 ) ) -> (match (try_Ocaml_keywords_GETREF_noerr (_filename) (_text) (input_383)) with +| Some ( ( input_381, __1 ) ) -> (match (try_Ocaml_keywords_GETREF_noerr (_filename) (_text) (input_381)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_384, __2 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_384)) with +| Some ( ( input_382, __2 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_382)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_385, __3 ) ) -> Some((input_385, +| Some ( ( input_383, __3 ) ) -> Some((input_383, #222 "ocaml_parser.trx" ( SetRef (__1, __3) )))))) in (Hashtbl.add (memo_Ocaml_parser_SetRef) (input) (res)) ; res) @@ -3988,21 +3976,21 @@ None -> (try_Ocaml_parser_SimpleExpr_noerr (_filename) (_text) (input)) | ( _ok ) as __pat_var -> __pat_var) | ( _ok ) as __pat_var -> __pat_var) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_594, __1 ) ) -> (match (match (match (try_Ocaml_keywords_CONS_noerr (_filename) (_text) (input_594)) with +| Some ( ( input_592, __1 ) ) -> (match (match (match (try_Ocaml_keywords_CONS_noerr (_filename) (_text) (input_592)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_596, __1 ) ) -> (match (try_Ocaml_parser_OpLevel1_noerr (_filename) (_text) (input_596)) with +| Some ( ( input_594, __1 ) ) -> (match (try_Ocaml_parser_OpLevel1_noerr (_filename) (_text) (input_594)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_597, __2 ) ) -> Some((input_597, +| Some ( ( input_595, __2 ) ) -> Some((input_595, #311 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_594, None)) -| Some ( ( input_598, r ) ) -> Some((input_598, Some((r))))) with +None -> Some((input_592, None)) +| Some ( ( input_596, r ) ) -> Some((input_596, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_595, __2 ) ) -> Some((input_595, +| Some ( ( input_593, __2 ) ) -> Some((input_593, #311 "ocaml_parser.trx" ( match __2 with | None -> __1 | Some x -> Cons (__1, x) ))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_593, __1 ) ) -> Some((input_593, +| Some ( ( input_591, __1 ) ) -> Some((input_591, #312 "ocaml_parser.trx" ( __1 )))) in (Hashtbl.add (memo_Ocaml_parser_ExprNotApp) (input) (res)) ; res) @@ -4017,19 +4005,19 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_513, __1 ) ) -> (match (match (try_Ocaml_parser_Type_noerr (_filename) (_text) (input_513)) with -None -> (try_Ocaml_parser_Let_noerr (_filename) (_text) (input_513)) +| Some ( ( input_511, __1 ) ) -> (match (match (try_Ocaml_parser_Type_noerr (_filename) (_text) (input_511)) with +None -> (try_Ocaml_parser_Let_noerr (_filename) (_text) (input_511)) | ( _ok ) as __pat_var -> __pat_var) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_514, __2 ) ) -> (match (match (match if ( (((&&)) ((((<=)) ((((+)) (input_514) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_514) (0))))) (';'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_514) (1))))) (';'))) (true)))))) ) then ( Some(((((+)) (input_514) (2)), ";;")) ) else ( None ) with +| Some ( ( input_512, __2 ) ) -> (match (match (match if ( (((&&)) ((((<=)) ((((+)) (input_512) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_512) (0))))) (';'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_512) (1))))) (';'))) (true)))))) ) then ( Some(((((+)) (input_512) (2)), ";;")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_516, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_516)) with +| Some ( ( input_514, __1 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_514)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_517, __2 ) ) -> Some((input_517, ())))) with -None -> Some((input_514, None)) -| Some ( ( input_518, r ) ) -> Some((input_518, Some((r))))) with +| Some ( ( input_515, __2 ) ) -> Some((input_515, ())))) with +None -> Some((input_512, None)) +| Some ( ( input_516, r ) ) -> Some((input_516, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_515, __3 ) ) -> Some((input_515, +| Some ( ( input_513, __3 ) ) -> Some((input_513, #413 "ocaml_parser.trx" ( __2 )))))) in (Hashtbl.add (memo_Ocaml_parser_LetOrType) (input) (res)) ; res) @@ -4044,11 +4032,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_pattern_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_325, __1 ) ) -> (match (try_Default_rightarrow_noerr (_filename) (_text) (input_325)) with +| Some ( ( input_323, __1 ) ) -> (match (try_Default_rightarrow_noerr (_filename) (_text) (input_323)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_326, __2 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_326)) with +| Some ( ( input_324, __2 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_324)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_327, __3 ) ) -> Some((input_327, +| Some ( ( input_325, __3 ) ) -> Some((input_325, #274 "ocaml_parser.trx" ( match __1 with | Some guard, pat -> pat, Some guard, __3 @@ -4066,31 +4054,31 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_constructorName_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_646, __1 ) ) -> (match (try_Default_lparen_noerr (_filename) (_text) (input_646)) with +| Some ( ( input_644, __1 ) ) -> (match (try_Default_lparen_noerr (_filename) (_text) (input_644)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_647, __2 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_647)) with +| Some ( ( input_645, __2 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_645)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_648, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_648)) with +| Some ( ( input_646, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_646)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_649, __4 ) ) -> Some((input_649, +| Some ( ( input_647, __4 ) ) -> Some((input_647, #202 "ocaml_parser.trx" ( Constructor (List.map Ident.source __1, match __3 with Tuple l -> l | x -> [x]) ))))))) with None -> (match (match (try_Ocaml_parser_constructorName_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_644, __1 ) ) -> (match (try_Ocaml_parser_SimpleExpr_noerr (_filename) (_text) (input_644)) with +| Some ( ( input_642, __1 ) ) -> (match (try_Ocaml_parser_SimpleExpr_noerr (_filename) (_text) (input_642)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_645, __2 ) ) -> Some((input_645, +| Some ( ( input_643, __2 ) ) -> Some((input_643, #207 "ocaml_parser.trx" ( Constructor (List.map Ident.source __1, [__2]) ))))) with None -> (match (try_Ocaml_parser_constructorName_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_641, __1 ) ) -> (match (match (try_Ocaml_parser_ExprNotApp_noerr (_filename) (_text) (input_641)) with -None -> Some((input_641, None)) -| Some ( ( input_643, r ) ) -> Some((input_643, Some((r))))) with +| Some ( ( input_639, __1 ) ) -> (match (match (try_Ocaml_parser_ExprNotApp_noerr (_filename) (_text) (input_639)) with +None -> Some((input_639, None)) +| Some ( ( input_641, r ) ) -> Some((input_641, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_642, __2 ) ) -> Some((input_642, +| Some ( ( input_640, __2 ) ) -> Some((input_640, #214 "ocaml_parser.trx" ( Constructor (List.map Ident.source __1, match __2 with None -> [] | Some s -> [s]) ))))) @@ -4108,37 +4096,37 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_LET_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_495, __1 ) ) -> (match (match (try_Ocaml_keywords_REC_noerr (_filename) (_text) (input_495)) with -None -> Some((input_495, None)) -| Some ( ( input_512, r ) ) -> Some((input_512, Some((r))))) with +| Some ( ( input_493, __1 ) ) -> (match (match (try_Ocaml_keywords_REC_noerr (_filename) (_text) (input_493)) with +None -> Some((input_493, None)) +| Some ( ( input_510, r ) ) -> Some((input_510, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_496, __2 ) ) -> (match (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_496)) with +| Some ( ( input_494, __2 ) ) -> (match (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_494)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_497, __3 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_511 -> (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_511)))) (input_497)) with +| Some ( ( input_495, __3 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_509 -> (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_509)))) (input_495)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_498, __4 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_498)) with +| Some ( ( input_496, __4 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_496)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_499, __5 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_499)) with +| Some ( ( input_497, __5 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_497)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_500, __6 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_504 -> (match (try_Ocaml_keywords_AND_noerr (_filename) (_text) (input_504)) with +| Some ( ( input_498, __6 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_502 -> (match (try_Ocaml_keywords_AND_noerr (_filename) (_text) (input_502)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_505, __1 ) ) -> (match (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_505)) with +| Some ( ( input_503, __1 ) ) -> (match (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_503)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_506, __2 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_510 -> (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_510)))) (input_506)) with +| Some ( ( input_504, __2 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_508 -> (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_508)))) (input_504)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_507, __3 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_507)) with +| Some ( ( input_505, __3 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_505)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_508, __4 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_508)) with +| Some ( ( input_506, __4 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_506)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_509, __5 ) ) -> Some((input_509, +| Some ( ( input_507, __5 ) ) -> Some((input_507, #250 "ocaml_parser.trx" -( let tmp = make_fun __5 __3 in __2, tmp )))))))))) (input_500)) with +( let tmp = make_fun __5 __3 in __2, tmp )))))))))) (input_498)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_501, __7 ) ) -> (match (try_Ocaml_keywords_IN_noerr (_filename) (_text) (input_501)) with +| Some ( ( input_499, __7 ) ) -> (match (try_Ocaml_keywords_IN_noerr (_filename) (_text) (input_499)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_502, __8 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_502)) with +| Some ( ( input_500, __8 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_500)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_503, __9 ) ) -> Some((input_503, +| Some ( ( input_501, __9 ) ) -> Some((input_501, #252 "ocaml_parser.trx" ( match __2 with Some _ -> let tmp = make_fun __6 __4 in Letrecin ((__3, tmp)::__7, __9) | None -> let tmp = make_fun __6 __4 in Letin ((__3, tmp)::__7, __9) @@ -4155,21 +4143,21 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_RAISE_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_401, __1 ) ) -> (match (try_Ocaml_parser_capMlIdent_noerr (_filename) (_text) (input_401)) with +| Some ( ( input_399, __1 ) ) -> (match (try_Ocaml_parser_capMlIdent_noerr (_filename) (_text) (input_399)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_402, __2 ) ) -> (match (match (match (try_Default_lparen_noerr (_filename) (_text) (input_402)) with +| Some ( ( input_400, __2 ) ) -> (match (match (match (try_Default_lparen_noerr (_filename) (_text) (input_400)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_404, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_404)) with +| Some ( ( input_402, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_402)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_405, __2 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_405)) with +| Some ( ( input_403, __2 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_403)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_406, __3 ) ) -> Some((input_406, +| Some ( ( input_404, __3 ) ) -> Some((input_404, #282 "ocaml_parser.trx" ( __2 )))))) with -None -> Some((input_402, None)) -| Some ( ( input_407, r ) ) -> Some((input_407, Some((r))))) with +None -> Some((input_400, None)) +| Some ( ( input_405, r ) ) -> Some((input_405, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_403, __3 ) ) -> Some((input_403, +| Some ( ( input_401, __3 ) ) -> Some((input_401, #283 "ocaml_parser.trx" ( Raise ([Ident.source __2], __3) )))))) in @@ -4185,128 +4173,128 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Default_tilde__noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_261, __1 ) ) -> (match (try_Default_lparen_noerr (_filename) (_text) (input_261)) with +| Some ( ( input_259, __1 ) ) -> (match (try_Default_lparen_noerr (_filename) (_text) (input_259)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_262, __2 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_262)) with +| Some ( ( input_260, __2 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_260)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_263, __3 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_263)) with +| Some ( ( input_261, __3 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_261)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_266, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_266)) with +| Some ( ( input_264, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_264)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_267, __2 ) ) -> Some((input_267, +| Some ( ( input_265, __2 ) ) -> Some((input_265, #63 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_263, None)) -| Some ( ( input_268, r ) ) -> Some((input_268, Some((r))))) with +None -> Some((input_261, None)) +| Some ( ( input_266, r ) ) -> Some((input_266, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_264, __4 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_264)) with +| Some ( ( input_262, __4 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_262)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_265, __5 ) ) -> Some((input_265, +| Some ( ( input_263, __5 ) ) -> Some((input_263, #64 "ocaml_parser.trx" ( Label (__3, None, __4) )))))))) with None -> (match (match (try_Default_tilde__noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_254, __1 ) ) -> (match (try_Ocaml_parser_mlIdent__noerr (_filename) (_text) (input_254)) with +| Some ( ( input_252, __1 ) ) -> (match (try_Ocaml_parser_mlIdent__noerr (_filename) (_text) (input_252)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_255, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_255)) with +| Some ( ( input_253, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_253)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_258, __1 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_258)) with +| Some ( ( input_256, __1 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_256)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_259, __2 ) ) -> Some((input_259, +| Some ( ( input_257, __2 ) ) -> Some((input_257, #68 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_255, None)) -| Some ( ( input_260, r ) ) -> Some((input_260, Some((r))))) with +None -> Some((input_253, None)) +| Some ( ( input_258, r ) ) -> Some((input_258, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_256, __3 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_256)) with +| Some ( ( input_254, __3 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_254)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_257, __4 ) ) -> Some((input_257, +| Some ( ( input_255, __4 ) ) -> Some((input_255, #69 "ocaml_parser.trx" ( Label (__2, __3, None) ))))))) with None -> (match (match (try_Default_tilde__noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_244, __1 ) ) -> (match (try_Ocaml_parser_mlIdent__noerr (_filename) (_text) (input_244)) with +| Some ( ( input_242, __1 ) ) -> (match (try_Ocaml_parser_mlIdent__noerr (_filename) (_text) (input_242)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_245, __2 ) ) -> (match (try_Default_colon_noerr (_filename) (_text) (input_245)) with +| Some ( ( input_243, __2 ) ) -> (match (try_Default_colon_noerr (_filename) (_text) (input_243)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_246, __3 ) ) -> (match (try_Default_lparen_noerr (_filename) (_text) (input_246)) with +| Some ( ( input_244, __3 ) ) -> (match (try_Default_lparen_noerr (_filename) (_text) (input_244)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_247, __4 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_247)) with +| Some ( ( input_245, __4 ) ) -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input_245)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_248, __5 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_248)) with +| Some ( ( input_246, __5 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_246)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_251, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_251)) with +| Some ( ( input_249, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_249)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_252, __2 ) ) -> Some((input_252, +| Some ( ( input_250, __2 ) ) -> Some((input_250, #73 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_248, None)) -| Some ( ( input_253, r ) ) -> Some((input_253, Some((r))))) with +None -> Some((input_246, None)) +| Some ( ( input_251, r ) ) -> Some((input_251, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_249, __6 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_249)) with +| Some ( ( input_247, __6 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_247)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_250, __7 ) ) -> Some((input_250, +| Some ( ( input_248, __7 ) ) -> Some((input_248, #74 "ocaml_parser.trx" ( Label (__2, Some __5, __6) )))))))))) with None -> (match (match (try_Default_question_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_232, __1 ) ) -> (match (try_Default_lparen_noerr (_filename) (_text) (input_232)) with +| Some ( ( input_230, __1 ) ) -> (match (try_Default_lparen_noerr (_filename) (_text) (input_230)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_233, __2 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_233)) with +| Some ( ( input_231, __2 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_231)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_234, __3 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_234)) with +| Some ( ( input_232, __3 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_232)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_241, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_241)) with +| Some ( ( input_239, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_239)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_242, __2 ) ) -> Some((input_242, +| Some ( ( input_240, __2 ) ) -> Some((input_240, #78 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_234, None)) -| Some ( ( input_243, r ) ) -> Some((input_243, Some((r))))) with +None -> Some((input_232, None)) +| Some ( ( input_241, r ) ) -> Some((input_241, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_235, __4 ) ) -> (match (match (match (try_Default_equal_noerr (_filename) (_text) (input_235)) with +| Some ( ( input_233, __4 ) ) -> (match (match (match (try_Default_equal_noerr (_filename) (_text) (input_233)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_238, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_238)) with +| Some ( ( input_236, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_236)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_239, __2 ) ) -> Some((input_239, +| Some ( ( input_237, __2 ) ) -> Some((input_237, #78 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_235, None)) -| Some ( ( input_240, r ) ) -> Some((input_240, Some((r))))) with +None -> Some((input_233, None)) +| Some ( ( input_238, r ) ) -> Some((input_238, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_236, __5 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_236)) with +| Some ( ( input_234, __5 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_234)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_237, __6 ) ) -> Some((input_237, +| Some ( ( input_235, __6 ) ) -> Some((input_235, #79 "ocaml_parser.trx" ( Opt (__3, __4, __5) ))))))))) with None -> (match (match (try_Default_question_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_230, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_230)) with +| Some ( ( input_228, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_228)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_231, __2 ) ) -> Some((input_231, +| Some ( ( input_229, __2 ) ) -> Some((input_229, #83 "ocaml_parser.trx" ( Opt (__2, None, None) ))))) with None -> (match (match (try_Default_lparen_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_223, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_223)) with +| Some ( ( input_221, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_221)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_224, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_224)) with +| Some ( ( input_222, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_222)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_227, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_227)) with +| Some ( ( input_225, __1 ) ) -> (match (try_Ocaml_parser_type_noerr (_filename) (_text) (input_225)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_228, __2 ) ) -> Some((input_228, +| Some ( ( input_226, __2 ) ) -> Some((input_226, #85 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_224, None)) -| Some ( ( input_229, r ) ) -> Some((input_229, Some((r))))) with +None -> Some((input_222, None)) +| Some ( ( input_227, r ) ) -> Some((input_227, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_225, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_225)) with +| Some ( ( input_223, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_223)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_226, __4 ) ) -> Some((input_226, +| Some ( ( input_224, __4 ) ) -> Some((input_224, #86 "ocaml_parser.trx" ( match __3 with | None -> Pat (PatVar (Ident.source __2)) @@ -4314,7 +4302,7 @@ None -> Some((input_224, None)) ))))))) with None -> (match (try_Ocaml_parser_pattern_aux_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_222, __1 ) ) -> Some((input_222, +| Some ( ( input_220, __1 ) ) -> Some((input_220, #93 "ocaml_parser.trx" ( Pat __1 )))) @@ -4336,35 +4324,35 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_laccol_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_386, __1 ) ) -> (match (match (try_Ocaml_parser_RNameOpt_noerr (_filename) (_text) (input_386)) with -None -> Some((input_386, None)) -| Some ( ( input_400, r ) ) -> Some((input_400, Some((r))))) with +| Some ( ( input_384, __1 ) ) -> (match (match (try_Ocaml_parser_RNameOpt_noerr (_filename) (_text) (input_384)) with +None -> Some((input_384, None)) +| Some ( ( input_398, r ) ) -> Some((input_398, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_387, __2 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_387)) with +| Some ( ( input_385, __2 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_385)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_388, __3 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_388)) with +| Some ( ( input_386, __3 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_386)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_389, __4 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_389)) with +| Some ( ( input_387, __4 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_387)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_390, __5 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_395 -> (match (try_Default_semi_noerr (_filename) (_text) (input_395)) with +| Some ( ( input_388, __5 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_393 -> (match (try_Default_semi_noerr (_filename) (_text) (input_393)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_396, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_396)) with +| Some ( ( input_394, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_394)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_397, __2 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_397)) with +| Some ( ( input_395, __2 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_395)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_398, __3 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_398)) with +| Some ( ( input_396, __3 ) ) -> (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input_396)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_399, __4 ) ) -> Some((input_399, +| Some ( ( input_397, __4 ) ) -> Some((input_397, #259 "ocaml_parser.trx" -( __2, __4 ))))))))) (input_390)) with +( __2, __4 ))))))))) (input_388)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_391, __6 ) ) -> (match (match (try_Default_semi_noerr (_filename) (_text) (input_391)) with -None -> Some((input_391, None)) -| Some ( ( input_394, r ) ) -> Some((input_394, Some((r))))) with +| Some ( ( input_389, __6 ) ) -> (match (match (try_Default_semi_noerr (_filename) (_text) (input_389)) with +None -> Some((input_389, None)) +| Some ( ( input_392, r ) ) -> Some((input_392, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_392, __7 ) ) -> (match (try_Default_raccol_noerr (_filename) (_text) (input_392)) with +| Some ( ( input_390, __7 ) ) -> (match (try_Default_raccol_noerr (_filename) (_text) (input_390)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_393, __8 ) ) -> Some((input_393, +| Some ( ( input_391, __8 ) ) -> Some((input_391, #261 "ocaml_parser.trx" ( Record (__2,((__3, __5)::__6)) ))))))))))) in (Hashtbl.add (memo_Ocaml_parser_Record) (input) (res)) ; res) @@ -4394,57 +4382,57 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_MODULE_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_449, __1 ) ) -> (match (try_Ocaml_parser_moduleName_noerr (_filename) (_text) (input_449)) with +| Some ( ( input_447, __1 ) ) -> (match (try_Ocaml_parser_moduleName_noerr (_filename) (_text) (input_447)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_450, __2 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_463 -> (match (try_Default_lparen_noerr (_filename) (_text) (input_463)) with +| Some ( ( input_448, __2 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_461 -> (match (try_Default_lparen_noerr (_filename) (_text) (input_461)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_464, __1 ) ) -> (match (try_Ocaml_parser_moduleName_noerr (_filename) (_text) (input_464)) with +| Some ( ( input_462, __1 ) ) -> (match (try_Ocaml_parser_moduleName_noerr (_filename) (_text) (input_462)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_465, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_465)) with +| Some ( ( input_463, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_463)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_468, __1 ) ) -> (match (try_Ocaml_parser_moduleName_noerr (_filename) (_text) (input_468)) with +| Some ( ( input_466, __1 ) ) -> (match (try_Ocaml_parser_moduleName_noerr (_filename) (_text) (input_466)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_469, __2 ) ) -> Some((input_469, +| Some ( ( input_467, __2 ) ) -> Some((input_467, #196 "ocaml_parser.trx" ( Signature (Referenced [__2]) ))))) with -None -> Some((input_465, None)) -| Some ( ( input_470, r ) ) -> Some((input_470, Some((r))))) with +None -> Some((input_463, None)) +| Some ( ( input_468, r ) ) -> Some((input_468, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_466, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_466)) with +| Some ( ( input_464, __3 ) ) -> (match (try_Default_rparen_noerr (_filename) (_text) (input_464)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_467, __4 ) ) -> Some((input_467, +| Some ( ( input_465, __4 ) ) -> Some((input_465, #196 "ocaml_parser.trx" -( __2, __3 ))))))))) (input_450)) with +( __2, __3 ))))))))) (input_448)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_451, __3 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_451)) with +| Some ( ( input_449, __3 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_449)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_460, __1 ) ) -> (match (try_Ocaml_parser_moduleName_noerr (_filename) (_text) (input_460)) with +| Some ( ( input_458, __1 ) ) -> (match (try_Ocaml_parser_moduleName_noerr (_filename) (_text) (input_458)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_461, __2 ) ) -> Some((input_461, +| Some ( ( input_459, __2 ) ) -> Some((input_459, #197 "ocaml_parser.trx" ( Signature (Referenced [__2]) ))))) with -None -> Some((input_451, None)) -| Some ( ( input_462, r ) ) -> Some((input_462, Some((r))))) with +None -> Some((input_449, None)) +| Some ( ( input_460, r ) ) -> Some((input_460, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_452, __4 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_452)) with +| Some ( ( input_450, __4 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_450)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_453, __5 ) ) -> (match (match (match (try_Ocaml_keywords_STRUCT_noerr (_filename) (_text) (input_453)) with +| Some ( ( input_451, __5 ) ) -> (match (match (match (try_Ocaml_keywords_STRUCT_noerr (_filename) (_text) (input_451)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_456, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_459 -> (try_Ocaml_parser_LetOrType_noerr (_filename) (_text) (input_459)))) (input_456)) with +| Some ( ( input_454, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_457 -> (try_Ocaml_parser_LetOrType_noerr (_filename) (_text) (input_457)))) (input_454)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_457, __2 ) ) -> (match (try_Ocaml_keywords_END_noerr (_filename) (_text) (input_457)) with +| Some ( ( input_455, __2 ) ) -> (match (try_Ocaml_keywords_END_noerr (_filename) (_text) (input_455)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_458, __3 ) ) -> Some((input_458, +| Some ( ( input_456, __3 ) ) -> Some((input_456, #198 "ocaml_parser.trx" ( __2 )))))) with -None -> (match (try_Ocaml_parser_LetOrType_noerr (_filename) (_text) (input_453)) with +None -> (match (try_Ocaml_parser_LetOrType_noerr (_filename) (_text) (input_451)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_455, __1 ) ) -> Some((input_455, +| Some ( ( input_453, __1 ) ) -> Some((input_453, #198 "ocaml_parser.trx" ( [__1] )))) | ( _ok ) as __pat_var -> __pat_var) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_454, __6 ) ) -> Some((input_454, +| Some ( ( input_452, __6 ) ) -> Some((input_452, #198 "ocaml_parser.trx" ( match __3 with [] -> Module (__2, __4, __6, None) | _ -> DeclareFunctor (__2, __3, __4, Structure __6) ))))))))) in (Hashtbl.add (memo_Ocaml_parser_Module) (input) (res)) ; res) @@ -4459,42 +4447,42 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Default_tilde__noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_275, __1 ) ) -> (match (try_Ocaml_parser_mlIdent__noerr (_filename) (_text) (input_275)) with +| Some ( ( input_273, __1 ) ) -> (match (try_Ocaml_parser_mlIdent__noerr (_filename) (_text) (input_273)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_276, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_276)) with +| Some ( ( input_274, __2 ) ) -> (match (match (match (try_Default_colon_noerr (_filename) (_text) (input_274)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_279, __1 ) ) -> (match (try_Ocaml_parser_ExprNotApp_noerr (_filename) (_text) (input_279)) with +| Some ( ( input_277, __1 ) ) -> (match (try_Ocaml_parser_ExprNotApp_noerr (_filename) (_text) (input_277)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_280, __2 ) ) -> Some((input_280, +| Some ( ( input_278, __2 ) ) -> Some((input_278, #99 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_276, None)) -| Some ( ( input_281, r ) ) -> Some((input_281, Some((r))))) with +None -> Some((input_274, None)) +| Some ( ( input_279, r ) ) -> Some((input_279, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_277, __3 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_277)) with +| Some ( ( input_275, __3 ) ) -> (match (try_Ocaml_parser_spacing_noerr (_filename) (_text) (input_275)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_278, __4 ) ) -> Some((input_278, +| Some ( ( input_276, __4 ) ) -> Some((input_276, #100 "ocaml_parser.trx" ( Labeled (__2, __3) ))))))) with -None -> (match (match (Trx_runtime.while_primary_noerr (false) ((fun input_272 -> (match (try_Ocaml_parser_moduleName__noerr (_filename) (_text) (input_272)) with +None -> (match (match (Trx_runtime.while_primary_noerr (false) ((fun input_270 -> (match (try_Ocaml_parser_moduleName__noerr (_filename) (_text) (input_270)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_273, __1 ) ) -> (match if ( (((<)) (input_273) (_len)) ) then ( let c = ((_get_char) (input_273)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_273)), c)) ) else ( None ) ) else ( None ) with +| Some ( ( input_271, __1 ) ) -> (match if ( (((<)) (input_271) (_len)) ) then ( let c = ((_get_char) (input_271)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_271)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_274, __2 ) ) -> Some((input_274, +| Some ( ( input_272, __2 ) ) -> Some((input_272, #106 "ocaml_parser.trx" ( __1 ))))))) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_270, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_270)) with +| Some ( ( input_268, __1 ) ) -> (match (try_Ocaml_parser_mlIdent_noerr (_filename) (_text) (input_268)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_271, __2 ) ) -> Some((input_271, +| Some ( ( input_269, __2 ) ) -> Some((input_269, #107 "ocaml_parser.trx" ( Pated (List.map Ident.source (__1 @ [__2]), false) ))))) with None -> (match (try_Ocaml_parser_constructorName_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_269, __1 ) ) -> Some((input_269, +| Some ( ( input_267, __1 ) ) -> Some((input_267, #112 "ocaml_parser.trx" ( Pated (List.map Ident.source __1, true) )))) @@ -4510,19 +4498,19 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Ocaml_parser_Abs) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary_noerr (true) ((fun input_679 -> (match (try_Ocaml_keywords_FUN_noerr (_filename) (_text) (input_679)) with +Not_found -> let res = (match (Trx_runtime.while_primary_noerr (true) ((fun input_677 -> (match (try_Ocaml_keywords_FUN_noerr (_filename) (_text) (input_677)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_680, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (true) ((fun input_683 -> (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_683)))) (input_680)) with +| Some ( ( input_678, __1 ) ) -> (match (Trx_runtime.while_primary_noerr (true) ((fun input_681 -> (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_681)))) (input_678)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_681, __2 ) ) -> (match (try_Default_rightarrow_noerr (_filename) (_text) (input_681)) with +| Some ( ( input_679, __2 ) ) -> (match (try_Default_rightarrow_noerr (_filename) (_text) (input_679)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_682, __3 ) ) -> Some((input_682, +| Some ( ( input_680, __3 ) ) -> Some((input_680, #229 "ocaml_parser.trx" ( __2 )))))))) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_677, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_677)) with +| Some ( ( input_675, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_675)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_678, __2 ) ) -> Some((input_678, +| Some ( ( input_676, __2 ) ) -> Some((input_676, #229 "ocaml_parser.trx" ( Abs (List.flatten __1, __2) ))))) in (Hashtbl.add (memo_Ocaml_parser_Abs) (input) (res)) ; res) @@ -4537,39 +4525,39 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (try_Ocaml_keywords_LET_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_531, __1 ) ) -> (match (match (try_Ocaml_keywords_REC_noerr (_filename) (_text) (input_531)) with -None -> Some((input_531, None)) -| Some ( ( input_537, r ) ) -> Some((input_537, Some((r))))) with +| Some ( ( input_529, __1 ) ) -> (match (match (try_Ocaml_keywords_REC_noerr (_filename) (_text) (input_529)) with +None -> Some((input_529, None)) +| Some ( ( input_535, r ) ) -> Some((input_535, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_532, __2 ) ) -> (match (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_532)) with +| Some ( ( input_530, __2 ) ) -> (match (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_530)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_533, __3 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_536 -> (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_536)))) (input_533)) with +| Some ( ( input_531, __3 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_534 -> (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_534)))) (input_531)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_534, __4 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_534)) with +| Some ( ( input_532, __4 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_532)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_535, __5 ) ) -> Some((input_535, +| Some ( ( input_533, __5 ) ) -> Some((input_533, #234 "ocaml_parser.trx" ( __2, __3, __4 )))))))) with None -> Some((input, None)) -| Some ( ( input_538, r ) ) -> Some((input_538, Some((r))))) with +| Some ( ( input_536, r ) ) -> Some((input_536, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_521, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_521)) with +| Some ( ( input_519, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_519)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_522, __2 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_524 -> (match (try_Ocaml_keywords_AND_noerr (_filename) (_text) (input_524)) with +| Some ( ( input_520, __2 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_522 -> (match (try_Ocaml_keywords_AND_noerr (_filename) (_text) (input_522)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_525, __1 ) ) -> (match (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_525)) with +| Some ( ( input_523, __1 ) ) -> (match (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_523)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_526, __2 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_530 -> (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_530)))) (input_526)) with +| Some ( ( input_524, __2 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_528 -> (try_Ocaml_parser_paramFormel_noerr (_filename) (_text) (input_528)))) (input_524)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_527, __3 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_527)) with +| Some ( ( input_525, __3 ) ) -> (match (try_Default_equal_noerr (_filename) (_text) (input_525)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_528, __4 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_528)) with +| Some ( ( input_526, __4 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_526)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_529, __5 ) ) -> Some((input_529, +| Some ( ( input_527, __5 ) ) -> Some((input_527, #236 "ocaml_parser.trx" -( let tmp = make_fun __5 __3 in __2, tmp )))))))))) (input_522)) with +( let tmp = make_fun __5 __3 in __2, tmp )))))))))) (input_520)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_523, __3 ) ) -> Some((input_523, +| Some ( ( input_521, __3 ) ) -> Some((input_521, #238 "ocaml_parser.trx" ( match __1 with | None -> __2 @@ -4591,17 +4579,17 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_Expr_without_seq_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_615, __1 ) ) -> (match (match (match (try_Default_semi_noerr (_filename) (_text) (input_615)) with +| Some ( ( input_613, __1 ) ) -> (match (match (match (try_Default_semi_noerr (_filename) (_text) (input_613)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_617, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_617)) with +| Some ( ( input_615, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_615)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_618, __2 ) ) -> Some((input_618, +| Some ( ( input_616, __2 ) ) -> Some((input_616, #333 "ocaml_parser.trx" ( __2 ))))) with -None -> Some((input_615, None)) -| Some ( ( input_619, r ) ) -> Some((input_619, Some((r))))) with +None -> Some((input_613, None)) +| Some ( ( input_617, r ) ) -> Some((input_617, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_616, __2 ) ) -> Some((input_616, +| Some ( ( input_614, __2 ) ) -> Some((input_614, #333 "ocaml_parser.trx" ( match __2 with None -> __1 | Some x -> Sequence (__1, x) ))))) in (Hashtbl.add (memo_Ocaml_parser_Expr) (input) (res)) ; res) @@ -4616,9 +4604,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_ASSERT_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_666, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_666)) with +| Some ( ( input_664, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_664)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_667, __2 ) ) -> Some((input_667, +| Some ( ( input_665, __2 ) ) -> Some((input_665, #290 "ocaml_parser.trx" ( Assert __2 ))))) in (Hashtbl.add (memo_Ocaml_parser_Assert) (input) (res)) ; res) @@ -4633,45 +4621,45 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_keywords_MATCH_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_479, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_479)) with +| Some ( ( input_477, __1 ) ) -> (match (try_Ocaml_parser_Expr_noerr (_filename) (_text) (input_477)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_480, __2 ) ) -> (match (try_Ocaml_keywords_WITH_noerr (_filename) (_text) (input_480)) with +| Some ( ( input_478, __2 ) ) -> (match (try_Ocaml_keywords_WITH_noerr (_filename) (_text) (input_478)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_481, __3 ) ) -> (match (match (try_Default_bar_noerr (_filename) (_text) (input_481)) with -None -> Some((input_481, None)) -| Some ( ( input_488, r ) ) -> Some((input_488, Some((r))))) with +| Some ( ( input_479, __3 ) ) -> (match (match (try_Default_bar_noerr (_filename) (_text) (input_479)) with +None -> Some((input_479, None)) +| Some ( ( input_486, r ) ) -> Some((input_486, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_482, __4 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_482)) with +| Some ( ( input_480, __4 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_480)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_483, __5 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_485 -> (match (try_Default_bar_noerr (_filename) (_text) (input_485)) with +| Some ( ( input_481, __5 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_483 -> (match (try_Default_bar_noerr (_filename) (_text) (input_483)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_486, __1 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_486)) with +| Some ( ( input_484, __1 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_484)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_487, __2 ) ) -> Some((input_487, +| Some ( ( input_485, __2 ) ) -> Some((input_485, #264 "ocaml_parser.trx" -( __2 ))))))) (input_483)) with +( __2 ))))))) (input_481)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_484, __6 ) ) -> Some((input_484, +| Some ( ( input_482, __6 ) ) -> Some((input_482, #265 "ocaml_parser.trx" ( Match (__2, __5 :: __6) ))))))))) with None -> (match (try_Ocaml_keywords_FUNCTION_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_471, __1 ) ) -> (match (match (try_Default_bar_noerr (_filename) (_text) (input_471)) with -None -> Some((input_471, None)) -| Some ( ( input_478, r ) ) -> Some((input_478, Some((r))))) with +| Some ( ( input_469, __1 ) ) -> (match (match (try_Default_bar_noerr (_filename) (_text) (input_469)) with +None -> Some((input_469, None)) +| Some ( ( input_476, r ) ) -> Some((input_476, Some((r))))) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_472, __2 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_472)) with +| Some ( ( input_470, __2 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_470)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_473, __3 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_475 -> (match (try_Default_bar_noerr (_filename) (_text) (input_475)) with +| Some ( ( input_471, __3 ) ) -> (match (Trx_runtime.while_primary_noerr (false) ((fun input_473 -> (match (try_Default_bar_noerr (_filename) (_text) (input_473)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_476, __1 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_476)) with +| Some ( ( input_474, __1 ) ) -> (match (try_Ocaml_parser_matchExpr_noerr (_filename) (_text) (input_474)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_477, __2 ) ) -> Some((input_477, +| Some ( ( input_475, __2 ) ) -> Some((input_475, #268 "ocaml_parser.trx" -( __2 ))))))) (input_473)) with +( __2 ))))))) (input_471)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_474, __4 ) ) -> Some((input_474, +| Some ( ( input_472, __4 ) ) -> Some((input_472, #269 "ocaml_parser.trx" ( Function (__3::__4) ))))))) @@ -4686,15 +4674,15 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Default_spacing_err) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary_nores (false) ((fun input_1780 -> (match (match (try_Default_space (_filename) (_text) (input_1780)) with +Not_found -> let res = (match (Trx_runtime.while_primary_nores (false) ((fun input_1776 -> (match (match (try_Default_space (_filename) (_text) (input_1776)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1782, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1782, ( () )), ((Trx_runtime.emptyError) (input_1782))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_mlcomment (_filename) (_text) (input_1780)) with +| Trx_runtime.Ok ( ( ( input_1778, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1778, ( () )), ((Trx_runtime.emptyError) (input_1778))))))) with +Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_mlcomment (_filename) (_text) (input_1776)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1781, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1781, __1), ((Trx_runtime.emptyError) (input_1781))))))))) +| Trx_runtime.Ok ( ( ( input_1777, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1777, __1), ((Trx_runtime.emptyError) (input_1777))))))))) | ( _ok ) as __pat_var -> __pat_var))) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1779, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1779, ( () )), ((Trx_runtime.emptyError) (input_1779))))))) in +| Trx_runtime.Ok ( ( ( input_1775, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1775, ( () )), ((Trx_runtime.emptyError) (input_1775))))))) in (Hashtbl.add (memo_Default_spacing_err) (input) (res)) ; res) ) let rec try_Default_lparen = @@ -4708,9 +4696,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('(')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'('")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1844, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1844)) with +| Trx_runtime.Ok ( ( ( input_1840, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1840)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1845, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1845, ( () )), ((Trx_runtime.emptyError) (input_1845)))))))))) in +| Trx_runtime.Ok ( ( ( input_1841, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1841, ( () )), ((Trx_runtime.emptyError) (input_1841)))))))))) in (Hashtbl.add (memo_Default_lparen_err) (input) (res)) ; res) ) let rec try_Default_rparen = @@ -4724,9 +4712,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) (')')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("')'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1799, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1799)) with +| Trx_runtime.Ok ( ( ( input_1795, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1795)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1800, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1800, ( () )), ((Trx_runtime.emptyError) (input_1800)))))))))) in +| Trx_runtime.Ok ( ( ( input_1796, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1796, ( () )), ((Trx_runtime.emptyError) (input_1796)))))))))) in (Hashtbl.add (memo_Default_rparen_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_spacing = @@ -4737,15 +4725,15 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Ocaml_keywords_spacing_err) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary_nores (false) ((fun input_1639 -> (match (match (try_Default_space (_filename) (_text) (input_1639)) with +Not_found -> let res = (match (Trx_runtime.while_primary_nores (false) ((fun input_1635 -> (match (match (try_Default_space (_filename) (_text) (input_1635)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1641, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1641, ( () )), ((Trx_runtime.emptyError) (input_1641))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_mlcomment (_filename) (_text) (input_1639)) with +| Trx_runtime.Ok ( ( ( input_1637, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1637, ( () )), ((Trx_runtime.emptyError) (input_1637))))))) with +Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_mlcomment (_filename) (_text) (input_1635)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1640, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1640, __1), ((Trx_runtime.emptyError) (input_1640))))))))) +| Trx_runtime.Ok ( ( ( input_1636, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1636, __1), ((Trx_runtime.emptyError) (input_1636))))))))) | ( _ok ) as __pat_var -> __pat_var))) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1638, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1638, ( () )), ((Trx_runtime.emptyError) (input_1638))))))) in +| Trx_runtime.Ok ( ( ( input_1634, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1634, ( () )), ((Trx_runtime.emptyError) (input_1634))))))) in (Hashtbl.add (memo_Ocaml_keywords_spacing_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_OF = @@ -4758,9 +4746,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('f'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "of")) ) else ( None )) (input) ("\"of\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1670, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1670)) with +| Trx_runtime.Ok ( ( ( input_1666, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1666)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1671, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1671, ( () )), ((Trx_runtime.emptyError) (input_1671)))))))))) in +| Trx_runtime.Ok ( ( ( input_1667, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1667, ( () )), ((Trx_runtime.emptyError) (input_1667)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_OF_err) (input) (res)) ; res) ) let rec try_Ocaml_types_spacing = @@ -4771,28 +4759,28 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Ocaml_types_spacing_err) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary_nores (false) ((fun input_1078 -> (match (match (try_Default_space (_filename) (_text) (input_1078)) with +Not_found -> let res = (match (Trx_runtime.while_primary_nores (false) ((fun input_1075 -> (match (match (try_Default_space (_filename) (_text) (input_1075)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1080, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1080, ( () )), ((Trx_runtime.emptyError) (input_1080))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_mlcomment (_filename) (_text) (input_1078)) with +| Trx_runtime.Ok ( ( ( input_1077, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1077, ( () )), ((Trx_runtime.emptyError) (input_1077))))))) with +Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_mlcomment (_filename) (_text) (input_1075)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1079, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1079, __1), ((Trx_runtime.emptyError) (input_1079))))))))) +| Trx_runtime.Ok ( ( ( input_1076, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1076, __1), ((Trx_runtime.emptyError) (input_1076))))))))) | ( _ok ) as __pat_var -> __pat_var))) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1077, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1077, ( () )), ((Trx_runtime.emptyError) (input_1077))))))) in +| Trx_runtime.Ok ( ( ( input_1074, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1074, ( () )), ((Trx_runtime.emptyError) (input_1074))))))) in (Hashtbl.add (memo_Ocaml_types_spacing_err) (input) (res)) ; res) ) let rec try_Ocaml_types_typeIdent_cont = -#31 "ocaml_types.trx" +#30 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((&&)) ((((>=)) (c) ('a'))) ((((<=)) (c) ('z'))))) ((((||)) ((((&&)) ((((>=)) (c) ('A'))) ((((<=)) (c) ('Z'))))) ((((||)) ((((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9'))))) ((((=)) (c) ('_')))))))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) ([ Trx_runtime.Expected(("'_'")) ; Trx_runtime.Expected(("['0'-'9']")) ; Trx_runtime.Expected(("['A'-'Z']")) ; Trx_runtime.Expected(("['a'-'z']")) ])) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1059, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1059, __1), ((Trx_runtime.emptyError) (input_1059)))))))) +| Trx_runtime.Ok ( ( ( input_1056, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1056, __1), ((Trx_runtime.emptyError) (input_1056)))))))) let rec try_Ocaml_types_typeconstructor = -#34 "ocaml_types.trx" +#33 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -4802,15 +4790,15 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((&&)) ((((>=)) (c) ('A'))) ((((<=)) (c) ('Z')))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("['A'-'Z']")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1042, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1044 -> (try_Ocaml_types_typeIdent_cont (_filename) (_text) (input_1044)))) (input_1042)) with +| Trx_runtime.Ok ( ( ( input_1040, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1042 -> (try_Ocaml_types_typeIdent_cont (_filename) (_text) (input_1042)))) (input_1040)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1043, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1043, (_get_sub (input) ((((-)) (input_1043) (input))))), ((Trx_runtime.emptyError) (input_1043)))))))))) with +| Trx_runtime.Ok ( ( ( input_1041, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1041, (_get_sub (input) ((((-)) (input_1041) (input))))), ((Trx_runtime.emptyError) (input_1041)))))))))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1040, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_1040)) with +| Trx_runtime.Ok ( ( ( input_1038, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_1038)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1041, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1041, -#34 "ocaml_types.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1041)))))))))) in +| Trx_runtime.Ok ( ( ( input_1039, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1039, +#33 "ocaml_types.trx" +( __1 )), ((Trx_runtime.emptyError) (input_1039)))))))))) in (Hashtbl.add (memo_Ocaml_types_typeconstructor_err) (input) (res)) ; res) ) let rec try_Default_rightarrow = @@ -4823,9 +4811,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('-'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('>'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "->")) ) else ( None )) (input) ("\"->\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1801, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1801)) with +| Trx_runtime.Ok ( ( ( input_1797, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1797)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1802, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1802, ( () )), ((Trx_runtime.emptyError) (input_1802)))))))))) in +| Trx_runtime.Ok ( ( ( input_1798, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1798, ( () )), ((Trx_runtime.emptyError) (input_1798)))))))))) in (Hashtbl.add (memo_Default_rightarrow_err) (input) (res)) ; res) ) let rec try_Default_laccol = @@ -4839,9 +4827,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('{')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'{'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1850, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1850)) with +| Trx_runtime.Ok ( ( ( input_1846, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1846)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1851, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1851, ( () )), ((Trx_runtime.emptyError) (input_1851)))))))))) in +| Trx_runtime.Ok ( ( ( input_1847, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1847, ( () )), ((Trx_runtime.emptyError) (input_1847)))))))))) in (Hashtbl.add (memo_Default_laccol_err) (input) (res)) ; res) ) let rec try_Default_raccol = @@ -4855,9 +4843,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('}')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'}'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1805, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1805)) with +| Trx_runtime.Ok ( ( ( input_1801, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1801)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1806, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1806, ( () )), ((Trx_runtime.emptyError) (input_1806)))))))))) in +| Trx_runtime.Ok ( ( ( input_1802, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1802, ( () )), ((Trx_runtime.emptyError) (input_1802)))))))))) in (Hashtbl.add (memo_Default_raccol_err) (input) (res)) ; res) ) let rec try_Default_semi = @@ -4871,9 +4859,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) (';')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("';'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1797, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1797)) with +| Trx_runtime.Ok ( ( ( input_1793, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1793)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1798, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1798, ( () )), ((Trx_runtime.emptyError) (input_1798)))))))))) in +| Trx_runtime.Ok ( ( ( input_1794, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1794, ( () )), ((Trx_runtime.emptyError) (input_1794)))))))))) in (Hashtbl.add (memo_Default_semi_err) (input) (res)) ; res) ) let rec try_Default_colon = @@ -4887,9 +4875,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) (':')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("':'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1880, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1880)) with +| Trx_runtime.Ok ( ( ( input_1876, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1876)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1881, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1881, ( () )), ((Trx_runtime.emptyError) (input_1881)))))))))) in +| Trx_runtime.Ok ( ( ( input_1877, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1877, ( () )), ((Trx_runtime.emptyError) (input_1877)))))))))) in (Hashtbl.add (memo_Default_colon_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_MUTABLE = @@ -4902,9 +4890,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (7))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('m'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('b'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (6))))) ('e'))) (true)))))))))))))))) ) then ( Some(((((+)) (input) (7)), "mutable")) ) else ( None )) (input) ("\"mutable\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1672, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1672)) with +| Trx_runtime.Ok ( ( ( input_1668, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1668)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1673, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1673, ( () )), ((Trx_runtime.emptyError) (input_1673)))))))))) in +| Trx_runtime.Ok ( ( ( input_1669, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1669, ( () )), ((Trx_runtime.emptyError) (input_1669)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_MUTABLE_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_KEYWORDS = @@ -5053,7 +5041,7 @@ Not_found -> let res = (Trx_runtime.option_to_res_msg (if ( (((<)) ((((+)) (inpu (Hashtbl.add (memo_Ocaml_keywords_KEYWORDS_err) (input) (res)) ; res) ) let rec try_Ocaml_types_typeIdent_aux = -#32 "ocaml_types.trx" +#31 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5063,20 +5051,20 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((&&)) ((((>=)) (c) ('a'))) ((((<=)) (c) ('z')))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("['a'-'z']")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1063, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1065 -> (try_Ocaml_types_typeIdent_cont (_filename) (_text) (input_1065)))) (input_1063)) with +| Trx_runtime.Ok ( ( ( input_1060, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1062 -> (try_Ocaml_types_typeIdent_cont (_filename) (_text) (input_1062)))) (input_1060)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1064, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1064, (_get_sub (input) ((((-)) (input_1064) (input))))), ((Trx_runtime.emptyError) (input_1064)))))))))) with +| Trx_runtime.Ok ( ( ( input_1061, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1061, (_get_sub (input) ((((-)) (input_1061) (input))))), ((Trx_runtime.emptyError) (input_1061)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('_')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'_'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1060, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (true) ((fun input_1062 -> (try_Ocaml_types_typeIdent_cont (_filename) (_text) (input_1062)))) (input_1060)) with +| Trx_runtime.Ok ( ( ( input_1057, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (true) ((fun input_1059 -> (try_Ocaml_types_typeIdent_cont (_filename) (_text) (input_1059)))) (input_1057)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1061, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1061, (_get_sub (input) ((((-)) (input_1061) (input))))), ((Trx_runtime.emptyError) (input_1061)))))))))))) +| Trx_runtime.Ok ( ( ( input_1058, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1058, (_get_sub (input) ((((-)) (input_1058) (input))))), ((Trx_runtime.emptyError) (input_1058)))))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typeIdent_aux_err) (input) (res)) ; res) ) let rec try_Ocaml_types_typeIdent = -#33 "ocaml_types.trx" +#32 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5085,45 +5073,35 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_keywords_KEYWORDS (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1069, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent_cont (_filename) (_text) (input_1069)) with -Trx_runtime.Fail ( ( err ) ) -> let input_1070 = input_1069 in +| Trx_runtime.Ok ( ( ( input_1066, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent_cont (_filename) (_text) (input_1066)) with +Trx_runtime.Fail ( ( err ) ) -> let input_1067 = input_1066 in let __2 = () in -(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1070, __1), ((Trx_runtime.emptyError) (input_1070)))))) +(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1067, __1), ((Trx_runtime.emptyError) (input_1067)))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err)))))) with -Trx_runtime.Fail ( ( err ) ) -> let input_1066 = input in +Trx_runtime.Fail ( ( err ) ) -> let input_1063 = input in let __1 = () in -(Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent_aux (_filename) (_text) (input_1066)) with +(Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent_aux (_filename) (_text) (input_1063)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1067, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_1067)) with +| Trx_runtime.Ok ( ( ( input_1064, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_1064)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1068, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1068, -#33 "ocaml_types.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1068)))))))))))) +| Trx_runtime.Ok ( ( ( input_1065, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1065, +#32 "ocaml_types.trx" +( __2 )), ((Trx_runtime.emptyError) (input_1065)))))))))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err))) in (Hashtbl.add (memo_Ocaml_types_typeIdent_err) (input) (res)) ; res) ) let rec try_Ocaml_types_BoolT = -#29 "ocaml_types.trx" -(fun _filename _text input -> let _len = ((String.length) (_text)) -and _get_char = ((String.unsafe_get) (_text)) -and _get_sub = ((String.sub) (_text)) in -(match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('b'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('l'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "bool")) ) else ( None )) (input) ("\"bool\"")) with -( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1100, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1100, -#29 "ocaml_types.trx" -( TypeBool )), ((Trx_runtime.emptyError) (input_1100)))))))) -let rec try_Ocaml_types_CharT = #28 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in -(match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('c'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('h'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('r'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "char")) ) else ( None )) (input) ("\"char\"")) with +(match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('b'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('l'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "bool")) ) else ( None )) (input) ("\"bool\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1099, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1099, +| Trx_runtime.Ok ( ( ( input_1096, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1096, #28 "ocaml_types.trx" -( TypeChar )), ((Trx_runtime.emptyError) (input_1099)))))))) +( TypeBool )), ((Trx_runtime.emptyError) (input_1096)))))))) let rec try_Ocaml_types_FloatT = #25 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -5131,9 +5109,9 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('f'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('t'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "float")) ) else ( None )) (input) ("\"float\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1098, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1098, +| Trx_runtime.Ok ( ( ( input_1095, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1095, #25 "ocaml_types.trx" -( TypeFloat )), ((Trx_runtime.emptyError) (input_1098)))))))) +( TypeFloat )), ((Trx_runtime.emptyError) (input_1095)))))))) let rec try_Ocaml_types_Int64T = #24 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -5141,9 +5119,9 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('6'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('4'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "int64")) ) else ( None )) (input) ("\"int64\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1097, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1097, +| Trx_runtime.Ok ( ( ( input_1094, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1094, #24 "ocaml_types.trx" -( TypeInt64 )), ((Trx_runtime.emptyError) (input_1097)))))))) +( TypeInt64 )), ((Trx_runtime.emptyError) (input_1094)))))))) let rec try_Ocaml_types_IntT = #23 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -5151,9 +5129,9 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "int")) ) else ( None )) (input) ("\"int\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1096, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1096, +| Trx_runtime.Ok ( ( ( input_1093, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1093, #23 "ocaml_types.trx" -( TypeInt )), ((Trx_runtime.emptyError) (input_1096)))))))) +( TypeInt )), ((Trx_runtime.emptyError) (input_1093)))))))) let rec try_Ocaml_types_StringT = #26 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -5161,9 +5139,9 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (6))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('g'))) (true)))))))))))))) ) then ( Some(((((+)) (input) (6)), "string")) ) else ( None )) (input) ("\"string\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1095, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1095, +| Trx_runtime.Ok ( ( ( input_1092, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1092, #26 "ocaml_types.trx" -( TypeString )), ((Trx_runtime.emptyError) (input_1095)))))))) +( TypeString )), ((Trx_runtime.emptyError) (input_1092)))))))) let rec try_Ocaml_types_UnitT = #27 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -5171,9 +5149,9 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('t'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "unit")) ) else ( None )) (input) ("\"unit\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1094, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1094, +| Trx_runtime.Ok ( ( ( input_1091, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1091, #27 "ocaml_types.trx" -( TypeUnit )), ((Trx_runtime.emptyError) (input_1094)))))))) +( TypeUnit )), ((Trx_runtime.emptyError) (input_1091)))))))) let rec try_Ocaml_types_typeconst = #22 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -5184,39 +5162,35 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (try_Ocaml_types_IntT (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1052, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1052, __1), ((Trx_runtime.emptyError) (input_1052))))))) with +| Trx_runtime.Ok ( ( ( input_1049, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1049, __1), ((Trx_runtime.emptyError) (input_1049))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_Int64T (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1051, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1051, __1), ((Trx_runtime.emptyError) (input_1051))))))) with +| Trx_runtime.Ok ( ( ( input_1048, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1048, __1), ((Trx_runtime.emptyError) (input_1048))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_FloatT (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1050, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1050, __1), ((Trx_runtime.emptyError) (input_1050))))))) with +| Trx_runtime.Ok ( ( ( input_1047, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1047, __1), ((Trx_runtime.emptyError) (input_1047))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_StringT (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1049, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1049, __1), ((Trx_runtime.emptyError) (input_1049))))))) with +| Trx_runtime.Ok ( ( ( input_1046, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1046, __1), ((Trx_runtime.emptyError) (input_1046))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_UnitT (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1048, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1048, __1), ((Trx_runtime.emptyError) (input_1048))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_CharT (_filename) (_text) (input)) with -( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1047, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1047, __1), ((Trx_runtime.emptyError) (input_1047))))))) with +| Trx_runtime.Ok ( ( ( input_1045, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1045, __1), ((Trx_runtime.emptyError) (input_1045))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_BoolT (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1046, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1046, __1), ((Trx_runtime.emptyError) (input_1046))))))))) -| ( _ok ) as __pat_var -> __pat_var))) +| Trx_runtime.Ok ( ( ( input_1044, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1044, __1), ((Trx_runtime.emptyError) (input_1044))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1045, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1045, +| Trx_runtime.Ok ( ( ( input_1043, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1043, #22 "ocaml_types.trx" -( TypeConst __1 )), ((Trx_runtime.emptyError) (input_1045))))))) in +( TypeConst __1 )), ((Trx_runtime.emptyError) (input_1043))))))) in (Hashtbl.add (memo_Ocaml_types_typeconst_err) (input) (res)) ; res) ) let rec try_Ocaml_types_typename = -#36 "ocaml_types.trx" +#35 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5225,24 +5199,24 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_types_typeconstructor (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_991, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_991) (_len)) ) then ( let c = ((_get_char) (input_991)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_991)), c)) ) else ( None ) ) else ( None )) (input_991) (((Trx_runtime.Expected(("'.'")))::([])))) with +| Trx_runtime.Ok ( ( ( input_989, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_989) (_len)) ) then ( let c = ((_get_char) (input_989)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_989)), c)) ) else ( None ) ) else ( None )) (input_989) (((Trx_runtime.Expected(("'.'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_992, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typename (_filename) (_text) (input_992)) with +| Trx_runtime.Ok ( ( ( input_990, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typename (_filename) (_text) (input_990)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_993, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_993, -#36 "ocaml_types.trx" -( __1 :: __3 )), ((Trx_runtime.emptyError) (input_993))))))))))))) with +| Trx_runtime.Ok ( ( ( input_991, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_991, +#35 "ocaml_types.trx" +( __1 :: __3 )), ((Trx_runtime.emptyError) (input_991))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_990, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_990, -#37 "ocaml_types.trx" -( [__1] )), ((Trx_runtime.emptyError) (input_990))))))))) +| Trx_runtime.Ok ( ( ( input_988, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_988, +#36 "ocaml_types.trx" +( [__1] )), ((Trx_runtime.emptyError) (input_988))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typename_err) (input) (res)) ; res) ) let rec try_Ocaml_types_typevar = -#35 "ocaml_types.trx" +#34 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5252,15 +5226,15 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('\'')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'''")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_969, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent (_filename) (_text) (input_969)) with +| Trx_runtime.Ok ( ( ( input_967, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent (_filename) (_text) (input_967)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_970, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_970, -#35 "ocaml_types.trx" -( TypeVar ("'" ^ __2) )), ((Trx_runtime.emptyError) (input_970)))))))))) in +| Trx_runtime.Ok ( ( ( input_968, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_968, +#34 "ocaml_types.trx" +( TypeVar ("'" ^ __2) )), ((Trx_runtime.emptyError) (input_968)))))))))) in (Hashtbl.add (memo_Ocaml_types_typevar_err) (input) (res)) ; res) ) let rec try_Ocaml_types_typevarorname = -#46 "ocaml_types.trx" +#45 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5269,31 +5243,31 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_types_typevar (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_968, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_968, __1), ((Trx_runtime.emptyError) (input_968))))))) with +| Trx_runtime.Ok ( ( ( input_966, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_966, __1), ((Trx_runtime.emptyError) (input_966))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_types_typeconst (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_966, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent_cont (_filename) (_text) (input_966)) with -Trx_runtime.Fail ( ( err ) ) -> let input_967 = input_966 in +| Trx_runtime.Ok ( ( ( input_964, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent_cont (_filename) (_text) (input_964)) with +Trx_runtime.Fail ( ( err ) ) -> let input_965 = input_964 in let __2 = () in -(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_967, __1), ((Trx_runtime.emptyError) (input_967)))))) +(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_965, __1), ((Trx_runtime.emptyError) (input_965)))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err)))))) with -Trx_runtime.Fail ( ( err ) ) -> let input_964 = input in +Trx_runtime.Fail ( ( err ) ) -> let input_962 = input in let __1 = () in -(Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typename (_filename) (_text) (input_964)) with +(Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typename (_filename) (_text) (input_962)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_965, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_965, -#46 "ocaml_types.trx" -( TypeName ([], __2) )), ((Trx_runtime.emptyError) (input_965))))))))) +| Trx_runtime.Ok ( ( ( input_963, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_963, +#45 "ocaml_types.trx" +( TypeName ([], __2) )), ((Trx_runtime.emptyError) (input_963))))))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeconst (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_962, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_962)) with +| Trx_runtime.Ok ( ( ( input_960, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_960)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_963, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_963, -#46 "ocaml_types.trx" -( __1 )), ((Trx_runtime.emptyError) (input_963)))))))))))) +| Trx_runtime.Ok ( ( ( input_961, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_961, +#45 "ocaml_types.trx" +( __1 )), ((Trx_runtime.emptyError) (input_961)))))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typevarorname_err) (input) (res)) ; res) @@ -5309,13 +5283,13 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) (',')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("','")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1878, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1878)) with +| Trx_runtime.Ok ( ( ( input_1874, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1874)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1879, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1879, ( () )), ((Trx_runtime.emptyError) (input_1879)))))))))) in +| Trx_runtime.Ok ( ( ( input_1875, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1875, ( () )), ((Trx_runtime.emptyError) (input_1875)))))))))) in (Hashtbl.add (memo_Default_comma_err) (input) (res)) ; res) ) let rec try_Ocaml_types_typedef_base = -#65 "ocaml_types.trx" +#64 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5324,29 +5298,29 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_types_typeSum (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1017, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1017, __1), ((Trx_runtime.emptyError) (input_1017))))))) with +| Trx_runtime.Ok ( ( ( input_1015, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1015, __1), ((Trx_runtime.emptyError) (input_1015))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_typerecord (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1016, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1016, __1), ((Trx_runtime.emptyError) (input_1016))))))) with +| Trx_runtime.Ok ( ( ( input_1014, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1014, __1), ((Trx_runtime.emptyError) (input_1014))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_typevarorname (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1015, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1015, __1), ((Trx_runtime.emptyError) (input_1015))))))) with +| Trx_runtime.Ok ( ( ( input_1013, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1013, __1), ((Trx_runtime.emptyError) (input_1013))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1012, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_1012)) with +| Trx_runtime.Ok ( ( ( input_1010, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_1010)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1013, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1013)) with +| Trx_runtime.Ok ( ( ( input_1011, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1011)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1014, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1014, -#67 "ocaml_types.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1014))))))))))))))) +| Trx_runtime.Ok ( ( ( input_1012, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1012, +#66 "ocaml_types.trx" +( __2 )), ((Trx_runtime.emptyError) (input_1012))))))))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typedef_base_err) (input) (res)) ; res) ) and try_Ocaml_types_typeSum = -#98 "ocaml_types.trx" +#97 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5355,29 +5329,29 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_types_typeconstructor (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1053, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1053) (_len)) ) then ( let c = ((_get_char) (input_1053)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1053)), c)) ) else ( None ) ) else ( None )) (input_1053) (((Trx_runtime.Expected(("'.'")))::([])))) with -Trx_runtime.Fail ( ( err ) ) -> let input_1054 = input_1053 in +| Trx_runtime.Ok ( ( ( input_1050, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1050) (_len)) ) then ( let c = ((_get_char) (input_1050)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1050)), c)) ) else ( None ) ) else ( None )) (input_1050) (((Trx_runtime.Expected(("'.'")))::([])))) with +Trx_runtime.Fail ( ( err ) ) -> let input_1051 = input_1050 in let __2 = () in -(Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_OF (_filename) (_text) (input_1054)) with +(Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_OF (_filename) (_text) (input_1051)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1056, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_1056)) with +| Trx_runtime.Ok ( ( ( input_1053, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_1053)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1057, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1057, -#98 "ocaml_types.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1057)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1054, None), err)) -| Trx_runtime.Ok ( ( ( input_1058, r ), err ) ) -> Trx_runtime.Ok(((input_1058, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1054, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1054, +#97 "ocaml_types.trx" +( __2 )), ((Trx_runtime.emptyError) (input_1054)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1051, None), err)) +| Trx_runtime.Ok ( ( ( input_1055, r ), err ) ) -> Trx_runtime.Ok(((input_1055, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1055, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1055, -#98 "ocaml_types.trx" -( TypeConstructor [__1, __3] )), ((Trx_runtime.emptyError) (input_1055))))))))) +| Trx_runtime.Ok ( ( ( input_1052, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1052, +#97 "ocaml_types.trx" +( TypeConstructor [__1, __3] )), ((Trx_runtime.emptyError) (input_1052))))))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err)))))) in (Hashtbl.add (memo_Ocaml_types_typeSum_err) (input) (res)) ; res) ) and try_Ocaml_types_typedef_no_arrow = -#82 "ocaml_types.trx" +#81 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5386,28 +5360,28 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_types_typedef_aux (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1006, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1008 -> (match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1008) (_len)) ) then ( let c = ((_get_char) (input_1008)) in -if ( (((=)) (c) ('*')) ) then ( Some((((succ) (input_1008)), c)) ) else ( None ) ) else ( None )) (input_1008) (((Trx_runtime.Expected(("'*'")))::([])))) with +| Trx_runtime.Ok ( ( ( input_1004, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1006 -> (match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1006) (_len)) ) then ( let c = ((_get_char) (input_1006)) in +if ( (((=)) (c) ('*')) ) then ( Some((((succ) (input_1006)), c)) ) else ( None ) ) else ( None )) (input_1006) (((Trx_runtime.Expected(("'*'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1009, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_1009)) with +| Trx_runtime.Ok ( ( ( input_1007, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_1007)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1010, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef_aux (_filename) (_text) (input_1010)) with +| Trx_runtime.Ok ( ( ( input_1008, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef_aux (_filename) (_text) (input_1008)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1011, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1011, -#82 "ocaml_types.trx" -( __3 )), ((Trx_runtime.emptyError) (input_1011))))))))))))))) (input_1006)) with +| Trx_runtime.Ok ( ( ( input_1009, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1009, +#81 "ocaml_types.trx" +( __3 )), ((Trx_runtime.emptyError) (input_1009))))))))))))))) (input_1004)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1007, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1007, -#82 "ocaml_types.trx" +| Trx_runtime.Ok ( ( ( input_1005, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1005, +#81 "ocaml_types.trx" ( match (__1::__2) with | [] -> failwith "@Ocaml_types.typedef_no_arrow : empty type tuple" | [td] -> td | tdl -> TypeTuple tdl - )), ((Trx_runtime.emptyError) (input_1007)))))))))) in + )), ((Trx_runtime.emptyError) (input_1005)))))))))) in (Hashtbl.add (memo_Ocaml_types_typedef_no_arrow_err) (input) (res)) ; res) ) and try_Ocaml_types_typedef = -#89 "ocaml_types.trx" +#88 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5416,23 +5390,23 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_types_typedef_no_arrow (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1023, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rightarrow (_filename) (_text) (input_1023)) with +| Trx_runtime.Ok ( ( ( input_1021, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rightarrow (_filename) (_text) (input_1021)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1024, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_1024)) with +| Trx_runtime.Ok ( ( ( input_1022, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_1022)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1025, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1025, -#90 "ocaml_types.trx" -( TypeArrow ( __1, __3) )), ((Trx_runtime.emptyError) (input_1025))))))))))))) with +| Trx_runtime.Ok ( ( ( input_1023, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1023, +#89 "ocaml_types.trx" +( TypeArrow ( __1, __3) )), ((Trx_runtime.emptyError) (input_1023))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef_no_arrow (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1022, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1022, -#91 "ocaml_types.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1022))))))))) +| Trx_runtime.Ok ( ( ( input_1020, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1020, +#90 "ocaml_types.trx" +( __1 )), ((Trx_runtime.emptyError) (input_1020))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typedef_err) (input) (res)) ; res) ) and try_Ocaml_types_onetyperecord = -#95 "ocaml_types.trx" +#94 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5441,21 +5415,21 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_keywords_MUTABLE (_filename) (_text) (input)) with Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input, None), err)) -| Trx_runtime.Ok ( ( ( input_1085, r ), err ) ) -> Trx_runtime.Ok(((input_1085, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1082, r ), err ) ) -> Trx_runtime.Ok(((input_1082, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1081, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent (_filename) (_text) (input_1081)) with +| Trx_runtime.Ok ( ( ( input_1078, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent (_filename) (_text) (input_1078)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1082, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_colon (_filename) (_text) (input_1082)) with +| Trx_runtime.Ok ( ( ( input_1079, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_colon (_filename) (_text) (input_1079)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1083, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_1083)) with +| Trx_runtime.Ok ( ( ( input_1080, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_1080)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1084, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1084, -#95 "ocaml_types.trx" -( (match __1 with None -> false | _ -> true), __2, __4 )), ((Trx_runtime.emptyError) (input_1084)))))))))))))))) in +| Trx_runtime.Ok ( ( ( input_1081, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1081, +#94 "ocaml_types.trx" +( (match __1 with None -> false | _ -> true), __2, __4 )), ((Trx_runtime.emptyError) (input_1081)))))))))))))))) in (Hashtbl.add (memo_Ocaml_types_onetyperecord_err) (input) (res)) ; res) ) and try_Ocaml_types_typerecord_aux = -#96 "ocaml_types.trx" +#95 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5464,25 +5438,25 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_types_onetyperecord (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_971, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_975 -> (match (try_Default_semi (_filename) (_text) (input_975)) with +| Trx_runtime.Ok ( ( ( input_969, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_973 -> (match (try_Default_semi (_filename) (_text) (input_973)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_976, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_onetyperecord (_filename) (_text) (input_976)) with +| Trx_runtime.Ok ( ( ( input_974, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_onetyperecord (_filename) (_text) (input_974)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_977, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_977, -#96 "ocaml_types.trx" -( __2 )), ((Trx_runtime.emptyError) (input_977)))))))))))) (input_971)) with +| Trx_runtime.Ok ( ( ( input_975, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_975, +#95 "ocaml_types.trx" +( __2 )), ((Trx_runtime.emptyError) (input_975)))))))))))) (input_969)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_972, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_semi (_filename) (_text) (input_972)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_972, None), err)) -| Trx_runtime.Ok ( ( ( input_974, r ), err ) ) -> Trx_runtime.Ok(((input_974, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_970, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_semi (_filename) (_text) (input_970)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_970, None), err)) +| Trx_runtime.Ok ( ( ( input_972, r ), err ) ) -> Trx_runtime.Ok(((input_972, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_973, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_973, -#96 "ocaml_types.trx" -( __1 ::__2 )), ((Trx_runtime.emptyError) (input_973))))))))))))) in +| Trx_runtime.Ok ( ( ( input_971, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_971, +#95 "ocaml_types.trx" +( __1 ::__2 )), ((Trx_runtime.emptyError) (input_971))))))))))))) in (Hashtbl.add (memo_Ocaml_types_typerecord_aux_err) (input) (res)) ; res) ) and try_Ocaml_types_typerecord = -#102 "ocaml_types.trx" +#101 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5491,21 +5465,21 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_laccol (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_978, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_typerecord_aux (_filename) (_text) (input_978)) with +| Trx_runtime.Ok ( ( ( input_976, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_typerecord_aux (_filename) (_text) (input_976)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_981, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_981, -#102 "ocaml_types.trx" -( TypeRecord __1 )), ((Trx_runtime.emptyError) (input_981))))))) with +| Trx_runtime.Ok ( ( ( input_979, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_979, +#101 "ocaml_types.trx" +( TypeRecord __1 )), ((Trx_runtime.emptyError) (input_979))))))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_979, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_raccol (_filename) (_text) (input_979)) with +| Trx_runtime.Ok ( ( ( input_977, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_raccol (_filename) (_text) (input_977)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_980, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_980, -#101 "ocaml_types.trx" -( __2 )), ((Trx_runtime.emptyError) (input_980))))))))))))) in +| Trx_runtime.Ok ( ( ( input_978, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_978, +#100 "ocaml_types.trx" +( __2 )), ((Trx_runtime.emptyError) (input_978))))))))))))) in (Hashtbl.add (memo_Ocaml_types_typerecord_err) (input) (res)) ; res) ) and try_Ocaml_types_typeparam = -#69 "ocaml_types.trx" +#68 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5514,31 +5488,31 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Default_lparen (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_983, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_983)) with +| Trx_runtime.Ok ( ( ( input_981, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_981)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_984, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_987 -> (match (try_Default_comma (_filename) (_text) (input_987)) with +| Trx_runtime.Ok ( ( ( input_982, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_985 -> (match (try_Default_comma (_filename) (_text) (input_985)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_988, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_988)) with +| Trx_runtime.Ok ( ( ( input_986, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_986)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_989, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_989, -#70 "ocaml_types.trx" -( __2 )), ((Trx_runtime.emptyError) (input_989)))))))))))) (input_984)) with +| Trx_runtime.Ok ( ( ( input_987, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_987, +#69 "ocaml_types.trx" +( __2 )), ((Trx_runtime.emptyError) (input_987)))))))))))) (input_982)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_985, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_985)) with +| Trx_runtime.Ok ( ( ( input_983, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_983)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_986, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_986, -#70 "ocaml_types.trx" -( __2 :: __3 )), ((Trx_runtime.emptyError) (input_986)))))))))))))))) with +| Trx_runtime.Ok ( ( ( input_984, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_984, +#69 "ocaml_types.trx" +( __2 :: __3 )), ((Trx_runtime.emptyError) (input_984)))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef_base (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_982, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_982, -#71 "ocaml_types.trx" -( [__1] )), ((Trx_runtime.emptyError) (input_982))))))))) +| Trx_runtime.Ok ( ( ( input_980, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_980, +#70 "ocaml_types.trx" +( [__1] )), ((Trx_runtime.emptyError) (input_980))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typeparam_err) (input) (res)) ; res) ) and try_Ocaml_types_typedef_aux = -#73 "ocaml_types.trx" +#72 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -5547,18 +5521,18 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_types_typeparam (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1019, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (true) ((fun input_1021 -> (try_Ocaml_types_typename (_filename) (_text) (input_1021)))) (input_1019)) with +| Trx_runtime.Ok ( ( ( input_1017, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (true) ((fun input_1019 -> (try_Ocaml_types_typename (_filename) (_text) (input_1019)))) (input_1017)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1020, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1020, -#74 "ocaml_types.trx" +| Trx_runtime.Ok ( ( ( input_1018, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1018, +#73 "ocaml_types.trx" ( match __2 with | hd :: tl -> List.fold_left (fun acc x -> TypeName ([acc], x)) (TypeName (__1, hd)) tl | _ -> assert false - )), ((Trx_runtime.emptyError) (input_1020)))))))))) with + )), ((Trx_runtime.emptyError) (input_1018)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef_base (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1018, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1018, __1), ((Trx_runtime.emptyError) (input_1018))))))))) +| Trx_runtime.Ok ( ( ( input_1016, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1016, __1), ((Trx_runtime.emptyError) (input_1016))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typedef_aux_err) (input) (res)) ; res) ) @@ -5572,11 +5546,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('&'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('&'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "&&")) ) else ( None )) (input) ("\"&&\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1254, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1254)) with +| Trx_runtime.Ok ( ( ( input_1250, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1250)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1255, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1255, +| Trx_runtime.Ok ( ( ( input_1251, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1251, #380 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1255)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1251)))))))))) in (Hashtbl.add (memo_Ocaml_parser_op_and_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_GETREF = @@ -5589,9 +5563,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input) (2)), ":=")) ) else ( None )) (input) ("\":=\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1684, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1684)) with +| Trx_runtime.Ok ( ( ( input_1680, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1680)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1685, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1685, ( () )), ((Trx_runtime.emptyError) (input_1685)))))))))) in +| Trx_runtime.Ok ( ( ( input_1681, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1681, ( () )), ((Trx_runtime.emptyError) (input_1681)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_GETREF_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_op_or = @@ -5607,11 +5581,11 @@ Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((<)) ((((+) | 'o' -> if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('r'))) (true)))) ) then ( Some(((((+)) (input) (2)), "or")) ) else ( None ) | _ -> None) ) else ( None )) (input) ("\"or\" or \"||\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1238, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1238)) with +| Trx_runtime.Ok ( ( ( input_1234, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1234)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1239, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1239, +| Trx_runtime.Ok ( ( ( input_1235, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1235, #381 "ocaml_parser.trx" -( "||" )), ((Trx_runtime.emptyError) (input_1239)))))))))) in +( "||" )), ((Trx_runtime.emptyError) (input_1235)))))))))) in (Hashtbl.add (memo_Ocaml_parser_op_or_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_InfOpLevel1 = @@ -5624,16 +5598,16 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (try_Ocaml_parser_op_and (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1518, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1518, __1), ((Trx_runtime.emptyError) (input_1518))))))) with +| Trx_runtime.Ok ( ( ( input_1514, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1514, __1), ((Trx_runtime.emptyError) (input_1514))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_op_or (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1517, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1517, __1), ((Trx_runtime.emptyError) (input_1517))))))))) +| Trx_runtime.Ok ( ( ( input_1513, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1513, __1), ((Trx_runtime.emptyError) (input_1513))))))))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1516, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1516, +| Trx_runtime.Ok ( ( ( input_1512, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1512, #355 "ocaml_parser.trx" ( Ocaml.make_Var __1 - )), ((Trx_runtime.emptyError) (input_1516))))))) in + )), ((Trx_runtime.emptyError) (input_1512))))))) in (Hashtbl.add (memo_Ocaml_parser_InfOpLevel1_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_GE = @@ -5646,11 +5620,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('>'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input) (2)), ">=")) ) else ( None )) (input) ("\">=\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1531, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1531)) with +| Trx_runtime.Ok ( ( ( input_1527, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1527)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1532, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1532, +| Trx_runtime.Ok ( ( ( input_1528, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1528, #396 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1532)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1528)))))))))) in (Hashtbl.add (memo_Ocaml_parser_GE_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_GT = @@ -5663,11 +5637,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('>'))) (true)))) ) then ( Some(((((+)) (input) (1)), ">")) ) else ( None )) (input) ("\">\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1529, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1529)) with +| Trx_runtime.Ok ( ( ( input_1525, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1525)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1530, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1530, +| Trx_runtime.Ok ( ( ( input_1526, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1526, #394 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1530)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1526)))))))))) in (Hashtbl.add (memo_Ocaml_parser_GT_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_LE = @@ -5680,11 +5654,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('<'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input) (2)), "<=")) ) else ( None )) (input) ("\"<=\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1495, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1495)) with +| Trx_runtime.Ok ( ( ( input_1491, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1491)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1496, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1496, +| Trx_runtime.Ok ( ( ( input_1492, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1492, #395 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1496)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1492)))))))))) in (Hashtbl.add (memo_Ocaml_parser_LE_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_LT = @@ -5697,11 +5671,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('<'))) (true)))) ) then ( Some(((((+)) (input) (1)), "<")) ) else ( None )) (input) ("\"<\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1493, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1493)) with +| Trx_runtime.Ok ( ( ( input_1489, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1489)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1494, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1494, +| Trx_runtime.Ok ( ( ( input_1490, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1490, #393 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1494)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1490)))))))))) in (Hashtbl.add (memo_Ocaml_parser_LT_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_op_equal = @@ -5714,11 +5688,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('='))) (true)))) ) then ( Some(((((+)) (input) (1)), "=")) ) else ( None )) (input) ("\"=\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1248, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1248)) with +| Trx_runtime.Ok ( ( ( input_1244, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1244)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1249, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1249, +| Trx_runtime.Ok ( ( ( input_1245, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1245, #382 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1249)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1245)))))))))) in (Hashtbl.add (memo_Ocaml_parser_op_equal_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_op_notequal = @@ -5731,11 +5705,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('<'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('>'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "<>")) ) else ( None )) (input) ("\"<>\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1242, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1242)) with +| Trx_runtime.Ok ( ( ( input_1238, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1238)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1243, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1243, +| Trx_runtime.Ok ( ( ( input_1239, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1239, #385 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1243)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1239)))))))))) in (Hashtbl.add (memo_Ocaml_parser_op_notequal_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_op_notequal_struct = @@ -5748,11 +5722,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('!'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input) (2)), "!=")) ) else ( None )) (input) ("\"!=\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1240, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1240)) with +| Trx_runtime.Ok ( ( ( input_1236, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1236)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1241, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1241, +| Trx_runtime.Ok ( ( ( input_1237, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1237, #384 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1241)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1237)))))))))) in (Hashtbl.add (memo_Ocaml_parser_op_notequal_struct_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_SPECIALS = @@ -5787,11 +5761,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_SPECIALS (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1236, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1236)) with +| Trx_runtime.Ok ( ( ( input_1232, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1232)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1237, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1237, +| Trx_runtime.Ok ( ( ( input_1233, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1233, #391 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1237)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1233)))))))))) in (Hashtbl.add (memo_Ocaml_parser_op_special_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_InfOpLevel2 = @@ -5804,28 +5778,28 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (match (try_Ocaml_parser_op_equal_struct (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1515, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1515, __1), ((Trx_runtime.emptyError) (input_1515))))))) with +| Trx_runtime.Ok ( ( ( input_1511, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1511, __1), ((Trx_runtime.emptyError) (input_1511))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_op_equal (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1514, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1514, __1), ((Trx_runtime.emptyError) (input_1514))))))) with +| Trx_runtime.Ok ( ( ( input_1510, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1510, __1), ((Trx_runtime.emptyError) (input_1510))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_op_notequal (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1513, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1513, __1), ((Trx_runtime.emptyError) (input_1513))))))) with +| Trx_runtime.Ok ( ( ( input_1509, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1509, __1), ((Trx_runtime.emptyError) (input_1509))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_op_notequal_struct (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1512, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1512, __1), ((Trx_runtime.emptyError) (input_1512))))))) with +| Trx_runtime.Ok ( ( ( input_1508, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1508, __1), ((Trx_runtime.emptyError) (input_1508))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_LE (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1511, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1511, __1), ((Trx_runtime.emptyError) (input_1511))))))) with +| Trx_runtime.Ok ( ( ( input_1507, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1507, __1), ((Trx_runtime.emptyError) (input_1507))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_GE (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1510, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1510, __1), ((Trx_runtime.emptyError) (input_1510))))))) with +| Trx_runtime.Ok ( ( ( input_1506, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1506, __1), ((Trx_runtime.emptyError) (input_1506))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_LT (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1509, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1509, __1), ((Trx_runtime.emptyError) (input_1509))))))) with +| Trx_runtime.Ok ( ( ( input_1505, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1505, __1), ((Trx_runtime.emptyError) (input_1505))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_GT (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1508, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1508, __1), ((Trx_runtime.emptyError) (input_1508))))))))) +| Trx_runtime.Ok ( ( ( input_1504, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1504, __1), ((Trx_runtime.emptyError) (input_1504))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) @@ -5834,16 +5808,16 @@ Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Oca | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1507, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1507, +| Trx_runtime.Ok ( ( ( input_1503, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1503, #361 "ocaml_parser.trx" ( Ocaml.make_Var __1 - )), ((Trx_runtime.emptyError) (input_1507))))))) with + )), ((Trx_runtime.emptyError) (input_1503))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_op_special (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1506, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1506, +| Trx_runtime.Ok ( ( ( input_1502, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1502, #366 "ocaml_parser.trx" ( Ocaml.make_Var __1 - )), ((Trx_runtime.emptyError) (input_1506))))))))) + )), ((Trx_runtime.emptyError) (input_1502))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_InfOpLevel2_err) (input) (res)) ; res) ) @@ -5857,11 +5831,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('-'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('.'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "-.")) ) else ( None )) (input) ("\"-.\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1537, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1537)) with +| Trx_runtime.Ok ( ( ( input_1533, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1533)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1538, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1538, +| Trx_runtime.Ok ( ( ( input_1534, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1534, #409 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1538)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1534)))))))))) in (Hashtbl.add (memo_Ocaml_parser_FMINUS_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_IMINUS = @@ -5874,11 +5848,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('-'))) (true)))) ) then ( Some(((((+)) (input) (1)), "-")) ) else ( None )) (input) ("\"-\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1523, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1523)) with +| Trx_runtime.Ok ( ( ( input_1519, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1519)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1524, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1524, +| Trx_runtime.Ok ( ( ( input_1520, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1520, #404 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1524)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1520)))))))))) in (Hashtbl.add (memo_Ocaml_parser_IMINUS_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_MINUS = @@ -5891,10 +5865,10 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_FMINUS (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1448, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1448, __1), ((Trx_runtime.emptyError) (input_1448))))))) with +| Trx_runtime.Ok ( ( ( input_1444, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1444, __1), ((Trx_runtime.emptyError) (input_1444))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_IMINUS (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1447, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1447, __1), ((Trx_runtime.emptyError) (input_1447))))))))) +| Trx_runtime.Ok ( ( ( input_1443, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1443, __1), ((Trx_runtime.emptyError) (input_1443))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_MINUS_err) (input) (res)) ; res) ) @@ -5908,11 +5882,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('+'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('.'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "+.")) ) else ( None )) (input) ("\"+.\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1533, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1533)) with +| Trx_runtime.Ok ( ( ( input_1529, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1529)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1534, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1534, +| Trx_runtime.Ok ( ( ( input_1530, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1530, #408 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1534)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1530)))))))))) in (Hashtbl.add (memo_Ocaml_parser_FPLUS_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_IPLUS = @@ -5925,11 +5899,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('+'))) (true)))) ) then ( Some(((((+)) (input) (1)), "+")) ) else ( None )) (input) ("\"+\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1519, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1519)) with +| Trx_runtime.Ok ( ( ( input_1515, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1515)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1520, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1520, +| Trx_runtime.Ok ( ( ( input_1516, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1516, #403 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1520)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1516)))))))))) in (Hashtbl.add (memo_Ocaml_parser_IPLUS_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_PLUS = @@ -5942,10 +5916,10 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_FPLUS (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1376, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1376, __1), ((Trx_runtime.emptyError) (input_1376))))))) with +| Trx_runtime.Ok ( ( ( input_1372, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1372, __1), ((Trx_runtime.emptyError) (input_1372))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_IPLUS (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1375, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1375, __1), ((Trx_runtime.emptyError) (input_1375))))))))) +| Trx_runtime.Ok ( ( ( input_1371, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1371, __1), ((Trx_runtime.emptyError) (input_1371))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_PLUS_err) (input) (res)) ; res) ) @@ -5959,11 +5933,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('@'))) (true)))) ) then ( Some(((((+)) (input) (1)), "@")) ) else ( None )) (input) ("\"@\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1252, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1252)) with +| Trx_runtime.Ok ( ( ( input_1248, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1248)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1253, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1253, +| Trx_runtime.Ok ( ( ( input_1249, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1249, #388 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1253)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1249)))))))))) in (Hashtbl.add (memo_Ocaml_parser_op_aro_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_op_concat = @@ -5976,11 +5950,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('^'))) (true)))) ) then ( Some(((((+)) (input) (1)), "^")) ) else ( None )) (input) ("\"^\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1250, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1250)) with +| Trx_runtime.Ok ( ( ( input_1246, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1246)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1251, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1251, +| Trx_runtime.Ok ( ( ( input_1247, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1247, #387 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1251)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1247)))))))))) in (Hashtbl.add (memo_Ocaml_parser_op_concat_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_op_logic = @@ -5993,11 +5967,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('r'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "asr")) ) else ( None )) (input) ("\"asr\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1244, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1244)) with +| Trx_runtime.Ok ( ( ( input_1240, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1240)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1245, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1245, +| Trx_runtime.Ok ( ( ( input_1241, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1241, #389 "ocaml_parser.trx" -( "asr" )), ((Trx_runtime.emptyError) (input_1245)))))))))) in +( "asr" )), ((Trx_runtime.emptyError) (input_1241)))))))))) in (Hashtbl.add (memo_Ocaml_parser_op_logic_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_InfOpLevel3 = @@ -6010,28 +5984,28 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (try_Ocaml_parser_PLUS (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1505, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1505, __1), ((Trx_runtime.emptyError) (input_1505))))))) with +| Trx_runtime.Ok ( ( ( input_1501, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1501, __1), ((Trx_runtime.emptyError) (input_1501))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_MINUS (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1504, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1504, __1), ((Trx_runtime.emptyError) (input_1504))))))) with +| Trx_runtime.Ok ( ( ( input_1500, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1500, __1), ((Trx_runtime.emptyError) (input_1500))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_op_concat (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1503, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1503, __1), ((Trx_runtime.emptyError) (input_1503))))))) with +| Trx_runtime.Ok ( ( ( input_1499, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1499, __1), ((Trx_runtime.emptyError) (input_1499))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_op_aro (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1502, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1502, __1), ((Trx_runtime.emptyError) (input_1502))))))) with +| Trx_runtime.Ok ( ( ( input_1498, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1498, __1), ((Trx_runtime.emptyError) (input_1498))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_op_logic (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1501, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1501, __1), ((Trx_runtime.emptyError) (input_1501))))))))) +| Trx_runtime.Ok ( ( ( input_1497, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1497, __1), ((Trx_runtime.emptyError) (input_1497))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1500, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1500, +| Trx_runtime.Ok ( ( ( input_1496, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1496, #371 "ocaml_parser.trx" ( Ocaml.make_Var __1 - )), ((Trx_runtime.emptyError) (input_1500))))))) in + )), ((Trx_runtime.emptyError) (input_1496))))))) in (Hashtbl.add (memo_Ocaml_parser_InfOpLevel3_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_CONS = @@ -6044,9 +6018,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) (':'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "::")) ) else ( None )) (input) ("\"::\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1704, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1704)) with +| Trx_runtime.Ok ( ( ( input_1700, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1700)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1705, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1705, ( () )), ((Trx_runtime.emptyError) (input_1705)))))))))) in +| Trx_runtime.Ok ( ( ( input_1701, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1701, ( () )), ((Trx_runtime.emptyError) (input_1701)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_CONS_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_FUN = @@ -6059,9 +6033,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('f'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('n'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "fun")) ) else ( None )) (input) ("\"fun\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1688, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1688)) with +| Trx_runtime.Ok ( ( ( input_1684, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1684)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1689, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1689, ( () )), ((Trx_runtime.emptyError) (input_1689)))))))))) in +| Trx_runtime.Ok ( ( ( input_1685, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1685, ( () )), ((Trx_runtime.emptyError) (input_1685)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_FUN_err) (input) (res)) ; res) ) let rec try_Default_equal = @@ -6075,9 +6049,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('=')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'='")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1871, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1871)) with +| Trx_runtime.Ok ( ( ( input_1867, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1867)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1872, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1872, ( () )), ((Trx_runtime.emptyError) (input_1872)))))))))) in +| Trx_runtime.Ok ( ( ( input_1868, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1868, ( () )), ((Trx_runtime.emptyError) (input_1868)))))))))) in (Hashtbl.add (memo_Default_equal_err) (input) (res)) ; res) ) let rec try_Default_question = @@ -6091,9 +6065,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('?')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'?'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1808, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1808)) with +| Trx_runtime.Ok ( ( ( input_1804, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1804)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1809, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1809, ( () )), ((Trx_runtime.emptyError) (input_1809)))))))))) in +| Trx_runtime.Ok ( ( ( input_1805, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1805, ( () )), ((Trx_runtime.emptyError) (input_1805)))))))))) in (Hashtbl.add (memo_Default_question_err) (input) (res)) ; res) ) let rec try_Default_tilde_ = @@ -6104,7 +6078,7 @@ and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('~')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'~'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1720, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1720, ( () )), ((Trx_runtime.emptyError) (input_1720)))))))) +| Trx_runtime.Ok ( ( ( input_1716, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1716, ( () )), ((Trx_runtime.emptyError) (input_1716)))))))) let rec try_Ocaml_parser_mlIdent_cont = #50 "ocaml_parser.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -6113,7 +6087,7 @@ and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((&&)) ((((>=)) (c) ('a'))) ((((<=)) (c) ('z'))))) ((((||)) ((((&&)) ((((>=)) (c) ('A'))) ((((<=)) (c) ('Z'))))) ((((||)) ((((=)) (c) ('_'))) ((((||)) ((((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9'))))) ((((=)) (c) ('\'')))))))))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) ([ Trx_runtime.Expected(("'''")) ; Trx_runtime.Expected(("'_'")) ; Trx_runtime.Expected(("['0'-'9']")) ; Trx_runtime.Expected(("['A'-'Z']")) ; Trx_runtime.Expected(("['a'-'z']")) ])) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1258, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1258, __1), ((Trx_runtime.emptyError) (input_1258)))))))) +| Trx_runtime.Ok ( ( ( input_1254, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1254, __1), ((Trx_runtime.emptyError) (input_1254)))))))) let rec try_Ocaml_parser_mlIdent_aux_ = #51 "ocaml_parser.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) @@ -6125,13 +6099,13 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((&&)) ((((>=)) (c) ('a'))) ((((<=)) (c) ('z'))))) ((((=)) (c) ('_')))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) ([ Trx_runtime.Expected(("'_'")) ; Trx_runtime.Expected(("['a'-'z']")) ])) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1260, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1262 -> (try_Ocaml_parser_mlIdent_cont (_filename) (_text) (input_1262)))) (input_1260)) with +| Trx_runtime.Ok ( ( ( input_1256, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1258 -> (try_Ocaml_parser_mlIdent_cont (_filename) (_text) (input_1258)))) (input_1256)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1261, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1261, (_get_sub (input) ((((-)) (input_1261) (input))))), ((Trx_runtime.emptyError) (input_1261)))))))))) with +| Trx_runtime.Ok ( ( ( input_1257, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1257, (_get_sub (input) ((((-)) (input_1257) (input))))), ((Trx_runtime.emptyError) (input_1257)))))))))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1259, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1259, +| Trx_runtime.Ok ( ( ( input_1255, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1255, #51 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1259))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1255))))))) in (Hashtbl.add (memo_Ocaml_parser_mlIdent_aux__err) (input) (res)) ; res) ) let rec try_Ocaml_parser_mlIdent_aux = @@ -6144,11 +6118,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_mlIdent_aux_ (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1263, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1263)) with +| Trx_runtime.Ok ( ( ( input_1259, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1259)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1264, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1264, +| Trx_runtime.Ok ( ( ( input_1260, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1260, #52 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1264)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1260)))))))))) in (Hashtbl.add (memo_Ocaml_parser_mlIdent_aux_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_mlIdent = @@ -6161,36 +6135,36 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (try_Ocaml_keywords_KEYWORDS (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1277, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_cont (_filename) (_text) (input_1277)) with -Trx_runtime.Fail ( ( err ) ) -> let input_1278 = input_1277 in +| Trx_runtime.Ok ( ( ( input_1273, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_cont (_filename) (_text) (input_1273)) with +Trx_runtime.Fail ( ( err ) ) -> let input_1274 = input_1273 in let __2 = () in -(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1278, __1), ((Trx_runtime.emptyError) (input_1278)))))) +(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1274, __1), ((Trx_runtime.emptyError) (input_1274)))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err)))))) with -Trx_runtime.Fail ( ( err ) ) -> let input_1275 = input in +Trx_runtime.Fail ( ( err ) ) -> let input_1271 = input in let __1 = () in -(Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_aux (_filename) (_text) (input_1275)) with +(Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_aux (_filename) (_text) (input_1271)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1276, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1276, +| Trx_runtime.Ok ( ( ( input_1272, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1272, #53 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1276))))))))) +( __2 )), ((Trx_runtime.emptyError) (input_1272))))))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1269, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1269) (_len)) ) then ( let c = ((_get_char) (input_1269)) in -if ( (((||)) ((((=)) (c) ('!'))) ((((||)) ((((=)) (c) ('$'))) ((((||)) ((((=)) (c) ('%'))) ((((||)) ((((=)) (c) ('&'))) ((((||)) ((((=)) (c) ('*'))) ((((||)) ((((&&)) ((((>=)) (c) ('+'))) ((((<=)) (c) ('.'))))) ((((||)) ((((=)) (c) ('/'))) ((((||)) ((((=)) (c) (':'))) ((((||)) ((((=)) (c) ('<'))) ((((||)) ((((=)) (c) ('='))) ((((||)) ((((=)) (c) ('>'))) ((((||)) ((((=)) (c) ('?'))) ((((||)) ((((=)) (c) ('@'))) ((((||)) ((((=)) (c) ('^'))) ((((||)) ((((=)) (c) ('|'))) ((((=)) (c) ('~')))))))))))))))))))))))))))))))) ) then ( Some((((succ) (input_1269)), c)) ) else ( None ) ) else ( None )) (input_1269) ([ Trx_runtime.Expected(("'!'")) ; Trx_runtime.Expected(("'$'")) ; Trx_runtime.Expected(("'%'")) ; Trx_runtime.Expected(("'&'")) ; Trx_runtime.Expected(("'*'")) ; Trx_runtime.Expected(("'/'")) ; Trx_runtime.Expected(("':'")) ; Trx_runtime.Expected(("'<'")) ; Trx_runtime.Expected(("'='")) ; Trx_runtime.Expected(("'>'")) ; Trx_runtime.Expected(("'?'")) ; Trx_runtime.Expected(("'@'")) ; Trx_runtime.Expected(("'^'")) ; Trx_runtime.Expected(("'|'")) ; Trx_runtime.Expected(("'~'")) ; Trx_runtime.Expected(("['+'-'.']")) ])) with +| Trx_runtime.Ok ( ( ( input_1265, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1265) (_len)) ) then ( let c = ((_get_char) (input_1265)) in +if ( (((||)) ((((=)) (c) ('!'))) ((((||)) ((((=)) (c) ('$'))) ((((||)) ((((=)) (c) ('%'))) ((((||)) ((((=)) (c) ('&'))) ((((||)) ((((=)) (c) ('*'))) ((((||)) ((((&&)) ((((>=)) (c) ('+'))) ((((<=)) (c) ('.'))))) ((((||)) ((((=)) (c) ('/'))) ((((||)) ((((=)) (c) (':'))) ((((||)) ((((=)) (c) ('<'))) ((((||)) ((((=)) (c) ('='))) ((((||)) ((((=)) (c) ('>'))) ((((||)) ((((=)) (c) ('?'))) ((((||)) ((((=)) (c) ('@'))) ((((||)) ((((=)) (c) ('^'))) ((((||)) ((((=)) (c) ('|'))) ((((=)) (c) ('~')))))))))))))))))))))))))))))))) ) then ( Some((((succ) (input_1265)), c)) ) else ( None ) ) else ( None )) (input_1265) ([ Trx_runtime.Expected(("'!'")) ; Trx_runtime.Expected(("'$'")) ; Trx_runtime.Expected(("'%'")) ; Trx_runtime.Expected(("'&'")) ; Trx_runtime.Expected(("'*'")) ; Trx_runtime.Expected(("'/'")) ; Trx_runtime.Expected(("':'")) ; Trx_runtime.Expected(("'<'")) ; Trx_runtime.Expected(("'='")) ; Trx_runtime.Expected(("'>'")) ; Trx_runtime.Expected(("'?'")) ; Trx_runtime.Expected(("'@'")) ; Trx_runtime.Expected(("'^'")) ; Trx_runtime.Expected(("'|'")) ; Trx_runtime.Expected(("'~'")) ; Trx_runtime.Expected(("['+'-'.']")) ])) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1272, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1274 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1274) (_len)) ) then ( let c = ((_get_char) (input_1274)) in -if ( (((||)) ((((=)) (c) ('!'))) ((((||)) ((((=)) (c) ('$'))) ((((||)) ((((=)) (c) ('%'))) ((((||)) ((((=)) (c) ('&'))) ((((||)) ((((=)) (c) ('*'))) ((((||)) ((((&&)) ((((>=)) (c) ('+'))) ((((<=)) (c) ('.'))))) ((((||)) ((((=)) (c) ('/'))) ((((||)) ((((=)) (c) (':'))) ((((||)) ((((=)) (c) ('<'))) ((((||)) ((((=)) (c) ('='))) ((((||)) ((((=)) (c) ('>'))) ((((||)) ((((=)) (c) ('?'))) ((((||)) ((((=)) (c) ('@'))) ((((||)) ((((=)) (c) ('^'))) ((((||)) ((((=)) (c) ('|'))) ((((=)) (c) ('~')))))))))))))))))))))))))))))))) ) then ( Some((((succ) (input_1274)), c)) ) else ( None ) ) else ( None )) (input_1274) ([ Trx_runtime.Expected(("'!'")) ; Trx_runtime.Expected(("'$'")) ; Trx_runtime.Expected(("'%'")) ; Trx_runtime.Expected(("'&'")) ; Trx_runtime.Expected(("'*'")) ; Trx_runtime.Expected(("'/'")) ; Trx_runtime.Expected(("':'")) ; Trx_runtime.Expected(("'<'")) ; Trx_runtime.Expected(("'='")) ; Trx_runtime.Expected(("'>'")) ; Trx_runtime.Expected(("'?'")) ; Trx_runtime.Expected(("'@'")) ; Trx_runtime.Expected(("'^'")) ; Trx_runtime.Expected(("'|'")) ; Trx_runtime.Expected(("'~'")) ; Trx_runtime.Expected(("['+'-'.']")) ])))) (input_1272)) with +| Trx_runtime.Ok ( ( ( input_1268, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1270 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1270) (_len)) ) then ( let c = ((_get_char) (input_1270)) in +if ( (((||)) ((((=)) (c) ('!'))) ((((||)) ((((=)) (c) ('$'))) ((((||)) ((((=)) (c) ('%'))) ((((||)) ((((=)) (c) ('&'))) ((((||)) ((((=)) (c) ('*'))) ((((||)) ((((&&)) ((((>=)) (c) ('+'))) ((((<=)) (c) ('.'))))) ((((||)) ((((=)) (c) ('/'))) ((((||)) ((((=)) (c) (':'))) ((((||)) ((((=)) (c) ('<'))) ((((||)) ((((=)) (c) ('='))) ((((||)) ((((=)) (c) ('>'))) ((((||)) ((((=)) (c) ('?'))) ((((||)) ((((=)) (c) ('@'))) ((((||)) ((((=)) (c) ('^'))) ((((||)) ((((=)) (c) ('|'))) ((((=)) (c) ('~')))))))))))))))))))))))))))))))) ) then ( Some((((succ) (input_1270)), c)) ) else ( None ) ) else ( None )) (input_1270) ([ Trx_runtime.Expected(("'!'")) ; Trx_runtime.Expected(("'$'")) ; Trx_runtime.Expected(("'%'")) ; Trx_runtime.Expected(("'&'")) ; Trx_runtime.Expected(("'*'")) ; Trx_runtime.Expected(("'/'")) ; Trx_runtime.Expected(("':'")) ; Trx_runtime.Expected(("'<'")) ; Trx_runtime.Expected(("'='")) ; Trx_runtime.Expected(("'>'")) ; Trx_runtime.Expected(("'?'")) ; Trx_runtime.Expected(("'@'")) ; Trx_runtime.Expected(("'^'")) ; Trx_runtime.Expected(("'|'")) ; Trx_runtime.Expected(("'~'")) ; Trx_runtime.Expected(("['+'-'.']")) ])))) (input_1268)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1273, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1273, (_get_sub (input_1269) ((((-)) (input_1273) (input_1269))))), ((Trx_runtime.emptyError) (input_1273)))))))))) with +| Trx_runtime.Ok ( ( ( input_1269, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1269, (_get_sub (input_1265) ((((-)) (input_1269) (input_1265))))), ((Trx_runtime.emptyError) (input_1269)))))))))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1270, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1270)) with +| Trx_runtime.Ok ( ( ( input_1266, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1266)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1271, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1271, +| Trx_runtime.Ok ( ( ( input_1267, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1267, #55 "ocaml_parser.trx" -( sprintf "(%s)" __2 )), ((Trx_runtime.emptyError) (input_1271))))))))))))))) +( sprintf "(%s)" __2 )), ((Trx_runtime.emptyError) (input_1267))))))))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_mlIdent_err) (input) (res)) ; res) ) @@ -6204,19 +6178,19 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_keywords_KEYWORDS (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1267, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_cont (_filename) (_text) (input_1267)) with -Trx_runtime.Fail ( ( err ) ) -> let input_1268 = input_1267 in +| Trx_runtime.Ok ( ( ( input_1263, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_cont (_filename) (_text) (input_1263)) with +Trx_runtime.Fail ( ( err ) ) -> let input_1264 = input_1263 in let __2 = () in -(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1268, __1), ((Trx_runtime.emptyError) (input_1268)))))) +(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1264, __1), ((Trx_runtime.emptyError) (input_1264)))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err)))))) with -Trx_runtime.Fail ( ( err ) ) -> let input_1265 = input in +Trx_runtime.Fail ( ( err ) ) -> let input_1261 = input in let __1 = () in -(Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_aux_ (_filename) (_text) (input_1265)) with +(Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_aux_ (_filename) (_text) (input_1261)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1266, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1266, +| Trx_runtime.Ok ( ( ( input_1262, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1262, #56 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1266))))))))) +( __2 )), ((Trx_runtime.emptyError) (input_1262))))))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err))) in (Hashtbl.add (memo_Ocaml_parser_mlIdent__err) (input) (res)) ; res) @@ -6232,9 +6206,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('[')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'['")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1848, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1848)) with +| Trx_runtime.Ok ( ( ( input_1844, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1844)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1849, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1849, ( () )), ((Trx_runtime.emptyError) (input_1849)))))))))) in +| Trx_runtime.Ok ( ( ( input_1845, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1845, ( () )), ((Trx_runtime.emptyError) (input_1845)))))))))) in (Hashtbl.add (memo_Default_lbracket_err) (input) (res)) ; res) ) let rec try_Default_rbracket = @@ -6248,9 +6222,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) (']')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("']'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1803, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1803)) with +| Trx_runtime.Ok ( ( ( input_1799, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1799)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1804, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1804, ( () )), ((Trx_runtime.emptyError) (input_1804)))))))))) in +| Trx_runtime.Ok ( ( ( input_1800, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1800, ( () )), ((Trx_runtime.emptyError) (input_1800)))))))))) in (Hashtbl.add (memo_Default_rbracket_err) (input) (res)) ; res) ) let rec try_Default_underscore = @@ -6264,9 +6238,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('_')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'_'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1716, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1716)) with +| Trx_runtime.Ok ( ( ( input_1712, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1712)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1717, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1717, ( () )), ((Trx_runtime.emptyError) (input_1717)))))))))) in +| Trx_runtime.Ok ( ( ( input_1713, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1713, ( () )), ((Trx_runtime.emptyError) (input_1713)))))))))) in (Hashtbl.add (memo_Default_underscore_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_AS = @@ -6279,9 +6253,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('s'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "as")) ) else ( None )) (input) ("\"as\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1710, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1710)) with +| Trx_runtime.Ok ( ( ( input_1706, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1706)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1711, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1711, ( () )), ((Trx_runtime.emptyError) (input_1711)))))))))) in +| Trx_runtime.Ok ( ( ( input_1707, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1707, ( () )), ((Trx_runtime.emptyError) (input_1707)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_AS_err) (input) (res)) ; res) ) let rec try_Default_stringcharspecial = @@ -6295,45 +6269,45 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('n')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'n'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1751, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1751, +| Trx_runtime.Ok ( ( ( input_1747, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1747, #34 "default.trx" -( '\n' )), ((Trx_runtime.emptyError) (input_1751))))))) with +( '\n' )), ((Trx_runtime.emptyError) (input_1747))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('r')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'r'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1750, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1750, +| Trx_runtime.Ok ( ( ( input_1746, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1746, #34 "default.trx" -( '\r' )), ((Trx_runtime.emptyError) (input_1750))))))) with +( '\r' )), ((Trx_runtime.emptyError) (input_1746))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('t')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'t'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1749, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1749, +| Trx_runtime.Ok ( ( ( input_1745, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1745, #34 "default.trx" -( '\t' )), ((Trx_runtime.emptyError) (input_1749))))))) with +( '\t' )), ((Trx_runtime.emptyError) (input_1745))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('\'')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'''")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1748, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1748, +| Trx_runtime.Ok ( ( ( input_1744, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1744, #35 "default.trx" -( '\'' )), ((Trx_runtime.emptyError) (input_1748))))))) with +( '\'' )), ((Trx_runtime.emptyError) (input_1744))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('"')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'\"'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1747, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1747, +| Trx_runtime.Ok ( ( ( input_1743, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1743, #35 "default.trx" -( '\"' )), ((Trx_runtime.emptyError) (input_1747))))))) with +( '\"' )), ((Trx_runtime.emptyError) (input_1743))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('\\')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'\\'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1746, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1746, +| Trx_runtime.Ok ( ( ( input_1742, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1742, #35 "default.trx" -( '\\' )), ((Trx_runtime.emptyError) (input_1746))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (true) ((fun input_1745 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1745) (_len)) ) then ( let c = ((_get_char) (input_1745)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1745)), c)) ) else ( None ) ) else ( None )) (input_1745) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input)) with +( '\\' )), ((Trx_runtime.emptyError) (input_1742))))))) with +Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (true) ((fun input_1741 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1741) (_len)) ) then ( let c = ((_get_char) (input_1741)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1741)), c)) ) else ( None ) ) else ( None )) (input_1741) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1744, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1744, +| Trx_runtime.Ok ( ( ( input_1740, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1740, #36 "default.trx" -( char_of_int (Tgrammar.int_of_chars __1) )), ((Trx_runtime.emptyError) (input_1744))))))))) +( char_of_int (Tgrammar.int_of_chars __1) )), ((Trx_runtime.emptyError) (input_1740))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) @@ -6353,19 +6327,19 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('\\')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'\\'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1788, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_stringcharspecial (_filename) (_text) (input_1788)) with +| Trx_runtime.Ok ( ( ( input_1784, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_stringcharspecial (_filename) (_text) (input_1784)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1789, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1789, +| Trx_runtime.Ok ( ( ( input_1785, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1785, #41 "default.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1789)))))))))) with +( __2 )), ((Trx_runtime.emptyError) (input_1785)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((=)) (c) ('\\'))) ((((=)) (c) ('\'')))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) ([ Trx_runtime.Expected(("'''")) ; Trx_runtime.Expected(("'\\'")) ])) with -Trx_runtime.Fail ( ( err ) ) -> let input_1786 = input in +Trx_runtime.Fail ( ( err ) ) -> let input_1782 = input in let __1 = () in -(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1786) (_len)) ) then ( let c = ((_get_char) (input_1786)) in -Some((((succ) (input_1786)), c)) ) else ( None )) (input_1786) (((Trx_runtime.Expected(("any character")))::([])))) with +(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1782) (_len)) ) then ( let c = ((_get_char) (input_1782)) in +Some((((succ) (input_1782)), c)) ) else ( None )) (input_1782) (((Trx_runtime.Expected(("any character")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1787, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1787, __2), ((Trx_runtime.emptyError) (input_1787))))))))) +| Trx_runtime.Ok ( ( ( input_1783, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1783, __2), ((Trx_runtime.emptyError) (input_1783))))))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err))))) | ( _ok ) as __pat_var -> __pat_var) in @@ -6382,14 +6356,14 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('\'')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'''")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1882, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_singlequotechar_ (_filename) (_text) (input_1882)) with +| Trx_runtime.Ok ( ( ( input_1878, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_singlequotechar_ (_filename) (_text) (input_1878)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1883, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1883) (_len)) ) then ( let c = ((_get_char) (input_1883)) in -if ( (((=)) (c) ('\'')) ) then ( Some((((succ) (input_1883)), c)) ) else ( None ) ) else ( None )) (input_1883) (((Trx_runtime.Expected(("'''")))::([])))) with +| Trx_runtime.Ok ( ( ( input_1879, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1879) (_len)) ) then ( let c = ((_get_char) (input_1879)) in +if ( (((=)) (c) ('\'')) ) then ( Some((((succ) (input_1879)), c)) ) else ( None ) ) else ( None )) (input_1879) (((Trx_runtime.Expected(("'''")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1884, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1884, +| Trx_runtime.Ok ( ( ( input_1880, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1880, #46 "default.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1884))))))))))))) in +( __2 )), ((Trx_runtime.emptyError) (input_1880))))))))))))) in (Hashtbl.add (memo_Default_charsinglequote_err) (input) (res)) ; res) ) let rec try_Default_strfloat = @@ -6403,31 +6377,31 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('-')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'-'")))::([])))) with Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input, None), err)) -| Trx_runtime.Ok ( ( ( input_1770, r ), err ) ) -> Trx_runtime.Ok(((input_1770, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1766, r ), err ) ) -> Trx_runtime.Ok(((input_1766, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1758, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (Trx_runtime.while_primary_nores (true) ((fun input_1769 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1769) (_len)) ) then ( let c = ((_get_char) (input_1769)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1769)), c)) ) else ( None ) ) else ( None )) (input_1769) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input_1758)) with +| Trx_runtime.Ok ( ( ( input_1754, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (Trx_runtime.while_primary_nores (true) ((fun input_1765 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1765) (_len)) ) then ( let c = ((_get_char) (input_1765)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1765)), c)) ) else ( None ) ) else ( None )) (input_1765) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input_1754)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1765, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1765) (_len)) ) then ( let c = ((_get_char) (input_1765)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1765)), c)) ) else ( None ) ) else ( None )) (input_1765) (((Trx_runtime.Expected(("'.'")))::([])))) with +| Trx_runtime.Ok ( ( ( input_1761, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1761) (_len)) ) then ( let c = ((_get_char) (input_1761)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1761)), c)) ) else ( None ) ) else ( None )) (input_1761) (((Trx_runtime.Expected(("'.'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1766, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1768 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1768) (_len)) ) then ( let c = ((_get_char) (input_1768)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1768)), c)) ) else ( None ) ) else ( None )) (input_1768) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input_1766)) with +| Trx_runtime.Ok ( ( ( input_1762, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1764 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1764) (_len)) ) then ( let c = ((_get_char) (input_1764)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1764)), c)) ) else ( None ) ) else ( None )) (input_1764) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input_1762)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1767, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1767, ()), ((Trx_runtime.emptyError) (input_1767))))))))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1764 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1764) (_len)) ) then ( let c = ((_get_char) (input_1764)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1764)), c)) ) else ( None ) ) else ( None )) (input_1764) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input_1758)) with +| Trx_runtime.Ok ( ( ( input_1763, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1763, ()), ((Trx_runtime.emptyError) (input_1763))))))))))))) with +Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1760 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1760) (_len)) ) then ( let c = ((_get_char) (input_1760)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1760)), c)) ) else ( None ) ) else ( None )) (input_1760) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input_1754)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1760, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1760) (_len)) ) then ( let c = ((_get_char) (input_1760)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1760)), c)) ) else ( None ) ) else ( None )) (input_1760) (((Trx_runtime.Expected(("'.'")))::([])))) with +| Trx_runtime.Ok ( ( ( input_1756, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1756) (_len)) ) then ( let c = ((_get_char) (input_1756)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1756)), c)) ) else ( None ) ) else ( None )) (input_1756) (((Trx_runtime.Expected(("'.'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1761, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (true) ((fun input_1763 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1763) (_len)) ) then ( let c = ((_get_char) (input_1763)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1763)), c)) ) else ( None ) ) else ( None )) (input_1763) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input_1761)) with +| Trx_runtime.Ok ( ( ( input_1757, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (true) ((fun input_1759 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1759) (_len)) ) then ( let c = ((_get_char) (input_1759)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1759)), c)) ) else ( None ) ) else ( None )) (input_1759) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input_1757)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1762, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1762, ()), ((Trx_runtime.emptyError) (input_1762))))))))))))))) +| Trx_runtime.Ok ( ( ( input_1758, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1758, ()), ((Trx_runtime.emptyError) (input_1758))))))))))))))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1759, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1759, (_get_sub (input) ((((-)) (input_1759) (input))))), ((Trx_runtime.emptyError) (input_1759)))))))))) in +| Trx_runtime.Ok ( ( ( input_1755, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1755, (_get_sub (input) ((((-)) (input_1755) (input))))), ((Trx_runtime.emptyError) (input_1755)))))))))) in (Hashtbl.add (memo_Default_strfloat_err) (input) (res)) ; res) ) let rec try_Default_float = @@ -6440,9 +6414,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_strfloat (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1870, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1870, +| Trx_runtime.Ok ( ( ( input_1866, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1866, #98 "default.trx" -( float_of_string __1 )), ((Trx_runtime.emptyError) (input_1870))))))) in +( float_of_string __1 )), ((Trx_runtime.emptyError) (input_1866))))))) in (Hashtbl.add (memo_Default_float_err) (input) (res)) ; res) ) let rec try_Default_strint = @@ -6456,12 +6430,12 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('-')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'-'")))::([])))) with Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input, None), err)) -| Trx_runtime.Ok ( ( ( input_1728, r ), err ) ) -> Trx_runtime.Ok(((input_1728, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1724, r ), err ) ) -> Trx_runtime.Ok(((input_1724, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1725, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (true) ((fun input_1727 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1727) (_len)) ) then ( let c = ((_get_char) (input_1727)) in -if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1727)), c)) ) else ( None ) ) else ( None )) (input_1727) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input_1725)) with +| Trx_runtime.Ok ( ( ( input_1721, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (true) ((fun input_1723 -> (Trx_runtime.option_to_res_err (if ( (((<)) (input_1723) (_len)) ) then ( let c = ((_get_char) (input_1723)) in +if ( (((&&)) ((((>=)) (c) ('0'))) ((((<=)) (c) ('9')))) ) then ( Some((((succ) (input_1723)), c)) ) else ( None ) ) else ( None )) (input_1723) (((Trx_runtime.Expected(("['0'-'9']")))::([])))))) (input_1721)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1726, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1726, (_get_sub (input) ((((-)) (input_1726) (input))))), ((Trx_runtime.emptyError) (input_1726)))))))))) in +| Trx_runtime.Ok ( ( ( input_1722, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1722, (_get_sub (input) ((((-)) (input_1722) (input))))), ((Trx_runtime.emptyError) (input_1722)))))))))) in (Hashtbl.add (memo_Default_strint_err) (input) (res)) ; res) ) let rec try_Default_int = @@ -6474,9 +6448,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_strint (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1865, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1865, +| Trx_runtime.Ok ( ( ( input_1861, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1861, #95 "default.trx" -( int_of_string __1 )), ((Trx_runtime.emptyError) (input_1865))))))) in +( int_of_string __1 )), ((Trx_runtime.emptyError) (input_1861))))))) in (Hashtbl.add (memo_Default_int_err) (input) (res)) ; res) ) let rec try_Default_stringchar = @@ -6490,19 +6464,19 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('\\')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'\\'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1754, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_stringcharspecial (_filename) (_text) (input_1754)) with +| Trx_runtime.Ok ( ( ( input_1750, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_stringcharspecial (_filename) (_text) (input_1750)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1755, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1755, +| Trx_runtime.Ok ( ( ( input_1751, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1751, #38 "default.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1755)))))))))) with +( __2 )), ((Trx_runtime.emptyError) (input_1751)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((=)) (c) ('\\'))) ((((=)) (c) ('"')))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) ([ Trx_runtime.Expected(("'\"'")) ; Trx_runtime.Expected(("'\\'")) ])) with -Trx_runtime.Fail ( ( err ) ) -> let input_1752 = input in +Trx_runtime.Fail ( ( err ) ) -> let input_1748 = input in let __1 = () in -(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1752) (_len)) ) then ( let c = ((_get_char) (input_1752)) in -Some((((succ) (input_1752)), c)) ) else ( None )) (input_1752) (((Trx_runtime.Expected(("any character")))::([])))) with +(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1748) (_len)) ) then ( let c = ((_get_char) (input_1748)) in +Some((((succ) (input_1748)), c)) ) else ( None )) (input_1748) (((Trx_runtime.Expected(("any character")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1753, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1753, __2), ((Trx_runtime.emptyError) (input_1753))))))))) +| Trx_runtime.Ok ( ( ( input_1749, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1749, __2), ((Trx_runtime.emptyError) (input_1749))))))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err))))) | ( _ok ) as __pat_var -> __pat_var) in @@ -6519,14 +6493,14 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('"')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'\"'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1740, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1743 -> (try_Default_stringchar (_filename) (_text) (input_1743)))) (input_1740)) with +| Trx_runtime.Ok ( ( ( input_1736, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1739 -> (try_Default_stringchar (_filename) (_text) (input_1739)))) (input_1736)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1741, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1741) (_len)) ) then ( let c = ((_get_char) (input_1741)) in -if ( (((=)) (c) ('"')) ) then ( Some((((succ) (input_1741)), c)) ) else ( None ) ) else ( None )) (input_1741) (((Trx_runtime.Expected(("'\"'")))::([])))) with +| Trx_runtime.Ok ( ( ( input_1737, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1737) (_len)) ) then ( let c = ((_get_char) (input_1737)) in +if ( (((=)) (c) ('"')) ) then ( Some((((succ) (input_1737)), c)) ) else ( None ) ) else ( None )) (input_1737) (((Trx_runtime.Expected(("'\"'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1742, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1742, +| Trx_runtime.Ok ( ( ( input_1738, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1738, #28 "default.trx" -( Tgrammar.string_of_chars __2 )), ((Trx_runtime.emptyError) (input_1742))))))))))))) in +( Tgrammar.string_of_chars __2 )), ((Trx_runtime.emptyError) (input_1738))))))))))))) in (Hashtbl.add (memo_Default_stringnosp_err) (input) (res)) ; res) ) let rec try_Default_string = @@ -6539,11 +6513,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_stringnosp (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1756, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1756)) with +| Trx_runtime.Ok ( ( ( input_1752, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1752)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1757, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1757, +| Trx_runtime.Ok ( ( ( input_1753, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1753, #27 "default.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1757)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1753)))))))))) in (Hashtbl.add (memo_Default_string_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_unit = @@ -6556,11 +6530,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_lparen (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1101, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1101)) with +| Trx_runtime.Ok ( ( ( input_1097, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1097)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1102, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1102)) with +| Trx_runtime.Ok ( ( ( input_1098, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1098)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1103, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1103, ( () )), ((Trx_runtime.emptyError) (input_1103))))))))))))) in +| Trx_runtime.Ok ( ( ( input_1099, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1099, ( () )), ((Trx_runtime.emptyError) (input_1099))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_unit_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_const = @@ -6573,51 +6547,51 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Default_float (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1306, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1306)) with +| Trx_runtime.Ok ( ( ( input_1302, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1302)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1307, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1307, +| Trx_runtime.Ok ( ( ( input_1303, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1303, #40 "ocaml_parser.trx" -( Float __1 )), ((Trx_runtime.emptyError) (input_1307)))))))))) with +( Float __1 )), ((Trx_runtime.emptyError) (input_1303)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_int (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1304, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1304)) with +| Trx_runtime.Ok ( ( ( input_1300, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1300)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1305, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1305, +| Trx_runtime.Ok ( ( ( input_1301, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1301, #41 "ocaml_parser.trx" -( Int __1 )), ((Trx_runtime.emptyError) (input_1305)))))))))) with +( Int __1 )), ((Trx_runtime.emptyError) (input_1301)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_string (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1302, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1302)) with +| Trx_runtime.Ok ( ( ( input_1298, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1298)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1303, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1303, +| Trx_runtime.Ok ( ( ( input_1299, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1299, #42 "ocaml_parser.trx" -( String __1 )), ((Trx_runtime.emptyError) (input_1303)))))))))) with +( String __1 )), ((Trx_runtime.emptyError) (input_1299)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_charsinglequote (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1300, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1300)) with +| Trx_runtime.Ok ( ( ( input_1296, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1296)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1301, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1301, +| Trx_runtime.Ok ( ( ( input_1297, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1297, #44 "ocaml_parser.trx" -( Char (__1) )), ((Trx_runtime.emptyError) (input_1301)))))))))) with +( Char (__1) )), ((Trx_runtime.emptyError) (input_1297)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_unit (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1299, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1299, +| Trx_runtime.Ok ( ( ( input_1295, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1295, #45 "ocaml_parser.trx" -( Unit )), ((Trx_runtime.emptyError) (input_1299))))))) with +( Unit )), ((Trx_runtime.emptyError) (input_1295))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('f'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('e'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "false")) ) else ( None )) (input) ("\"false\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1297, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1297)) with +| Trx_runtime.Ok ( ( ( input_1293, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1293)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1298, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1298, +| Trx_runtime.Ok ( ( ( input_1294, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1294, #46 "ocaml_parser.trx" -( Bool false )), ((Trx_runtime.emptyError) (input_1298)))))))))) with +( Bool false )), ((Trx_runtime.emptyError) (input_1294)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('e'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "true")) ) else ( None )) (input) ("\"true\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1295, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1295)) with +| Trx_runtime.Ok ( ( ( input_1291, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1291)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1296, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1296, +| Trx_runtime.Ok ( ( ( input_1292, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1292, #47 "ocaml_parser.trx" -( Bool true )), ((Trx_runtime.emptyError) (input_1296)))))))))))) +( Bool true )), ((Trx_runtime.emptyError) (input_1292)))))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) @@ -6637,11 +6611,11 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((||)) ((((=)) (c) ('`'))) ((((&&)) ((((>=)) (c) ('A'))) ((((<=)) (c) ('Z')))))) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) ([ Trx_runtime.Expected(("'`'")) ; Trx_runtime.Expected(("['A'-'Z']")) ])) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1309, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1311 -> (try_Ocaml_parser_mlIdent_cont (_filename) (_text) (input_1311)))) (input_1309)) with +| Trx_runtime.Ok ( ( ( input_1305, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1307 -> (try_Ocaml_parser_mlIdent_cont (_filename) (_text) (input_1307)))) (input_1305)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1310, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1310, (_get_sub (input) ((((-)) (input_1310) (input))))), ((Trx_runtime.emptyError) (input_1310)))))))))) with +| Trx_runtime.Ok ( ( ( input_1306, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1306, (_get_sub (input) ((((-)) (input_1306) (input))))), ((Trx_runtime.emptyError) (input_1306)))))))))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1308, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1308, __1), ((Trx_runtime.emptyError) (input_1308))))))) in +| Trx_runtime.Ok ( ( ( input_1304, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1304, __1), ((Trx_runtime.emptyError) (input_1304))))))) in (Hashtbl.add (memo_Ocaml_parser_capMlIdent__err) (input) (res)) ; res) ) let rec try_Ocaml_parser_constructorName = @@ -6652,26 +6626,26 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Ocaml_parser_constructorName_err) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary (false) ((fun input_1292 -> (match (try_Ocaml_parser_capMlIdent_ (_filename) (_text) (input_1292)) with +Not_found -> let res = (match (Trx_runtime.while_primary (false) ((fun input_1288 -> (match (try_Ocaml_parser_capMlIdent_ (_filename) (_text) (input_1288)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1293, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1293) (_len)) ) then ( let c = ((_get_char) (input_1293)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1293)), c)) ) else ( None ) ) else ( None )) (input_1293) (((Trx_runtime.Expected(("'.'")))::([])))) with +| Trx_runtime.Ok ( ( ( input_1289, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1289) (_len)) ) then ( let c = ((_get_char) (input_1289)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1289)), c)) ) else ( None ) ) else ( None )) (input_1289) (((Trx_runtime.Expected(("'.'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1294, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1294, +| Trx_runtime.Ok ( ( ( input_1290, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1290, #121 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1294)))))))))))) (input)) with +( __1 )), ((Trx_runtime.emptyError) (input_1290)))))))))))) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1288, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_capMlIdent_ (_filename) (_text) (input_1288)) with +| Trx_runtime.Ok ( ( ( input_1284, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_capMlIdent_ (_filename) (_text) (input_1284)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1289, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1289) (_len)) ) then ( let c = ((_get_char) (input_1289)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1289)), c)) ) else ( None ) ) else ( None )) (input_1289) (((Trx_runtime.Expected(("'.'")))::([])))) with -Trx_runtime.Fail ( ( err ) ) -> let input_1290 = input_1289 in +| Trx_runtime.Ok ( ( ( input_1285, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1285) (_len)) ) then ( let c = ((_get_char) (input_1285)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1285)), c)) ) else ( None ) ) else ( None )) (input_1285) (((Trx_runtime.Expected(("'.'")))::([])))) with +Trx_runtime.Fail ( ( err ) ) -> let input_1286 = input_1285 in let __3 = () in -(Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1290)) with +(Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1286)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1291, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1291, +| Trx_runtime.Ok ( ( ( input_1287, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1287, #121 "ocaml_parser.trx" -( __1 @ [__2] )), ((Trx_runtime.emptyError) (input_1291))))))))) +( __1 @ [__2] )), ((Trx_runtime.emptyError) (input_1287))))))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err))))))))) in (Hashtbl.add (memo_Ocaml_parser_constructorName_err) (input) (res)) ; res) @@ -6686,7 +6660,7 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_types_typedef (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1104, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1104, __1), ((Trx_runtime.emptyError) (input_1104))))))) in +| Trx_runtime.Ok ( ( ( input_1100, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1100, __1), ((Trx_runtime.emptyError) (input_1100))))))) in (Hashtbl.add (memo_Ocaml_parser_type_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_pattern_aux_aux = @@ -6699,123 +6673,123 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (try_Ocaml_parser_mlIdent (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1166, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1166, +| Trx_runtime.Ok ( ( ( input_1162, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1162, #129 "ocaml_parser.trx" -( PatVar (Ident.source __1) )), ((Trx_runtime.emptyError) (input_1166))))))) with +( PatVar (Ident.source __1) )), ((Trx_runtime.emptyError) (input_1162))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_lparen (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1159, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1159)) with +| Trx_runtime.Ok ( ( ( input_1155, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1155)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1160, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1160)) with +| Trx_runtime.Ok ( ( ( input_1156, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1156)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1163, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1163)) with +| Trx_runtime.Ok ( ( ( input_1159, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1159)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1164, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1164, ()), ((Trx_runtime.emptyError) (input_1164)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1160, None), err)) -| Trx_runtime.Ok ( ( ( input_1165, r ), err ) ) -> Trx_runtime.Ok(((input_1165, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1160, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1160, ()), ((Trx_runtime.emptyError) (input_1160)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1156, None), err)) +| Trx_runtime.Ok ( ( ( input_1161, r ), err ) ) -> Trx_runtime.Ok(((input_1161, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1161, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1161)) with +| Trx_runtime.Ok ( ( ( input_1157, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1157)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1162, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1162, +| Trx_runtime.Ok ( ( ( input_1158, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1158, #131 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1162)))))))))))))))) with +( __2 )), ((Trx_runtime.emptyError) (input_1158)))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_underscore (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1158, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1158, +| Trx_runtime.Ok ( ( ( input_1154, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1154, #133 "ocaml_parser.trx" -( PatAny )), ((Trx_runtime.emptyError) (input_1158))))))) with +( PatAny )), ((Trx_runtime.emptyError) (input_1154))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_const (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1157, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1157, +| Trx_runtime.Ok ( ( ( input_1153, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1153, #135 "ocaml_parser.trx" -( PatConst __1 )), ((Trx_runtime.emptyError) (input_1157))))))) with +( PatConst __1 )), ((Trx_runtime.emptyError) (input_1153))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_laccol (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1144, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1144)) with +| Trx_runtime.Ok ( ( ( input_1140, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1140)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1145, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1145)) with +| Trx_runtime.Ok ( ( ( input_1141, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1141)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1146, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1146)) with +| Trx_runtime.Ok ( ( ( input_1142, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1142)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1147, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1152 -> (match (try_Default_semi (_filename) (_text) (input_1152)) with +| Trx_runtime.Ok ( ( ( input_1143, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1148 -> (match (try_Default_semi (_filename) (_text) (input_1148)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1153, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1153)) with +| Trx_runtime.Ok ( ( ( input_1149, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1149)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1154, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1154)) with +| Trx_runtime.Ok ( ( ( input_1150, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1150)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1155, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1155)) with +| Trx_runtime.Ok ( ( ( input_1151, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1151)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1156, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1156, +| Trx_runtime.Ok ( ( ( input_1152, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1152, #137 "ocaml_parser.trx" -( __2, __4 )), ((Trx_runtime.emptyError) (input_1156)))))))))))))))))) (input_1147)) with +( __2, __4 )), ((Trx_runtime.emptyError) (input_1152)))))))))))))))))) (input_1143)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1148, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_semi (_filename) (_text) (input_1148)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1148, None), err)) -| Trx_runtime.Ok ( ( ( input_1151, r ), err ) ) -> Trx_runtime.Ok(((input_1151, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1144, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_semi (_filename) (_text) (input_1144)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1144, None), err)) +| Trx_runtime.Ok ( ( ( input_1147, r ), err ) ) -> Trx_runtime.Ok(((input_1147, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1149, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_raccol (_filename) (_text) (input_1149)) with +| Trx_runtime.Ok ( ( ( input_1145, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_raccol (_filename) (_text) (input_1145)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1150, __7 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1150, +| Trx_runtime.Ok ( ( ( input_1146, __7 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1146, #138 "ocaml_parser.trx" ( PatRecord ((__2, __4)::__5) - )), ((Trx_runtime.emptyError) (input_1150))))))))))))))))))))))))) with + )), ((Trx_runtime.emptyError) (input_1146))))))))))))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_lbracket (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1135, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1135)) with +| Trx_runtime.Ok ( ( ( input_1131, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1131)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1138, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1140 -> (match (try_Default_semi (_filename) (_text) (input_1140)) with +| Trx_runtime.Ok ( ( ( input_1134, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1136 -> (match (try_Default_semi (_filename) (_text) (input_1136)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1141, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1141)) with +| Trx_runtime.Ok ( ( ( input_1137, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1137)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1142, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1142, +| Trx_runtime.Ok ( ( ( input_1138, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1138, #142 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1142)))))))))))) (input_1138)) with +( __2 )), ((Trx_runtime.emptyError) (input_1138)))))))))))) (input_1134)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1139, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1139, +| Trx_runtime.Ok ( ( ( input_1135, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1135, #142 "ocaml_parser.trx" -( __1, __2 )), ((Trx_runtime.emptyError) (input_1139)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1135, None), err)) -| Trx_runtime.Ok ( ( ( input_1143, r ), err ) ) -> Trx_runtime.Ok(((input_1143, Some((r))), err))) with +( __1, __2 )), ((Trx_runtime.emptyError) (input_1135)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1131, None), err)) +| Trx_runtime.Ok ( ( ( input_1139, r ), err ) ) -> Trx_runtime.Ok(((input_1139, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1136, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rbracket (_filename) (_text) (input_1136)) with +| Trx_runtime.Ok ( ( ( input_1132, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rbracket (_filename) (_text) (input_1132)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1137, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1137, +| Trx_runtime.Ok ( ( ( input_1133, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1133, #143 "ocaml_parser.trx" ( match __2 with | None -> PatEmptyList | Some (a, l) -> PatList (a, List.fold_right (fun e accu -> PatList (e, accu)) l PatEmptyList) - )), ((Trx_runtime.emptyError) (input_1137))))))))))))) with + )), ((Trx_runtime.emptyError) (input_1133))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_constructorName (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1127, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1127)) with +| Trx_runtime.Ok ( ( ( input_1123, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1123)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1128, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_cons (_filename) (_text) (input_1128)) with +| Trx_runtime.Ok ( ( ( input_1124, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_cons (_filename) (_text) (input_1124)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1129, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1132 -> (match (try_Default_comma (_filename) (_text) (input_1132)) with +| Trx_runtime.Ok ( ( ( input_1125, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1128 -> (match (try_Default_comma (_filename) (_text) (input_1128)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1133, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_cons (_filename) (_text) (input_1133)) with +| Trx_runtime.Ok ( ( ( input_1129, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_cons (_filename) (_text) (input_1129)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1134, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1134, +| Trx_runtime.Ok ( ( ( input_1130, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1130, #150 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1134)))))))))))) (input_1129)) with +( __2 )), ((Trx_runtime.emptyError) (input_1130)))))))))))) (input_1125)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1130, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1130)) with +| Trx_runtime.Ok ( ( ( input_1126, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1126)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1131, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1131, +| Trx_runtime.Ok ( ( ( input_1127, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1127, #151 "ocaml_parser.trx" ( PatConstructor (List.map Ident.source __1, __3::__4) - )), ((Trx_runtime.emptyError) (input_1131))))))))))))))))))) with + )), ((Trx_runtime.emptyError) (input_1127))))))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_constructorName (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1124, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_pattern_cons (_filename) (_text) (input_1124)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1124, None), err)) -| Trx_runtime.Ok ( ( ( input_1126, r ), err ) ) -> Trx_runtime.Ok(((input_1126, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1120, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_pattern_cons (_filename) (_text) (input_1120)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1120, None), err)) +| Trx_runtime.Ok ( ( ( input_1122, r ), err ) ) -> Trx_runtime.Ok(((input_1122, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1125, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1125, +| Trx_runtime.Ok ( ( ( input_1121, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1121, #156 "ocaml_parser.trx" ( PatConstructor (List.map Ident.source __1, match __2 with Some x -> [x] | None -> []) - )), ((Trx_runtime.emptyError) (input_1125)))))))))))) + )), ((Trx_runtime.emptyError) (input_1121)))))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) @@ -6824,18 +6798,18 @@ Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1124, None), err)) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1119, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1121 -> (match (try_Ocaml_keywords_AS (_filename) (_text) (input_1121)) with +| Trx_runtime.Ok ( ( ( input_1115, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1117 -> (match (try_Ocaml_keywords_AS (_filename) (_text) (input_1117)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1122, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1122)) with +| Trx_runtime.Ok ( ( ( input_1118, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1118)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1123, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1123, +| Trx_runtime.Ok ( ( ( input_1119, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1119, #159 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1123)))))))))))) (input_1119)) with +( __2 )), ((Trx_runtime.emptyError) (input_1119)))))))))))) (input_1115)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1120, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1120, +| Trx_runtime.Ok ( ( ( input_1116, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1116, #160 "ocaml_parser.trx" ( List.fold_left (fun accu e -> PatAs (accu, Ident.source e)) __1 __2 - )), ((Trx_runtime.emptyError) (input_1120)))))))))) in + )), ((Trx_runtime.emptyError) (input_1116)))))))))) in (Hashtbl.add (memo_Ocaml_parser_pattern_aux_aux_err) (input) (res)) ; res) ) and try_Ocaml_parser_pattern_cons = @@ -6848,22 +6822,22 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_pattern_aux_aux (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1109, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_CONS (_filename) (_text) (input_1109)) with +| Trx_runtime.Ok ( ( ( input_1105, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_CONS (_filename) (_text) (input_1105)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1111, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_cons (_filename) (_text) (input_1111)) with +| Trx_runtime.Ok ( ( ( input_1107, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_cons (_filename) (_text) (input_1107)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1112, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1112, +| Trx_runtime.Ok ( ( ( input_1108, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1108, #164 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1112)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1109, None), err)) -| Trx_runtime.Ok ( ( ( input_1113, r ), err ) ) -> Trx_runtime.Ok(((input_1113, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1108)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1105, None), err)) +| Trx_runtime.Ok ( ( ( input_1109, r ), err ) ) -> Trx_runtime.Ok(((input_1109, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1110, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1110, +| Trx_runtime.Ok ( ( ( input_1106, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1106, #165 "ocaml_parser.trx" ( match __2 with | None -> __1 | Some x -> PatList (__1, x) - )), ((Trx_runtime.emptyError) (input_1110)))))))))) in + )), ((Trx_runtime.emptyError) (input_1106)))))))))) in (Hashtbl.add (memo_Ocaml_parser_pattern_cons_err) (input) (res)) ; res) ) and try_Ocaml_parser_pattern_aux_l = @@ -6876,22 +6850,22 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_pattern_cons (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1114, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_comma (_filename) (_text) (input_1114)) with +| Trx_runtime.Ok ( ( ( input_1110, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_comma (_filename) (_text) (input_1110)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1116, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux_l (_filename) (_text) (input_1116)) with +| Trx_runtime.Ok ( ( ( input_1112, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux_l (_filename) (_text) (input_1112)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1117, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1117, +| Trx_runtime.Ok ( ( ( input_1113, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1113, #171 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1117)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1114, None), err)) -| Trx_runtime.Ok ( ( ( input_1118, r ), err ) ) -> Trx_runtime.Ok(((input_1118, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1113)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1110, None), err)) +| Trx_runtime.Ok ( ( ( input_1114, r ), err ) ) -> Trx_runtime.Ok(((input_1114, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1115, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1115, +| Trx_runtime.Ok ( ( ( input_1111, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1111, #172 "ocaml_parser.trx" ( match __2 with | None -> [__1] | Some s -> __1::s - )), ((Trx_runtime.emptyError) (input_1115)))))))))) in + )), ((Trx_runtime.emptyError) (input_1111)))))))))) in (Hashtbl.add (memo_Ocaml_parser_pattern_aux_l_err) (input) (res)) ; res) ) and try_Ocaml_parser_pattern_aux = @@ -6904,12 +6878,12 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_pattern_aux_l (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1167, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1167, +| Trx_runtime.Ok ( ( ( input_1163, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1163, #179 "ocaml_parser.trx" ( match __1 with | [t] -> t | _ -> PatTuple __1 - )), ((Trx_runtime.emptyError) (input_1167))))))) in + )), ((Trx_runtime.emptyError) (input_1163))))))) in (Hashtbl.add (memo_Ocaml_parser_pattern_aux_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_ASSERT = @@ -6922,9 +6896,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (6))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('t'))) (true)))))))))))))) ) then ( Some(((((+)) (input) (6)), "assert")) ) else ( None )) (input) ("\"assert\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1708, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1708)) with +| Trx_runtime.Ok ( ( ( input_1704, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1704)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1709, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1709, ( () )), ((Trx_runtime.emptyError) (input_1709)))))))))) in +| Trx_runtime.Ok ( ( ( input_1705, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1705, ( () )), ((Trx_runtime.emptyError) (input_1705)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_ASSERT_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_ELSE = @@ -6937,9 +6911,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('e'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "else")) ) else ( None )) (input) ("\"else\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1696, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1696)) with +| Trx_runtime.Ok ( ( ( input_1692, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1692)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1697, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1697, ( () )), ((Trx_runtime.emptyError) (input_1697)))))))))) in +| Trx_runtime.Ok ( ( ( input_1693, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1693, ( () )), ((Trx_runtime.emptyError) (input_1693)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_ELSE_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_IF = @@ -6952,9 +6926,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('f'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "if")) ) else ( None )) (input) ("\"if\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1682, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1682)) with +| Trx_runtime.Ok ( ( ( input_1678, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1678)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1683, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1683, ( () )), ((Trx_runtime.emptyError) (input_1683)))))))))) in +| Trx_runtime.Ok ( ( ( input_1679, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1679, ( () )), ((Trx_runtime.emptyError) (input_1679)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_IF_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_THEN = @@ -6967,9 +6941,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('h'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('n'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "then")) ) else ( None )) (input) ("\"then\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1654, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1654)) with +| Trx_runtime.Ok ( ( ( input_1650, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1650)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1655, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1655, ( () )), ((Trx_runtime.emptyError) (input_1655)))))))))) in +| Trx_runtime.Ok ( ( ( input_1651, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1651, ( () )), ((Trx_runtime.emptyError) (input_1651)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_THEN_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_emptylist = @@ -6982,13 +6956,13 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_lbracket (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1282, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1282)) with +| Trx_runtime.Ok ( ( ( input_1278, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1278)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1283, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rbracket (_filename) (_text) (input_1283)) with +| Trx_runtime.Ok ( ( ( input_1279, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rbracket (_filename) (_text) (input_1279)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1284, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1284, +| Trx_runtime.Ok ( ( ( input_1280, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1280, #37 "ocaml_parser.trx" -( EmptyList )), ((Trx_runtime.emptyError) (input_1284))))))))))))) in +( EmptyList )), ((Trx_runtime.emptyError) (input_1280))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_emptylist_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_EmptyList = @@ -7001,7 +6975,7 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_emptylist (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1580, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1580, __1), ((Trx_runtime.emptyError) (input_1580))))))) in +| Trx_runtime.Ok ( ( ( input_1576, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1576, __1), ((Trx_runtime.emptyError) (input_1576))))))) in (Hashtbl.add (memo_Ocaml_parser_EmptyList_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_EXCEPTION = @@ -7014,9 +6988,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (9))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('x'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('c'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('p'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (6))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (7))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (8))))) ('n'))) (true)))))))))))))))))))) ) then ( Some(((((+)) (input) (9)), "exception")) ) else ( None )) (input) ("\"exception\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1692, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1692)) with +| Trx_runtime.Ok ( ( ( input_1688, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1688)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1693, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1693, ( () )), ((Trx_runtime.emptyError) (input_1693)))))))))) in +| Trx_runtime.Ok ( ( ( input_1689, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1689, ( () )), ((Trx_runtime.emptyError) (input_1689)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_EXCEPTION_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_capMlIdent = @@ -7029,11 +7003,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_capMlIdent_ (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1312, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1312)) with +| Trx_runtime.Ok ( ( ( input_1308, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1308)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1313, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1313, +| Trx_runtime.Ok ( ( ( input_1309, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1309, #117 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1313)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1309)))))))))) in (Hashtbl.add (memo_Ocaml_parser_capMlIdent_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_Exception = @@ -7046,19 +7020,19 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_EXCEPTION (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1574, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_capMlIdent (_filename) (_text) (input_1574)) with +| Trx_runtime.Ok ( ( ( input_1570, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_capMlIdent (_filename) (_text) (input_1570)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1575, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_OF (_filename) (_text) (input_1575)) with +| Trx_runtime.Ok ( ( ( input_1571, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_OF (_filename) (_text) (input_1571)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1577, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1577)) with +| Trx_runtime.Ok ( ( ( input_1573, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1573)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1578, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1578, ()), ((Trx_runtime.emptyError) (input_1578)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1575, None), err)) -| Trx_runtime.Ok ( ( ( input_1579, r ), err ) ) -> Trx_runtime.Ok(((input_1579, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1574, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1574, ()), ((Trx_runtime.emptyError) (input_1574)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1571, None), err)) +| Trx_runtime.Ok ( ( ( input_1575, r ), err ) ) -> Trx_runtime.Ok(((input_1575, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1576, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1576, +| Trx_runtime.Ok ( ( ( input_1572, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1572, #280 "ocaml_parser.trx" -( Exception (__2, None) (* FIXME *) )), ((Trx_runtime.emptyError) (input_1576))))))))))))) in +( Exception (__2, None) (* FIXME *) )), ((Trx_runtime.emptyError) (input_1572))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_Exception_err) (input) (res)) ; res) ) let rec try_Default_leftarrow = @@ -7071,9 +7045,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('<'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('-'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "<-")) ) else ( None )) (input) ("\"<-\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1846, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1846)) with +| Trx_runtime.Ok ( ( ( input_1842, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1842)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1847, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1847, ( () )), ((Trx_runtime.emptyError) (input_1847)))))))))) in +| Trx_runtime.Ok ( ( ( input_1843, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1843, ( () )), ((Trx_runtime.emptyError) (input_1843)))))))))) in (Hashtbl.add (memo_Default_leftarrow_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_Const = @@ -7086,9 +7060,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_const (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1604, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1604, +| Trx_runtime.Ok ( ( ( input_1600, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1600, #218 "ocaml_parser.trx" -( Const __1 )), ((Trx_runtime.emptyError) (input_1604))))))) in +( Const __1 )), ((Trx_runtime.emptyError) (input_1600))))))) in (Hashtbl.add (memo_Ocaml_parser_Const_err) (input) (res)) ; res) ) let rec try_Default_dot = @@ -7102,9 +7076,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'.'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1876, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1876)) with +| Trx_runtime.Ok ( ( ( input_1872, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1872)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1877, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1877, ( () )), ((Trx_runtime.emptyError) (input_1877)))))))))) in +| Trx_runtime.Ok ( ( ( input_1873, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1873, ( () )), ((Trx_runtime.emptyError) (input_1873)))))))))) in (Hashtbl.add (memo_Default_dot_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_Dot = @@ -7117,43 +7091,43 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_dot (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1581, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.while_primary (false) ((fun input_1590 -> (match (try_Ocaml_parser_capMlIdent_ (_filename) (_text) (input_1590)) with +| Trx_runtime.Ok ( ( ( input_1577, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.while_primary (false) ((fun input_1586 -> (match (try_Ocaml_parser_capMlIdent_ (_filename) (_text) (input_1586)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1591, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1591) (_len)) ) then ( let c = ((_get_char) (input_1591)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1591)), c)) ) else ( None ) ) else ( None )) (input_1591) (((Trx_runtime.Expected(("'.'")))::([])))) with +| Trx_runtime.Ok ( ( ( input_1587, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1587) (_len)) ) then ( let c = ((_get_char) (input_1587)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1587)), c)) ) else ( None ) ) else ( None )) (input_1587) (((Trx_runtime.Expected(("'.'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1592, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1592, +| Trx_runtime.Ok ( ( ( input_1588, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1588, #315 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1592)))))))))))) (input_1581)) with +( __1 )), ((Trx_runtime.emptyError) (input_1588)))))))))))) (input_1577)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1589, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1589, +| Trx_runtime.Ok ( ( ( input_1585, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1585, #315 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1589))))))) with +( __1 )), ((Trx_runtime.emptyError) (input_1585))))))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1582, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1582)) with +| Trx_runtime.Ok ( ( ( input_1578, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1578)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1588, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1588, +| Trx_runtime.Ok ( ( ( input_1584, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1584, #315 "ocaml_parser.trx" -( `MlIdent __1 )), ((Trx_runtime.emptyError) (input_1588))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1582)) with +( `MlIdent __1 )), ((Trx_runtime.emptyError) (input_1584))))))) with +Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1578)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1584, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_int (_filename) (_text) (input_1584)) with +| Trx_runtime.Ok ( ( ( input_1580, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_int (_filename) (_text) (input_1580)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1585, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1585)) with +| Trx_runtime.Ok ( ( ( input_1581, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1581)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1586, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1586)) with +| Trx_runtime.Ok ( ( ( input_1582, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1582)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1587, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1587, +| Trx_runtime.Ok ( ( ( input_1583, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1583, #315 "ocaml_parser.trx" -( `Int __2 )), ((Trx_runtime.emptyError) (input_1587)))))))))))))))))) +( `Int __2 )), ((Trx_runtime.emptyError) (input_1583)))))))))))))))))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1583, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1583, +| Trx_runtime.Ok ( ( ( input_1579, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1579, #315 "ocaml_parser.trx" ( match __3 with `MlIdent s -> let tmp = String.concat_map "." (fun s -> s) __2 in let tmp = if tmp = "" then "" else tmp ^ "." in - `MlIdent (tmp ^ s) | `Int i -> `Int i )), ((Trx_runtime.emptyError) (input_1583))))))))))))) in + `MlIdent (tmp ^ s) | `Int i -> `Int i )), ((Trx_runtime.emptyError) (input_1579))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_Dot_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_BEGIN = @@ -7166,9 +7140,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('b'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('g'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('n'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "begin")) ) else ( None )) (input) ("\"begin\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1706, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1706)) with +| Trx_runtime.Ok ( ( ( input_1702, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1702)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1707, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1707, ( () )), ((Trx_runtime.emptyError) (input_1707)))))))))) in +| Trx_runtime.Ok ( ( ( input_1703, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1703, ( () )), ((Trx_runtime.emptyError) (input_1703)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_BEGIN_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_END = @@ -7181,9 +7155,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('d'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "end")) ) else ( None )) (input) ("\"end\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1694, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1694)) with +| Trx_runtime.Ok ( ( ( input_1690, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1690)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1695, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1695, ( () )), ((Trx_runtime.emptyError) (input_1695)))))))))) in +| Trx_runtime.Ok ( ( ( input_1691, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1691, ( () )), ((Trx_runtime.emptyError) (input_1691)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_END_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_WITH = @@ -7196,9 +7170,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('w'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('h'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "with")) ) else ( None )) (input) ("\"with\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1642, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1642)) with +| Trx_runtime.Ok ( ( ( input_1638, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1638)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1643, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1643, ( () )), ((Trx_runtime.emptyError) (input_1643)))))))))) in +| Trx_runtime.Ok ( ( ( input_1639, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1639, ( () )), ((Trx_runtime.emptyError) (input_1639)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_WITH_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_RNameOpt = @@ -7211,13 +7185,13 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_mlIdent (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1363, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_WITH (_filename) (_text) (input_1363)) with +| Trx_runtime.Ok ( ( ( input_1359, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_WITH (_filename) (_text) (input_1359)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1364, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1364, +| Trx_runtime.Ok ( ( ( input_1360, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1360, #257 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1364)))))))))) with +( __1 )), ((Trx_runtime.emptyError) (input_1360)))))))))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1362, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1362, __1), ((Trx_runtime.emptyError) (input_1362))))))) in +| Trx_runtime.Ok ( ( ( input_1358, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1358, __1), ((Trx_runtime.emptyError) (input_1358))))))) in (Hashtbl.add (memo_Ocaml_parser_RNameOpt_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_moduleName_ = @@ -7230,9 +7204,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_capMlIdent_ (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1256, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1256, +| Trx_runtime.Ok ( ( ( input_1252, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1252, #119 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1256))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1252))))))) in (Hashtbl.add (memo_Ocaml_parser_moduleName__err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_AND = @@ -7245,9 +7219,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('d'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "and")) ) else ( None )) (input) ("\"and\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1714, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1714)) with +| Trx_runtime.Ok ( ( ( input_1710, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1710)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1715, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1715, ( () )), ((Trx_runtime.emptyError) (input_1715)))))))))) in +| Trx_runtime.Ok ( ( ( input_1711, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1711, ( () )), ((Trx_runtime.emptyError) (input_1711)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_AND_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_IN = @@ -7260,9 +7234,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('n'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "in")) ) else ( None )) (input) ("\"in\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1680, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1680)) with +| Trx_runtime.Ok ( ( ( input_1676, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1676)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1681, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1681, ( () )), ((Trx_runtime.emptyError) (input_1681)))))))))) in +| Trx_runtime.Ok ( ( ( input_1677, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1677, ( () )), ((Trx_runtime.emptyError) (input_1677)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_IN_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_LET = @@ -7275,9 +7249,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "let")) ) else ( None )) (input) ("\"let\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1678, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1678)) with +| Trx_runtime.Ok ( ( ( input_1674, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1674)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1679, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1679, ( () )), ((Trx_runtime.emptyError) (input_1679)))))))))) in +| Trx_runtime.Ok ( ( ( input_1675, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1675, ( () )), ((Trx_runtime.emptyError) (input_1675)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_LET_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_REC = @@ -7290,9 +7264,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('c'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "rec")) ) else ( None )) (input) ("\"rec\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1662, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1662)) with +| Trx_runtime.Ok ( ( ( input_1658, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1658)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1663, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1663, ( () )), ((Trx_runtime.emptyError) (input_1663)))))))))) in +| Trx_runtime.Ok ( ( ( input_1659, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1659, ( () )), ((Trx_runtime.emptyError) (input_1659)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_REC_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_REF = @@ -7305,9 +7279,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('f'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "ref")) ) else ( None )) (input) ("\"ref\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1660, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1660)) with +| Trx_runtime.Ok ( ( ( input_1656, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1656)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1661, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1661, ( () )), ((Trx_runtime.emptyError) (input_1661)))))))))) in +| Trx_runtime.Ok ( ( ( input_1657, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1657, ( () )), ((Trx_runtime.emptyError) (input_1657)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_REF_err) (input) (res)) ; res) ) let rec try_Default_bar = @@ -7321,9 +7295,9 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('|')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'|'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1894, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1894)) with +| Trx_runtime.Ok ( ( ( input_1890, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_spacing (_filename) (_text) (input_1890)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1895, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1895, ( () )), ((Trx_runtime.emptyError) (input_1895)))))))))) in +| Trx_runtime.Ok ( ( ( input_1891, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1891, ( () )), ((Trx_runtime.emptyError) (input_1891)))))))))) in (Hashtbl.add (memo_Default_bar_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_FUNCTION = @@ -7336,9 +7310,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (8))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('f'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('n'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('c'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (6))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (7))))) ('n'))) (true)))))))))))))))))) ) then ( Some(((((+)) (input) (8)), "function")) ) else ( None )) (input) ("\"function\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1686, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1686)) with +| Trx_runtime.Ok ( ( ( input_1682, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1682)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1687, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1687, ( () )), ((Trx_runtime.emptyError) (input_1687)))))))))) in +| Trx_runtime.Ok ( ( ( input_1683, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1683, ( () )), ((Trx_runtime.emptyError) (input_1683)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_FUNCTION_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_MATCH = @@ -7351,9 +7325,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('m'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('c'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('h'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "match")) ) else ( None )) (input) ("\"match\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1676, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1676)) with +| Trx_runtime.Ok ( ( ( input_1672, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1672)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1677, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1677, ( () )), ((Trx_runtime.emptyError) (input_1677)))))))))) in +| Trx_runtime.Ok ( ( ( input_1673, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1673, ( () )), ((Trx_runtime.emptyError) (input_1673)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_MATCH_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_WHEN = @@ -7366,9 +7340,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('w'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('h'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('n'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "when")) ) else ( None )) (input) ("\"when\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1644, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1644)) with +| Trx_runtime.Ok ( ( ( input_1640, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1640)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1645, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1645, ( () )), ((Trx_runtime.emptyError) (input_1645)))))))))) in +| Trx_runtime.Ok ( ( ( input_1641, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1641, ( () )), ((Trx_runtime.emptyError) (input_1641)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_WHEN_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_MODULE = @@ -7381,9 +7355,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (6))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('m'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('d'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('l'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('e'))) (true)))))))))))))) ) then ( Some(((((+)) (input) (6)), "module")) ) else ( None )) (input) ("\"module\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1674, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1674)) with +| Trx_runtime.Ok ( ( ( input_1670, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1670)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1675, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1675, ( () )), ((Trx_runtime.emptyError) (input_1675)))))))))) in +| Trx_runtime.Ok ( ( ( input_1671, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1671, ( () )), ((Trx_runtime.emptyError) (input_1671)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_MODULE_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_STRUCT = @@ -7396,9 +7370,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (6))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('u'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('c'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (5))))) ('t'))) (true)))))))))))))) ) then ( Some(((((+)) (input) (6)), "struct")) ) else ( None )) (input) ("\"struct\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1656, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1656)) with +| Trx_runtime.Ok ( ( ( input_1652, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1652)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1657, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1657, ( () )), ((Trx_runtime.emptyError) (input_1657)))))))))) in +| Trx_runtime.Ok ( ( ( input_1653, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1653, ( () )), ((Trx_runtime.emptyError) (input_1653)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_STRUCT_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_TYPE = @@ -7411,13 +7385,13 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('y'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('p'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('e'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "type")) ) else ( None )) (input) ("\"type\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1648, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1648)) with +| Trx_runtime.Ok ( ( ( input_1644, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1644)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1649, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1649, ( () )), ((Trx_runtime.emptyError) (input_1649)))))))))) in +| Trx_runtime.Ok ( ( ( input_1645, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1645, ( () )), ((Trx_runtime.emptyError) (input_1645)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_TYPE_err) (input) (res)) ; res) ) let rec try_Ocaml_types_typedeflist = -#57 "ocaml_types.trx" +#56 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -7426,30 +7400,30 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Default_bar (_filename) (_text) (input)) with Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input, None), err)) -| Trx_runtime.Ok ( ( ( input_1005, r ), err ) ) -> Trx_runtime.Ok(((input_1005, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1003, r ), err ) ) -> Trx_runtime.Ok(((input_1003, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_999, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_999)) with +| Trx_runtime.Ok ( ( ( input_997, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_997)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1000, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1002 -> (match (try_Default_bar (_filename) (_text) (input_1002)) with +| Trx_runtime.Ok ( ( ( input_998, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1000 -> (match (try_Default_bar (_filename) (_text) (input_1000)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1003, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_1003)) with +| Trx_runtime.Ok ( ( ( input_1001, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedef (_filename) (_text) (input_1001)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1004, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1004, -#57 "ocaml_types.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1004)))))))))))) (input_1000)) with +| Trx_runtime.Ok ( ( ( input_1002, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1002, +#56 "ocaml_types.trx" +( __2 )), ((Trx_runtime.emptyError) (input_1002)))))))))))) (input_998)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1001, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1001, -#57 "ocaml_types.trx" +| Trx_runtime.Ok ( ( ( input_999, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_999, +#56 "ocaml_types.trx" ( match __2, __3 with | _, [] -> __2 | TypeConstructor l1, l2 -> TypeConstructor ( l1 @ List.flatten (List.map (function | TypeConstructor l -> l | _ -> failwith "@Ocaml_types.typedeflist : must be a constructor") l2)) | _x, _xl -> failwith "@Ocaml_types.typedeflist : impossible" - )), ((Trx_runtime.emptyError) (input_1001))))))))))))) in + )), ((Trx_runtime.emptyError) (input_999))))))))))))) in (Hashtbl.add (memo_Ocaml_types_typedeflist_err) (input) (res)) ; res) ) let rec try_Ocaml_types_typevars = -#44 "ocaml_types.trx" +#43 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -7458,31 +7432,31 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_types_typevar (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_961, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_961, -#44 "ocaml_types.trx" -( [__1] )), ((Trx_runtime.emptyError) (input_961))))))) with +| Trx_runtime.Ok ( ( ( input_959, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_959, +#43 "ocaml_types.trx" +( [__1] )), ((Trx_runtime.emptyError) (input_959))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_954, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typevar (_filename) (_text) (input_954)) with +| Trx_runtime.Ok ( ( ( input_952, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typevar (_filename) (_text) (input_952)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_955, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_958 -> (match (try_Default_comma (_filename) (_text) (input_958)) with +| Trx_runtime.Ok ( ( ( input_953, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_956 -> (match (try_Default_comma (_filename) (_text) (input_956)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_959, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typevar (_filename) (_text) (input_959)) with +| Trx_runtime.Ok ( ( ( input_957, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typevar (_filename) (_text) (input_957)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_960, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_960, -#45 "ocaml_types.trx" -( __2 )), ((Trx_runtime.emptyError) (input_960)))))))))))) (input_955)) with +| Trx_runtime.Ok ( ( ( input_958, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_958, +#44 "ocaml_types.trx" +( __2 )), ((Trx_runtime.emptyError) (input_958)))))))))))) (input_953)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_956, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_956)) with +| Trx_runtime.Ok ( ( ( input_954, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_954)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_957, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_957, -#45 "ocaml_types.trx" -( __2 :: __3 )), ((Trx_runtime.emptyError) (input_957)))))))))))))))))) +| Trx_runtime.Ok ( ( ( input_955, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_955, +#44 "ocaml_types.trx" +( __2 :: __3 )), ((Trx_runtime.emptyError) (input_955)))))))))))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_typevars_err) (input) (res)) ; res) ) let rec try_Ocaml_types_typedeclaration = -#49 "ocaml_types.trx" +#48 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -7491,35 +7465,35 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_TYPE (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1026, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_typevars (_filename) (_text) (input_1026)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1026, None), err)) -| Trx_runtime.Ok ( ( ( input_1039, r ), err ) ) -> Trx_runtime.Ok(((input_1039, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1024, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_typevars (_filename) (_text) (input_1024)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1024, None), err)) +| Trx_runtime.Ok ( ( ( input_1037, r ), err ) ) -> Trx_runtime.Ok(((input_1037, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1027, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent (_filename) (_text) (input_1027)) with +| Trx_runtime.Ok ( ( ( input_1025, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent (_filename) (_text) (input_1025)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1028, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1028)) with +| Trx_runtime.Ok ( ( ( input_1026, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1026)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1029, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedeflist (_filename) (_text) (input_1029)) with +| Trx_runtime.Ok ( ( ( input_1027, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedeflist (_filename) (_text) (input_1027)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1030, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1032 -> (match (try_Ocaml_keywords_AND (_filename) (_text) (input_1032)) with +| Trx_runtime.Ok ( ( ( input_1028, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1030 -> (match (try_Ocaml_keywords_AND (_filename) (_text) (input_1030)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1033, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_typevars (_filename) (_text) (input_1033)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1033, None), err)) -| Trx_runtime.Ok ( ( ( input_1038, r ), err ) ) -> Trx_runtime.Ok(((input_1038, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1031, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_typevars (_filename) (_text) (input_1031)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1031, None), err)) +| Trx_runtime.Ok ( ( ( input_1036, r ), err ) ) -> Trx_runtime.Ok(((input_1036, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1034, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent (_filename) (_text) (input_1034)) with +| Trx_runtime.Ok ( ( ( input_1032, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typeIdent (_filename) (_text) (input_1032)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1035, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1035)) with +| Trx_runtime.Ok ( ( ( input_1033, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1033)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1036, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedeflist (_filename) (_text) (input_1036)) with +| Trx_runtime.Ok ( ( ( input_1034, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedeflist (_filename) (_text) (input_1034)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1037, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1037, -#50 "ocaml_types.trx" -( compute_vars __2, __3, __5 )), ((Trx_runtime.emptyError) (input_1037))))))))))))))))))))) (input_1030)) with +| Trx_runtime.Ok ( ( ( input_1035, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1035, +#49 "ocaml_types.trx" +( compute_vars __2, __3, __5 )), ((Trx_runtime.emptyError) (input_1035))))))))))))))))))))) (input_1028)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1031, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1031, -#51 "ocaml_types.trx" -( (compute_vars __2, __3, __5) :: __6 )), ((Trx_runtime.emptyError) (input_1031)))))))))))))))))))))) in +| Trx_runtime.Ok ( ( ( input_1029, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1029, +#50 "ocaml_types.trx" +( (compute_vars __2, __3, __5) :: __6 )), ((Trx_runtime.emptyError) (input_1029)))))))))))))))))))))) in (Hashtbl.add (memo_Ocaml_types_typedeclaration_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_Type = @@ -7532,9 +7506,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_types_typedeclaration (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1315, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1315, +| Trx_runtime.Ok ( ( ( input_1311, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1311, #262 "ocaml_parser.trx" -( Type __1 )), ((Trx_runtime.emptyError) (input_1315))))))) in +( Type __1 )), ((Trx_runtime.emptyError) (input_1311))))))) in (Hashtbl.add (memo_Ocaml_parser_Type_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_moduleName = @@ -7547,9 +7521,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_capMlIdent (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1257, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1257, +| Trx_runtime.Ok ( ( ( input_1253, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1253, #118 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1257))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1253))))))) in (Hashtbl.add (memo_Ocaml_parser_moduleName_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_OPEN = @@ -7562,9 +7536,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (4))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('o'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('p'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('e'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('n'))) (true)))))))))) ) then ( Some(((((+)) (input) (4)), "open")) ) else ( None )) (input) ("\"open\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1668, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1668)) with +| Trx_runtime.Ok ( ( ( input_1664, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1664)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1669, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1669, ( () )), ((Trx_runtime.emptyError) (input_1669)))))))))) in +| Trx_runtime.Ok ( ( ( input_1665, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1665, ( () )), ((Trx_runtime.emptyError) (input_1665)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_OPEN_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_Open = @@ -7577,11 +7551,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_OPEN (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1381, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_moduleName (_filename) (_text) (input_1381)) with +| Trx_runtime.Ok ( ( ( input_1377, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_moduleName (_filename) (_text) (input_1377)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1382, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1382, +| Trx_runtime.Ok ( ( ( input_1378, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1378, #194 "ocaml_parser.trx" -( Open [ Ident.source __2 ] )), ((Trx_runtime.emptyError) (input_1382)))))))))) in +( Open [ Ident.source __2 ] )), ((Trx_runtime.emptyError) (input_1378)))))))))) in (Hashtbl.add (memo_Ocaml_parser_Open_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_RAISE = @@ -7594,9 +7568,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (5))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('a'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('i'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (3))))) ('s'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (4))))) ('e'))) (true)))))))))))) ) then ( Some(((((+)) (input) (5)), "raise")) ) else ( None )) (input) ("\"raise\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1664, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1664)) with +| Trx_runtime.Ok ( ( ( input_1660, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1660)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1665, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1665, ( () )), ((Trx_runtime.emptyError) (input_1665)))))))))) in +| Trx_runtime.Ok ( ( ( input_1661, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1661, ( () )), ((Trx_runtime.emptyError) (input_1661)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_RAISE_err) (input) (res)) ; res) ) let rec try_Ocaml_keywords_TRY = @@ -7609,9 +7583,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (3))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('t'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('r'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (2))))) ('y'))) (true)))))))) ) then ( Some(((((+)) (input) (3)), "try")) ) else ( None )) (input) ("\"try\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1650, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1650)) with +| Trx_runtime.Ok ( ( ( input_1646, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_spacing (_filename) (_text) (input_1646)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1651, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1651, ( () )), ((Trx_runtime.emptyError) (input_1651)))))))))) in +| Trx_runtime.Ok ( ( ( input_1647, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1647, ( () )), ((Trx_runtime.emptyError) (input_1647)))))))))) in (Hashtbl.add (memo_Ocaml_keywords_TRY_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_FDIV = @@ -7624,11 +7598,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('/'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('.'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "/.")) ) else ( None )) (input) ("\"/.\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1539, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1539)) with +| Trx_runtime.Ok ( ( ( input_1535, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1535)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1540, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1540, +| Trx_runtime.Ok ( ( ( input_1536, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1536, #411 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1540)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1536)))))))))) in (Hashtbl.add (memo_Ocaml_parser_FDIV_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_IDIV = @@ -7641,11 +7615,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('/'))) (true)))) ) then ( Some(((((+)) (input) (1)), "/")) ) else ( None )) (input) ("\"/\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1525, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1525)) with +| Trx_runtime.Ok ( ( ( input_1521, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1521)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1526, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1526, +| Trx_runtime.Ok ( ( ( input_1522, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1522, #406 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1526)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1522)))))))))) in (Hashtbl.add (memo_Ocaml_parser_IDIV_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_DIV = @@ -7658,10 +7632,10 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_FDIV (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1594, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1594, __1), ((Trx_runtime.emptyError) (input_1594))))))) with +| Trx_runtime.Ok ( ( ( input_1590, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1590, __1), ((Trx_runtime.emptyError) (input_1590))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_IDIV (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1593, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1593, __1), ((Trx_runtime.emptyError) (input_1593))))))))) +| Trx_runtime.Ok ( ( ( input_1589, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1589, __1), ((Trx_runtime.emptyError) (input_1589))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_DIV_err) (input) (res)) ; res) ) @@ -7675,11 +7649,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('*'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (1))))) ('.'))) (true)))))) ) then ( Some(((((+)) (input) (2)), "*.")) ) else ( None )) (input) ("\"*.\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1535, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1535)) with +| Trx_runtime.Ok ( ( ( input_1531, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1531)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1536, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1536, +| Trx_runtime.Ok ( ( ( input_1532, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1532, #410 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1536)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1532)))))))))) in (Hashtbl.add (memo_Ocaml_parser_FMULT_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_IMULT = @@ -7692,11 +7666,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input) (0))))) ('*'))) (true)))) ) then ( Some(((((+)) (input) (1)), "*")) ) else ( None )) (input) ("\"*\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1521, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1521)) with +| Trx_runtime.Ok ( ( ( input_1517, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1517)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1522, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1522, +| Trx_runtime.Ok ( ( ( input_1518, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1518, #405 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1522)))))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1518)))))))))) in (Hashtbl.add (memo_Ocaml_parser_IMULT_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_MULT = @@ -7709,10 +7683,10 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_FMULT (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1446, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1446, __1), ((Trx_runtime.emptyError) (input_1446))))))) with +| Trx_runtime.Ok ( ( ( input_1442, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1442, __1), ((Trx_runtime.emptyError) (input_1442))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_IMULT (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1445, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1445, __1), ((Trx_runtime.emptyError) (input_1445))))))))) +| Trx_runtime.Ok ( ( ( input_1441, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1441, __1), ((Trx_runtime.emptyError) (input_1441))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_MULT_err) (input) (res)) ; res) ) @@ -7726,16 +7700,16 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (try_Ocaml_parser_MULT (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1499, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1499, __1), ((Trx_runtime.emptyError) (input_1499))))))) with +| Trx_runtime.Ok ( ( ( input_1495, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1495, __1), ((Trx_runtime.emptyError) (input_1495))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_DIV (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1498, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1498, __1), ((Trx_runtime.emptyError) (input_1498))))))))) +| Trx_runtime.Ok ( ( ( input_1494, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1494, __1), ((Trx_runtime.emptyError) (input_1494))))))))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1497, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1497, +| Trx_runtime.Ok ( ( ( input_1493, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1493, #376 "ocaml_parser.trx" ( Ocaml.make_Var __1 - )), ((Trx_runtime.emptyError) (input_1497))))))) in + )), ((Trx_runtime.emptyError) (input_1493))))))) in (Hashtbl.add (memo_Ocaml_parser_InfOpLevel4_err) (input) (res)) ; res) ) let rec try_Ocaml_parser_Var = @@ -7748,9 +7722,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_paramEffectif (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1314, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1314, +| Trx_runtime.Ok ( ( ( input_1310, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1310, #219 "ocaml_parser.trx" -( Var __1 )), ((Trx_runtime.emptyError) (input_1314))))))) in +( Var __1 )), ((Trx_runtime.emptyError) (input_1310))))))) in (Hashtbl.add (memo_Ocaml_parser_Var_err) (input) (res)) ; res) ) and try_Ocaml_parser_Try = @@ -7763,27 +7737,27 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_TRY (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1316, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1316)) with +| Trx_runtime.Ok ( ( ( input_1312, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1312)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1317, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_WITH (_filename) (_text) (input_1317)) with +| Trx_runtime.Ok ( ( ( input_1313, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_WITH (_filename) (_text) (input_1313)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1318, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_bar (_filename) (_text) (input_1318)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1318, None), err)) -| Trx_runtime.Ok ( ( ( input_1325, r ), err ) ) -> Trx_runtime.Ok(((input_1325, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1314, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_bar (_filename) (_text) (input_1314)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1314, None), err)) +| Trx_runtime.Ok ( ( ( input_1321, r ), err ) ) -> Trx_runtime.Ok(((input_1321, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1319, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1319)) with +| Trx_runtime.Ok ( ( ( input_1315, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1315)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1320, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1322 -> (match (try_Default_bar (_filename) (_text) (input_1322)) with +| Trx_runtime.Ok ( ( ( input_1316, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1318 -> (match (try_Default_bar (_filename) (_text) (input_1318)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1323, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1323)) with +| Trx_runtime.Ok ( ( ( input_1319, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1319)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1324, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1324, +| Trx_runtime.Ok ( ( ( input_1320, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1320, #288 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1324)))))))))))) (input_1320)) with +( __2 )), ((Trx_runtime.emptyError) (input_1320)))))))))))) (input_1316)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1321, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1321, +| Trx_runtime.Ok ( ( ( input_1317, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1317, #288 "ocaml_parser.trx" -( Try (__2 , __5::__6) )), ((Trx_runtime.emptyError) (input_1321)))))))))))))))))))))) in +( Try (__2 , __5::__6) )), ((Trx_runtime.emptyError) (input_1317)))))))))))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_Try_err) (input) (res)) ; res) ) and try_Ocaml_parser_Let = @@ -7796,39 +7770,39 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (try_Ocaml_keywords_LET (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1485, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_keywords_REC (_filename) (_text) (input_1485)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1485, None), err)) -| Trx_runtime.Ok ( ( ( input_1491, r ), err ) ) -> Trx_runtime.Ok(((input_1491, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1481, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_keywords_REC (_filename) (_text) (input_1481)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1481, None), err)) +| Trx_runtime.Ok ( ( ( input_1487, r ), err ) ) -> Trx_runtime.Ok(((input_1487, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1486, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1486)) with +| Trx_runtime.Ok ( ( ( input_1482, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1482)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1487, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1490 -> (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1490)))) (input_1487)) with +| Trx_runtime.Ok ( ( ( input_1483, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1486 -> (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1486)))) (input_1483)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1488, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1488)) with +| Trx_runtime.Ok ( ( ( input_1484, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1484)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1489, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1489, +| Trx_runtime.Ok ( ( ( input_1485, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1485, #234 "ocaml_parser.trx" -( __2, __3, __4 )), ((Trx_runtime.emptyError) (input_1489))))))))))))))))))) with +( __2, __3, __4 )), ((Trx_runtime.emptyError) (input_1485))))))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input, None), err)) -| Trx_runtime.Ok ( ( ( input_1492, r ), err ) ) -> Trx_runtime.Ok(((input_1492, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1488, r ), err ) ) -> Trx_runtime.Ok(((input_1488, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1475, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1475)) with +| Trx_runtime.Ok ( ( ( input_1471, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1471)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1476, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1478 -> (match (try_Ocaml_keywords_AND (_filename) (_text) (input_1478)) with +| Trx_runtime.Ok ( ( ( input_1472, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1474 -> (match (try_Ocaml_keywords_AND (_filename) (_text) (input_1474)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1479, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1479)) with +| Trx_runtime.Ok ( ( ( input_1475, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1475)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1480, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1484 -> (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1484)))) (input_1480)) with +| Trx_runtime.Ok ( ( ( input_1476, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1480 -> (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1480)))) (input_1476)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1481, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1481)) with +| Trx_runtime.Ok ( ( ( input_1477, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1477)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1482, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1482)) with +| Trx_runtime.Ok ( ( ( input_1478, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1478)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1483, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1483, +| Trx_runtime.Ok ( ( ( input_1479, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1479, #236 "ocaml_parser.trx" -( let tmp = make_fun __5 __3 in __2, tmp )), ((Trx_runtime.emptyError) (input_1483))))))))))))))))))))) (input_1476)) with +( let tmp = make_fun __5 __3 in __2, tmp )), ((Trx_runtime.emptyError) (input_1479))))))))))))))))))))) (input_1472)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1477, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1477, +| Trx_runtime.Ok ( ( ( input_1473, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1473, #238 "ocaml_parser.trx" ( match __1 with | None -> __2 @@ -7837,7 +7811,7 @@ Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input, None), err)) | Some _ -> let tmp = make_fun __2 pfs in Letrec ((name, tmp)::__3) | None -> let tmp = make_fun __2 pfs in Let ((name, tmp)::__3) - )), ((Trx_runtime.emptyError) (input_1477))))))))))))) in + )), ((Trx_runtime.emptyError) (input_1473))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_Let_err) (input) (res)) ; res) ) and try_Ocaml_parser_pattern = @@ -7850,22 +7824,22 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1168, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_WHEN (_filename) (_text) (input_1168)) with +| Trx_runtime.Ok ( ( ( input_1164, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_WHEN (_filename) (_text) (input_1164)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1170, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1170)) with +| Trx_runtime.Ok ( ( ( input_1166, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1166)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1171, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1171, +| Trx_runtime.Ok ( ( ( input_1167, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1167, #185 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1171)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1168, None), err)) -| Trx_runtime.Ok ( ( ( input_1172, r ), err ) ) -> Trx_runtime.Ok(((input_1172, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1167)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1164, None), err)) +| Trx_runtime.Ok ( ( ( input_1168, r ), err ) ) -> Trx_runtime.Ok(((input_1168, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1169, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1169, +| Trx_runtime.Ok ( ( ( input_1165, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1165, #186 "ocaml_parser.trx" ( match __2 with | None -> None, __1 | Some x -> Some x, __1 - )), ((Trx_runtime.emptyError) (input_1169)))))))))) in + )), ((Trx_runtime.emptyError) (input_1165)))))))))) in (Hashtbl.add (memo_Ocaml_parser_pattern_err) (input) (res)) ; res) ) and try_Ocaml_parser_Assert = @@ -7878,11 +7852,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_ASSERT (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1620, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1620)) with +| Trx_runtime.Ok ( ( ( input_1616, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1616)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1621, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1621, +| Trx_runtime.Ok ( ( ( input_1617, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1617, #290 "ocaml_parser.trx" -( Assert __2 )), ((Trx_runtime.emptyError) (input_1621)))))))))) in +( Assert __2 )), ((Trx_runtime.emptyError) (input_1617)))))))))) in (Hashtbl.add (memo_Ocaml_parser_Assert_err) (input) (res)) ; res) ) and try_Ocaml_parser_paramFormel = @@ -7895,139 +7869,139 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Default_tilde_ (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1215, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1215)) with +| Trx_runtime.Ok ( ( ( input_1211, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1211)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1216, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1216)) with +| Trx_runtime.Ok ( ( ( input_1212, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1212)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1217, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1217)) with +| Trx_runtime.Ok ( ( ( input_1213, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1213)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1220, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1220)) with +| Trx_runtime.Ok ( ( ( input_1216, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1216)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1221, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1221, +| Trx_runtime.Ok ( ( ( input_1217, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1217, #63 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1221)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1217, None), err)) -| Trx_runtime.Ok ( ( ( input_1222, r ), err ) ) -> Trx_runtime.Ok(((input_1222, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1217)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1213, None), err)) +| Trx_runtime.Ok ( ( ( input_1218, r ), err ) ) -> Trx_runtime.Ok(((input_1218, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1218, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1218)) with +| Trx_runtime.Ok ( ( ( input_1214, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1214)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1219, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1219, +| Trx_runtime.Ok ( ( ( input_1215, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1215, #64 "ocaml_parser.trx" ( Label (__3, None, __4) - )), ((Trx_runtime.emptyError) (input_1219))))))))))))))))))) with + )), ((Trx_runtime.emptyError) (input_1215))))))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_tilde_ (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1208, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_ (_filename) (_text) (input_1208)) with +| Trx_runtime.Ok ( ( ( input_1204, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_ (_filename) (_text) (input_1204)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1209, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1209)) with +| Trx_runtime.Ok ( ( ( input_1205, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1205)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1212, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1212)) with +| Trx_runtime.Ok ( ( ( input_1208, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1208)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1213, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1213, +| Trx_runtime.Ok ( ( ( input_1209, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1209, #68 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1213)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1209, None), err)) -| Trx_runtime.Ok ( ( ( input_1214, r ), err ) ) -> Trx_runtime.Ok(((input_1214, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1209)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1205, None), err)) +| Trx_runtime.Ok ( ( ( input_1210, r ), err ) ) -> Trx_runtime.Ok(((input_1210, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1210, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1210)) with +| Trx_runtime.Ok ( ( ( input_1206, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1206)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1211, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1211, +| Trx_runtime.Ok ( ( ( input_1207, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1207, #69 "ocaml_parser.trx" ( Label (__2, __3, None) - )), ((Trx_runtime.emptyError) (input_1211)))))))))))))))) with + )), ((Trx_runtime.emptyError) (input_1207)))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_tilde_ (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1198, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_ (_filename) (_text) (input_1198)) with +| Trx_runtime.Ok ( ( ( input_1194, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_ (_filename) (_text) (input_1194)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1199, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_colon (_filename) (_text) (input_1199)) with +| Trx_runtime.Ok ( ( ( input_1195, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_colon (_filename) (_text) (input_1195)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1200, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1200)) with +| Trx_runtime.Ok ( ( ( input_1196, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1196)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1201, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1201)) with +| Trx_runtime.Ok ( ( ( input_1197, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input_1197)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1202, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1202)) with +| Trx_runtime.Ok ( ( ( input_1198, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1198)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1205, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1205)) with +| Trx_runtime.Ok ( ( ( input_1201, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1201)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1206, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1206, +| Trx_runtime.Ok ( ( ( input_1202, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1202, #73 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1206)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1202, None), err)) -| Trx_runtime.Ok ( ( ( input_1207, r ), err ) ) -> Trx_runtime.Ok(((input_1207, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1202)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1198, None), err)) +| Trx_runtime.Ok ( ( ( input_1203, r ), err ) ) -> Trx_runtime.Ok(((input_1203, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1203, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1203)) with +| Trx_runtime.Ok ( ( ( input_1199, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1199)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1204, __7 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1204, +| Trx_runtime.Ok ( ( ( input_1200, __7 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1200, #74 "ocaml_parser.trx" ( Label (__2, Some __5, __6) - )), ((Trx_runtime.emptyError) (input_1204))))))))))))))))))))))))) with + )), ((Trx_runtime.emptyError) (input_1200))))))))))))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_question (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1186, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1186)) with +| Trx_runtime.Ok ( ( ( input_1182, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1182)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1187, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1187)) with +| Trx_runtime.Ok ( ( ( input_1183, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1183)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1188, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1188)) with +| Trx_runtime.Ok ( ( ( input_1184, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1184)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1195, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1195)) with +| Trx_runtime.Ok ( ( ( input_1191, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1191)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1196, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1196, +| Trx_runtime.Ok ( ( ( input_1192, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1192, #78 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1196)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1188, None), err)) -| Trx_runtime.Ok ( ( ( input_1197, r ), err ) ) -> Trx_runtime.Ok(((input_1197, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1192)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1184, None), err)) +| Trx_runtime.Ok ( ( ( input_1193, r ), err ) ) -> Trx_runtime.Ok(((input_1193, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1189, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_equal (_filename) (_text) (input_1189)) with +| Trx_runtime.Ok ( ( ( input_1185, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_equal (_filename) (_text) (input_1185)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1192, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1192)) with +| Trx_runtime.Ok ( ( ( input_1188, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1188)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1193, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1193, +| Trx_runtime.Ok ( ( ( input_1189, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1189, #78 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1193)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1189, None), err)) -| Trx_runtime.Ok ( ( ( input_1194, r ), err ) ) -> Trx_runtime.Ok(((input_1194, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1189)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1185, None), err)) +| Trx_runtime.Ok ( ( ( input_1190, r ), err ) ) -> Trx_runtime.Ok(((input_1190, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1190, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1190)) with +| Trx_runtime.Ok ( ( ( input_1186, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1186)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1191, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1191, +| Trx_runtime.Ok ( ( ( input_1187, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1187, #79 "ocaml_parser.trx" ( Opt (__3, __4, __5) - )), ((Trx_runtime.emptyError) (input_1191)))))))))))))))))))))) with + )), ((Trx_runtime.emptyError) (input_1187)))))))))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_question (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1184, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1184)) with +| Trx_runtime.Ok ( ( ( input_1180, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1180)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1185, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1185, +| Trx_runtime.Ok ( ( ( input_1181, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1181, #83 "ocaml_parser.trx" -( Opt (__2, None, None) )), ((Trx_runtime.emptyError) (input_1185)))))))))) with +( Opt (__2, None, None) )), ((Trx_runtime.emptyError) (input_1181)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_lparen (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1177, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1177)) with +| Trx_runtime.Ok ( ( ( input_1173, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1173)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1178, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1178)) with +| Trx_runtime.Ok ( ( ( input_1174, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1174)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1181, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1181)) with +| Trx_runtime.Ok ( ( ( input_1177, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1177)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1182, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1182, +| Trx_runtime.Ok ( ( ( input_1178, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1178, #85 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1182)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1178, None), err)) -| Trx_runtime.Ok ( ( ( input_1183, r ), err ) ) -> Trx_runtime.Ok(((input_1183, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1178)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1174, None), err)) +| Trx_runtime.Ok ( ( ( input_1179, r ), err ) ) -> Trx_runtime.Ok(((input_1179, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1179, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1179)) with +| Trx_runtime.Ok ( ( ( input_1175, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1175)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1180, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1180, +| Trx_runtime.Ok ( ( ( input_1176, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1176, #86 "ocaml_parser.trx" ( match __3 with | None -> Pat (PatVar (Ident.source __2)) | Some x -> Pat (PatAnnot (PatVar (Ident.source __2), x)) - )), ((Trx_runtime.emptyError) (input_1180)))))))))))))))) with + )), ((Trx_runtime.emptyError) (input_1176)))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_pattern_aux (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1176, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1176, +| Trx_runtime.Ok ( ( ( input_1172, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1172, #93 "ocaml_parser.trx" ( Pat __1 - )), ((Trx_runtime.emptyError) (input_1176))))))))) + )), ((Trx_runtime.emptyError) (input_1172))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) @@ -8044,21 +8018,21 @@ and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Ocaml_parser_Abs_err) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary (true) ((fun input_1633 -> (match (try_Ocaml_keywords_FUN (_filename) (_text) (input_1633)) with +Not_found -> let res = (match (Trx_runtime.while_primary (true) ((fun input_1629 -> (match (try_Ocaml_keywords_FUN (_filename) (_text) (input_1629)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1634, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (true) ((fun input_1637 -> (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1637)))) (input_1634)) with +| Trx_runtime.Ok ( ( ( input_1630, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (true) ((fun input_1633 -> (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1633)))) (input_1630)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1635, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rightarrow (_filename) (_text) (input_1635)) with +| Trx_runtime.Ok ( ( ( input_1631, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rightarrow (_filename) (_text) (input_1631)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1636, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1636, +| Trx_runtime.Ok ( ( ( input_1632, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1632, #229 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1636))))))))))))))) (input)) with +( __2 )), ((Trx_runtime.emptyError) (input_1632))))))))))))))) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1631, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1631)) with +| Trx_runtime.Ok ( ( ( input_1627, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1627)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1632, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1632, +| Trx_runtime.Ok ( ( ( input_1628, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1628, #229 "ocaml_parser.trx" -( Abs (List.flatten __1, __2) )), ((Trx_runtime.emptyError) (input_1632)))))))))) in +( Abs (List.flatten __1, __2) )), ((Trx_runtime.emptyError) (input_1628)))))))))) in (Hashtbl.add (memo_Ocaml_parser_Abs_err) (input) (res)) ; res) ) and try_Ocaml_parser_Module = @@ -8071,59 +8045,59 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_MODULE (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1403, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_moduleName (_filename) (_text) (input_1403)) with +| Trx_runtime.Ok ( ( ( input_1399, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_moduleName (_filename) (_text) (input_1399)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1404, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1417 -> (match (try_Default_lparen (_filename) (_text) (input_1417)) with +| Trx_runtime.Ok ( ( ( input_1400, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1413 -> (match (try_Default_lparen (_filename) (_text) (input_1413)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1418, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_moduleName (_filename) (_text) (input_1418)) with +| Trx_runtime.Ok ( ( ( input_1414, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_moduleName (_filename) (_text) (input_1414)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1419, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1419)) with +| Trx_runtime.Ok ( ( ( input_1415, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1415)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1422, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_moduleName (_filename) (_text) (input_1422)) with +| Trx_runtime.Ok ( ( ( input_1418, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_moduleName (_filename) (_text) (input_1418)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1423, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1423, +| Trx_runtime.Ok ( ( ( input_1419, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1419, #196 "ocaml_parser.trx" -( Signature (Referenced [__2]) )), ((Trx_runtime.emptyError) (input_1423)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1419, None), err)) -| Trx_runtime.Ok ( ( ( input_1424, r ), err ) ) -> Trx_runtime.Ok(((input_1424, Some((r))), err))) with +( Signature (Referenced [__2]) )), ((Trx_runtime.emptyError) (input_1419)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1415, None), err)) +| Trx_runtime.Ok ( ( ( input_1420, r ), err ) ) -> Trx_runtime.Ok(((input_1420, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1420, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1420)) with +| Trx_runtime.Ok ( ( ( input_1416, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1416)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1421, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1421, +| Trx_runtime.Ok ( ( ( input_1417, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1417, #196 "ocaml_parser.trx" -( __2, __3 )), ((Trx_runtime.emptyError) (input_1421)))))))))))))))))) (input_1404)) with +( __2, __3 )), ((Trx_runtime.emptyError) (input_1417)))))))))))))))))) (input_1400)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1405, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1405)) with +| Trx_runtime.Ok ( ( ( input_1401, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1401)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1414, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_moduleName (_filename) (_text) (input_1414)) with +| Trx_runtime.Ok ( ( ( input_1410, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_moduleName (_filename) (_text) (input_1410)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1415, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1415, +| Trx_runtime.Ok ( ( ( input_1411, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1411, #197 "ocaml_parser.trx" -( Signature (Referenced [__2]) )), ((Trx_runtime.emptyError) (input_1415)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1405, None), err)) -| Trx_runtime.Ok ( ( ( input_1416, r ), err ) ) -> Trx_runtime.Ok(((input_1416, Some((r))), err))) with +( Signature (Referenced [__2]) )), ((Trx_runtime.emptyError) (input_1411)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1401, None), err)) +| Trx_runtime.Ok ( ( ( input_1412, r ), err ) ) -> Trx_runtime.Ok(((input_1412, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1406, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1406)) with +| Trx_runtime.Ok ( ( ( input_1402, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1402)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1407, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_STRUCT (_filename) (_text) (input_1407)) with +| Trx_runtime.Ok ( ( ( input_1403, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_STRUCT (_filename) (_text) (input_1403)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1410, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1413 -> (try_Ocaml_parser_LetOrType (_filename) (_text) (input_1413)))) (input_1410)) with +| Trx_runtime.Ok ( ( ( input_1406, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1409 -> (try_Ocaml_parser_LetOrType (_filename) (_text) (input_1409)))) (input_1406)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1411, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_END (_filename) (_text) (input_1411)) with +| Trx_runtime.Ok ( ( ( input_1407, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_END (_filename) (_text) (input_1407)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1412, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1412, +| Trx_runtime.Ok ( ( ( input_1408, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1408, #198 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1412))))))))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_LetOrType (_filename) (_text) (input_1407)) with +( __2 )), ((Trx_runtime.emptyError) (input_1408))))))))))))) with +Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_LetOrType (_filename) (_text) (input_1403)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1409, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1409, +| Trx_runtime.Ok ( ( ( input_1405, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1405, #198 "ocaml_parser.trx" -( [__1] )), ((Trx_runtime.emptyError) (input_1409))))))))) +( [__1] )), ((Trx_runtime.emptyError) (input_1405))))))))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1408, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1408, +| Trx_runtime.Ok ( ( ( input_1404, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1404, #198 "ocaml_parser.trx" -( match __3 with [] -> Module (__2, __4, __6, None) | _ -> DeclareFunctor (__2, __3, __4, Structure __6) )), ((Trx_runtime.emptyError) (input_1408)))))))))))))))))))))) in +( match __3 with [] -> Module (__2, __4, __6, None) | _ -> DeclareFunctor (__2, __3, __4, Structure __6) )), ((Trx_runtime.emptyError) (input_1404)))))))))))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_Module_err) (input) (res)) ; res) ) and try_Ocaml_parser_Cons = @@ -8136,21 +8110,21 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_lbracket (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1605, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1605)) with +| Trx_runtime.Ok ( ( ( input_1601, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1601)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1606, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1609 -> (match (try_Default_semi (_filename) (_text) (input_1609)) with +| Trx_runtime.Ok ( ( ( input_1602, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1605 -> (match (try_Default_semi (_filename) (_text) (input_1605)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1610, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1610)) with +| Trx_runtime.Ok ( ( ( input_1606, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1606)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1611, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1611, +| Trx_runtime.Ok ( ( ( input_1607, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1607, #224 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1611)))))))))))) (input_1606)) with +( __2 )), ((Trx_runtime.emptyError) (input_1607)))))))))))) (input_1602)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1607, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rbracket (_filename) (_text) (input_1607)) with +| Trx_runtime.Ok ( ( ( input_1603, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rbracket (_filename) (_text) (input_1603)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1608, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1608, +| Trx_runtime.Ok ( ( ( input_1604, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1604, #225 "ocaml_parser.trx" -( List.fold_right (fun e accu -> Cons (e, accu)) (__2::__3) EmptyList )), ((Trx_runtime.emptyError) (input_1608)))))))))))))))) in +( List.fold_right (fun e accu -> Cons (e, accu)) (__2::__3) EmptyList )), ((Trx_runtime.emptyError) (input_1604)))))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_Cons_err) (input) (res)) ; res) ) and try_Ocaml_parser_Cond = @@ -8163,25 +8137,25 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_IF (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1612, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1612)) with +| Trx_runtime.Ok ( ( ( input_1608, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1608)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1613, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_THEN (_filename) (_text) (input_1613)) with +| Trx_runtime.Ok ( ( ( input_1609, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_THEN (_filename) (_text) (input_1609)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1614, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1614)) with +| Trx_runtime.Ok ( ( ( input_1610, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1610)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1615, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_ELSE (_filename) (_text) (input_1615)) with +| Trx_runtime.Ok ( ( ( input_1611, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_ELSE (_filename) (_text) (input_1611)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1617, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1617)) with +| Trx_runtime.Ok ( ( ( input_1613, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1613)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1618, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1618, +| Trx_runtime.Ok ( ( ( input_1614, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1614, #227 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1618)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1615, None), err)) -| Trx_runtime.Ok ( ( ( input_1619, r ), err ) ) -> Trx_runtime.Ok(((input_1619, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1614)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1611, None), err)) +| Trx_runtime.Ok ( ( ( input_1615, r ), err ) ) -> Trx_runtime.Ok(((input_1615, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1616, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1616, +| Trx_runtime.Ok ( ( ( input_1612, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1612, #228 "ocaml_parser.trx" -( Cond (__2, __4, match __5 with None -> Const Unit | Some s -> s) )), ((Trx_runtime.emptyError) (input_1616))))))))))))))))))) in +( Cond (__2, __4, match __5 with None -> Const Unit | Some s -> s) )), ((Trx_runtime.emptyError) (input_1612))))))))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_Cond_err) (input) (res)) ; res) ) and try_Ocaml_parser_Constructor = @@ -8194,34 +8168,34 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_constructorName (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1600, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1600)) with +| Trx_runtime.Ok ( ( ( input_1596, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input_1596)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1601, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1601)) with +| Trx_runtime.Ok ( ( ( input_1597, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1597)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1602, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1602)) with +| Trx_runtime.Ok ( ( ( input_1598, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1598)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1603, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1603, +| Trx_runtime.Ok ( ( ( input_1599, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1599, #202 "ocaml_parser.trx" ( Constructor (List.map Ident.source __1, match __3 with Tuple l -> l | x -> [x]) - )), ((Trx_runtime.emptyError) (input_1603)))))))))))))))) with + )), ((Trx_runtime.emptyError) (input_1599)))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_constructorName (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1598, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_SimpleExpr (_filename) (_text) (input_1598)) with +| Trx_runtime.Ok ( ( ( input_1594, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_SimpleExpr (_filename) (_text) (input_1594)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1599, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1599, +| Trx_runtime.Ok ( ( ( input_1595, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1595, #207 "ocaml_parser.trx" ( Constructor (List.map Ident.source __1, [__2]) - )), ((Trx_runtime.emptyError) (input_1599)))))))))) with + )), ((Trx_runtime.emptyError) (input_1595)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_constructorName (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1595, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_ExprNotApp (_filename) (_text) (input_1595)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1595, None), err)) -| Trx_runtime.Ok ( ( ( input_1597, r ), err ) ) -> Trx_runtime.Ok(((input_1597, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1591, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_ExprNotApp (_filename) (_text) (input_1591)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1591, None), err)) +| Trx_runtime.Ok ( ( ( input_1593, r ), err ) ) -> Trx_runtime.Ok(((input_1593, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1596, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1596, +| Trx_runtime.Ok ( ( ( input_1592, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1592, #214 "ocaml_parser.trx" ( Constructor (List.map Ident.source __1, match __2 with None -> [] | Some s -> [s]) - )), ((Trx_runtime.emptyError) (input_1596)))))))))))) + )), ((Trx_runtime.emptyError) (input_1592)))))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_Constructor_err) (input) (res)) ; res) @@ -8236,37 +8210,37 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Default_laccol (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1340, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_RNameOpt (_filename) (_text) (input_1340)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1340, None), err)) -| Trx_runtime.Ok ( ( ( input_1354, r ), err ) ) -> Trx_runtime.Ok(((input_1354, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1336, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_RNameOpt (_filename) (_text) (input_1336)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1336, None), err)) +| Trx_runtime.Ok ( ( ( input_1350, r ), err ) ) -> Trx_runtime.Ok(((input_1350, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1341, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1341)) with +| Trx_runtime.Ok ( ( ( input_1337, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1337)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1342, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1342)) with +| Trx_runtime.Ok ( ( ( input_1338, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1338)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1343, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1343)) with +| Trx_runtime.Ok ( ( ( input_1339, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1339)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1344, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1349 -> (match (try_Default_semi (_filename) (_text) (input_1349)) with +| Trx_runtime.Ok ( ( ( input_1340, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1345 -> (match (try_Default_semi (_filename) (_text) (input_1345)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1350, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1350)) with +| Trx_runtime.Ok ( ( ( input_1346, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1346)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1351, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1351)) with +| Trx_runtime.Ok ( ( ( input_1347, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1347)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1352, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1352)) with +| Trx_runtime.Ok ( ( ( input_1348, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1348)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1353, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1353, +| Trx_runtime.Ok ( ( ( input_1349, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1349, #259 "ocaml_parser.trx" -( __2, __4 )), ((Trx_runtime.emptyError) (input_1353)))))))))))))))))) (input_1344)) with +( __2, __4 )), ((Trx_runtime.emptyError) (input_1349)))))))))))))))))) (input_1340)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1345, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_semi (_filename) (_text) (input_1345)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1345, None), err)) -| Trx_runtime.Ok ( ( ( input_1348, r ), err ) ) -> Trx_runtime.Ok(((input_1348, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1341, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_semi (_filename) (_text) (input_1341)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1341, None), err)) +| Trx_runtime.Ok ( ( ( input_1344, r ), err ) ) -> Trx_runtime.Ok(((input_1344, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1346, __7 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_raccol (_filename) (_text) (input_1346)) with +| Trx_runtime.Ok ( ( ( input_1342, __7 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_raccol (_filename) (_text) (input_1342)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1347, __8 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1347, +| Trx_runtime.Ok ( ( ( input_1343, __8 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1343, #261 "ocaml_parser.trx" -( Record (__2,((__3, __5)::__6)) )), ((Trx_runtime.emptyError) (input_1347)))))))))))))))))))))))))))) in +( Record (__2,((__3, __5)::__6)) )), ((Trx_runtime.emptyError) (input_1343)))))))))))))))))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_Record_err) (input) (res)) ; res) ) and try_Ocaml_parser_Expr_without_seq_aux = @@ -8279,19 +8253,19 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_OpLevel1 (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1541, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_comma (_filename) (_text) (input_1541)) with +| Trx_runtime.Ok ( ( ( input_1537, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_comma (_filename) (_text) (input_1537)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1543, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq_aux (_filename) (_text) (input_1543)) with +| Trx_runtime.Ok ( ( ( input_1539, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq_aux (_filename) (_text) (input_1539)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1544, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1544, +| Trx_runtime.Ok ( ( ( input_1540, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1540, #331 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1544)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1541, None), err)) -| Trx_runtime.Ok ( ( ( input_1545, r ), err ) ) -> Trx_runtime.Ok(((input_1545, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1540)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1537, None), err)) +| Trx_runtime.Ok ( ( ( input_1541, r ), err ) ) -> Trx_runtime.Ok(((input_1541, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1542, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1542, +| Trx_runtime.Ok ( ( ( input_1538, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1538, #331 "ocaml_parser.trx" -( match __2 with None -> [__1] | Some s -> __1::s )), ((Trx_runtime.emptyError) (input_1542)))))))))) in +( match __2 with None -> [__1] | Some s -> __1::s )), ((Trx_runtime.emptyError) (input_1538)))))))))) in (Hashtbl.add (memo_Ocaml_parser_Expr_without_seq_aux_err) (input) (res)) ; res) ) and try_Ocaml_parser_Letin = @@ -8304,41 +8278,41 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_LET (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1449, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_keywords_REC (_filename) (_text) (input_1449)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1449, None), err)) -| Trx_runtime.Ok ( ( ( input_1466, r ), err ) ) -> Trx_runtime.Ok(((input_1466, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1445, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_keywords_REC (_filename) (_text) (input_1445)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1445, None), err)) +| Trx_runtime.Ok ( ( ( input_1462, r ), err ) ) -> Trx_runtime.Ok(((input_1462, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1450, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1450)) with +| Trx_runtime.Ok ( ( ( input_1446, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1446)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1451, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1465 -> (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1465)))) (input_1451)) with +| Trx_runtime.Ok ( ( ( input_1447, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1461 -> (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1461)))) (input_1447)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1452, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1452)) with +| Trx_runtime.Ok ( ( ( input_1448, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1448)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1453, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1453)) with +| Trx_runtime.Ok ( ( ( input_1449, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1449)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1454, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1458 -> (match (try_Ocaml_keywords_AND (_filename) (_text) (input_1458)) with +| Trx_runtime.Ok ( ( ( input_1450, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1454 -> (match (try_Ocaml_keywords_AND (_filename) (_text) (input_1454)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1459, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1459)) with +| Trx_runtime.Ok ( ( ( input_1455, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1455)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1460, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1464 -> (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1464)))) (input_1460)) with +| Trx_runtime.Ok ( ( ( input_1456, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1460 -> (try_Ocaml_parser_paramFormel (_filename) (_text) (input_1460)))) (input_1456)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1461, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1461)) with +| Trx_runtime.Ok ( ( ( input_1457, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_equal (_filename) (_text) (input_1457)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1462, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1462)) with +| Trx_runtime.Ok ( ( ( input_1458, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1458)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1463, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1463, +| Trx_runtime.Ok ( ( ( input_1459, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1459, #250 "ocaml_parser.trx" -( let tmp = make_fun __5 __3 in __2, tmp )), ((Trx_runtime.emptyError) (input_1463))))))))))))))))))))) (input_1454)) with +( let tmp = make_fun __5 __3 in __2, tmp )), ((Trx_runtime.emptyError) (input_1459))))))))))))))))))))) (input_1450)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1455, __7 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_IN (_filename) (_text) (input_1455)) with +| Trx_runtime.Ok ( ( ( input_1451, __7 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_IN (_filename) (_text) (input_1451)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1456, __8 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1456)) with +| Trx_runtime.Ok ( ( ( input_1452, __8 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1452)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1457, __9 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1457, +| Trx_runtime.Ok ( ( ( input_1453, __9 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1453, #252 "ocaml_parser.trx" ( match __2 with Some _ -> let tmp = make_fun __6 __4 in Letrecin ((__3, tmp)::__7, __9) | None -> let tmp = make_fun __6 __4 in Letin ((__3, tmp)::__7, __9) - )), ((Trx_runtime.emptyError) (input_1457))))))))))))))))))))))))))))))) in + )), ((Trx_runtime.emptyError) (input_1453))))))))))))))))))))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_Letin_err) (input) (res)) ; res) ) and try_Ocaml_parser_Paren = @@ -8351,30 +8325,30 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Default_lparen (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1368, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1368)) with +| Trx_runtime.Ok ( ( ( input_1364, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1364)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1369, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1369)) with +| Trx_runtime.Ok ( ( ( input_1365, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1365)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1372, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1372)) with +| Trx_runtime.Ok ( ( ( input_1368, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_type (_filename) (_text) (input_1368)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1373, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1373, ()), ((Trx_runtime.emptyError) (input_1373)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1369, None), err)) -| Trx_runtime.Ok ( ( ( input_1374, r ), err ) ) -> Trx_runtime.Ok(((input_1374, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1369, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1369, ()), ((Trx_runtime.emptyError) (input_1369)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1365, None), err)) +| Trx_runtime.Ok ( ( ( input_1370, r ), err ) ) -> Trx_runtime.Ok(((input_1370, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1370, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1370)) with +| Trx_runtime.Ok ( ( ( input_1366, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1366)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1371, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1371, +| Trx_runtime.Ok ( ( ( input_1367, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1367, #320 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1371)))))))))))))))) with +( __2 )), ((Trx_runtime.emptyError) (input_1367)))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_BEGIN (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1365, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1365)) with +| Trx_runtime.Ok ( ( ( input_1361, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1361)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1366, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_END (_filename) (_text) (input_1366)) with +| Trx_runtime.Ok ( ( ( input_1362, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_END (_filename) (_text) (input_1362)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1367, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1367, +| Trx_runtime.Ok ( ( ( input_1363, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1363, #320 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1367))))))))))))))) +( __2 )), ((Trx_runtime.emptyError) (input_1363))))))))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_Paren_err) (input) (res)) ; res) ) @@ -8388,24 +8362,24 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_RAISE (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1355, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_capMlIdent (_filename) (_text) (input_1355)) with +| Trx_runtime.Ok ( ( ( input_1351, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_capMlIdent (_filename) (_text) (input_1351)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1356, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_lparen (_filename) (_text) (input_1356)) with +| Trx_runtime.Ok ( ( ( input_1352, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_lparen (_filename) (_text) (input_1352)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1358, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1358)) with +| Trx_runtime.Ok ( ( ( input_1354, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1354)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1359, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1359)) with +| Trx_runtime.Ok ( ( ( input_1355, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1355)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1360, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1360, +| Trx_runtime.Ok ( ( ( input_1356, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1356, #282 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1360))))))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1356, None), err)) -| Trx_runtime.Ok ( ( ( input_1361, r ), err ) ) -> Trx_runtime.Ok(((input_1361, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1356))))))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1352, None), err)) +| Trx_runtime.Ok ( ( ( input_1357, r ), err ) ) -> Trx_runtime.Ok(((input_1357, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1357, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1357, +| Trx_runtime.Ok ( ( ( input_1353, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1353, #283 "ocaml_parser.trx" ( Raise ([Ident.source __2], __3) - )), ((Trx_runtime.emptyError) (input_1357))))))))))))) in + )), ((Trx_runtime.emptyError) (input_1353))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_Raise_err) (input) (res)) ; res) ) and try_Ocaml_parser_Expr_without_seq = @@ -8418,9 +8392,9 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_Expr_without_seq_aux (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1546, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1546, +| Trx_runtime.Ok ( ( ( input_1542, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1542, #332 "ocaml_parser.trx" -( match __1 with [t] -> t | _ -> Tuple __1 )), ((Trx_runtime.emptyError) (input_1546))))))) in +( match __1 with [t] -> t | _ -> Tuple __1 )), ((Trx_runtime.emptyError) (input_1542))))))) in (Hashtbl.add (memo_Ocaml_parser_Expr_without_seq_err) (input) (res)) ; res) ) and try_Ocaml_parser_SimpleExpr = @@ -8433,36 +8407,36 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_dotable (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1330, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1336 -> (try_Ocaml_parser_Dot (_filename) (_text) (input_1336)))) (input_1330)) with +| Trx_runtime.Ok ( ( ( input_1326, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1332 -> (try_Ocaml_parser_Dot (_filename) (_text) (input_1332)))) (input_1326)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1331, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_leftarrow (_filename) (_text) (input_1331)) with +| Trx_runtime.Ok ( ( ( input_1327, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_leftarrow (_filename) (_text) (input_1327)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1333, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1333)) with +| Trx_runtime.Ok ( ( ( input_1329, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input_1329)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1334, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1334, +| Trx_runtime.Ok ( ( ( input_1330, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1330, #326 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1334)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1331, None), err)) -| Trx_runtime.Ok ( ( ( input_1335, r ), err ) ) -> Trx_runtime.Ok(((input_1335, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1330)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1327, None), err)) +| Trx_runtime.Ok ( ( ( input_1331, r ), err ) ) -> Trx_runtime.Ok(((input_1331, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1332, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1332, +| Trx_runtime.Ok ( ( ( input_1328, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1328, #326 "ocaml_parser.trx" ( let tmp = List.fold_left (fun accu -> function | `MlIdent e -> Dot (accu, e) - | `Int i -> Dot (accu, sprintf "(%d)" i)) __1 __2 in match __3 with None -> tmp | Some s -> SetMutable (tmp, s) )), ((Trx_runtime.emptyError) (input_1332))))))))))))) with + | `Int i -> Dot (accu, sprintf "(%d)" i)) __1 __2 in match __3 with None -> tmp | Some s -> SetMutable (tmp, s) )), ((Trx_runtime.emptyError) (input_1328))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Const (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1329, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1329, +| Trx_runtime.Ok ( ( ( input_1325, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1325, #328 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1329))))))) with +( __1 )), ((Trx_runtime.emptyError) (input_1325))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_lparen (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1326, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_op_special (_filename) (_text) (input_1326)) with +| Trx_runtime.Ok ( ( ( input_1322, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_op_special (_filename) (_text) (input_1322)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1327, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1327)) with +| Trx_runtime.Ok ( ( ( input_1323, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rparen (_filename) (_text) (input_1323)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1328, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1328, +| Trx_runtime.Ok ( ( ( input_1324, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1324, #329 "ocaml_parser.trx" -( Var (Pated ([Ident.source __2], true)) )), ((Trx_runtime.emptyError) (input_1328))))))))))))))) +( Var (Pated ([Ident.source __2], true)) )), ((Trx_runtime.emptyError) (input_1324))))))))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_SimpleExpr_err) (input) (res)) ; res) @@ -8477,19 +8451,19 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_Constructor (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1630, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1630, __1), ((Trx_runtime.emptyError) (input_1630))))))) with +| Trx_runtime.Ok ( ( ( input_1626, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1626, __1), ((Trx_runtime.emptyError) (input_1626))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_SimpleExpr (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1626, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input_1626) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1626) (0))))) ('-'))) (true)))) ) then ( Some(((((+)) (input_1626) (1)), "-")) ) else ( None )) (input_1626) ("\"-\"")) with -Trx_runtime.Fail ( ( err ) ) -> let input_1627 = input_1626 in +| Trx_runtime.Ok ( ( ( input_1622, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input_1622) (1))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1622) (0))))) ('-'))) (true)))) ) then ( Some(((((+)) (input_1622) (1)), "-")) ) else ( None )) (input_1622) ("\"-\"")) with +Trx_runtime.Fail ( ( err ) ) -> let input_1623 = input_1622 in let __2 = () in -(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input_1627) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1627) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1627) (1))))) (':'))) (true)))))) ) then ( Some(((((+)) (input_1627) (2)), "::")) ) else ( None )) (input_1627) ("\"::\"")) with -Trx_runtime.Fail ( ( err ) ) -> let input_1628 = input_1627 in +(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input_1623) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1623) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1623) (1))))) (':'))) (true)))))) ) then ( Some(((((+)) (input_1623) (2)), "::")) ) else ( None )) (input_1623) ("\"::\"")) with +Trx_runtime.Fail ( ( err ) ) -> let input_1624 = input_1623 in let __3 = () in -(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input_1628) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1628) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1628) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input_1628) (2)), ":=")) ) else ( None )) (input_1628) ("\":=\"")) with -Trx_runtime.Fail ( ( err ) ) -> let input_1629 = input_1628 in +(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input_1624) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1624) (0))))) (':'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1624) (1))))) ('='))) (true)))))) ) then ( Some(((((+)) (input_1624) (2)), ":=")) ) else ( None )) (input_1624) ("\":=\"")) with +Trx_runtime.Fail ( ( err ) ) -> let input_1625 = input_1624 in let __4 = () in -(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1629, __1), ((Trx_runtime.emptyError) (input_1629)))))) +(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1625, __1), ((Trx_runtime.emptyError) (input_1625)))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in @@ -8497,14 +8471,14 @@ Trx_runtime.Fail((err))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err)))))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1623, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1625 -> (try_Ocaml_parser_ExprNotApp (_filename) (_text) (input_1625)))) (input_1623)) with +| Trx_runtime.Ok ( ( ( input_1619, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1621 -> (try_Ocaml_parser_ExprNotApp (_filename) (_text) (input_1621)))) (input_1619)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1624, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1624, +| Trx_runtime.Ok ( ( ( input_1620, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1620, #344 "ocaml_parser.trx" -( match __2 with [] -> __1 | _ -> make_app (__1 :: __2) )), ((Trx_runtime.emptyError) (input_1624)))))))))) with +( match __2 with [] -> __1 | _ -> make_app (__1 :: __2) )), ((Trx_runtime.emptyError) (input_1620)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_ExprNotApp (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1622, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1622, __1), ((Trx_runtime.emptyError) (input_1622))))))))) +| Trx_runtime.Ok ( ( ( input_1618, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1618, __1), ((Trx_runtime.emptyError) (input_1618))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_App_err) (input) (res)) ; res) @@ -8519,48 +8493,48 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_keywords_MATCH (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1433, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1433)) with +| Trx_runtime.Ok ( ( ( input_1429, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1429)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1434, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_WITH (_filename) (_text) (input_1434)) with +| Trx_runtime.Ok ( ( ( input_1430, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_WITH (_filename) (_text) (input_1430)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1435, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_bar (_filename) (_text) (input_1435)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1435, None), err)) -| Trx_runtime.Ok ( ( ( input_1442, r ), err ) ) -> Trx_runtime.Ok(((input_1442, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1431, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_bar (_filename) (_text) (input_1431)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1431, None), err)) +| Trx_runtime.Ok ( ( ( input_1438, r ), err ) ) -> Trx_runtime.Ok(((input_1438, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1436, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1436)) with +| Trx_runtime.Ok ( ( ( input_1432, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1432)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1437, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1439 -> (match (try_Default_bar (_filename) (_text) (input_1439)) with +| Trx_runtime.Ok ( ( ( input_1433, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1435 -> (match (try_Default_bar (_filename) (_text) (input_1435)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1440, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1440)) with +| Trx_runtime.Ok ( ( ( input_1436, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1436)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1441, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1441, +| Trx_runtime.Ok ( ( ( input_1437, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1437, #264 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1441)))))))))))) (input_1437)) with +( __2 )), ((Trx_runtime.emptyError) (input_1437)))))))))))) (input_1433)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1438, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1438, +| Trx_runtime.Ok ( ( ( input_1434, __6 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1434, #265 "ocaml_parser.trx" ( Match (__2, __5 :: __6) - )), ((Trx_runtime.emptyError) (input_1438)))))))))))))))))))))) with + )), ((Trx_runtime.emptyError) (input_1434)))))))))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_FUNCTION (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1425, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_bar (_filename) (_text) (input_1425)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1425, None), err)) -| Trx_runtime.Ok ( ( ( input_1432, r ), err ) ) -> Trx_runtime.Ok(((input_1432, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1421, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Default_bar (_filename) (_text) (input_1421)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1421, None), err)) +| Trx_runtime.Ok ( ( ( input_1428, r ), err ) ) -> Trx_runtime.Ok(((input_1428, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1426, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1426)) with +| Trx_runtime.Ok ( ( ( input_1422, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1422)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1427, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1429 -> (match (try_Default_bar (_filename) (_text) (input_1429)) with +| Trx_runtime.Ok ( ( ( input_1423, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary (false) ((fun input_1425 -> (match (try_Default_bar (_filename) (_text) (input_1425)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1430, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1430)) with +| Trx_runtime.Ok ( ( ( input_1426, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_matchExpr (_filename) (_text) (input_1426)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1431, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1431, +| Trx_runtime.Ok ( ( ( input_1427, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1427, #268 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1431)))))))))))) (input_1427)) with +( __2 )), ((Trx_runtime.emptyError) (input_1427)))))))))))) (input_1423)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1428, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1428, +| Trx_runtime.Ok ( ( ( input_1424, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1424, #269 "ocaml_parser.trx" ( Function (__3::__4) - )), ((Trx_runtime.emptyError) (input_1428)))))))))))))))))) + )), ((Trx_runtime.emptyError) (input_1424)))))))))))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_Match_err) (input) (res)) ; res) ) @@ -8574,16 +8548,16 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_pattern (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1279, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rightarrow (_filename) (_text) (input_1279)) with +| Trx_runtime.Ok ( ( ( input_1275, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_rightarrow (_filename) (_text) (input_1275)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1280, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1280)) with +| Trx_runtime.Ok ( ( ( input_1276, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1276)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1281, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1281, +| Trx_runtime.Ok ( ( ( input_1277, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1277, #274 "ocaml_parser.trx" ( match __1 with | Some guard, pat -> pat, Some guard, __3 | None, pat -> pat, None, __3 - )), ((Trx_runtime.emptyError) (input_1281))))))))))))) in + )), ((Trx_runtime.emptyError) (input_1277))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_matchExpr_err) (input) (res)) ; res) ) and try_Ocaml_parser_OpLevel4 = @@ -8596,19 +8570,19 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_App (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1383, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_InfOpLevel4 (_filename) (_text) (input_1383)) with +| Trx_runtime.Ok ( ( ( input_1379, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_InfOpLevel4 (_filename) (_text) (input_1379)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1385, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_OpLevel4 (_filename) (_text) (input_1385)) with +| Trx_runtime.Ok ( ( ( input_1381, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_OpLevel4 (_filename) (_text) (input_1381)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1386, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1386, +| Trx_runtime.Ok ( ( ( input_1382, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1382, #338 "ocaml_parser.trx" -( __1, __2 )), ((Trx_runtime.emptyError) (input_1386)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1383, None), err)) -| Trx_runtime.Ok ( ( ( input_1387, r ), err ) ) -> Trx_runtime.Ok(((input_1387, Some((r))), err))) with +( __1, __2 )), ((Trx_runtime.emptyError) (input_1382)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1379, None), err)) +| Trx_runtime.Ok ( ( ( input_1383, r ), err ) ) -> Trx_runtime.Ok(((input_1383, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1384, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1384, +| Trx_runtime.Ok ( ( ( input_1380, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1380, #338 "ocaml_parser.trx" -( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) )), ((Trx_runtime.emptyError) (input_1384)))))))))) in +( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) )), ((Trx_runtime.emptyError) (input_1380)))))))))) in (Hashtbl.add (memo_Ocaml_parser_OpLevel4_err) (input) (res)) ; res) ) and try_Ocaml_parser_OpLevel3 = @@ -8621,19 +8595,19 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_OpLevel4 (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1388, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_InfOpLevel3 (_filename) (_text) (input_1388)) with +| Trx_runtime.Ok ( ( ( input_1384, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_InfOpLevel3 (_filename) (_text) (input_1384)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1390, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_OpLevel3 (_filename) (_text) (input_1390)) with +| Trx_runtime.Ok ( ( ( input_1386, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_OpLevel3 (_filename) (_text) (input_1386)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1391, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1391, +| Trx_runtime.Ok ( ( ( input_1387, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1387, #337 "ocaml_parser.trx" -( __1, __2 )), ((Trx_runtime.emptyError) (input_1391)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1388, None), err)) -| Trx_runtime.Ok ( ( ( input_1392, r ), err ) ) -> Trx_runtime.Ok(((input_1392, Some((r))), err))) with +( __1, __2 )), ((Trx_runtime.emptyError) (input_1387)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1384, None), err)) +| Trx_runtime.Ok ( ( ( input_1388, r ), err ) ) -> Trx_runtime.Ok(((input_1388, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1389, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1389, +| Trx_runtime.Ok ( ( ( input_1385, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1385, #337 "ocaml_parser.trx" -( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) )), ((Trx_runtime.emptyError) (input_1389)))))))))) in +( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) )), ((Trx_runtime.emptyError) (input_1385)))))))))) in (Hashtbl.add (memo_Ocaml_parser_OpLevel3_err) (input) (res)) ; res) ) and try_Ocaml_parser_ExprNotApp = @@ -8646,52 +8620,52 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (match (match (try_Ocaml_parser_Open (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1568, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1568, __1), ((Trx_runtime.emptyError) (input_1568))))))) with +| Trx_runtime.Ok ( ( ( input_1564, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1564, __1), ((Trx_runtime.emptyError) (input_1564))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Module (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1567, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1567, __1), ((Trx_runtime.emptyError) (input_1567))))))) with +| Trx_runtime.Ok ( ( ( input_1563, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1563, __1), ((Trx_runtime.emptyError) (input_1563))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Cond (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1566, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1566, __1), ((Trx_runtime.emptyError) (input_1566))))))) with +| Trx_runtime.Ok ( ( ( input_1562, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1562, __1), ((Trx_runtime.emptyError) (input_1562))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Letin (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1565, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1565, __1), ((Trx_runtime.emptyError) (input_1565))))))) with +| Trx_runtime.Ok ( ( ( input_1561, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1561, __1), ((Trx_runtime.emptyError) (input_1561))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Match (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1564, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1564, __1), ((Trx_runtime.emptyError) (input_1564))))))) with +| Trx_runtime.Ok ( ( ( input_1560, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1560, __1), ((Trx_runtime.emptyError) (input_1560))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Exception (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1563, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1563, __1), ((Trx_runtime.emptyError) (input_1563))))))) with +| Trx_runtime.Ok ( ( ( input_1559, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1559, __1), ((Trx_runtime.emptyError) (input_1559))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Raise (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1562, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1562, __1), ((Trx_runtime.emptyError) (input_1562))))))) with +| Trx_runtime.Ok ( ( ( input_1558, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1558, __1), ((Trx_runtime.emptyError) (input_1558))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Try (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1561, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1561, __1), ((Trx_runtime.emptyError) (input_1561))))))) with +| Trx_runtime.Ok ( ( ( input_1557, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1557, __1), ((Trx_runtime.emptyError) (input_1557))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Assert (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1560, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1560, __1), ((Trx_runtime.emptyError) (input_1560))))))) with +| Trx_runtime.Ok ( ( ( input_1556, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1556, __1), ((Trx_runtime.emptyError) (input_1556))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_MakeRef (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1559, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1559, __1), ((Trx_runtime.emptyError) (input_1559))))))) with +| Trx_runtime.Ok ( ( ( input_1555, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1555, __1), ((Trx_runtime.emptyError) (input_1555))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_GetRef (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1558, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1558, __1), ((Trx_runtime.emptyError) (input_1558))))))) with +| Trx_runtime.Ok ( ( ( input_1554, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1554, __1), ((Trx_runtime.emptyError) (input_1554))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_SetRef (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1557, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1557, __1), ((Trx_runtime.emptyError) (input_1557))))))) with +| Trx_runtime.Ok ( ( ( input_1553, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1553, __1), ((Trx_runtime.emptyError) (input_1553))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Cons (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1556, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1556, __1), ((Trx_runtime.emptyError) (input_1556))))))) with +| Trx_runtime.Ok ( ( ( input_1552, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1552, __1), ((Trx_runtime.emptyError) (input_1552))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_EmptyList (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1555, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1555, __1), ((Trx_runtime.emptyError) (input_1555))))))) with +| Trx_runtime.Ok ( ( ( input_1551, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1551, __1), ((Trx_runtime.emptyError) (input_1551))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Abs (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1554, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1554, __1), ((Trx_runtime.emptyError) (input_1554))))))) with +| Trx_runtime.Ok ( ( ( input_1550, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1550, __1), ((Trx_runtime.emptyError) (input_1550))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_SimpleExpr (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1553, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1553, __1), ((Trx_runtime.emptyError) (input_1553))))))))) +| Trx_runtime.Ok ( ( ( input_1549, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1549, __1), ((Trx_runtime.emptyError) (input_1549))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var))) @@ -8708,23 +8682,23 @@ Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Oca | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1548, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_CONS (_filename) (_text) (input_1548)) with +| Trx_runtime.Ok ( ( ( input_1544, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_keywords_CONS (_filename) (_text) (input_1544)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1550, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_OpLevel1 (_filename) (_text) (input_1550)) with +| Trx_runtime.Ok ( ( ( input_1546, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_OpLevel1 (_filename) (_text) (input_1546)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1551, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1551, +| Trx_runtime.Ok ( ( ( input_1547, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1547, #311 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1551)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1548, None), err)) -| Trx_runtime.Ok ( ( ( input_1552, r ), err ) ) -> Trx_runtime.Ok(((input_1552, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1547)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1544, None), err)) +| Trx_runtime.Ok ( ( ( input_1548, r ), err ) ) -> Trx_runtime.Ok(((input_1548, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1549, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1549, +| Trx_runtime.Ok ( ( ( input_1545, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1545, #311 "ocaml_parser.trx" -( match __2 with | None -> __1 | Some x -> Cons (__1, x) )), ((Trx_runtime.emptyError) (input_1549)))))))))) with +( match __2 with | None -> __1 | Some x -> Cons (__1, x) )), ((Trx_runtime.emptyError) (input_1545)))))))))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1547, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1547, +| Trx_runtime.Ok ( ( ( input_1543, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1543, #312 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1547))))))) in +( __1 )), ((Trx_runtime.emptyError) (input_1543))))))) in (Hashtbl.add (memo_Ocaml_parser_ExprNotApp_err) (input) (res)) ; res) ) and try_Ocaml_parser_OpLevel2 = @@ -8737,19 +8711,19 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_OpLevel3 (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1393, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_InfOpLevel2 (_filename) (_text) (input_1393)) with +| Trx_runtime.Ok ( ( ( input_1389, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_InfOpLevel2 (_filename) (_text) (input_1389)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1395, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_OpLevel2 (_filename) (_text) (input_1395)) with +| Trx_runtime.Ok ( ( ( input_1391, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_OpLevel2 (_filename) (_text) (input_1391)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1396, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1396, +| Trx_runtime.Ok ( ( ( input_1392, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1392, #336 "ocaml_parser.trx" -( __1, __2 )), ((Trx_runtime.emptyError) (input_1396)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1393, None), err)) -| Trx_runtime.Ok ( ( ( input_1397, r ), err ) ) -> Trx_runtime.Ok(((input_1397, Some((r))), err))) with +( __1, __2 )), ((Trx_runtime.emptyError) (input_1392)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1389, None), err)) +| Trx_runtime.Ok ( ( ( input_1393, r ), err ) ) -> Trx_runtime.Ok(((input_1393, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1394, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1394, +| Trx_runtime.Ok ( ( ( input_1390, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1390, #336 "ocaml_parser.trx" -( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) )), ((Trx_runtime.emptyError) (input_1394)))))))))) in +( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) )), ((Trx_runtime.emptyError) (input_1390)))))))))) in (Hashtbl.add (memo_Ocaml_parser_OpLevel2_err) (input) (res)) ; res) ) and try_Ocaml_parser_OpLevel1 = @@ -8762,19 +8736,19 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_OpLevel2 (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1398, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_InfOpLevel1 (_filename) (_text) (input_1398)) with +| Trx_runtime.Ok ( ( ( input_1394, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_InfOpLevel1 (_filename) (_text) (input_1394)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1400, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_OpLevel1 (_filename) (_text) (input_1400)) with +| Trx_runtime.Ok ( ( ( input_1396, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_OpLevel1 (_filename) (_text) (input_1396)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1401, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1401, +| Trx_runtime.Ok ( ( ( input_1397, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1397, #335 "ocaml_parser.trx" -( __1, __2 )), ((Trx_runtime.emptyError) (input_1401)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1398, None), err)) -| Trx_runtime.Ok ( ( ( input_1402, r ), err ) ) -> Trx_runtime.Ok(((input_1402, Some((r))), err))) with +( __1, __2 )), ((Trx_runtime.emptyError) (input_1397)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1394, None), err)) +| Trx_runtime.Ok ( ( ( input_1398, r ), err ) ) -> Trx_runtime.Ok(((input_1398, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1399, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1399, +| Trx_runtime.Ok ( ( ( input_1395, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1395, #335 "ocaml_parser.trx" -( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) )), ((Trx_runtime.emptyError) (input_1399)))))))))) in +( match __2 with None -> __1 | Some (__2, __3) -> App (App (__2, __1), __3) )), ((Trx_runtime.emptyError) (input_1395)))))))))) in (Hashtbl.add (memo_Ocaml_parser_OpLevel1_err) (input) (res)) ; res) ) and try_Ocaml_parser_paramEffectif = @@ -8787,45 +8761,45 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Default_tilde_ (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1229, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_ (_filename) (_text) (input_1229)) with +| Trx_runtime.Ok ( ( ( input_1225, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent_ (_filename) (_text) (input_1225)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1230, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1230)) with +| Trx_runtime.Ok ( ( ( input_1226, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_colon (_filename) (_text) (input_1226)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1233, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_ExprNotApp (_filename) (_text) (input_1233)) with +| Trx_runtime.Ok ( ( ( input_1229, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_ExprNotApp (_filename) (_text) (input_1229)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1234, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1234, +| Trx_runtime.Ok ( ( ( input_1230, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1230, #99 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1234)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1230, None), err)) -| Trx_runtime.Ok ( ( ( input_1235, r ), err ) ) -> Trx_runtime.Ok(((input_1235, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1230)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1226, None), err)) +| Trx_runtime.Ok ( ( ( input_1231, r ), err ) ) -> Trx_runtime.Ok(((input_1231, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1231, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1231)) with +| Trx_runtime.Ok ( ( ( input_1227, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1227)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1232, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1232, +| Trx_runtime.Ok ( ( ( input_1228, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1228, #100 "ocaml_parser.trx" ( Labeled (__2, __3) - )), ((Trx_runtime.emptyError) (input_1232)))))))))))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.while_primary (false) ((fun input_1226 -> (match (try_Ocaml_parser_moduleName_ (_filename) (_text) (input_1226)) with + )), ((Trx_runtime.emptyError) (input_1228)))))))))))))))) with +Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (Trx_runtime.while_primary (false) ((fun input_1222 -> (match (try_Ocaml_parser_moduleName_ (_filename) (_text) (input_1222)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1227, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1227) (_len)) ) then ( let c = ((_get_char) (input_1227)) in -if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1227)), c)) ) else ( None ) ) else ( None )) (input_1227) (((Trx_runtime.Expected(("'.'")))::([])))) with +| Trx_runtime.Ok ( ( ( input_1223, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1223) (_len)) ) then ( let c = ((_get_char) (input_1223)) in +if ( (((=)) (c) ('.')) ) then ( Some((((succ) (input_1223)), c)) ) else ( None ) ) else ( None )) (input_1223) (((Trx_runtime.Expected(("'.'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1228, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1228, +| Trx_runtime.Ok ( ( ( input_1224, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1224, #106 "ocaml_parser.trx" -( __1 )), ((Trx_runtime.emptyError) (input_1228)))))))))))) (input)) with +( __1 )), ((Trx_runtime.emptyError) (input_1224)))))))))))) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1224, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1224)) with +| Trx_runtime.Ok ( ( ( input_1220, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_mlIdent (_filename) (_text) (input_1220)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1225, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1225, +| Trx_runtime.Ok ( ( ( input_1221, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1221, #107 "ocaml_parser.trx" ( Pated (List.map Ident.source (__1 @ [__2]), false) - )), ((Trx_runtime.emptyError) (input_1225)))))))))) with + )), ((Trx_runtime.emptyError) (input_1221)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_constructorName (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1223, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1223, +| Trx_runtime.Ok ( ( ( input_1219, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1219, #112 "ocaml_parser.trx" ( Pated (List.map Ident.source __1, true) - )), ((Trx_runtime.emptyError) (input_1223))))))))) + )), ((Trx_runtime.emptyError) (input_1219))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_paramEffectif_err) (input) (res)) ; res) @@ -8840,25 +8814,25 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_spacing (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1467, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_Type (_filename) (_text) (input_1467)) with +| Trx_runtime.Ok ( ( ( input_1463, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Ocaml_parser_Type (_filename) (_text) (input_1463)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1474, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1474, __1), ((Trx_runtime.emptyError) (input_1474))))))) with -Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Let (_filename) (_text) (input_1467)) with +| Trx_runtime.Ok ( ( ( input_1470, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1470, __1), ((Trx_runtime.emptyError) (input_1470))))))) with +Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Let (_filename) (_text) (input_1463)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1473, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1473, __1), ((Trx_runtime.emptyError) (input_1473))))))))) +| Trx_runtime.Ok ( ( ( input_1469, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1469, __1), ((Trx_runtime.emptyError) (input_1469))))))))) | ( _ok ) as __pat_var -> __pat_var) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1468, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input_1468) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1468) (0))))) (';'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1468) (1))))) (';'))) (true)))))) ) then ( Some(((((+)) (input_1468) (2)), ";;")) ) else ( None )) (input_1468) ("\";;\"")) with +| Trx_runtime.Ok ( ( ( input_1464, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input_1464) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1464) (0))))) (';'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1464) (1))))) (';'))) (true)))))) ) then ( Some(((((+)) (input_1464) (2)), ";;")) ) else ( None )) (input_1464) ("\";;\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1470, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1470)) with +| Trx_runtime.Ok ( ( ( input_1466, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_spacing (_filename) (_text) (input_1466)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1471, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1471, ()), ((Trx_runtime.emptyError) (input_1471)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1468, None), err)) -| Trx_runtime.Ok ( ( ( input_1472, r ), err ) ) -> Trx_runtime.Ok(((input_1472, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_1467, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1467, ()), ((Trx_runtime.emptyError) (input_1467)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1464, None), err)) +| Trx_runtime.Ok ( ( ( input_1468, r ), err ) ) -> Trx_runtime.Ok(((input_1468, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1469, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1469, +| Trx_runtime.Ok ( ( ( input_1465, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1465, #413 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1469))))))))))))) in +( __2 )), ((Trx_runtime.emptyError) (input_1465))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_LetOrType_err) (input) (res)) ; res) ) and try_Ocaml_parser_GetRef = @@ -8872,11 +8846,11 @@ and _get_sub = ((String.sub) (_text)) in Not_found -> let res = (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in if ( (((=)) (c) ('!')) ) then ( Some((((succ) (input)), c)) ) else ( None ) ) else ( None )) (input) (((Trx_runtime.Expected(("'!'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1527, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_SimpleExpr (_filename) (_text) (input_1527)) with +| Trx_runtime.Ok ( ( ( input_1523, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_SimpleExpr (_filename) (_text) (input_1523)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1528, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1528, +| Trx_runtime.Ok ( ( ( input_1524, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1524, #221 "ocaml_parser.trx" -( GetRef __2 )), ((Trx_runtime.emptyError) (input_1528)))))))))) in +( GetRef __2 )), ((Trx_runtime.emptyError) (input_1524)))))))))) in (Hashtbl.add (memo_Ocaml_parser_GetRef_err) (input) (res)) ; res) ) and try_Ocaml_parser_MakeRef = @@ -8889,11 +8863,11 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_keywords_REF (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1443, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_SimpleExpr (_filename) (_text) (input_1443)) with +| Trx_runtime.Ok ( ( ( input_1439, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_SimpleExpr (_filename) (_text) (input_1439)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1444, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1444, +| Trx_runtime.Ok ( ( ( input_1440, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1440, #220 "ocaml_parser.trx" -( MakeRef __2 )), ((Trx_runtime.emptyError) (input_1444)))))))))) in +( MakeRef __2 )), ((Trx_runtime.emptyError) (input_1440)))))))))) in (Hashtbl.add (memo_Ocaml_parser_MakeRef_err) (input) (res)) ; res) ) and try_Ocaml_parser_Expr = @@ -8906,19 +8880,19 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_Expr_without_seq (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1569, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_semi (_filename) (_text) (input_1569)) with +| Trx_runtime.Ok ( ( ( input_1565, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (match (try_Default_semi (_filename) (_text) (input_1565)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1571, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1571)) with +| Trx_runtime.Ok ( ( ( input_1567, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1567)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1572, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1572, +| Trx_runtime.Ok ( ( ( input_1568, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1568, #333 "ocaml_parser.trx" -( __2 )), ((Trx_runtime.emptyError) (input_1572)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1569, None), err)) -| Trx_runtime.Ok ( ( ( input_1573, r ), err ) ) -> Trx_runtime.Ok(((input_1573, Some((r))), err))) with +( __2 )), ((Trx_runtime.emptyError) (input_1568)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_1565, None), err)) +| Trx_runtime.Ok ( ( ( input_1569, r ), err ) ) -> Trx_runtime.Ok(((input_1569, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1570, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1570, +| Trx_runtime.Ok ( ( ( input_1566, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1566, #333 "ocaml_parser.trx" -( match __2 with None -> __1 | Some x -> Sequence (__1, x) )), ((Trx_runtime.emptyError) (input_1570)))))))))) in +( match __2 with None -> __1 | Some x -> Sequence (__1, x) )), ((Trx_runtime.emptyError) (input_1566)))))))))) in (Hashtbl.add (memo_Ocaml_parser_Expr_err) (input) (res)) ; res) ) and try_Ocaml_parser_dotable = @@ -8931,13 +8905,13 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_Record (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1287, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1287, __1), ((Trx_runtime.emptyError) (input_1287))))))) with +| Trx_runtime.Ok ( ( ( input_1283, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1283, __1), ((Trx_runtime.emptyError) (input_1283))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_parser_Paren (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1286, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1286, __1), ((Trx_runtime.emptyError) (input_1286))))))) with +| Trx_runtime.Ok ( ( ( input_1282, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1282, __1), ((Trx_runtime.emptyError) (input_1282))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Var (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1285, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1285, __1), ((Trx_runtime.emptyError) (input_1285))))))))) +| Trx_runtime.Ok ( ( ( input_1281, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1281, __1), ((Trx_runtime.emptyError) (input_1281))))))))) | ( _ok ) as __pat_var -> __pat_var))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_dotable_err) (input) (res)) ; res) @@ -8952,17 +8926,17 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (try_Ocaml_parser_SimpleExpr (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1337, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_GETREF (_filename) (_text) (input_1337)) with +| Trx_runtime.Ok ( ( ( input_1333, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_GETREF (_filename) (_text) (input_1333)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1338, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1338)) with +| Trx_runtime.Ok ( ( ( input_1334, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_Expr (_filename) (_text) (input_1334)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1339, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1339, +| Trx_runtime.Ok ( ( ( input_1335, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1335, #222 "ocaml_parser.trx" -( SetRef (__1, __3) )), ((Trx_runtime.emptyError) (input_1339))))))))))))) in +( SetRef (__1, __3) )), ((Trx_runtime.emptyError) (input_1335))))))))))))) in (Hashtbl.add (memo_Ocaml_parser_SetRef_err) (input) (res)) ; res) ) let rec try_Ocaml_types_lineskipper_noerr = -#54 "ocaml_types.trx" +#53 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -8971,28 +8945,28 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_types_spacing_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_138, __1 ) ) -> (match (try_Ocaml_keywords_TYPE_noerr (_filename) (_text) (input_138)) with +| Some ( ( input_137, __1 ) ) -> (match (try_Ocaml_keywords_TYPE_noerr (_filename) (_text) (input_137)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_139, __2 ) ) -> Some((input_139, ())))) with -None -> let input_132 = input in +| Some ( ( input_138, __2 ) ) -> Some((input_138, ())))) with +None -> let input_131 = input in let __1 = () in -(match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_135 -> (match if ( (((<)) (input_135) (_len)) ) then ( let c = ((_get_char) (input_135)) in -if ( (((=)) (c) ('\n')) ) then ( Some((((succ) (input_135)), c)) ) else ( None ) ) else ( None ) with -None -> let input_136 = input_135 in +(match (Trx_runtime.while_primary_noerr_nores (false) ((fun input_134 -> (match if ( (((<)) (input_134) (_len)) ) then ( let c = ((_get_char) (input_134)) in +if ( (((=)) (c) ('\n')) ) then ( Some((((succ) (input_134)), c)) ) else ( None ) ) else ( None ) with +None -> let input_135 = input_134 in let __1 = () in -if ( (((<)) (input_136) (_len)) ) then ( let c = ((_get_char) (input_136)) in -Some((((succ) (input_136)), c)) ) else ( None ) -| Some ( ( _, _ ) ) -> None))) (input_132)) with +if ( (((<)) (input_135) (_len)) ) then ( let c = ((_get_char) (input_135)) in +Some((((succ) (input_135)), c)) ) else ( None ) +| Some ( ( _, _ ) ) -> None))) (input_131)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_133, __2 ) ) -> (match if ( (((<)) (input_133) (_len)) ) then ( let c = ((_get_char) (input_133)) in -if ( (((=)) (c) ('\n')) ) then ( Some((((succ) (input_133)), c)) ) else ( None ) ) else ( None ) with +| Some ( ( input_132, __2 ) ) -> (match if ( (((<)) (input_132) (_len)) ) then ( let c = ((_get_char) (input_132)) in +if ( (((=)) (c) ('\n')) ) then ( Some((((succ) (input_132)), c)) ) else ( None ) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_134, __3 ) ) -> Some((input_134, ( () ))))) +| Some ( ( input_133, __3 ) ) -> Some((input_133, ( () ))))) | Some ( ( _, _ ) ) -> None) in (Hashtbl.add (memo_Ocaml_types_lineskipper) (input) (res)) ; res) ) let rec try_Ocaml_types_lineskipper = -#54 "ocaml_types.trx" +#53 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -9001,26 +8975,26 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_types_spacing (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1092, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_TYPE (_filename) (_text) (input_1092)) with +| Trx_runtime.Ok ( ( ( input_1089, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_keywords_TYPE (_filename) (_text) (input_1089)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1093, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1093, ()), ((Trx_runtime.emptyError) (input_1093)))))))))) with -Trx_runtime.Fail ( ( err ) ) -> let input_1086 = input in +| Trx_runtime.Ok ( ( ( input_1090, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1090, ()), ((Trx_runtime.emptyError) (input_1090)))))))))) with +Trx_runtime.Fail ( ( err ) ) -> let input_1083 = input in let __1 = () in -(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1089 -> (match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1089) (_len)) ) then ( let c = ((_get_char) (input_1089)) in -if ( (((=)) (c) ('\n')) ) then ( Some((((succ) (input_1089)), c)) ) else ( None ) ) else ( None )) (input_1089) (((Trx_runtime.Expected(("'\n'")))::([])))) with -Trx_runtime.Fail ( ( err ) ) -> let input_1090 = input_1089 in +(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.while_primary_nores (false) ((fun input_1086 -> (match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1086) (_len)) ) then ( let c = ((_get_char) (input_1086)) in +if ( (((=)) (c) ('\n')) ) then ( Some((((succ) (input_1086)), c)) ) else ( None ) ) else ( None )) (input_1086) (((Trx_runtime.Expected(("'\n'")))::([])))) with +Trx_runtime.Fail ( ( err ) ) -> let input_1087 = input_1086 in let __1 = () in -(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1090) (_len)) ) then ( let c = ((_get_char) (input_1090)) in -Some((((succ) (input_1090)), c)) ) else ( None )) (input_1090) (((Trx_runtime.Expected(("any character")))::([])))) with +(Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1087) (_len)) ) then ( let c = ((_get_char) (input_1087)) in +Some((((succ) (input_1087)), c)) ) else ( None )) (input_1087) (((Trx_runtime.Expected(("any character")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1091, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1091, __2), ((Trx_runtime.emptyError) (input_1091))))))))) +| Trx_runtime.Ok ( ( ( input_1088, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1088, __2), ((Trx_runtime.emptyError) (input_1088))))))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in -Trx_runtime.Fail((err))))) (input_1086)) with +Trx_runtime.Fail((err))))) (input_1083)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1087, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1087) (_len)) ) then ( let c = ((_get_char) (input_1087)) in -if ( (((=)) (c) ('\n')) ) then ( Some((((succ) (input_1087)), c)) ) else ( None ) ) else ( None )) (input_1087) (((Trx_runtime.Expected(("'\n'")))::([])))) with +| Trx_runtime.Ok ( ( ( input_1084, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_err (if ( (((<)) (input_1084) (_len)) ) then ( let c = ((_get_char) (input_1084)) in +if ( (((=)) (c) ('\n')) ) then ( Some((((succ) (input_1084)), c)) ) else ( None ) ) else ( None )) (input_1084) (((Trx_runtime.Expected(("'\n'")))::([])))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1088, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1088, ( () )), ((Trx_runtime.emptyError) (input_1088)))))))))))) +| Trx_runtime.Ok ( ( ( input_1085, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1085, ( () )), ((Trx_runtime.emptyError) (input_1085)))))))))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err))) in (Hashtbl.add (memo_Ocaml_types_lineskipper_err) (input) (res)) ; res) @@ -9032,9 +9006,9 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match (Trx_runtime.option_to_res_err (if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in Some((((succ) (input)), c)) ) else ( None )) (input) (((Trx_runtime.Expected(("any character")))::([])))) with -Trx_runtime.Fail ( ( err ) ) -> let input_1875 = input in +Trx_runtime.Fail ( ( err ) ) -> let input_1871 = input in let __1 = () in -(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1875, ()), ((Trx_runtime.emptyError) (input_1875)))))) +(Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1871, ()), ((Trx_runtime.emptyError) (input_1871)))))) | Trx_runtime.Ok ( ( ( _, _ ), err ) ) -> let err = err in Trx_runtime.Fail((err)))) let rec try_Default_eof_noerr = @@ -9044,9 +9018,9 @@ and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (match if ( (((<)) (input) (_len)) ) then ( let c = ((_get_char) (input)) in Some((((succ) (input)), c)) ) else ( None ) with -None -> let input_921 = input in +None -> let input_919 = input in let __1 = () in -Some((input_921, ())) +Some((input_919, ())) | Some ( ( _, _ ) ) -> None)) let rec try_Ocaml_parser_parse_noerr = #415 "ocaml_parser.trx" @@ -9058,14 +9032,14 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_LetOrType_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_220, __1 ) ) -> (match (try_Ocaml_parser_parse_noerr (_filename) (_text) (input_220)) with +| Some ( ( input_218, __1 ) ) -> (match (try_Ocaml_parser_parse_noerr (_filename) (_text) (input_218)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_221, __2 ) ) -> Some((input_221, +| Some ( ( input_219, __2 ) ) -> Some((input_219, #415 "ocaml_parser.trx" ( ((__1 :: __2) : Ocaml.code) ))))) with None -> (match (try_Default_eof_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_219, __1 ) ) -> Some((input_219, +| Some ( ( input_217, __1 ) ) -> Some((input_217, #416 "ocaml_parser.trx" ( [] )))) | ( _ok ) as __pat_var -> __pat_var) in @@ -9081,21 +9055,21 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_parser_LetOrType (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1174, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_parse (_filename) (_text) (input_1174)) with +| Trx_runtime.Ok ( ( ( input_1170, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_parser_parse (_filename) (_text) (input_1170)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1175, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1175, +| Trx_runtime.Ok ( ( ( input_1171, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1171, #415 "ocaml_parser.trx" -( ((__1 :: __2) : Ocaml.code) )), ((Trx_runtime.emptyError) (input_1175)))))))))) with +( ((__1 :: __2) : Ocaml.code) )), ((Trx_runtime.emptyError) (input_1171)))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_eof (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1173, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1173, +| Trx_runtime.Ok ( ( ( input_1169, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1169, #416 "ocaml_parser.trx" -( [] )), ((Trx_runtime.emptyError) (input_1173))))))))) +( [] )), ((Trx_runtime.emptyError) (input_1169))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_parser_parse_err) (input) (res)) ; res) ) let rec try_Ocaml_types_test_noerr = -#52 "ocaml_types.trx" +#51 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -9104,27 +9078,27 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_types_spacing_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_118, __1 ) ) -> (match (try_Ocaml_types_typedeclaration_noerr (_filename) (_text) (input_118)) with +| Some ( ( input_117, __1 ) ) -> (match (try_Ocaml_types_typedeclaration_noerr (_filename) (_text) (input_117)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_119, __2 ) ) -> (match if ( (((&&)) ((((<=)) ((((+)) (input_119) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_119) (0))))) (';'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_119) (1))))) (';'))) (true)))))) ) then ( Some(((((+)) (input_119) (2)), ";;")) ) else ( None ) with +| Some ( ( input_118, __2 ) ) -> (match if ( (((&&)) ((((<=)) ((((+)) (input_118) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_118) (0))))) (';'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_118) (1))))) (';'))) (true)))))) ) then ( Some(((((+)) (input_118) (2)), ";;")) ) else ( None ) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_120, __3 ) ) -> (match (try_Ocaml_types_spacing_noerr (_filename) (_text) (input_120)) with +| Some ( ( input_119, __3 ) ) -> (match (try_Ocaml_types_spacing_noerr (_filename) (_text) (input_119)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_121, __4 ) ) -> (match (try_Ocaml_types_test_noerr (_filename) (_text) (input_121)) with +| Some ( ( input_120, __4 ) ) -> (match (try_Ocaml_types_test_noerr (_filename) (_text) (input_120)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_122, __5 ) ) -> Some((input_122, -#52 "ocaml_types.trx" +| Some ( ( input_121, __5 ) ) -> Some((input_121, +#51 "ocaml_types.trx" ( )))))))) with None -> (match (try_Default_eof_noerr (_filename) (_text) (input)) with ( None ) as __pat_var -> __pat_var -| Some ( ( input_117, __1 ) ) -> Some((input_117, -#52 "ocaml_types.trx" +| Some ( ( input_116, __1 ) ) -> Some((input_116, +#51 "ocaml_types.trx" ( )))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_test) (input) (res)) ; res) ) let rec try_Ocaml_types_typefinder_noerr = -#55 "ocaml_types.trx" +#54 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -9140,33 +9114,33 @@ None -> Some((input_41, None)) | Some ( ( input_43, r ) ) -> Some((input_43, Some((r))))) with ( None ) as __pat_var -> __pat_var | Some ( ( input_42, __3 ) ) -> Some((input_42, -#55 "ocaml_types.trx" +#54 "ocaml_types.trx" ( __3 )))))) in (Hashtbl.add (memo_Ocaml_types_typefinder) (input) (res)) ; res) ) let rec try_Ocaml_types_typefinder = -#55 "ocaml_types.trx" +#54 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in (try ( (Hashtbl.find (memo_Ocaml_types_typefinder_err) (input)) ) with -Not_found -> let res = (match (Trx_runtime.while_primary_nores (false) ((fun input_998 -> (try_Ocaml_types_lineskipper (_filename) (_text) (input_998)))) (input)) with +Not_found -> let res = (match (Trx_runtime.while_primary_nores (false) ((fun input_996 -> (try_Ocaml_types_lineskipper (_filename) (_text) (input_996)))) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_994, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_994)) with +| Trx_runtime.Ok ( ( ( input_992, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_992)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_995, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_typedeclaration (_filename) (_text) (input_995)) with -Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_995, None), err)) -| Trx_runtime.Ok ( ( ( input_997, r ), err ) ) -> Trx_runtime.Ok(((input_997, Some((r))), err))) with +| Trx_runtime.Ok ( ( ( input_993, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (match (try_Ocaml_types_typedeclaration (_filename) (_text) (input_993)) with +Trx_runtime.Fail ( ( err ) ) -> Trx_runtime.Ok(((input_993, None), err)) +| Trx_runtime.Ok ( ( ( input_995, r ), err ) ) -> Trx_runtime.Ok(((input_995, Some((r))), err))) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_996, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_996, -#55 "ocaml_types.trx" -( __3 )), ((Trx_runtime.emptyError) (input_996))))))))))))) in +| Trx_runtime.Ok ( ( ( input_994, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_994, +#54 "ocaml_types.trx" +( __3 )), ((Trx_runtime.emptyError) (input_994))))))))))))) in (Hashtbl.add (memo_Ocaml_types_typefinder_err) (input) (res)) ; res) ) let rec try_Ocaml_types_test = -#52 "ocaml_types.trx" +#51 "ocaml_types.trx" (fun _filename _text input -> let _len = ((String.length) (_text)) and _get_char = ((String.unsafe_get) (_text)) and _get_sub = ((String.sub) (_text)) in @@ -9175,22 +9149,22 @@ and _get_sub = ((String.sub) (_text)) in ) with Not_found -> let res = (match (match (try_Ocaml_types_spacing (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1072, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedeclaration (_filename) (_text) (input_1072)) with +| Trx_runtime.Ok ( ( ( input_1069, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_typedeclaration (_filename) (_text) (input_1069)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1073, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input_1073) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1073) (0))))) (';'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1073) (1))))) (';'))) (true)))))) ) then ( Some(((((+)) (input_1073) (2)), ";;")) ) else ( None )) (input_1073) ("\";;\"")) with +| Trx_runtime.Ok ( ( ( input_1070, __2 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (Trx_runtime.option_to_res_msg (if ( (((&&)) ((((<=)) ((((+)) (input_1070) (2))) (_len))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1070) (0))))) (';'))) ((((&&)) ((((=)) (((_get_char) ((((+)) (input_1070) (1))))) (';'))) (true)))))) ) then ( Some(((((+)) (input_1070) (2)), ";;")) ) else ( None )) (input_1070) ("\";;\"")) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1074, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_1074)) with +| Trx_runtime.Ok ( ( ( input_1071, __3 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_spacing (_filename) (_text) (input_1071)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1075, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_test (_filename) (_text) (input_1075)) with +| Trx_runtime.Ok ( ( ( input_1072, __4 ), err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Ocaml_types_test (_filename) (_text) (input_1072)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1076, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1076, -#52 "ocaml_types.trx" -( )), ((Trx_runtime.emptyError) (input_1076))))))))))))))))))) with +| Trx_runtime.Ok ( ( ( input_1073, __5 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1073, +#51 "ocaml_types.trx" +( )), ((Trx_runtime.emptyError) (input_1073))))))))))))))))))) with Trx_runtime.Fail ( ( err ) ) -> (Trx_runtime.addErrorInfo (err) ((match (try_Default_eof (_filename) (_text) (input)) with ( Trx_runtime.Fail ( ( _err ) ) ) as __pat_var -> __pat_var -| Trx_runtime.Ok ( ( ( input_1071, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1071, -#52 "ocaml_types.trx" -( )), ((Trx_runtime.emptyError) (input_1071))))))))) +| Trx_runtime.Ok ( ( ( input_1068, __1 ), err ) ) -> (Trx_runtime.addErrorInfo (err) (Trx_runtime.Ok(((input_1068, +#51 "ocaml_types.trx" +( )), ((Trx_runtime.emptyError) (input_1068))))))))) | ( _ok ) as __pat_var -> __pat_var) in (Hashtbl.add (memo_Ocaml_types_test_err) (input) (res)) ; res) )